(* 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[ 486125, 11733] NotebookOptionsPosition[ 469279, 11181] NotebookOutlinePosition[ 470993, 11233] CellTagsIndexPosition[ 470685, 11223] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Distribuciones", " ", "discretas"}]], "Input", CellChangeTimes->{{3.53897865421875*^9, 3.53897865421875*^9}}], Cell[BoxData[ RowBox[{"discretas", " ", "Distribuciones"}]], "Output", CellChangeTimes->{3.541307248015625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[GridBox[{ { RowBox[{ ButtonBox["BernoulliDistribution", BaseStyle->"Link", ButtonData->"paclet:ref/BernoulliDistribution"], "[", StyleBox["p", "TI"], "]"}], Cell[TextData[{ "Bernoulli distribution with mean ", Cell[BoxData[ StyleBox["p", "TI"]], "InlineFormula"] }], "TableText"]}, { RowBox[{ ButtonBox["BetaBinomialDistribution", BaseStyle->"Link", ButtonData->"paclet:ref/BetaBinomialDistribution"], "[", RowBox[{ StyleBox["\[Alpha]", "TR"], ",", StyleBox["\[Beta]", "TR"], ",", StyleBox["n", "TI"]}], "]"}], Cell[TextData[{ "binomial distribution where the success probability is a ", Cell[BoxData[ RowBox[{ ButtonBox["BetaDistribution", BaseStyle->"Link", ButtonData->"paclet:ref/BetaDistribution"], "[", RowBox[{ StyleBox["\[Alpha]", "TR"], ",", StyleBox["\[Beta]", "TR"]}], "]"}]], "InlineFormula"], " random variable" }], "TableText"]}, { RowBox[{ ButtonBox["BetaNegativeBinomialDistribution", BaseStyle->"Link", ButtonData->"paclet:ref/BetaNegativeBinomialDistribution"], "[", RowBox[{ StyleBox["\[Alpha]", "TR"], ",", StyleBox["\[Beta]", "TR"], ",", StyleBox["n", "TI"]}], "]"}], "\[SpanFromLeft]"}, {"", Cell[TextData[{ "negative binomial distribution where the success probability is a ", Cell[BoxData[ RowBox[{ ButtonBox["BetaDistribution", BaseStyle->"Link", ButtonData->"paclet:ref/BetaDistribution"], "[", RowBox[{ StyleBox["\[Alpha]", "TR"], ",", StyleBox["\[Beta]", "TR"]}], "]"}]], "InlineFormula"], " random variable " }], "TableText"]}, { RowBox[{ ButtonBox["BinomialDistribution", BaseStyle->"Link", ButtonData->"paclet:ref/BinomialDistribution"], "[", RowBox[{ StyleBox["n", "TI"], ",", StyleBox["p", "TI"]}], "]"}], Cell[TextData[{ "binomial distribution for the number of successes that occur in ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula"], " trials, where the probability of success in a trial is ", Cell[BoxData[ StyleBox["p", "TI"]], "InlineFormula"] }], "TableText"]}, { RowBox[{ ButtonBox["DiscreteUniformDistribution", BaseStyle->"Link", ButtonData->"paclet:ref/DiscreteUniformDistribution"], "[", RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["i", "TI"], StyleBox["min", "TI"]], ",", SubscriptBox[ StyleBox["i", "TI"], StyleBox["max", "TI"]]}], "}"}], "]"}], "\[SpanFromLeft]"}, {"", Cell[TextData[{ "discrete uniform distribution over the integers from ", Cell[BoxData[ SubscriptBox[ StyleBox["i", "TI"], StyleBox["min", "TI"]]], "InlineFormula"], " to ", Cell[BoxData[ SubscriptBox[ StyleBox["i", "TI"], StyleBox["max", "TI"]]], "InlineFormula"] }], "TableText"]}, { RowBox[{ ButtonBox["GeometricDistribution", BaseStyle->"Link", ButtonData->"paclet:ref/GeometricDistribution"], "[", StyleBox["p", "TI"], "]"}], Cell[TextData[{ "geometric distribution for the number of trials before the first \ success, where the probability of success in a trial is ", Cell[BoxData[ StyleBox["p", "TI"]], "InlineFormula"] }], "TableText"]}, { RowBox[{ ButtonBox["HypergeometricDistribution", BaseStyle->"Link", ButtonData->"paclet:ref/HypergeometricDistribution"], "[", RowBox[{ StyleBox["n", "TI"], ",", SubscriptBox[ StyleBox["n", "TI"], StyleBox["succ", "TI"]], ",", SubscriptBox[ StyleBox["n", "TI"], StyleBox["tot", "TI"]]}], "]"}], "\[SpanFromLeft]"}, {"", Cell[TextData[{ "hypergeometric distribution for the number of successes out of a sample \ of size ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula"], ", from a population of size ", Cell[BoxData[ SubscriptBox[ StyleBox["n", "TI"], StyleBox["tot", "TI"]]], "InlineFormula"], " containing ", Cell[BoxData[ SubscriptBox[ StyleBox["n", "TI"], StyleBox["succ", "TI"]]], "InlineFormula"], " successes " }], "TableText"]}, { RowBox[{ ButtonBox["LogSeriesDistribution", BaseStyle->"Link", ButtonData->"paclet:ref/LogSeriesDistribution"], "[", StyleBox["\[Theta]", "TR"], "]"}], Cell[TextData[{ "logarithmic series distribution with parameter ", Cell[BoxData[ StyleBox["\[Theta]", "TR"]], "InlineFormula"] }], "TableText"]}, { RowBox[{ ButtonBox["NegativeBinomialDistribution", BaseStyle->"Link", ButtonData->"paclet:ref/NegativeBinomialDistribution"], "[", RowBox[{ StyleBox["n", "TI"], ",", StyleBox["p", "TI"]}], "]"}], "\[SpanFromLeft]"}, {"", Cell[TextData[{ "negative binomial distribution with parameters ", Cell[BoxData[ StyleBox["n", "TI"]], "InlineFormula"], " and ", Cell[BoxData[ StyleBox["p", "TI"]], "InlineFormula"], " " }], "TableText"]}, { RowBox[{ ButtonBox["PoissonDistribution", BaseStyle->"Link", ButtonData->"paclet:ref/PoissonDistribution"], "[", StyleBox["\[Mu]", "TR"], "]"}], Cell[TextData[{ "Poisson distribution with mean ", Cell[BoxData[ StyleBox["\[Mu]", "TR"]], "InlineFormula"] }], "TableText"]}, { RowBox[{ ButtonBox["ZipfDistribution", BaseStyle->"Link", ButtonData->"paclet:ref/ZipfDistribution"], "[", StyleBox["\[Rho]", "TR"], "]"}], Cell[TextData[{ "Zipf distribution with parameter ", Cell[BoxData[ StyleBox["\[Rho]", "TR"]], "InlineFormula"] }], "TableText"]} }]], "Input", CellChangeTimes->{{3.5092656169689455`*^9, 3.5092656528499975`*^9}, 3.509265703216878*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ ButtonBox["BernoulliDistribution", Appearance->Automatic, BaseStyle->"Link", ButtonData->"paclet:ref/BernoulliDistribution", Evaluator->Automatic, Method->"Preemptive"], "[", "1", "]"}], ",", InterpretationBox[Cell[TextData[{ "Bernoulli distribution with mean ", Cell[BoxData["1"], "InlineFormula"] }], "TableText"], TextCell[ Row[{"Bernoulli distribution with mean ", ExpressionCell[1, "InlineFormula"]}], "TableText"]]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ ButtonBox["BetaBinomialDistribution", Appearance->Automatic, BaseStyle->"Link", ButtonData->"paclet:ref/BetaBinomialDistribution", Evaluator->Automatic, Method->"Preemptive"], "[", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "10"}], "]"}], ",", InterpretationBox[Cell[TextData[{ "binomial distribution where the success probability is a ", Cell[BoxData[ RowBox[{ ButtonBox["BetaDistribution", Appearance->Automatic, BaseStyle->"Link", ButtonData->"paclet:ref/BetaDistribution", Evaluator->Automatic, Method->"Preemptive"], "[", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}]], "InlineFormula"], " random variable" }], "TableText"], TextCell[ Row[{"binomial distribution where the success probability is a ", ExpressionCell[ Button[ BetaDistribution, Inherited, BaseStyle -> "Link", ButtonData -> "paclet:ref/BetaDistribution"][$CellContext`\[Alpha], \ $CellContext`\[Beta]], "InlineFormula"], " random variable"}], "TableText"]]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ ButtonBox["BetaNegativeBinomialDistribution", Appearance->Automatic, BaseStyle->"Link", ButtonData->"paclet:ref/BetaNegativeBinomialDistribution", Evaluator->Automatic, Method->"Preemptive"], "[", RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "10"}], "]"}], ",", "\[SpanFromLeft]"}], "}"}], ",", RowBox[{"{", RowBox[{"Null", ",", InterpretationBox[Cell[TextData[{ "negative binomial distribution where the success probability is a ", Cell[BoxData[ RowBox[{ ButtonBox["BetaDistribution", Appearance->Automatic, BaseStyle->"Link", ButtonData->"paclet:ref/BetaDistribution", Evaluator->Automatic, Method->"Preemptive"], "[", RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}]], "InlineFormula"], " random variable " }], "TableText"], TextCell[ Row[{ "negative binomial distribution where the success probability is a ", ExpressionCell[ Button[ BetaDistribution, Inherited, BaseStyle -> "Link", ButtonData -> "paclet:ref/BetaDistribution"][$CellContext`\[Alpha], \ $CellContext`\[Beta]], "InlineFormula"], " random variable "}], "TableText"]]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ ButtonBox["BinomialDistribution", Appearance->Automatic, BaseStyle->"Link", ButtonData->"paclet:ref/BinomialDistribution", Evaluator->Automatic, Method->"Preemptive"], "[", RowBox[{"10", ",", "1"}], "]"}], ",", InterpretationBox[Cell[TextData[{ "binomial distribution for the number of successes that occur in ", Cell[BoxData["10"], "InlineFormula"], " trials, where the probability of success in a trial is ", Cell[BoxData["1"], "InlineFormula"] }], "TableText"], TextCell[ Row[{ "binomial distribution for the number of successes that occur in ", ExpressionCell[10, "InlineFormula"], " trials, where the probability of success in a trial is ", ExpressionCell[1, "InlineFormula"]}], "TableText"]]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ ButtonBox["DiscreteUniformDistribution", Appearance->Automatic, BaseStyle->"Link", ButtonData->"paclet:ref/DiscreteUniformDistribution", Evaluator->Automatic, Method->"Preemptive"], "[", RowBox[{"{", RowBox[{ SubscriptBox["i", "min"], ",", SubscriptBox["i", "max"]}], "}"}], "]"}], ",", "\[SpanFromLeft]"}], "}"}], ",", RowBox[{"{", RowBox[{"Null", ",", InterpretationBox[Cell[TextData[{ "discrete uniform distribution over the integers from ", Cell[BoxData[ SubscriptBox["i", "min"]], "InlineFormula"], " to ", Cell[BoxData[ SubscriptBox["i", "max"]], "InlineFormula"] }], "TableText"], TextCell[ Row[{"discrete uniform distribution over the integers from ", ExpressionCell[ Subscript[$CellContext`i, $CellContext`min], "InlineFormula"], " to ", ExpressionCell[ Subscript[$CellContext`i, $CellContext`max], "InlineFormula"]}], "TableText"]]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ ButtonBox["GeometricDistribution", Appearance->Automatic, BaseStyle->"Link", ButtonData->"paclet:ref/GeometricDistribution", Evaluator->Automatic, Method->"Preemptive"], "[", "1", "]"}], ",", InterpretationBox[Cell[TextData[{ "geometric distribution for the number of trials before the first \ success, where the probability of success in a trial is ", Cell[BoxData["1"], "InlineFormula"] }], "TableText"], TextCell[ Row[{ "geometric distribution for the number of trials before the first \ success, where the probability of success in a trial is ", ExpressionCell[1, "InlineFormula"]}], "TableText"]]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ ButtonBox["HypergeometricDistribution", Appearance->Automatic, BaseStyle->"Link", ButtonData->"paclet:ref/HypergeometricDistribution", Evaluator->Automatic, Method->"Preemptive"], "[", RowBox[{"10", ",", SubscriptBox["10", "succ"], ",", SubscriptBox["10", "tot"]}], "]"}], ",", "\[SpanFromLeft]"}], "}"}], ",", RowBox[{"{", RowBox[{"Null", ",", InterpretationBox[Cell[TextData[{ "hypergeometric distribution for the number of successes out of a \ sample of size ", Cell[BoxData["10"], "InlineFormula"], ", from a population of size ", Cell[BoxData[ SubscriptBox["10", "tot"]], "InlineFormula"], " containing ", Cell[BoxData[ SubscriptBox["10", "succ"]], "InlineFormula"], " successes " }], "TableText"], TextCell[ Row[{ "hypergeometric distribution for the number of successes out of a \ sample of size ", ExpressionCell[10, "InlineFormula"], ", from a population of size ", ExpressionCell[ Subscript[10, $CellContext`tot], "InlineFormula"], " containing ", ExpressionCell[ Subscript[10, $CellContext`succ], "InlineFormula"], " successes "}], "TableText"]]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ ButtonBox["LogSeriesDistribution", Appearance->Automatic, BaseStyle->"Link", ButtonData->"paclet:ref/LogSeriesDistribution", Evaluator->Automatic, Method->"Preemptive"], "[", "\[Theta]", "]"}], ",", InterpretationBox[Cell[TextData[{ "logarithmic series distribution with parameter ", Cell[BoxData["\[Theta]"], "InlineFormula"] }], "TableText"], TextCell[ Row[{"logarithmic series distribution with parameter ", ExpressionCell[$CellContext`\[Theta], "InlineFormula"]}], "TableText"]]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ ButtonBox["NegativeBinomialDistribution", Appearance->Automatic, BaseStyle->"Link", ButtonData->"paclet:ref/NegativeBinomialDistribution", Evaluator->Automatic, Method->"Preemptive"], "[", RowBox[{"10", ",", "1"}], "]"}], ",", "\[SpanFromLeft]"}], "}"}], ",", RowBox[{"{", RowBox[{"Null", ",", InterpretationBox[Cell[TextData[{ "negative binomial distribution with parameters ", Cell[BoxData["10"], "InlineFormula"], " and ", Cell[BoxData["1"], "InlineFormula"], " " }], "TableText"], TextCell[ Row[{"negative binomial distribution with parameters ", ExpressionCell[10, "InlineFormula"], " and ", ExpressionCell[1, "InlineFormula"], " "}], "TableText"]]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ ButtonBox["PoissonDistribution", Appearance->Automatic, BaseStyle->"Link", ButtonData->"paclet:ref/PoissonDistribution", Evaluator->Automatic, Method->"Preemptive"], "[", "\[Mu]", "]"}], ",", InterpretationBox[Cell[TextData[{ "Poisson distribution with mean ", Cell[BoxData["\[Mu]"], "InlineFormula"] }], "TableText"], TextCell[ Row[{"Poisson distribution with mean ", ExpressionCell[$CellContext`\[Mu], "InlineFormula"]}], "TableText"]]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ ButtonBox["ZipfDistribution", Appearance->Automatic, BaseStyle->"Link", ButtonData->"paclet:ref/ZipfDistribution", Evaluator->Automatic, Method->"Preemptive"], "[", "\[Rho]", "]"}], ",", InterpretationBox[Cell[TextData[{ "Zipf distribution with parameter ", Cell[BoxData["\[Rho]"], "InlineFormula"] }], "TableText"], TextCell[ Row[{"Zipf distribution with parameter ", ExpressionCell[$CellContext`\[Rho], "InlineFormula"]}], "TableText"]]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.541307248078125*^9}] }, Open ]], Cell[TextData[{ StyleBox["LA DISTRIBUCION UNIFORME", FontSize->18], "\nLOS ALUMNOS VEN EL CONTENIDO PERO NO LO HACEN EN EL ORDENADOR TODO\nLA \ uniforme en enteros: ", Cell[BoxData[ RowBox[{ ButtonBox["DiscreteUniformDistribution", BaseStyle->"Link", ButtonData->"paclet:ref/DiscreteUniformDistribution"], "[", RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["i", "TI"], StyleBox["min", "TI"]], ",", SubscriptBox[ StyleBox["i", "TI"], StyleBox["max", "TI"]]}], "}"}], "]"}]]], ". Podemos hacer unos muestras con los dados\nHistogram[RandomInteger[dado, \ 1000], {1}, \"ProbabilityDensity\"]" }], "Text", CellChangeTimes->{{3.50904353787043*^9, 3.5090435461852446`*^9}, { 3.509043620905837*^9, 3.509043635257862*^9}, {3.509265728087301*^9, 3.5092657333846035`*^9}, {3.509266510024025*^9, 3.5092665119361343`*^9}, { 3.5092665742306976`*^9, 3.5092665747737284`*^9}, 3.50942136346875*^9, { 3.51063432478125*^9, 3.510634357953125*^9}}], Cell[BoxData[ RowBox[{"Para", " ", "definir", " ", "un", " ", "dado", " ", "se", " ", "puede", " ", "utilizar", " ", "el", " ", "comando", " ", RowBox[{"DiscreteUniformDistribution", "."}]}]], "Input", CellChangeTimes->{{3.537775111609375*^9, 3.537775205484375*^9}, { 3.539601806671875*^9, 3.539601815046875*^9}}, EmphasizeSyntaxErrors->True], Cell[BoxData[{ RowBox[{ RowBox[{"p1min", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p2max", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dado", "=", RowBox[{"DiscreteUniformDistribution", "[", RowBox[{"{", RowBox[{"p1min", ",", "p2max"}], "}"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.509090075932859*^9, 3.5090900885210457`*^9}, { 3.5092657619522376`*^9, 3.5092658444089537`*^9}}], Cell[TextData[{ "For discrete distributions, ", Cell[BoxData[ RowBox[{ ButtonBox["PDF", BaseStyle->"Link", ButtonData->"paclet:ref/PDF"], "[", RowBox[{ StyleBox["dist", "TI"], ",", StyleBox["x", "TI"]}], "]"}]], "InlineFormula"], " gives the probability that an observed value will be ", Cell[BoxData[ StyleBox["x", "TI"]], "InlineFormula"], ".", "\n", Cell[BoxData[ RowBox[{ ButtonBox["CDF", BaseStyle->"Link", ButtonData->"paclet:ref/CDF"], "[", RowBox[{ StyleBox["dist", "TI"], ",", StyleBox["x", "TI"]}], "]"}]], "InlineFormula"], " gives the probability that an observed value will be less than or equal to \ ", Cell[BoxData[ StyleBox["x", "TI"]], "InlineFormula"], ".\nFor discrete distributions, ", Cell[BoxData[ RowBox[{ ButtonBox["CDF", BaseStyle->"Link", ButtonData->"paclet:ref/CDF"], "[", RowBox[{ StyleBox["dist", "TI"], ",", StyleBox["x", "TI"]}], "]"}]], "InlineFormula"], " is the sum of the probability density function from the lowest value in \ the domain to ", Cell[BoxData[ StyleBox["x", "TI"]], "InlineFormula"], "." }], "Text", CellChangeTimes->{{3.509267031046826*^9, 3.5092670314618497`*^9}, { 3.5092670824097633`*^9, 3.509267121787016*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PDF", "[", RowBox[{"dado", ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.5092671364108524`*^9, 3.509267147048461*^9}, { 3.5092672112091303`*^9, 3.509267211529149*^9}}], Cell[BoxData[ TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ { FractionBox["1", "6"], RowBox[{"1", "\[LessEqual]", "x", "\[LessEqual]", "6"}]}, {"0", TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}, Selectable->True]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.54130724815625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CDF", "[", RowBox[{"dado", ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.5092671601812115`*^9, 3.509267191657012*^9}}], Cell[BoxData[ TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ { FractionBox[ RowBox[{"Floor", "[", "x", "]"}], "6"], RowBox[{"1", "\[LessEqual]", "x", "<", "6"}]}, {"1", RowBox[{"x", "\[GreaterEqual]", "6"}]}, {"0", TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}, Selectable->True]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.5413072481875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"??", "Floor"}]], "Input", CellChangeTimes->{{3.509422430515625*^9, 3.5094224333125*^9}, { 3.53897959203125*^9, 3.538979592265625*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ StyleBox["\<\"\!\(\*RowBox[{\\\"Floor\\\", \\\"[\\\", StyleBox[\\\"x\\\", \ \\\"TI\\\"], \\\"]\\\"}]\) gives the greatest integer less than or equal to \ \!\(\*StyleBox[\\\"x\\\", \\\"TI\\\"]\). \\n\!\(\*RowBox[{\\\"Floor\\\", \ \\\"[\\\", RowBox[{StyleBox[\\\"x\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"a\ \\\", \\\"TI\\\"]}], \\\"]\\\"}]\) gives the greatest multiple of \ \!\(\*StyleBox[\\\"a\\\", \\\"TI\\\"]\) less than or equal to \!\(\*StyleBox[\ \\\"x\\\", \\\"TI\\\"]\). \"\>", "MSG"], "\[NonBreakingSpace]", ButtonBox[ StyleBox["\[RightSkeleton]", "SR"], Active->True, BaseStyle->"Link", ButtonData->"paclet:ref/Floor"]}]], "Print", "PrintUsage", CellChangeTimes->{3.541307248328125*^9}, CellTags->"Info3541310848-9856568"], Cell[BoxData[ InterpretationBox[GridBox[{ { RowBox[{ RowBox[{"Attributes", "[", "Floor", "]"}], "=", RowBox[{"{", RowBox[{"Listable", ",", "NumericFunction", ",", "Protected"}], "}"}]}]} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], Definition[Floor], Editable->False]], "Print", CellChangeTimes->{3.541307248359375*^9}, CellTags->"Info3541310848-9856568"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CDF", "[", RowBox[{"dado", ",", "1"}], "]"}]], "Input", CellChangeTimes->{{3.509267274293739*^9, 3.5092672787129917`*^9}}], Cell[BoxData[ FractionBox["1", "6"]], "Output", CellChangeTimes->{3.54130724846875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CDF", "[", RowBox[{"dado", ",", "2"}], "]"}]], "Input", CellChangeTimes->{{3.5092672607899666`*^9, 3.509267268105385*^9}}], Cell[BoxData[ FractionBox["1", "3"]], "Output", CellChangeTimes->{3.5413072485*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CDF", "[", RowBox[{"dado", ",", "5"}], "]"}]], "Input", CellChangeTimes->{{3.5092672862644234`*^9, 3.5092672927127924`*^9}}], Cell[BoxData[ FractionBox["5", "6"]], "Output", CellChangeTimes->{3.541307248546875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Mean", "[", "dado", "]"}]], "Input", CellChangeTimes->{{3.509266876687997*^9, 3.509266887159596*^9}, { 3.509267203273677*^9, 3.50926720805695*^9}}], Cell[BoxData[ FractionBox["7", "2"]], "Output", CellChangeTimes->{3.541307248578125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Variance", "[", "dado", "]"}]], "Input", CellChangeTimes->{{3.5092668953020616`*^9, 3.5092669038325496`*^9}}], Cell[BoxData[ FractionBox["35", "12"]], "Output", CellChangeTimes->{3.541307248625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"StandardDeviation", "[", "dado", "]"}]], "Input", CellChangeTimes->{{3.50926694579695*^9, 3.5092669617998652`*^9}}], Cell[BoxData[ FractionBox[ SqrtBox[ FractionBox["35", "3"]], "2"]], "Output", CellChangeTimes->{3.541307248671875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"tmuestra", "=", "10"}]], "Input", CellChangeTimes->{{3.5092658652211447`*^9, 3.509265869447386*^9}}], Cell[BoxData["10"], "Output", CellChangeTimes->{3.54130724871875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"muestra", "=", RowBox[{"RandomInteger", "[", RowBox[{"dado", ",", "tmuestra"}], "]"}]}]], "Input", CellChangeTimes->{{3.5389798725*^9, 3.53897987765625*^9}, {3.538979912125*^9, 3.538979929875*^9}, {3.539578065890625*^9, 3.539578066484375*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "6", ",", "4", ",", "2", ",", "4", ",", "5", ",", "5", ",", "2", ",", "3", ",", "2", ",", "1"}], "}"}]], "Output", CellChangeTimes->{3.541307248765625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Histogram", "[", RowBox[{"muestra", ",", RowBox[{"{", "1", "}"}], ",", "\"\\""}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[ {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1., 0.}, {2., 0.1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{67.7862973760933, 116.07259475218659`}, { 30.925643090168094`, 94.43368479858943}}], StatusArea[#, 0.1]& , TagBoxNote->"0.1"], StyleBox["0.1`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2., 0.}, {3., 0.3}, "RoundingRadius" -> 0]}, ImageSizeCache->{{115.07259475218659`, 163.35889212827988`}, {-94.09044032667457, 94.43368479858943}}], StatusArea[#, 0.3]& , TagBoxNote->"0.3"], StyleBox["0.3`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.3, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{3., 0.}, {4., 0.1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{162.35889212827988`, 210.64518950437318`}, { 30.925643090168094`, 94.43368479858943}}], StatusArea[#, 0.1]& , TagBoxNote->"0.1"], StyleBox["0.1`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4., 0.}, {5., 0.2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{209.64518950437318`, 257.9314868804665}, {-31.582398618253237`, 94.43368479858943}}], StatusArea[#, 0.2]& , TagBoxNote->"0.2"], StyleBox["0.2`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.2, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5., 0.}, {6., 0.2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{256.9314868804665, 305.21778425655975`}, {-31.582398618253237`, 94.43368479858943}}], StatusArea[#, 0.2]& , TagBoxNote->"0.2"], StyleBox["0.2`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.2, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{6., 0.}, {7., 0.1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{304.21778425655975`, 352.5040816326531}, { 30.925643090168094`, 94.43368479858943}}], StatusArea[#, 0.1]& , TagBoxNote->"0.1"], StyleBox["0.1`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.1, { GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesOrigin->{0., 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, PlotRange->{{0., 7.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.1]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.54130724890625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"muestra", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"RandomInteger", "[", RowBox[{"dado", ",", SuperscriptBox["10", "i"]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "3"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.509266167505434*^9, 3.509266178504063*^9}, 3.5092662110019217`*^9, {3.509266256936549*^9, 3.5092663372091403`*^9}, 3.509421363671875*^9, 3.50942326671875*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "5", ",", "6", ",", "6", ",", "2", ",", "1", ",", "5", ",", "5", ",", "6", ",", "4", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{ "3", ",", "2", ",", "2", ",", "5", ",", "3", ",", "1", ",", "2", ",", "2", ",", "5", ",", "1", ",", "1", ",", "5", ",", "2", ",", "5", ",", "1", ",", "1", ",", "2", ",", "6", ",", "5", ",", "3", ",", "6", ",", "4", ",", "2", ",", "3", ",", "3", ",", "4", ",", "3", ",", "2", ",", "5", ",", "1", ",", "6", ",", "5", ",", "3", ",", "1", ",", "2", ",", "4", ",", "4", ",", "1", ",", "4", ",", "6", ",", "1", ",", "5", ",", "2", ",", "6", ",", "3", ",", "1", ",", "3", ",", "1", ",", "4", ",", "3", ",", "1", ",", "2", ",", "1", ",", "5", ",", "2", ",", "4", ",", "6", ",", "4", ",", "6", ",", "2", ",", "1", ",", "2", ",", "5", ",", "5", ",", "3", ",", "5", ",", "4", ",", "2", ",", "6", ",", "1", ",", "6", ",", "4", ",", "6", ",", "4", ",", "1", ",", "3", ",", "5", ",", "6", ",", "4", ",", "6", ",", "2", ",", "1", ",", "2", ",", "3", ",", "1", ",", "1", ",", "2", ",", "3", ",", "3", ",", "5", ",", "3", ",", "4", ",", "1", ",", "5", ",", "4", ",", "1", ",", "6", ",", "4", ",", "2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{ "5", ",", "3", ",", "6", ",", "3", ",", "5", ",", "2", ",", "2", ",", "5", ",", "3", ",", "3", ",", "5", ",", "2", ",", "2", ",", "4", ",", "1", ",", "4", ",", "2", ",", "1", ",", "1", ",", "1", ",", "1", ",", "5", ",", "2", ",", "4", ",", "6", ",", "2", ",", "1", ",", "5", ",", "6", ",", "6", ",", "2", ",", "2", ",", "6", ",", "1", ",", "2", ",", "6", ",", "5", ",", "1", ",", "2", ",", "6", ",", "3", ",", "3", ",", "3", ",", "1", ",", "4", ",", "4", ",", "6", ",", "5", ",", "6", ",", "3", ",", "6", ",", "6", ",", "6", ",", "2", ",", "5", ",", "2", ",", "3", ",", "5", ",", "6", ",", "3", ",", "3", ",", "1", ",", "3", ",", "6", ",", "1", ",", "6", ",", "4", ",", "6", ",", "2", ",", "1", ",", "3", ",", "3", ",", "6", ",", "5", ",", "3", ",", "5", ",", "3", ",", "6", ",", "6", ",", "1", ",", "3", ",", "6", ",", "2", ",", "4", ",", "2", ",", "6", ",", "2", ",", "5", ",", "3", ",", "6", ",", "2", ",", "4", ",", "5", ",", "6", ",", "6", ",", "5", ",", "3", ",", "1", ",", "5", ",", "5", ",", "4", ",", "1", ",", "1", ",", "2", ",", "1", ",", "6", ",", "3", ",", "6", ",", "3", ",", "1", ",", "2", ",", "5", ",", "3", ",", "2", ",", "4", ",", "1", ",", "3", ",", "4", ",", "2", ",", "2", ",", "2", ",", "1", ",", "5", ",", "2", ",", "2", ",", "1", ",", "6", ",", "3", ",", "1", ",", "5", ",", "4", ",", "3", ",", "2", ",", "6", ",", "3", ",", "2", ",", "3", ",", "2", ",", "5", ",", "4", ",", "5", ",", "2", ",", "6", ",", "5", ",", "5", ",", "2", ",", "4", ",", "4", ",", "6", ",", "6", ",", "6", ",", "3", ",", "6", ",", "5", ",", "2", ",", "3", ",", "1", ",", "2", ",", "2", ",", "3", ",", "5", ",", "3", ",", "3", ",", "4", ",", "2", ",", "1", ",", "4", ",", "2", ",", "1", ",", "4", ",", "3", ",", "6", ",", "4", ",", "1", ",", "6", ",", "3", ",", "3", ",", "6", ",", "2", ",", "4", ",", "4", ",", "5", ",", "4", ",", "1", ",", "3", ",", "2", ",", "1", ",", "6", ",", "6", ",", "4", ",", "4", ",", "1", ",", "5", ",", "5", ",", "1", ",", "5", ",", "3", ",", "4", ",", "1", ",", "1", ",", "2", ",", "6", ",", "3", ",", "2", ",", "6", ",", "3", ",", "2", ",", "2", ",", "4", ",", "2", ",", "5", ",", "4", ",", "3", ",", "5", ",", "6", ",", "1", ",", "1", ",", "4", ",", "4", ",", "4", ",", "6", ",", "3", ",", "1", ",", "4", ",", "1", ",", "2", ",", "2", ",", "1", ",", "2", ",", "4", ",", "4", ",", "2", ",", "4", ",", "2", ",", "2", ",", "2", ",", "3", ",", "2", ",", "4", ",", "3", ",", "6", ",", "3", ",", "5", ",", "2", ",", "3", ",", "6", ",", "6", ",", "6", ",", "6", ",", "1", ",", "5", ",", "5", ",", "5", ",", "2", ",", "2", ",", "4", ",", "4", ",", "4", ",", "5", ",", "3", ",", "6", ",", "5", ",", "2", ",", "2", ",", "6", ",", "4", ",", "6", ",", "6", ",", "4", ",", "3", ",", "6", ",", "3", ",", "2", ",", "1", ",", "6", ",", "2", ",", "5", ",", "3", ",", "4", ",", "5", ",", "2", ",", "2", ",", "4", ",", "2", ",", "6", ",", "2", ",", "3", ",", "2", ",", "4", ",", "1", ",", "3", ",", "6", ",", "2", ",", "5", ",", "3", ",", "3", ",", "5", ",", "1", ",", "3", ",", "1", ",", "5", ",", "4", ",", "2", ",", "3", ",", "2", ",", "1", ",", "6", ",", "1", ",", "4", ",", "2", ",", "6", ",", "4", ",", "5", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "3", ",", "5", ",", "1", ",", "1", ",", "1", ",", "5", ",", "6", ",", "3", ",", "4", ",", "2", ",", "4", ",", "1", ",", "2", ",", "2", ",", "6", ",", "4", ",", "6", ",", "2", ",", "2", ",", "1", ",", "1", ",", "3", ",", "5", ",", "3", ",", "6", ",", "4", ",", "4", ",", "6", ",", "1", ",", "3", ",", "1", ",", "2", ",", "3", ",", "3", ",", "1", ",", "5", ",", "3", ",", "3", ",", "4", ",", "5", ",", "5", ",", "5", ",", "3", ",", "4", ",", "4", ",", "2", ",", "4", ",", "4", ",", "2", ",", "2", ",", "2", ",", "1", ",", "5", ",", "3", ",", "1", ",", "2", ",", "6", ",", "6", ",", "3", ",", "3", ",", "1", ",", "5", ",", "4", ",", "2", ",", "2", ",", "5", ",", "3", ",", "3", ",", "5", ",", "4", ",", "3", ",", "5", ",", "2", ",", "1", ",", "1", ",", "4", ",", "5", ",", "2", ",", "5", ",", "1", ",", "4", ",", "3", ",", "2", ",", "1", ",", "1", ",", "3", ",", "1", ",", "3", ",", "6", ",", "4", ",", "1", ",", "6", ",", "6", ",", "4", ",", "5", ",", "6", ",", "2", ",", "3", ",", "4", ",", "4", ",", "5", ",", "2", ",", "5", ",", "4", ",", "4", ",", "3", ",", "1", ",", "5", ",", "2", ",", "4", ",", "5", ",", "5", ",", "2", ",", "1", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "6", ",", "3", ",", "6", ",", "2", ",", "5", ",", "4", ",", "2", ",", "1", ",", "2", ",", "6", ",", "1", ",", "2", ",", "2", ",", "6", ",", "6", ",", "4", ",", "2", ",", "5", ",", "4", ",", "3", ",", "3", ",", "5", ",", "2", ",", "1", ",", "4", ",", "1", ",", "4", ",", "5", ",", "1", ",", "5", ",", "3", ",", "5", ",", "3", ",", "4", ",", "3", ",", "3", ",", "1", ",", "5", ",", "3", ",", "6", ",", "1", ",", "6", ",", "6", ",", "4", ",", "5", ",", "6", ",", "4", ",", "4", ",", "6", ",", "5", ",", "3", ",", "6", ",", "3", ",", "3", ",", "5", ",", "3", ",", "6", ",", "1", ",", "5", ",", "1", ",", "4", ",", "1", ",", "3", ",", "2", ",", "3", ",", "2", ",", "3", ",", "2", ",", "2", ",", "6", ",", "6", ",", "6", ",", "2", ",", "3", ",", "3", ",", "1", ",", "6", ",", "5", ",", "1", ",", "4", ",", "4", ",", "4", ",", "3", ",", "2", ",", "3", ",", "6", ",", "5", ",", "3", ",", "6", ",", "5", ",", "1", ",", "1", ",", "5", ",", "1", ",", "4", ",", "5", ",", "1", ",", "4", ",", "5", ",", "2", ",", "6", ",", "4", ",", "2", ",", "2", ",", "6", ",", "1", ",", "1", ",", "6", ",", "2", ",", "1", ",", "5", ",", "2", ",", "5", ",", "1", ",", "3", ",", "3", ",", "2", ",", "4", ",", "1", ",", "4", ",", "1", ",", "4", ",", "5", ",", "5", ",", "2", ",", "1", ",", "5", ",", "3", ",", "5", ",", "4", ",", "5", ",", "1", ",", "1", ",", "3", ",", "4", ",", "1", ",", "5", ",", "1", ",", "5", ",", "5", ",", "2", ",", "5", ",", "6", ",", "5", ",", "3", ",", "4", ",", "2", ",", "4", ",", "4", ",", "5", ",", "3", ",", "3", ",", "5", ",", "2", ",", "1", ",", "5", ",", "4", ",", "4", ",", "6", ",", "1", ",", "4", ",", "5", ",", "1", ",", "4", ",", "1", ",", "6", ",", "6", ",", "4", ",", "3", ",", "1", ",", "6", ",", "1", ",", "4", ",", "2", ",", "3", ",", "1", ",", "4", ",", "1", ",", "3", ",", "4", ",", "2", ",", "3", ",", "5", ",", "1", ",", "2", ",", "5", ",", "3", ",", "1", ",", "3", ",", "3", ",", "6", ",", "2", ",", "1", ",", "3", ",", "5", ",", "4", ",", "3", ",", "5", ",", "1", ",", "6", ",", "1", ",", "3", ",", "2", ",", "2", ",", "5", ",", "6", ",", "6", ",", "1", ",", "2", ",", "2", ",", "6", ",", "4", ",", "1", ",", "5", ",", "5", ",", "2", ",", "3", ",", "1", ",", "6", ",", "1", ",", "6", ",", "6", ",", "4", ",", "4", ",", "1", ",", "1", ",", "1", ",", "5", ",", "4", ",", "1", ",", "2", ",", "5", ",", "3", ",", "2", ",", "4", ",", "2", ",", "6", ",", "5", ",", "5", ",", "5", ",", "3", ",", "5", ",", "1", ",", "6", ",", "3", ",", "2", ",", "6", ",", "5", ",", "1", ",", "5", ",", "5", ",", "3", ",", "4", ",", "1", ",", "3", ",", "3", ",", "2", ",", "3", ",", "6", ",", "1", ",", "5", ",", "1", ",", "3", ",", "6", ",", "1", ",", "6", ",", "1", ",", "2", ",", "5", ",", "3", ",", "2", ",", "5", ",", "2", ",", "1", ",", "6", ",", "2", ",", "5", ",", "1", ",", "6", ",", "1", ",", "6", ",", "3", ",", "3", ",", "2", ",", "5", ",", "2", ",", "5", ",", "5", ",", "2", ",", "6", ",", "3", ",", "3", ",", "2", ",", "3", ",", "4", ",", "2", ",", "6", ",", "6", ",", "1", ",", "2", ",", "2", ",", "2", ",", "1", ",", "1", ",", "6", ",", "3", ",", "4", ",", "6", ",", "1", ",", "6", ",", "3", ",", "5", ",", "2", ",", "2", ",", "2", ",", "2", ",", "5", ",", "4", ",", "3", ",", "4", ",", "6", ",", "4", ",", "3", ",", "4", ",", "3", ",", "4", ",", "5", ",", "6", ",", "3", ",", "2", ",", "6", ",", "1", ",", "2", ",", "3", ",", "2", ",", "1", ",", "6", ",", "5", ",", "2", ",", "5", ",", "3", ",", "4", ",", "3", ",", "1", ",", "2", ",", "2", ",", "5", ",", "3", ",", "4", ",", "2", ",", "5", ",", "3", ",", "2", ",", "2", ",", "2", ",", "2", ",", "1", ",", "4", ",", "5", ",", "2", ",", "3", ",", "2", ",", "6", ",", "5", ",", "6", ",", "6", ",", "4", ",", "3", ",", "5", ",", "1", ",", "3", ",", "1", ",", "4", ",", "6", ",", "3", ",", "1", ",", "2", ",", "4", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "5", ",", "2", ",", "4", ",", "3", ",", "1", ",", "6", ",", "3", ",", "1", ",", "3", ",", "3", ",", "3", ",", "4", ",", "2", ",", "4", ",", "5", ",", "4", ",", "6", ",", "1", ",", "1", ",", "5", ",", "2", ",", "3", ",", "2", ",", "1", ",", "5", ",", "1", ",", "1", ",", "5", ",", "5", ",", "6", ",", "5", ",", "6", ",", "2", ",", "2", ",", "3", ",", "1", ",", "6", ",", "2", ",", "2", ",", "3", ",", "4", ",", "2", ",", "5", ",", "5", ",", "4", ",", "3", ",", "4", ",", "2", ",", "1", ",", "4", ",", "2", ",", "4", ",", "3", ",", "3", ",", "2", ",", "6", ",", "2", ",", "4", ",", "6", ",", "5", ",", "3", ",", "4", ",", "6", ",", "1", ",", "3", ",", "5", ",", "4", ",", "6", ",", "6", ",", "4", ",", "3", ",", "2", ",", "3", ",", "5", ",", "6", ",", "3", ",", "5", ",", "1", ",", "3", ",", "6", ",", "1", ",", "6", ",", "1", ",", "1", ",", "4", ",", "3", ",", "3", ",", "1", ",", "6", ",", "2", ",", "5", ",", "4", ",", "5", ",", "4", ",", "2", ",", "4", ",", "1", ",", "1", ",", "4", ",", "3", ",", "3", ",", "5", ",", "6", ",", "6", ",", "5", ",", "3", ",", "3", ",", "2", ",", "3", ",", "6", ",", "3", ",", "1", ",", "3", ",", "2", ",", "1", ",", "6", ",", "6", ",", "5", ",", "3", ",", "3", ",", "3", ",", "5", ",", "3", ",", "4", ",", "2", ",", "4", ",", "1", ",", "5", ",", "4", ",", "1", ",", "5", ",", "6", ",", "4", ",", "4", ",", "2", ",", "3", ",", "5", ",", "6", ",", "1", ",", "6", ",", "2", ",", "1", ",", "3", ",", "2", ",", "3", ",", "3", ",", "2", ",", "5", ",", "3", ",", "2", ",", "2", ",", "1", ",", "2", ",", "1", ",", "1", ",", "1", ",", "3", ",", "6", ",", "3", ",", "4", ",", "2", ",", "6", ",", "5", ",", "3", ",", "1", ",", "1", ",", "6", ",", "3", ",", "3", ",", "5", ",", "6", ",", "1", ",", "6", ",", "2", ",", "6", ",", "5", ",", "3", ",", "1"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.541307248984375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"Histogram", "[", RowBox[{ RowBox[{"muestra", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "3"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.509266387689028*^9, 3.5092663892561173`*^9}, { 3.5092664301694574`*^9, 3.5092664688096676`*^9}, 3.509421363671875*^9, { 3.509423416015625*^9, 3.509423416671875*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[ {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1., 0.}, {2., 0.1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{42.59679300291544, 65.6935860058309}, { 8.977682876405861, 39.18756682360837}}], StatusArea[#, 0.1]& , TagBoxNote->"0.1"], StyleBox["0.1`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2., 0.}, {3., 0.1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{64.6935860058309, 87.79037900874633}, { 8.977682876405861, 39.18756682360837}}], StatusArea[#, 0.1]& , TagBoxNote->"0.1"], StyleBox["0.1`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{3., 0.}, {4., 0.1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{86.79037900874633, 109.88717201166179`}, { 8.977682876405861, 39.18756682360837}}], StatusArea[#, 0.1]& , TagBoxNote->"0.1"], StyleBox["0.1`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4., 0.}, {5., 0.1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{108.88717201166179`, 131.98396501457722`}, { 8.977682876405861, 39.18756682360837}}], StatusArea[#, 0.1]& , TagBoxNote->"0.1"], StyleBox["0.1`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5., 0.}, {6., 0.3}, "RoundingRadius" -> 0]}, ImageSizeCache->{{130.98396501457722`, 154.08075801749268`}, {-49.442085017999155`, 39.18756682360837}}], StatusArea[#, 0.3]& , TagBoxNote->"0.3"], StyleBox["0.3`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.3, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{6., 0.}, {7., 0.3}, "RoundingRadius" -> 0]}, ImageSizeCache->{{153.08075801749268`, 176.17755102040815`}, {-49.442085017999155`, 39.18756682360837}}], StatusArea[#, 0.3]& , TagBoxNote->"0.3"], StyleBox["0.3`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.3, { GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesOrigin->{0., 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, PlotRange->{{0., 7.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.1]}}, Ticks->{Automatic, Automatic}], ",", GraphicsBox[ {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1., 0.}, {2., 0.21}, "RoundingRadius" -> 0]}, ImageSizeCache->{{42.59679300291545, 65.69358600583091}, {-49.44208501799915, 39.18756682360839}}], StatusArea[#, 0.21]& , TagBoxNote->"0.21"], StyleBox["0.21`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.21, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2., 0.}, {3., 0.19}, "RoundingRadius" -> 0]}, ImageSizeCache->{{64.69358600583091, 87.79037900874636}, {-41.096403890226995`, 39.18756682360839}}], StatusArea[#, 0.19]& , TagBoxNote->"0.19"], StyleBox["0.19`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.19, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{3., 0.}, {4., 0.16}, "RoundingRadius" -> 0]}, ImageSizeCache->{{86.79037900874636, 109.88717201166182`}, {-28.577882198568787`, 39.18756682360839}}], StatusArea[#, 0.16]& , TagBoxNote->"0.16"], StyleBox["0.16`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.16, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4., 0.}, {5., 0.16}, "RoundingRadius" -> 0]}, ImageSizeCache->{{108.88717201166182`, 131.98396501457728`}, {-28.577882198568787`, 39.18756682360839}}], StatusArea[#, 0.16]& , TagBoxNote->"0.16"], StyleBox["0.16`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.16, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5., 0.}, {6., 0.15}, "RoundingRadius" -> 0]}, ImageSizeCache->{{130.98396501457728`, 154.0807580174927}, {-24.405041634682703`, 39.18756682360839}}], StatusArea[#, 0.15]& , TagBoxNote->"0.15"], StyleBox["0.15`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.15, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{6., 0.}, {7., 0.13}, "RoundingRadius" -> 0]}, ImageSizeCache->{{153.0807580174927, 176.17755102040817`}, {-16.059360506910565`, 39.18756682360839}}], StatusArea[#, 0.13]& , TagBoxNote->"0.13"], StyleBox["0.13`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.13, { GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesOrigin->{0., 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, PlotRange->{{0., 7.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.1]}}, Ticks->{Automatic, Automatic}], ",", GraphicsBox[ {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1., 0.}, {2., 0.177}, "RoundingRadius" -> 0]}, ImageSizeCache->{{42.59679300291545, 65.6935860058309}, {-44.60550274401634, 40.234758747683834`}}], StatusArea[#, 0.177]& , TagBoxNote->"0.177"], StyleBox["0.177`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.177, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2., 0.}, {3., 0.183}, "RoundingRadius" -> 0]}, ImageSizeCache->{{64.6935860058309, 87.79037900874636}, {-47.44754550644685, 40.234758747683834`}}], StatusArea[#, 0.183]& , TagBoxNote->"0.183"], StyleBox["0.183`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.183, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{3., 0.}, {4., 0.185}, "RoundingRadius" -> 0]}, ImageSizeCache->{{86.79037900874636, 109.88717201166179`}, {-48.39489309392369, 40.234758747683834`}}], StatusArea[#, 0.185]& , TagBoxNote->"0.185"], StyleBox["0.185`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.185, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4., 0.}, {5., 0.144}, "RoundingRadius" -> 0]}, ImageSizeCache->{{108.88717201166179`, 131.98396501457725`}, {-28.974267550648513`, 40.234758747683834`}}], StatusArea[#, 0.144]& , TagBoxNote->"0.144"], StyleBox["0.144`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.144, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5., 0.}, {6., 0.157}, "RoundingRadius" -> 0]}, ImageSizeCache->{{130.98396501457725`, 154.0807580174927}, {-35.13202686924796, 40.234758747683834`}}], StatusArea[#, 0.157]& , TagBoxNote->"0.157"], StyleBox["0.157`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.157, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{6., 0.}, {7., 0.154}, "RoundingRadius" -> 0]}, ImageSizeCache->{{153.0807580174927, 176.17755102040815`}, {-33.711005488032704`, 40.234758747683834`}}], StatusArea[#, 0.154]& , TagBoxNote->"0.154"], StyleBox["0.154`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.154, { GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesOrigin->{0., 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, PlotRange->{{0., 7.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.1]}}, Ticks->{Automatic, Automatic}]}], "}"}]], "Output", CellChangeTimes->{3.541307249359375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"muestra", "=", RowBox[{"RandomInteger", "[", RowBox[{"dado", ",", "tmuestra"}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "4", ",", "5", ",", "1", ",", "2", ",", "6", ",", "2", ",", "6", ",", "5", ",", "3", ",", "3"}], "}"}]], "Output", CellChangeTimes->{3.541307249546875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"muestra", "=", RowBox[{"RandomInteger", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "6"}], "}"}], ",", "10"}], "]"}]}]], "Input", CellChangeTimes->{{3.53785406815625*^9, 3.5378541138125*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "3", ",", "1", ",", "1", ",", "5", ",", "6", ",", "2", ",", "4", ",", "3", ",", "1", ",", "4"}], "}"}]], "Output", CellChangeTimes->{3.541307249609375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"muestra", "=", RowBox[{"RandomInteger", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "6"}], "}"}], ",", "10"}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "3", ",", "4", ",", "2", ",", "3", ",", "3", ",", "1", ",", "3", ",", "1", ",", "4", ",", "2"}], "}"}]], "Output", CellChangeTimes->{3.541307249671875*^9}] }, Open ]], Cell["\<\ Tambi\[EAcute]n podremos usar los comandos que ya conocemos sobre estad\ \[IAcute]sticos sobre variables aleatorias\ \>", "Text", CellChangeTimes->{{3.509037420855893*^9, 3.509037437610323*^9}, { 3.537853455046875*^9, 3.5378534553125*^9}}], Cell[BoxData[ RowBox[{"Remove", "[", RowBox[{"dado", ",", "muestra"}], "]"}]], "Input", CellChangeTimes->{{3.539603078984375*^9, 3.539603098640625*^9}, { 3.5413072355625*^9, 3.541307238625*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"p1min", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p2max", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dado", "=", RowBox[{"UniformDistribution", "[", RowBox[{"{", RowBox[{ RowBox[{"p1min", "-", "1"}], ",", "p2max"}], "}"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{3.5378534715*^9, {3.5378536184375*^9, 3.53785361921875*^9}} ], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PDF", "[", RowBox[{"dado", ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.5092671364108524`*^9, 3.509267147048461*^9}, { 3.5092672112091303`*^9, 3.509267211529149*^9}, {3.53785363584375*^9, 3.53785363821875*^9}}], Cell[BoxData[ TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ { FractionBox["1", "6"], RowBox[{"0", "\[LessEqual]", "x", "\[LessEqual]", "6"}]}, {"0", TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}, Selectable->True]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.541307249765625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CDF", "[", RowBox[{"dado", ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.5092671601812115`*^9, 3.509267191657012*^9}, { 3.537853641546875*^9, 3.5378536424375*^9}}], Cell[BoxData[ TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ { FractionBox["x", "6"], RowBox[{"0", "\[LessEqual]", "x", "\[LessEqual]", "6"}]}, {"1", RowBox[{"x", ">", "6"}]}, {"0", TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}, Selectable->True]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.541307249828125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"??", "Floor"}]], "Input", CellChangeTimes->{{3.509422430515625*^9, 3.5094224333125*^9}, { 3.539577653078125*^9, 3.539577659375*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ StyleBox["\<\"\!\(\*RowBox[{\\\"Floor\\\", \\\"[\\\", StyleBox[\\\"x\\\", \ \\\"TI\\\"], \\\"]\\\"}]\) gives the greatest integer less than or equal to \ \!\(\*StyleBox[\\\"x\\\", \\\"TI\\\"]\). \\n\!\(\*RowBox[{\\\"Floor\\\", \ \\\"[\\\", RowBox[{StyleBox[\\\"x\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"a\ \\\", \\\"TI\\\"]}], \\\"]\\\"}]\) gives the greatest multiple of \ \!\(\*StyleBox[\\\"a\\\", \\\"TI\\\"]\) less than or equal to \!\(\*StyleBox[\ \\\"x\\\", \\\"TI\\\"]\). \"\>", "MSG"], "\[NonBreakingSpace]", ButtonBox[ StyleBox["\[RightSkeleton]", "SR"], Active->True, BaseStyle->"Link", ButtonData->"paclet:ref/Floor"]}]], "Print", "PrintUsage", CellChangeTimes->{3.5413072500625*^9}, CellTags->"Info3541310849-9292694"], Cell[BoxData[ InterpretationBox[GridBox[{ { RowBox[{ RowBox[{"Attributes", "[", "Floor", "]"}], "=", RowBox[{"{", RowBox[{"Listable", ",", "NumericFunction", ",", "Protected"}], "}"}]}]} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], Definition[Floor], Editable->False]], "Print", CellChangeTimes->{3.541307250078125*^9}, CellTags->"Info3541310849-9292694"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CDF", "[", RowBox[{"dado", ",", "2"}], "]"}]], "Input", CellChangeTimes->{{3.5092672607899666`*^9, 3.509267268105385*^9}, 3.537853665859375*^9}], Cell[BoxData[ FractionBox["1", "3"]], "Output", CellChangeTimes->{3.5413072501875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CDF", "[", RowBox[{"dado", ",", "5"}], "]"}]], "Input", CellChangeTimes->{{3.53785373959375*^9, 3.537853753203125*^9}}], Cell[BoxData[ FractionBox["5", "6"]], "Output", CellChangeTimes->{3.54130725021875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PDF", "[", RowBox[{"dado", ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.5092671364108524`*^9, 3.509267147048461*^9}, { 3.5092672112091303`*^9, 3.509267211529149*^9}}], Cell[BoxData[ TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ { FractionBox["1", "6"], RowBox[{"0", "\[LessEqual]", "x", "\[LessEqual]", "6"}]}, {"0", TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}, Selectable->True]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.541307250265625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CDF", "[", RowBox[{"dado", ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.5092671601812115`*^9, 3.509267191657012*^9}}], Cell[BoxData[ TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ { FractionBox["x", "6"], RowBox[{"0", "\[LessEqual]", "x", "\[LessEqual]", "6"}]}, {"1", RowBox[{"x", ">", "6"}]}, {"0", TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}, Selectable->True]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.541307250296875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CDF", "[", RowBox[{"dado", ",", "1"}], "]"}]], "Input", CellChangeTimes->{{3.509267274293739*^9, 3.5092672787129917`*^9}}], Cell[BoxData[ FractionBox["1", "6"]], "Output", CellChangeTimes->{3.54130725034375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CDF", "[", RowBox[{"dado", ",", "2"}], "]"}]], "Input", CellChangeTimes->{{3.5092672607899666`*^9, 3.509267268105385*^9}}], Cell[BoxData[ FractionBox["1", "3"]], "Output", CellChangeTimes->{3.541307250390625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Mean", "[", "dado", "]"}]], "Input", CellChangeTimes->{{3.509266876687997*^9, 3.509266887159596*^9}, { 3.509267203273677*^9, 3.50926720805695*^9}}], Cell[BoxData["3"], "Output", CellChangeTimes->{3.541307250421875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Variance", "[", "dado", "]"}]], "Input", CellChangeTimes->{{3.5092668953020616`*^9, 3.5092669038325496`*^9}}], Cell[BoxData["3"], "Output", CellChangeTimes->{3.54130725053125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"StandardDeviation", "[", "dado", "]"}]], "Input", CellChangeTimes->{{3.50926694579695*^9, 3.5092669617998652`*^9}}], Cell[BoxData[ SqrtBox["3"]], "Output", CellChangeTimes->{3.5413072505625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"tmuestra", "=", "10"}]], "Input", CellChangeTimes->{{3.5092658652211447`*^9, 3.509265869447386*^9}}], Cell[BoxData["10"], "Output", CellChangeTimes->{3.54130725059375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"muestra", "=", RowBox[{"RandomInteger", "[", RowBox[{"dado", ",", "tmuestra"}], "]"}]}]], "Input", CellChangeTimes->{{3.5395785669375*^9, 3.5395785669375*^9}, { 3.53960301225*^9, 3.53960301328125*^9}, {3.539603119796875*^9, 3.539603131609375*^9}}], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"RandomInteger", "::", "unsdst"}], "MessageName"], RowBox[{ ":", " "}], "\<\"The distribution \ \[NoBreak]\\!\\(UniformDistribution[\\(\\({0, 6}\\)\\)]\\)\[NoBreak] is \ defined on a set of real values. Use RandomReal instead. \ \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \ ButtonFrame->None, ButtonData:>\\\"paclet:ref/RandomInteger\\\", ButtonNote \ -> \\\"RandomInteger::unsdst\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{3.541307250625*^9}], Cell[BoxData[ RowBox[{"RandomInteger", "[", RowBox[{ RowBox[{"UniformDistribution", "[", RowBox[{"{", RowBox[{"0", ",", "6"}], "}"}], "]"}], ",", "10"}], "]"}]], "Output", CellChangeTimes->{3.541307250640625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"muestra", "=", RowBox[{"RandomInteger", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "6"}], "}"}], ",", "10"}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "6", ",", "2", ",", "2", ",", "5", ",", "2", ",", "2", ",", "5", ",", "4", ",", "3", ",", "6"}], "}"}]], "Output", CellChangeTimes->{3.5413072506875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"muestra", "=", RowBox[{"RandomInteger", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "6"}], "}"}], ",", "10"}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ "5", ",", "1", ",", "4", ",", "4", ",", "6", ",", "1", ",", "5", ",", "6", ",", "3", ",", "5"}], "}"}]], "Output", CellChangeTimes->{3.54130725071875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Histogram", "[", RowBox[{"muestra", ",", RowBox[{"{", "1", "}"}], ",", "\"\\""}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[ {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1., 0.}, {2., 0.2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{67.7862973760933, 116.07259475218659`}, {-31.582398618253237`, 94.43368479858943}}], StatusArea[#, 0.2]& , TagBoxNote->"0.2"], StyleBox["0.2`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.2, { GrayLevel[0]}], "Tooltip"]& ], {}, TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{3., 0.}, {4., 0.1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{162.35889212827988`, 210.64518950437318`}, { 30.925643090168094`, 94.43368479858943}}], StatusArea[#, 0.1]& , TagBoxNote->"0.1"], StyleBox["0.1`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4., 0.}, {5., 0.2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{209.64518950437318`, 257.9314868804665}, {-31.582398618253237`, 94.43368479858943}}], StatusArea[#, 0.2]& , TagBoxNote->"0.2"], StyleBox["0.2`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.2, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5., 0.}, {6., 0.3}, "RoundingRadius" -> 0]}, ImageSizeCache->{{256.9314868804665, 305.21778425655975`}, {-94.09044032667457, 94.43368479858943}}], StatusArea[#, 0.3]& , TagBoxNote->"0.3"], StyleBox["0.3`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.3, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{6., 0.}, {7., 0.2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{304.21778425655975`, 352.5040816326531}, {-31.582398618253237`, 94.43368479858943}}], StatusArea[#, 0.2]& , TagBoxNote->"0.2"], StyleBox["0.2`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.2, { GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesOrigin->{0., 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, PlotRange->{{0., 7.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.1]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.54130725084375*^9}] }, Open ]], Cell[TextData[{ "\n", StyleBox["LA DISTRIBUCION DE BERNOULLI", FontSize->18], "\n\nLOS ALUMNOS VEN EL CONTENIDO PERO NO LO HACEN EN EL ORDENADOR TODO\nLa \ distribuci\[OAcute]n de Bernulli se define mediante ", Cell[BoxData[ RowBox[{ ButtonBox["BernoulliDistribution", BaseStyle->"Link", ButtonData->"paclet:ref/BernoulliDistribution"], "[", StyleBox["p", "TI"], "]"}]]], " donde ", StyleBox["p", FontSlant->"Italic"], " es la probabilidad de \[EAcute]xito. muestras con las monedas\n\ Histogram[RandomInteger[BernoulliDistribution[0.3], 1000], {1}, \ \"ProbabilityDensity\"]" }], "Text", CellChangeTimes->{{3.509031408714534*^9, 3.509031423066559*^9}, { 3.5090314729242463`*^9, 3.509031558895997*^9}, {3.509043637285866*^9, 3.509043643900277*^9}, {3.509043768060896*^9, 3.5090437696520987`*^9}, { 3.509266564504141*^9, 3.509266601254243*^9}, {3.509267492953245*^9, 3.509267494331324*^9}, 3.509421363703125*^9, {3.510634253546875*^9, 3.510634271015625*^9}, {3.510634384453125*^9, 3.510634384953125*^9}, { 3.539578552125*^9, 3.539578560859375*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p", "=", "0.5"}]], "Input", CellChangeTimes->{{3.5092673335201263`*^9, 3.5092673452397966`*^9}}], Cell[BoxData["0.5`"], "Output", CellChangeTimes->{3.54130725090625*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"moneda", "=", RowBox[{"BernoulliDistribution", "[", "p", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5090437710405006`*^9, 3.509043832005408*^9}, { 3.509267361768742*^9, 3.5092673746814804`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PDF", "[", RowBox[{"moneda", ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.509267397268772*^9, 3.509267406408295*^9}}], Cell[BoxData[ TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ {"0.5`", RowBox[{ RowBox[{"x", "\[Equal]", "0"}], "||", RowBox[{"x", "\[Equal]", "1"}]}]}, {"0", TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}, Selectable->True]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.5413072509375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CDF", "[", RowBox[{"moneda", ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.5092674180369606`*^9, 3.5092674240723057`*^9}}], Cell[BoxData[ TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ {"0", RowBox[{"x", "<", "0"}]}, {"0.5`", RowBox[{"0", "\[LessEqual]", "x", "<", "1"}]}, {"1", TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}, Selectable->True]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.541307250984375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"tmuestra", "=", "100"}]], "Input", CellChangeTimes->{{3.509267444844494*^9, 3.50926744931975*^9}, 3.53960348565625*^9}], Cell[BoxData["100"], "Output", CellChangeTimes->{3.54130725103125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"muestra", "=", RowBox[{"RandomInteger", "[", RowBox[{"moneda", ",", "tmuestra"}], "]"}]}]], "Input", CellChangeTimes->{{3.5092674539290133`*^9, 3.5092674629205275`*^9}, 3.50942136375*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "1"}], "}"}]], "Output", CellChangeTimes->{3.5413072510625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Histogram", "[", RowBox[{"muestra", ",", RowBox[{"{", "1", "}"}], ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{3.50942136375*^9}], Cell[BoxData[ GraphicsBox[ {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0.}, {1., 0.43}, "RoundingRadius" -> 0]}, ImageSizeCache->{{127.46734693877553`, 240.43469387755107`}, {-48.03501857398949, 96.52385474233894}}], StatusArea[#, 0.43]& , TagBoxNote->"0.43"], StyleBox["0.43`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.43, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1., 0.}, {2., 0.57}, "RoundingRadius" -> 0]}, ImageSizeCache->{{239.43469387755107`, 352.4020408163266}, {-94.77511686302664, 96.52385474233894}}], StatusArea[#, 0.57]& , TagBoxNote->"0.57"], StyleBox["0.57`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.57, { GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesOrigin->{-1., 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, PlotRange->{{-1., 2.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.1]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.54130725115625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"muestraP", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"RandomInteger", "[", RowBox[{ RowBox[{"BernoulliDistribution", "[", RowBox[{"0.1", "*", "i"}], "]"}], ",", "100"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "2", ",", "9"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.509267667978256*^9, 3.509267770218104*^9}, { 3.509267801321883*^9, 3.50926780441006*^9}, 3.509421363765625*^9, 3.509424596203125*^9, 3.539512007078125*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "1", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.541307251203125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"Histogram", "[", RowBox[{ RowBox[{"muestraP", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "8"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[ {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0.}, {1., 0.83}, "RoundingRadius" -> 0]}, ImageSizeCache->{{67.66666666666667, 120.83333333333334`}, {-50.324758412566794`, 39.337367556845166`}}], StatusArea[#, 0.83]& , TagBoxNote->"0.83"], StyleBox["0.83`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.83, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1., 0.}, {2., 0.17}, "RoundingRadius" -> 0]}, ImageSizeCache->{{119.83333333333334`, 173.}, {20.177655008893318`, 39.337367556845166`}}], StatusArea[#, 0.17]& , TagBoxNote->"0.17"], StyleBox["0.17`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.17, { GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesOrigin->{-1., 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, PlotRange->{{-1., 2.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.1]}}, Ticks->{Automatic, Automatic}], ",", GraphicsBox[ {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0.}, {1., 0.75}, "RoundingRadius" -> 0]}, ImageSizeCache->{{67.66666666666666, 120.83333333333331`}, {-49.58919160203919, 40.072934367372795`}}], StatusArea[#, 0.75]& , TagBoxNote->"0.75"], StyleBox["0.75`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.75, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1., 0.}, {2., 0.25}, "RoundingRadius" -> 0]}, ImageSizeCache->{{119.83333333333331`, 173.}, {9.518892377568797, 40.072934367372795`}}], StatusArea[#, 0.25]& , TagBoxNote->"0.25"], StyleBox["0.25`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.25, { GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesOrigin->{-1., 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, PlotRange->{{-1., 2.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.1]}}, Ticks->{Automatic, Automatic}], ",", GraphicsBox[ {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0.}, {1., 0.56}, "RoundingRadius" -> 0]}, ImageSizeCache->{{67.66666666666666, 120.83333333333331`}, {-49.16699100218488, 40.49513496722712}}], StatusArea[#, 0.56]& , TagBoxNote->"0.56"], StyleBox["0.56`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.56, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1., 0.}, {2., 0.44}, "RoundingRadius" -> 0]}, ImageSizeCache->{{119.83333333333331`, 173.}, {-30.16796400873944, 40.49513496722712}}], StatusArea[#, 0.44]& , TagBoxNote->"0.44"], StyleBox["0.44`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.44, { GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesOrigin->{-1., 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, PlotRange->{{-1., 2.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.1]}}, Ticks->{Automatic, Automatic}], ",", GraphicsBox[ {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0.}, {1., 0.54}, "RoundingRadius" -> 0]}, ImageSizeCache->{{67.66666666666667, 120.83333333333334`}, {-47.648652670065346`, 42.01347329934663}}], StatusArea[#, 0.54]& , TagBoxNote->"0.54"], StyleBox["0.54`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.54, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1., 0.}, {2., 0.46}, "RoundingRadius" -> 0]}, ImageSizeCache->{{119.83333333333334`, 173.}, {-34.513522896819126`, 42.01347329934663}}], StatusArea[#, 0.46]& , TagBoxNote->"0.46"], StyleBox["0.46`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.46, { GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesOrigin->{-1., 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, PlotRange->{{-1., 2.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.1]}}, Ticks->{Automatic, Automatic}], ",", GraphicsBox[ {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0.}, {1., 0.39}, "RoundingRadius" -> 0]}, ImageSizeCache->{{67.66666666666667, 120.83333333333334`}, {-18.249153227656606`, 39.43646829377073}}], StatusArea[#, 0.39]& , TagBoxNote->"0.39"], StyleBox["0.39`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.39, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1., 0.}, {2., 0.61}, "RoundingRadius" -> 0]}, ImageSizeCache->{{119.83333333333334`, 173.}, {-50.225657675641244`, 39.43646829377073}}], StatusArea[#, 0.61]& , TagBoxNote->"0.61"], StyleBox["0.61`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.61, { GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesOrigin->{-1., 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, PlotRange->{{-1., 2.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.1]}}, Ticks->{Automatic, Automatic}], ",", GraphicsBox[ {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0.}, {1., 0.38}, "RoundingRadius" -> 0]}, ImageSizeCache->{{67.66666666666667, 120.83333333333334`}, {-16.00393545666541, 39.337367556845166`}}], StatusArea[#, 0.38]& , TagBoxNote->"0.38"], StyleBox["0.38`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.38, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1., 0.}, {2., 0.62}, "RoundingRadius" -> 0]}, ImageSizeCache->{{119.83333333333334`, 173.}, {-50.32475841256682, 39.337367556845166`}}], StatusArea[#, 0.62]& , TagBoxNote->"0.62"], StyleBox["0.62`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.62, { GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesOrigin->{-1., 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, PlotRange->{{-1., 2.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.1]}}, Ticks->{Automatic, Automatic}], ",", GraphicsBox[ {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0.}, {1., 0.18}, "RoundingRadius" -> 0]}, ImageSizeCache->{{67.66666666666667, 120.83333333333334`}, { 18.87494966112056, 39.337367556845145`}}], StatusArea[#, 0.18]& , TagBoxNote->"0.18"], StyleBox["0.18`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.18, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1., 0.}, {2., 0.82}, "RoundingRadius" -> 0]}, ImageSizeCache->{{119.83333333333334`, 173.}, {-50.32475841256686, 39.337367556845145`}}], StatusArea[#, 0.82]& , TagBoxNote->"0.82"], StyleBox["0.82`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.82, { GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesOrigin->{-1., 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, PlotRange->{{-1., 2.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.1]}}, Ticks->{Automatic, Automatic}], ",", GraphicsBox[ {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0.}, {1., 0.1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{67.66666666666667, 120.83333333333334`}, { 31.16212596941198, 42.01347329934664}}], StatusArea[#, 0.1]& , TagBoxNote->"0.1"], StyleBox["0.1`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1., 0.}, {2., 0.9}, "RoundingRadius" -> 0]}, ImageSizeCache->{{119.83333333333334`, 173.}, {-47.64865267006533, 42.01347329934664}}], StatusArea[#, 0.9]& , TagBoxNote->"0.9"], StyleBox["0.9`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.9, { GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesOrigin->{-1., 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, PlotRange->{{-1., 2.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.1]}}, Ticks->{Automatic, Automatic}]}], "}"}]], "Output", CellChangeTimes->{3.541307251703125*^9}] }, Open ]], Cell[TextData[{ StyleBox["LA DISTRIBUCION BINOMIAL", FontSize->18], "\nLa distribuci\[OAcute]n Binomial se define mediante ", Cell[BoxData[ RowBox[{ ButtonBox["BinomialDistribution", BaseStyle->"Link", ButtonData->"paclet:ref/BinomialDistribution"], "[", RowBox[{ StyleBox["n", "TI"], ",", StyleBox["p", "TI"]}], "]"}]]], " donde ", StyleBox["p", FontSlant->"Italic"], " es la probabilidad de \[EAcute]xito de cada uno de los ", StyleBox["n", FontSlant->"Italic"], " intentos.\n", "Histogram[RandomInteger[bin, tmuestra], {-.5, 10.5, 1}, \ \"ProbabilityDensity\"]" }], "Text", CellChangeTimes->{{3.509031408714534*^9, 3.509031423066559*^9}, { 3.5090314729242463`*^9, 3.509031596445263*^9}, {3.509267928319147*^9, 3.5092679365506177`*^9}, {3.509268853723077*^9, 3.5092688547641363`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"n", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{"p", "=", ".6"}]}], "Input", CellChangeTimes->{{3.509268033260149*^9, 3.5092680504401317`*^9}}], Cell[BoxData["0.6`"], "Output", CellChangeTimes->{3.54130725190625*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"binodis", "=", RowBox[{"BinomialDistribution", "[", RowBox[{"n", ",", "p"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5092682424091115`*^9, 3.5092682432561603`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PDF", "[", RowBox[{"binodis", ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.5092682863926277`*^9, 3.509268287368683*^9}}], Cell[BoxData[ TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ { RowBox[{ SuperscriptBox["0.4`", RowBox[{"10", "-", "x"}]], " ", SuperscriptBox["0.6`", "x"], " ", RowBox[{"Binomial", "[", RowBox[{"10", ",", "x"}], "]"}]}], RowBox[{"0", "\[LessEqual]", "x", "\[LessEqual]", "10"}]}, {"0", TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}, Selectable->True]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.541307251953125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CDF", "[", RowBox[{"binodis", ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.5092682953281384`*^9, 3.5092683027455626`*^9}}], Cell[BoxData[ TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ { RowBox[{"BetaRegularized", "[", RowBox[{"0.4`", ",", RowBox[{"10", "-", RowBox[{"Floor", "[", "x", "]"}]}], ",", RowBox[{"1", "+", RowBox[{"Floor", "[", "x", "]"}]}]}], "]"}], RowBox[{"0", "\[LessEqual]", "x", "\[LessEqual]", "10"}]}, {"1", RowBox[{"x", ">", "10"}]}, {"0", TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}, Selectable->True]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.541307251984375*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"tmuestra", "=", "100"}], ";"}]], "Input", CellChangeTimes->{3.538977031234375*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"muestra", "=", RowBox[{"RandomInteger", "[", RowBox[{"binodis", ",", "tmuestra"}], "]"}]}]], "Input", CellChangeTimes->{3.50942136384375*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "7", ",", "7", ",", "6", ",", "7", ",", "6", ",", "8", ",", "6", ",", "7", ",", "8", ",", "3", ",", "7", ",", "5", ",", "7", ",", "6", ",", "8", ",", "8", ",", "5", ",", "3", ",", "2", ",", "5", ",", "8", ",", "5", ",", "6", ",", "6", ",", "10", ",", "5", ",", "6", ",", "7", ",", "5", ",", "6", ",", "9", ",", "8", ",", "5", ",", "6", ",", "6", ",", "7", ",", "6", ",", "8", ",", "7", ",", "7", ",", "5", ",", "6", ",", "8", ",", "9", ",", "4", ",", "8", ",", "5", ",", "6", ",", "6", ",", "7", ",", "7", ",", "6", ",", "7", ",", "7", ",", "6", ",", "6", ",", "5", ",", "7", ",", "9", ",", "7", ",", "6", ",", "6", ",", "8", ",", "8", ",", "6", ",", "9", ",", "8", ",", "6", ",", "9", ",", "5", ",", "3", ",", "6", ",", "4", ",", "6", ",", "5", ",", "7", ",", "7", ",", "8", ",", "4", ",", "5", ",", "8", ",", "6", ",", "5", ",", "7", ",", "7", ",", "8", ",", "7", ",", "4", ",", "8", ",", "6", ",", "7", ",", "8", ",", "6", ",", "6", ",", "8", ",", "4", ",", "4", ",", "7", ",", "6", ",", "4"}], "}"}]], "Output", CellChangeTimes->{3.54130725203125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Histogram", "[", RowBox[{"muestra", ",", RowBox[{"{", "1", "}"}], ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.509268778406769*^9, 3.5092688209212008`*^9}, 3.509421363859375*^9}], Cell[BoxData[ GraphicsBox[ {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2., 0.}, {3., 0.01}, "RoundingRadius" -> 0]}, ImageSizeCache->{{53.6004081632653, 87.7008163265306}, { 86.73639461554428, 94.43368479858943}}], StatusArea[#, 0.01]& , TagBoxNote->"0.01"], StyleBox["0.01`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.01, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{3., 0.}, {4., 0.03}, "RoundingRadius" -> 0]}, ImageSizeCache->{{86.7008163265306, 120.8012244897959}, { 73.341814249454, 94.43368479858943}}], StatusArea[#, 0.03]& , TagBoxNote->"0.03"], StyleBox["0.03`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.03, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4., 0.}, {5., 0.07}, "RoundingRadius" -> 0]}, ImageSizeCache->{{119.8012244897959, 153.9016326530612}, { 46.552653517273434`, 94.43368479858943}}], StatusArea[#, 0.07]& , TagBoxNote->"0.07"], StyleBox["0.07`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.07, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5., 0.}, {6., 0.14}, "RoundingRadius" -> 0]}, ImageSizeCache->{{152.9016326530612, 187.0020408163265}, {-0.3283777640425569, 94.43368479858943}}], StatusArea[#, 0.14]& , TagBoxNote->"0.14"], StyleBox["0.14`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.14, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{6., 0.}, {7., 0.28}, "RoundingRadius" -> 0]}, ImageSizeCache->{{186.0020408163265, 220.10244897959183`}, {-94.09044032667454, 94.43368479858943}}], StatusArea[#, 0.28]& , TagBoxNote->"0.28"], StyleBox["0.28`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.28, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{7., 0.}, {8., 0.23}, "RoundingRadius" -> 0]}, ImageSizeCache->{{219.10244897959183`, 253.2028571428571}, {-60.60398941144881, 94.43368479858943}}], StatusArea[#, 0.23]& , TagBoxNote->"0.23"], StyleBox["0.23`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.23, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{8., 0.}, {9., 0.18}, "RoundingRadius" -> 0]}, ImageSizeCache->{{252.2028571428571, 286.3032653061224}, {-27.117538496223105`, 94.43368479858943}}], StatusArea[#, 0.18]& , TagBoxNote->"0.18"], StyleBox["0.18`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.18, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{9., 0.}, {10., 0.05}, "RoundingRadius" -> 0]}, ImageSizeCache->{{285.3032653061224, 319.4036734693877}, { 59.94723388336372, 94.43368479858943}}], StatusArea[#, 0.05]& , TagBoxNote->"0.05"], StyleBox["0.05`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.05, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{10., 0.}, {11., 0.01}, "RoundingRadius" -> 0]}, ImageSizeCache->{{318.4036734693877, 352.504081632653}, { 86.73639461554428, 94.43368479858943}}], StatusArea[#, 0.01]& , TagBoxNote->"0.01"], StyleBox["0.01`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.01, { GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesOrigin->{1., 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, PlotRange->{{1., 11.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.1]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.54130725221875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", "=", RowBox[{"Histogram", "[", RowBox[{"muestra", ",", RowBox[{"{", RowBox[{ RowBox[{"-", ".5"}], ",", "10.5", ",", "1"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.509268879466549*^9, 3.50926888122565*^9}, { 3.5092690432739186`*^9, 3.5092690440089607`*^9}, 3.509421363875*^9}], Cell[BoxData[ GraphicsBox[ {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, {}, TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.5, 0.}, {2.5, 0.01}, "RoundingRadius" -> 0]}, ImageSizeCache->{{80.68256029684602, 111.77384044526902`}, { 86.7363946155443, 94.43368479858944}}], StatusArea[#, 0.01]& , TagBoxNote->"0.01"], StyleBox["0.01`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.01, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2.5, 0.}, {3.5, 0.03}, "RoundingRadius" -> 0]}, ImageSizeCache->{{110.77384044526902`, 141.86512059369204`}, { 73.34181424945402, 94.43368479858944}}], StatusArea[#, 0.03]& , TagBoxNote->"0.03"], StyleBox["0.03`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.03, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{3.5, 0.}, {4.5, 0.07}, "RoundingRadius" -> 0]}, ImageSizeCache->{{140.86512059369204`, 171.95640074211502`}, { 46.55265351727344, 94.43368479858944}}], StatusArea[#, 0.07]& , TagBoxNote->"0.07"], StyleBox["0.07`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.07, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4.5, 0.}, {5.5, 0.14}, "RoundingRadius" -> 0]}, ImageSizeCache->{{170.95640074211502`, 202.04768089053806`}, {-0.3283777640425569, 94.43368479858944}}], StatusArea[#, 0.14]& , TagBoxNote->"0.14"], StyleBox["0.14`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.14, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5.5, 0.}, {6.5, 0.28}, "RoundingRadius" -> 0]}, ImageSizeCache->{{201.04768089053806`, 232.13896103896104`}, {-94.09044032667455, 94.43368479858944}}], StatusArea[#, 0.28]& , TagBoxNote->"0.28"], StyleBox["0.28`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.28, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{6.5, 0.}, {7.5, 0.23}, "RoundingRadius" -> 0]}, ImageSizeCache->{{231.13896103896104`, 262.2302411873841}, {-60.60398941144882, 94.43368479858944}}], StatusArea[#, 0.23]& , TagBoxNote->"0.23"], StyleBox["0.23`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.23, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{7.5, 0.}, {8.5, 0.18}, "RoundingRadius" -> 0]}, ImageSizeCache->{{261.2302411873841, 292.32152133580706`}, {-27.117538496223105`, 94.43368479858944}}], StatusArea[#, 0.18]& , TagBoxNote->"0.18"], StyleBox["0.18`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.18, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{8.5, 0.}, {9.5, 0.05}, "RoundingRadius" -> 0]}, ImageSizeCache->{{291.32152133580706`, 322.4128014842301}, { 59.94723388336373, 94.43368479858944}}], StatusArea[#, 0.05]& , TagBoxNote->"0.05"], StyleBox["0.05`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.05, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{9.5, 0.}, {10.5, 0.01}, "RoundingRadius" -> 0]}, ImageSizeCache->{{321.4128014842301, 352.5040816326531}, { 86.7363946155443, 94.43368479858944}}], StatusArea[#, 0.01]& , TagBoxNote->"0.01"], StyleBox["0.01`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.01, { GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesOrigin->{-0.5, 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, PlotRange->{{-0.5, 10.5}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.1]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.541307252390625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"b", "=", RowBox[{"ListPlot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{"PDF", "[", RowBox[{"binodis", ",", "x"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10"}], "}"}]}], "]"}], "\[IndentingNewLine]", ",", RowBox[{"Filling", "\[Rule]", "Axis"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"PointSize", "[", "Large", "]"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5092689886527944`*^9, 3.5092690155623336`*^9}, { 3.50926904732315*^9, 3.5092690481861997`*^9}}], Cell[BoxData[ GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGBQBGIQDQNH916/eb9G2h7C+2B/ydHqjuDRSCifwaFY/aKg +75WKJ/DYRKYvxTKF3B41ZzkvrdzD5Qv4vB45Y1IrfUnoXwJB+Ms9Yoq3gtQ voyD8LaeTxdbTkP5Cg7rfe4Z5HzdB+UrOXR1vCydu3gJlK/i8GhxXW/YkQqY e9DAB3RxB1QuBxpfAI0vgsaXQOPLoPEV0PhKaHwVNP7QCV8AKz9ojA== "], {{{}, {}, {}, {}, {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{12, 1}], LineBox[{13, 2}], LineBox[{14, 3}], LineBox[{15, 4}], LineBox[{16, 5}], LineBox[{17, 6}], LineBox[{18, 7}], LineBox[{19, 8}], LineBox[{20, 9}], LineBox[{21, 10}], LineBox[{22, 11}]}}, {{}, {Hue[0.67, 0.6, 0.6], PointSize[Large], PointBox[{23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33}]}, {}}}], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0., 10.}, {0., 0.2508226559999997}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.541307252453125*^9}] }, Open ]], Cell["\<\ Si comparamos con la funci\[OAcute]n de densidad del modelo teorico (pares de \ puntos), con el modelo que sigue la muestra aleatoria veremos lo que ocurre\ \>", "Text", CellChangeTimes->{{3.509033576587941*^9, 3.5090335843723545`*^9}, { 3.5090337970787287`*^9, 3.5090338005419345`*^9}, {3.5106344229375*^9, 3.510634452578125*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"a", ",", "b"}], "]"}]], "Input", CellChangeTimes->{{3.5092690652181735`*^9, 3.509269069816437*^9}}], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, {}, TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.5, 0.}, {2.5, 0.01}, "RoundingRadius" -> 0]}, ImageSizeCache->{{80.68256029684602, 111.77384044526902`}, { 86.7363946155443, 94.43368479858944}}], StatusArea[#, 0.01]& , TagBoxNote->"0.01"], StyleBox["0.01`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.01, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2.5, 0.}, {3.5, 0.03}, "RoundingRadius" -> 0]}, ImageSizeCache->{{110.77384044526902`, 141.86512059369204`}, { 73.34181424945402, 94.43368479858944}}], StatusArea[#, 0.03]& , TagBoxNote->"0.03"], StyleBox["0.03`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.03, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{3.5, 0.}, {4.5, 0.07}, "RoundingRadius" -> 0]}, ImageSizeCache->{{140.86512059369204`, 171.95640074211502`}, { 46.55265351727344, 94.43368479858944}}], StatusArea[#, 0.07]& , TagBoxNote->"0.07"], StyleBox["0.07`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.07, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4.5, 0.}, {5.5, 0.14}, "RoundingRadius" -> 0]}, ImageSizeCache->{{170.95640074211502`, 202.04768089053806`}, {-0.3283777640425569, 94.43368479858944}}], StatusArea[#, 0.14]& , TagBoxNote->"0.14"], StyleBox["0.14`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.14, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5.5, 0.}, {6.5, 0.28}, "RoundingRadius" -> 0]}, ImageSizeCache->{{201.04768089053806`, 232.13896103896104`}, {-94.09044032667455, 94.43368479858944}}], StatusArea[#, 0.28]& , TagBoxNote->"0.28"], StyleBox["0.28`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.28, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{6.5, 0.}, {7.5, 0.23}, "RoundingRadius" -> 0]}, ImageSizeCache->{{231.13896103896104`, 262.2302411873841}, {-60.60398941144882, 94.43368479858944}}], StatusArea[#, 0.23]& , TagBoxNote->"0.23"], StyleBox["0.23`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.23, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{7.5, 0.}, {8.5, 0.18}, "RoundingRadius" -> 0]}, ImageSizeCache->{{261.2302411873841, 292.32152133580706`}, {-27.117538496223105`, 94.43368479858944}}], StatusArea[#, 0.18]& , TagBoxNote->"0.18"], StyleBox["0.18`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.18, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{8.5, 0.}, {9.5, 0.05}, "RoundingRadius" -> 0]}, ImageSizeCache->{{291.32152133580706`, 322.4128014842301}, { 59.94723388336373, 94.43368479858944}}], StatusArea[#, 0.05]& , TagBoxNote->"0.05"], StyleBox["0.05`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.05, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{9.5, 0.}, {10.5, 0.01}, "RoundingRadius" -> 0]}, ImageSizeCache->{{321.4128014842301, 352.5040816326531}, { 86.7363946155443, 94.43368479858944}}], StatusArea[#, 0.01]& , TagBoxNote->"0.01"], StyleBox["0.01`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.01, { GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGBQBGIQDQNH916/eb9G2h7C+2B/ydHqjuDRSCifwaFY/aKg +75WKJ/DYRKYvxTKF3B41ZzkvrdzD5Qv4vB45Y1IrfUnoXwJB+Ms9Yoq3gtQ voyD8LaeTxdbTkP5Cg7rfe4Z5HzdB+UrOXR1vCydu3gJlK/i8GhxXW/YkQqY e9DAB3RxB1QuBxpfAI0vgsaXQOPLoPEV0PhKaHwVNP7QCV8AKz9ojA== "], {{{}, {}, {}, {}, {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{12, 1}], LineBox[{13, 2}], LineBox[{14, 3}], LineBox[{15, 4}], LineBox[{16, 5}], LineBox[{17, 6}], LineBox[{18, 7}], LineBox[{19, 8}], LineBox[{20, 9}], LineBox[{21, 10}], LineBox[{22, 11}]}}, {{}, {Hue[0.67, 0.6, 0.6], PointSize[Large], PointBox[{23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33}]}, {}}}]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesOrigin->{-0.5, 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, PlotRange->{{-0.5, 10.5}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.1]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.5413072525625*^9}] }, Open ]], Cell["Sensibilidad a la p", "Text", CellChangeTimes->{{3.5092692920701485`*^9, 3.5092692956223516`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"binodis", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"BinomialDistribution", "[", RowBox[{"n", ",", RowBox[{"i", "*", ".1"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "2", ",", "9"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5092693060569487`*^9, 3.509269350089467*^9}, { 3.5092693831133566`*^9, 3.5092693890336947`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"BinomialDistribution", "[", RowBox[{"10", ",", "0.2`"}], "]"}], ",", RowBox[{"BinomialDistribution", "[", RowBox[{"10", ",", "0.30000000000000004`"}], "]"}], ",", RowBox[{"BinomialDistribution", "[", RowBox[{"10", ",", "0.4`"}], "]"}], ",", RowBox[{"BinomialDistribution", "[", RowBox[{"10", ",", "0.5`"}], "]"}], ",", RowBox[{"BinomialDistribution", "[", RowBox[{"10", ",", "0.6000000000000001`"}], "]"}], ",", RowBox[{"BinomialDistribution", "[", RowBox[{"10", ",", "0.7000000000000001`"}], "]"}], ",", RowBox[{"BinomialDistribution", "[", RowBox[{"10", ",", "0.8`"}], "]"}], ",", RowBox[{"BinomialDistribution", "[", RowBox[{"10", ",", "0.9`"}], "]"}]}], "}"}]], "Output", CellChangeTimes->{3.54130725259375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"ListPlot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{"PDF", "[", RowBox[{ RowBox[{"binodis", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "x"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10"}], "}"}]}], "]"}], ",", RowBox[{"Filling", "\[Rule]", "Axis"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"PointSize", "[", "Large", "]"}]}]}], "\[IndentingNewLine]", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "8"}], "}"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.5092694483800893`*^9, 3.509269464843031*^9}, { 3.5092695064254093`*^9, 3.5092695069054365`*^9}, 3.5092695950844803`*^9, { 3.509269683931562*^9, 3.509269733035371*^9}, {3.5092697658842497`*^9, 3.509269809339735*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGBQBGIQDQP79l6/eb9mtz2E98G+/5raC269i1A+g4PHRu3U s8GXoXwOhzuOVncEj56E8gUcZv/ctCC/ZxuUL+KwJa4g6g3fbChfwmEGWL4M ypdxuATW7wnlKzj4gc0XhvKVHHog9ttB+CoOEPdV2zFgBR/s0QQcULkcaHwB NL4IGl8CjS+DxldA4yuh8VXQ+EMnfAGp6Wmu "], {{{}, {}, {}, {}, {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{12, 1}], LineBox[{13, 2}], LineBox[{14, 3}], LineBox[{15, 4}], LineBox[{16, 5}], LineBox[{17, 6}], LineBox[{18, 7}], LineBox[{19, 8}], LineBox[{20, 9}], LineBox[{21, 10}], LineBox[{22, 11}]}}, {{}, {Hue[0.67, 0.6, 0.6], PointSize[Large], PointBox[{23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33}]}, {}}}], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0., 10.}, {0., 0.30198988799999826`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], ",", GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGBQBGIQDQPrjvT6vX4zxx7C+2B/eTZr9/W/+6B8Bgd3eeP+ 2kdnoXwOB7notLKtwhehfAGH1R0zDSfMPQnlizg8rT0k+iZiF5Qv4ZBsKmty 9uIiKF/G4Z/z36VV+U1QvoLDXqOsq882h0P5Sg414TrHNfmVoHwVh5eL63rD jtywY8AKPtijCTigcjnQ+AJofBE0vgQaXwaNr4DGV0Ljq6Dxh074AgDaW2fK "], {{{}, {}, {}, {}, {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{12, 1}], LineBox[{13, 2}], LineBox[{14, 3}], LineBox[{15, 4}], LineBox[{16, 5}], LineBox[{17, 6}], LineBox[{18, 7}], LineBox[{19, 8}], LineBox[{20, 9}], LineBox[{21, 10}], LineBox[{22, 11}]}}, {{}, {Hue[0.67, 0.6, 0.6], PointSize[Large], PointBox[{23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33}]}, {}}}], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0., 10.}, {0., 0.2668279319999999}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], ",", GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGBQBGIQDQOPFtf1hh2psIfwPth3dLwsnbt4CZTP4LDe555B ztd9UD6Hg/C2nk8XW05D+QIOxlnqFVW8F6B8EYfHK29Eaq0/CeVLOLxqTnLf 27kHypdxmKR+UdB931IoX8GhGMxvhfKVHC45Wt0RPBoJ5as4HN17/eb9GmmY e9DAB3RxB1QuBxpfAI0vgsaXQOPLoPEV0PhKaHwVNP7QCV8Ag+5oiA== "], {{{}, {}, {}, {}, {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{12, 1}], LineBox[{13, 2}], LineBox[{14, 3}], LineBox[{15, 4}], LineBox[{16, 5}], LineBox[{17, 6}], LineBox[{18, 7}], LineBox[{19, 8}], LineBox[{20, 9}], LineBox[{21, 10}], LineBox[{22, 11}]}}, {{}, {Hue[0.67, 0.6, 0.6], PointSize[Large], PointBox[{23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33}]}, {}}}], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0., 10.}, {0., 0.2508226559999997}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], ",", GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGBQBGIQjQoC7CH0B/vv/0GgGcpncLgB4tYvg/I5HMDS//dC +QIOX0Fc+1NQvojDW7D681C+BJq8DJp+BTTzlRxQ7VdxQHUfOviALu6AyuVA 4wug8UXQ+BJofBk0vgIaXwmNr4LGh4HBH74A/XuGAg== "], {{{}, {}, {}, {}, {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{12, 1}], LineBox[{13, 2}], LineBox[{14, 3}], LineBox[{15, 4}], LineBox[{16, 5}], LineBox[{17, 6}], LineBox[{18, 7}], LineBox[{19, 8}], LineBox[{20, 9}], LineBox[{21, 10}], LineBox[{22, 11}]}}, {{}, {Hue[0.67, 0.6, 0.6], PointSize[Large], PointBox[{23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33}]}, {}}}], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0., 10.}, {0., 0.24609374999999947`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], ",", GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGBQBGIQDQOr9l6/eb9G2h7C+2B/1NHqjuDRSCifwSFD/aKg +75WKJ/DoQXMXwrlCzg8bk5y39u5B8oXcXi88kak1vqTUL6Eg3GWekUV7wUo X8ZBdFvPp4stp6F8BYftPvcMcr7ug/KVHCZ1vCydu3gJlK/i8H5xXW/YkQqY e9DAB3RxB1QuBxpfAI0vgsaXQOPLoPEV0PhKaHwVNP7QCV8ApyBoOg== "], {{{}, {}, {}, {}, {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{12, 1}], LineBox[{13, 2}], LineBox[{14, 3}], LineBox[{15, 4}], LineBox[{16, 5}], LineBox[{17, 6}], LineBox[{18, 7}], LineBox[{19, 8}], LineBox[{20, 9}], LineBox[{21, 10}], LineBox[{22, 11}]}}, {{}, {Hue[0.67, 0.6, 0.6], PointSize[Large], PointBox[{23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33}]}, {}}}], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0., 10.}, {0., 0.2508226559999997}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], ",", GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGBQBGIQDQN3Ftf1hh25YQfhfbDPCtc5rsmvZA+VdlhqlHX1 2eZwKJ/D4avz36VV+U1QvoBDjKmsydmLi6B8EYdHtYdE30TsgvIlHJZ2zDSc MPcklC/jIBedVrZV+CKUr+DgLW/cX/voLJSv5HB/Nmv39b/7oHwVh71Hev1e v5kDcw8a+IAu7oDK5UDjC6DxRdD4Emh8GTS+AhpfCY2vgsYfOuELAKbNZ2g= "], {{{}, {}, {}, {}, {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{12, 1}], LineBox[{13, 2}], LineBox[{14, 3}], LineBox[{15, 4}], LineBox[{16, 5}], LineBox[{17, 6}], LineBox[{18, 7}], LineBox[{19, 8}], LineBox[{20, 9}], LineBox[{21, 10}], LineBox[{22, 11}]}}, {{}, {Hue[0.67, 0.6, 0.6], PointSize[Large], PointBox[{23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33}]}, {}}}], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0., 10.}, {0., 0.2668279319999999}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], ",", GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGBQBGIQDQP79l6/eb+m2g7C+2Dfc03tBbfeRSifwcF6o3bq 2WBhewiXw+GSo9UdwaOeUL6AQ+/PTQvye8qgfBGHDXEFUW/4ZkP5Eg4zwPLb oHwZhxtg/SehfAUHD7D5l6F8JYcJEPuhfBUHiPt22zNgBR/QxR1QuRxofAE0 vggaXwKNL4PGV0DjK6HxVdD4Qyd8ARk6aV4= "], {{{}, {}, {}, {}, {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{12, 1}], LineBox[{13, 2}], LineBox[{14, 3}], LineBox[{15, 4}], LineBox[{16, 5}], LineBox[{17, 6}], LineBox[{18, 7}], LineBox[{19, 8}], LineBox[{20, 9}], LineBox[{21, 10}], LineBox[{22, 11}]}}, {{}, {Hue[0.67, 0.6, 0.6], PointSize[Large], PointBox[{23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33}]}, {}}}], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0., 10.}, {0., 0.30198988799999826`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], ",", GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGBQBGIQDQNz9l6/eb/mti2E98E+aKN26tlgZzuotIO/D/cX /rIZUD6HQ1wlx/fuiEdQvoBDVrjOcU1+JXsIX8TBeqWHsWtiBJQv4bBVTuSB we02KF/G4TlT8qavSWuhfAWHkK5mv/rTJ6B8JYdSMP8GlK/icEPfOWF/wDV7 BqzgA7q4AyqXA40vgMYXQeNLoPFl0PgKaHwlNL4KGn/ohC8A4mVe6g== "], {{{}, {}, {}, {}, {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{12, 1}], LineBox[{13, 2}], LineBox[{14, 3}], LineBox[{15, 4}], LineBox[{16, 5}], LineBox[{17, 6}], LineBox[{18, 7}], LineBox[{19, 8}], LineBox[{20, 9}], LineBox[{21, 10}], LineBox[{22, 11}]}}, {{}, {Hue[0.67, 0.6, 0.6], PointSize[Large], PointBox[{23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33}]}, {}}}], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0., 10.}, {0., 0.38742048899999953`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]}], "}"}]], "Output", CellChangeTimes->{3.5413072528125*^9}] }, Open ]], Cell[TextData[{ StyleBox["LA DISTRIBUCION DE POISSON", FontSize->18], "\nLa distribuci\[OAcute]n de Poisson se define mediante ", Cell[BoxData[ RowBox[{ ButtonBox["PoissonDistribution", BaseStyle->"Link", ButtonData->"paclet:ref/PoissonDistribution"], "[", StyleBox["\[Mu]", "TR"], "]"}]]], " donde \[Mu] es la media.\nSurge como alternativa a la Binomial cuando n es \ muy grande y p es muy peque\[NTilde]o (accidentes aereos/vuelos)\nLa \ distribuci\[OAcute]n de Binomial(", StyleBox["n", FontSlant->"Italic"], ", ", StyleBox["p", FontSlant->"Italic"], ") se puede aproximar por una Poison(", StyleBox["np", FontSlant->"Italic"], ") si ", StyleBox["n", FontSlant->"Italic"], " es muy grande, ", StyleBox["p", FontSlant->"Italic"], " muy peque\[NTilde]o y ", StyleBox["np", FontSlant->"Italic"], " es moderado... veamos como:" }], "Text", CellChangeTimes->{{3.5090316460065503`*^9, 3.509031670810594*^9}, { 3.5090317110898647`*^9, 3.509031729029896*^9}, {3.5092699395311813`*^9, 3.5092700185186996`*^9}}], Cell[TextData[{ StyleBox["LA DISTRIBUCION DE POISSON", FontSize->18], "\nLa distribuci\[OAcute]n de Poisson se define mediante ", Cell[BoxData[ RowBox[{ ButtonBox["PoissonDistribution", BaseStyle->"Link", ButtonData->"paclet:ref/PoissonDistribution"], "[", StyleBox["\[Mu]", "TR"], "]"}]]], " donde \[Mu] es la media.\nSurge como alternativa a la Binomial cuando n es \ muy grande y p es muy peque\[NTilde]o (accidentes aereos/vuelos)\nLa \ distribuci\[OAcute]n de Binomial(", StyleBox["n", FontSlant->"Italic"], ", ", StyleBox["p", FontSlant->"Italic"], ") se puede aproximar por una Poison(", StyleBox["np", FontSlant->"Italic"], ") si ", StyleBox["n", FontSlant->"Italic"], " es muy grande, ", StyleBox["p", FontSlant->"Italic"], " muy peque\[NTilde]o y ", StyleBox["np", FontSlant->"Italic"], " es moderado... veamos como:" }], "Text", CellChangeTimes->{{3.5090316460065503`*^9, 3.509031670810594*^9}, { 3.5090317110898647`*^9, 3.509031729029896*^9}, {3.5092699395311813`*^9, 3.5092700185186996`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p", "=", "5"}]], "Input", CellChangeTimes->{3.509270120760547*^9}], Cell[BoxData["5"], "Output", CellChangeTimes->{3.541307252953125*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"posdis", "=", RowBox[{"PoissonDistribution", "[", "p", "]"}]}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Mean", "[", "posdis", "]"}]], "Input", CellChangeTimes->{{3.509270144160886*^9, 3.509270151736319*^9}}], Cell[BoxData["5"], "Output", CellChangeTimes->{3.541307253*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PDF", "[", RowBox[{"posdis", ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.509270162721947*^9, 3.5092701728565273`*^9}}], Cell[BoxData[ TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ { FractionBox[ SuperscriptBox["5", "x"], RowBox[{ SuperscriptBox["\[ExponentialE]", "5"], " ", RowBox[{"x", "!"}]}]], RowBox[{"x", "\[GreaterEqual]", "0"}]}, {"0", TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}, Selectable->True]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.54130725303125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CDF", "[", RowBox[{"posdis", ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.509270181716034*^9, 3.5092701874323606`*^9}}], Cell[BoxData[ TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ { RowBox[{"GammaRegularized", "[", RowBox[{ RowBox[{"1", "+", RowBox[{"Floor", "[", "x", "]"}]}], ",", "5"}], "]"}], RowBox[{"x", "\[GreaterEqual]", "0"}]}, {"0", TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}, Selectable->True]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.541307253078125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Variance", "[", "posdis", "]"}]], "Input", CellChangeTimes->{{3.5092702026592317`*^9, 3.5092702081845474`*^9}}], Cell[BoxData["5"], "Output", CellChangeTimes->{3.541307253140625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "tmuestra"}]], "Input", CellChangeTimes->{{3.5092702524660807`*^9, 3.5092702604405365`*^9}}], Cell[CellGroupData[{ Cell["Global`tmuestra", "Print", "PrintUsage", CellChangeTimes->{3.541307253546875*^9}, CellTags->"Info3541310853-3325532"], Cell[BoxData[ InterpretationBox[GridBox[{ {GridBox[{ { RowBox[{"tmuestra", "=", "100"}]} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{"Columns" -> {{ Scaled[0.999]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}]} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], Definition[$CellContext`tmuestra], Editable->False]], "Print", CellChangeTimes->{3.541307253578125*^9}, CellTags->"Info3541310853-3325532"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"muestra", "=", RowBox[{"RandomInteger", "[", RowBox[{"posdis", ",", "tmuestra"}], "]"}]}]], "Input", CellChangeTimes->{{3.5092703523717947`*^9, 3.509270373849023*^9}, 3.509421364015625*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "5", ",", "3", ",", "5", ",", "0", ",", "5", ",", "7", ",", "8", ",", "10", ",", "6", ",", "4", ",", "4", ",", "5", ",", "8", ",", "2", ",", "6", ",", "3", ",", "8", ",", "2", ",", "6", ",", "5", ",", "6", ",", "7", ",", "5", ",", "5", ",", "1", ",", "2", ",", "3", ",", "5", ",", "1", ",", "8", ",", "6", ",", "3", ",", "3", ",", "13", ",", "3", ",", "2", ",", "3", ",", "2", ",", "6", ",", "8", ",", "3", ",", "3", ",", "9", ",", "2", ",", "11", ",", "6", ",", "3", ",", "4", ",", "5", ",", "4", ",", "4", ",", "4", ",", "4", ",", "5", ",", "6", ",", "6", ",", "1", ",", "5", ",", "5", ",", "10", ",", "4", ",", "5", ",", "9", ",", "3", ",", "2", ",", "4", ",", "7", ",", "6", ",", "6", ",", "1", ",", "2", ",", "8", ",", "9", ",", "2", ",", "5", ",", "8", ",", "7", ",", "6", ",", "6", ",", "9", ",", "3", ",", "5", ",", "2", ",", "2", ",", "3", ",", "5", ",", "6", ",", "3", ",", "6", ",", "5", ",", "8", ",", "8", ",", "5", ",", "4", ",", "3", ",", "4", ",", "9", ",", "4", ",", "1", ",", "1"}], "}"}]], "Output", CellChangeTimes->{3.541307253734375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Histogram", "[", RowBox[{"muestra", ",", RowBox[{"{", "1", "}"}], ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.5090330149557548`*^9, 3.5090330740018587`*^9}, { 3.50903335963836*^9, 3.5090333861740065`*^9}, {3.5090342222886753`*^9, 3.5090342235054774`*^9}, {3.5090369154774055`*^9, 3.50903695202827*^9}, { 3.509037007548767*^9, 3.5090370175483847`*^9}, {3.5092700723007755`*^9, 3.5092701296100535`*^9}, 3.509270229225751*^9, {3.5092702736892943`*^9, 3.509270284888935*^9}, {3.5092703910980096`*^9, 3.50927039512824*^9}, 3.50942136403125*^9}], Cell[BoxData[ GraphicsBox[ {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0.}, {1., 0.01}, "RoundingRadius" -> 0]}, ImageSizeCache->{{42.5669387755102, 65.6338775510204}, { 86.44213207666753, 97.86013902807109}}], StatusArea[#, 0.01]& , TagBoxNote->"0.01"], StyleBox["0.01`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.01, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1., 0.}, {2., 0.06}, "RoundingRadius" -> 0]}, ImageSizeCache->{{64.6338775510204, 87.7008163265306}, { 34.352097319649765`, 97.86013902807109}}], StatusArea[#, 0.06]& , TagBoxNote->"0.06"], StyleBox["0.06`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.06, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2., 0.}, {3., 0.11}, "RoundingRadius" -> 0]}, ImageSizeCache->{{86.7008163265306, 109.76775510204081`}, {-17.737937437368004`, 97.86013902807109}}], StatusArea[#, 0.11]& , TagBoxNote->"0.11"], StyleBox["0.11`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.11, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{3., 0.}, {4., 0.15}, "RoundingRadius" -> 0]}, ImageSizeCache->{{108.76775510204081`, 131.83469387755102`}, {-59.40996524298221, 97.86013902807109}}], StatusArea[#, 0.15]& , TagBoxNote->"0.15"], StyleBox["0.15`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.15, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4., 0.}, {5., 0.12}, "RoundingRadius" -> 0]}, ImageSizeCache->{{130.83469387755102`, 153.90163265306123`}, {-28.15594438877156, 97.86013902807109}}], StatusArea[#, 0.12]& , TagBoxNote->"0.12"], StyleBox["0.12`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.12, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5., 0.}, {6., 0.18}, "RoundingRadius" -> 0]}, ImageSizeCache->{{152.90163265306123`, 175.9685714285714}, {-90.66398609719288, 97.86013902807109}}], StatusArea[#, 0.18]& , TagBoxNote->"0.18"], StyleBox["0.18`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.18, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{6., 0.}, {7., 0.15}, "RoundingRadius" -> 0]}, ImageSizeCache->{{174.9685714285714, 198.03551020408162`}, {-59.40996524298221, 97.86013902807109}}], StatusArea[#, 0.15]& , TagBoxNote->"0.15"], StyleBox["0.15`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.15, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{7., 0.}, {8., 0.04}, "RoundingRadius" -> 0]}, ImageSizeCache->{{197.03551020408162`, 220.10244897959183`}, { 55.188111222456875`, 97.86013902807109}}], StatusArea[#, 0.04]& , TagBoxNote->"0.04"], StyleBox["0.04`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.04, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{8., 0.}, {9., 0.09}, "RoundingRadius" -> 0]}, ImageSizeCache->{{219.10244897959183`, 242.16938775510204`}, { 3.0980764654391066`, 97.86013902807109}}], StatusArea[#, 0.09]& , TagBoxNote->"0.09"], StyleBox["0.09`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.09, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{9., 0.}, {10., 0.05}, "RoundingRadius" -> 0]}, ImageSizeCache->{{241.16938775510204`, 264.23632653061225`}, { 44.77010427105331, 97.86013902807109}}], StatusArea[#, 0.05]& , TagBoxNote->"0.05"], StyleBox["0.05`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.05, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{10., 0.}, {11., 0.02}, "RoundingRadius" -> 0]}, ImageSizeCache->{{263.23632653061225`, 286.3032653061224}, { 76.02412512526398, 97.86013902807109}}], StatusArea[#, 0.02]& , TagBoxNote->"0.02"], StyleBox["0.02`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.02, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{11., 0.}, {12., 0.01}, "RoundingRadius" -> 0]}, ImageSizeCache->{{285.3032653061224, 308.3702040816326}, { 86.44213207666753, 97.86013902807109}}], StatusArea[#, 0.01]& , TagBoxNote->"0.01"], StyleBox["0.01`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.01, { GrayLevel[0]}], "Tooltip"]& ], {}, TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{13., 0.}, {14., 0.01}, "RoundingRadius" -> 0]}, ImageSizeCache->{{329.4371428571428, 352.504081632653}, { 86.44213207666753, 97.86013902807109}}], StatusArea[#, 0.01]& , TagBoxNote->"0.01"], StyleBox["0.01`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.01, { GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesOrigin->{-1., 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, PlotRange->{{-1., 14.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.1]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.54130725396875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"posdis", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"PoissonDistribution", "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "5", ",", "10"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.509273305747718*^9, 3.5092733317532053`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"PoissonDistribution", "[", "5", "]"}], ",", RowBox[{"PoissonDistribution", "[", "6", "]"}], ",", RowBox[{"PoissonDistribution", "[", "7", "]"}], ",", RowBox[{"PoissonDistribution", "[", "8", "]"}], ",", RowBox[{"PoissonDistribution", "[", "9", "]"}], ",", RowBox[{"PoissonDistribution", "[", "10", "]"}]}], "}"}]], "Output", CellChangeTimes->{3.54001531584375*^9, 3.54130725403125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "tmuestra"}]], "Input", CellChangeTimes->{{3.509273398302012*^9, 3.509273402520253*^9}}], Cell[CellGroupData[{ Cell["Global`tmuestra", "Print", "PrintUsage", CellChangeTimes->{3.541307254328125*^9}, CellTags->"Info3541310854-6455769"], Cell[BoxData[ InterpretationBox[GridBox[{ {GridBox[{ { RowBox[{"tmuestra", "=", "100"}]} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{"Columns" -> {{ Scaled[0.999]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}]} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], Definition[$CellContext`tmuestra], Editable->False]], "Print", CellChangeTimes->{3.541307254375*^9}, CellTags->"Info3541310854-6455769"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"muestra", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"RandomInteger", "[", RowBox[{ RowBox[{"posdis", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "tmuestra"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "6"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5092703382779884`*^9, 3.5092703441203227`*^9}, { 3.50927040613587*^9, 3.5092704134162865`*^9}, {3.509270482281225*^9, 3.509270508712737*^9}, {3.509270663945616*^9, 3.5092707188737574`*^9}, { 3.5092733858182983`*^9, 3.5092734349861097`*^9}, {3.5092734836418934`*^9, 3.5092735269223685`*^9}, 3.5094213640625*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "4", ",", "6", ",", "3", ",", "5", ",", "5", ",", "4", ",", "8", ",", "4", ",", "6", ",", "2", ",", "4", ",", "7", ",", "6", ",", "2", ",", "5", ",", "4", ",", "4", ",", "2", ",", "7", ",", "6", ",", "4", ",", "3", ",", "7", ",", "1", ",", "3", ",", "2", ",", "5", ",", "7", ",", "4", ",", "4", ",", "1", ",", "5", ",", "4", ",", "7", ",", "6", ",", "10", ",", "4", ",", "4", ",", "3", ",", "11", ",", "3", ",", "7", ",", "5", ",", "7", ",", "7", ",", "1", ",", "2", ",", "4", ",", "7", ",", "4", ",", "2", ",", "5", ",", "7", ",", "5", ",", "3", ",", "5", ",", "2", ",", "5", ",", "3", ",", "3", ",", "5", ",", "4", ",", "8", ",", "7", ",", "3", ",", "3", ",", "5", ",", "5", ",", "7", ",", "9", ",", "6", ",", "6", ",", "8", ",", "4", ",", "4", ",", "3", ",", "6", ",", "5", ",", "6", ",", "9", ",", "6", ",", "3", ",", "8", ",", "2", ",", "5", ",", "4", ",", "1", ",", "4", ",", "5", ",", "8", ",", "7", ",", "13", ",", "1", ",", "9", ",", "3", ",", "5", ",", "3", ",", "9", ",", "5", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{ "3", ",", "6", ",", "10", ",", "5", ",", "7", ",", "7", ",", "5", ",", "7", ",", "6", ",", "9", ",", "3", ",", "2", ",", "3", ",", "5", ",", "11", ",", "8", ",", "7", ",", "4", ",", "6", ",", "5", ",", "6", ",", "10", ",", "10", ",", "6", ",", "1", ",", "7", ",", "4", ",", "2", ",", "7", ",", "2", ",", "7", ",", "3", ",", "3", ",", "5", ",", "6", ",", "3", ",", "3", ",", "6", ",", "3", ",", "7", ",", "9", ",", "10", ",", "3", ",", "8", ",", "7", ",", "5", ",", "6", ",", "9", ",", "6", ",", "4", ",", "8", ",", "12", ",", "5", ",", "2", ",", "9", ",", "7", ",", "9", ",", "8", ",", "4", ",", "1", ",", "5", ",", "4", ",", "5", ",", "7", ",", "4", ",", "6", ",", "5", ",", "3", ",", "6", ",", "7", ",", "3", ",", "6", ",", "5", ",", "3", ",", "5", ",", "5", ",", "4", ",", "8", ",", "5", ",", "6", ",", "9", ",", "2", ",", "3", ",", "8", ",", "8", ",", "5", ",", "7", ",", "2", ",", "4", ",", "3", ",", "5", ",", "6", ",", "6", ",", "3", ",", "6", ",", "7", ",", "10", ",", "5", ",", "8", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{ "7", ",", "5", ",", "6", ",", "10", ",", "3", ",", "6", ",", "8", ",", "8", ",", "3", ",", "4", ",", "6", ",", "11", ",", "8", ",", "6", ",", "6", ",", "8", ",", "2", ",", "8", ",", "6", ",", "6", ",", "10", ",", "8", ",", "9", ",", "4", ",", "6", ",", "7", ",", "7", ",", "4", ",", "10", ",", "9", ",", "6", ",", "8", ",", "6", ",", "8", ",", "3", ",", "5", ",", "4", ",", "11", ",", "6", ",", "10", ",", "10", ",", "9", ",", "10", ",", "6", ",", "11", ",", "11", ",", "7", ",", "8", ",", "7", ",", "6", ",", "5", ",", "7", ",", "7", ",", "10", ",", "5", ",", "6", ",", "9", ",", "9", ",", "5", ",", "8", ",", "7", ",", "6", ",", "5", ",", "9", ",", "6", ",", "5", ",", "6", ",", "7", ",", "11", ",", "9", ",", "5", ",", "6", ",", "4", ",", "5", ",", "10", ",", "8", ",", "12", ",", "6", ",", "10", ",", "11", ",", "7", ",", "3", ",", "3", ",", "7", ",", "5", ",", "11", ",", "12", ",", "6", ",", "8", ",", "4", ",", "5", ",", "5", ",", "8", ",", "3", ",", "6", ",", "8", ",", "13", ",", "13", ",", "3", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{ "4", ",", "3", ",", "9", ",", "11", ",", "10", ",", "12", ",", "5", ",", "12", ",", "11", ",", "4", ",", "17", ",", "7", ",", "6", ",", "7", ",", "4", ",", "13", ",", "13", ",", "12", ",", "12", ",", "6", ",", "17", ",", "9", ",", "2", ",", "9", ",", "11", ",", "6", ",", "11", ",", "5", ",", "5", ",", "8", ",", "10", ",", "6", ",", "10", ",", "6", ",", "8", ",", "8", ",", "7", ",", "9", ",", "7", ",", "9", ",", "9", ",", "5", ",", "10", ",", "2", ",", "9", ",", "3", ",", "3", ",", "8", ",", "12", ",", "6", ",", "9", ",", "15", ",", "8", ",", "10", ",", "9", ",", "5", ",", "7", ",", "7", ",", "8", ",", "5", ",", "6", ",", "10", ",", "6", ",", "10", ",", "8", ",", "9", ",", "11", ",", "5", ",", "9", ",", "11", ",", "16", ",", "13", ",", "4", ",", "6", ",", "11", ",", "8", ",", "7", ",", "5", ",", "4", ",", "9", ",", "11", ",", "13", ",", "5", ",", "11", ",", "5", ",", "8", ",", "5", ",", "9", ",", "9", ",", "11", ",", "8", ",", "10", ",", "12", ",", "7", ",", "9", ",", "4", ",", "12", ",", "10", ",", "12", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{ "8", ",", "9", ",", "10", ",", "17", ",", "6", ",", "11", ",", "6", ",", "7", ",", "10", ",", "13", ",", "8", ",", "8", ",", "10", ",", "11", ",", "9", ",", "5", ",", "12", ",", "10", ",", "5", ",", "4", ",", "11", ",", "10", ",", "5", ",", "3", ",", "7", ",", "8", ",", "6", ",", "11", ",", "12", ",", "6", ",", "10", ",", "12", ",", "7", ",", "15", ",", "6", ",", "6", ",", "10", ",", "16", ",", "16", ",", "12", ",", "8", ",", "10", ",", "11", ",", "6", ",", "9", ",", "10", ",", "7", ",", "9", ",", "10", ",", "10", ",", "11", ",", "6", ",", "8", ",", "12", ",", "9", ",", "8", ",", "7", ",", "14", ",", "12", ",", "13", ",", "9", ",", "7", ",", "5", ",", "9", ",", "9", ",", "7", ",", "3", ",", "9", ",", "11", ",", "15", ",", "9", ",", "9", ",", "5", ",", "10", ",", "9", ",", "11", ",", "8", ",", "8", ",", "12", ",", "10", ",", "13", ",", "7", ",", "13", ",", "11", ",", "14", ",", "9", ",", "6", ",", "9", ",", "9", ",", "6", ",", "11", ",", "7", ",", "4", ",", "8", ",", "10", ",", "7", ",", "4", ",", "10", ",", "10", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{ "11", ",", "7", ",", "12", ",", "8", ",", "7", ",", "12", ",", "6", ",", "12", ",", "4", ",", "9", ",", "8", ",", "9", ",", "8", ",", "10", ",", "7", ",", "11", ",", "7", ",", "12", ",", "8", ",", "11", ",", "10", ",", "7", ",", "14", ",", "5", ",", "11", ",", "9", ",", "12", ",", "9", ",", "9", ",", "9", ",", "5", ",", "13", ",", "14", ",", "9", ",", "11", ",", "13", ",", "9", ",", "6", ",", "10", ",", "11", ",", "8", ",", "12", ",", "9", ",", "4", ",", "5", ",", "10", ",", "5", ",", "11", ",", "16", ",", "11", ",", "9", ",", "6", ",", "10", ",", "7", ",", "6", ",", "14", ",", "12", ",", "10", ",", "6", ",", "7", ",", "6", ",", "13", ",", "11", ",", "13", ",", "5", ",", "10", ",", "13", ",", "8", ",", "3", ",", "8", ",", "8", ",", "6", ",", "13", ",", "8", ",", "11", ",", "11", ",", "11", ",", "7", ",", "11", ",", "15", ",", "11", ",", "8", ",", "10", ",", "4", ",", "11", ",", "9", ",", "12", ",", "13", ",", "12", ",", "14", ",", "16", ",", "7", ",", "11", ",", "11", ",", "9", ",", "13", ",", "9", ",", "6", ",", "9", ",", "17"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.541307254484375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"muestra", "[", RowBox[{"[", "1", "]"}], "]"}]], "Input", CellChangeTimes->{{3.5092710802604275`*^9, 3.5092710854717255`*^9}, 3.509421364109375*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "4", ",", "6", ",", "3", ",", "5", ",", "5", ",", "4", ",", "8", ",", "4", ",", "6", ",", "2", ",", "4", ",", "7", ",", "6", ",", "2", ",", "5", ",", "4", ",", "4", ",", "2", ",", "7", ",", "6", ",", "4", ",", "3", ",", "7", ",", "1", ",", "3", ",", "2", ",", "5", ",", "7", ",", "4", ",", "4", ",", "1", ",", "5", ",", "4", ",", "7", ",", "6", ",", "10", ",", "4", ",", "4", ",", "3", ",", "11", ",", "3", ",", "7", ",", "5", ",", "7", ",", "7", ",", "1", ",", "2", ",", "4", ",", "7", ",", "4", ",", "2", ",", "5", ",", "7", ",", "5", ",", "3", ",", "5", ",", "2", ",", "5", ",", "3", ",", "3", ",", "5", ",", "4", ",", "8", ",", "7", ",", "3", ",", "3", ",", "5", ",", "5", ",", "7", ",", "9", ",", "6", ",", "6", ",", "8", ",", "4", ",", "4", ",", "3", ",", "6", ",", "5", ",", "6", ",", "9", ",", "6", ",", "3", ",", "8", ",", "2", ",", "5", ",", "4", ",", "1", ",", "4", ",", "5", ",", "8", ",", "7", ",", "13", ",", "1", ",", "9", ",", "3", ",", "5", ",", "3", ",", "9", ",", "5", ",", "5"}], "}"}]], "Output", CellChangeTimes->{3.541307254546875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"ListPlot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{"PDF", "[", RowBox[{ RowBox[{"posdis", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "x"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}], ",", RowBox[{"Filling", "\[Rule]", "Axis"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"PointSize", "[", "Large", "]"}]}]}], "\[IndentingNewLine]", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "6"}], "}"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.5092735551329823`*^9, 3.5092735791503563`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGCwB2IQDQNlwbwP7GdW20N4H+y1QjjeHLdfCOUzOJhkcj3f 2b8VyudwCGO6N/Xo94NQvoDDm6bQ39tKj0H5Imh8CQept4UXc7cfgvJlHPIO LGJ7tmcXlK/g4LpD9Qj/tg1QvpLDItaPN9MmLoLyVaD8SVC+moM8a52V28MG KF/DoYPj0jZ5pRwoX8vBSco+VWJJKJSv49CkGvUv+5UdlK/nsObws3/uc1Sg fAOH6SUL/kUe5oTyDR0OyItvtvF/ZwfhGzlkN2//uP7aBSjf2OGHW/eJCTs3 QvkmUP5EOwas4IM9moADKpcDjS+AxhdB40ug8WXQ+ApofCU0vgoaXw2Nr4HG 10Lj66Dx9dD4Bmh8QzS+ERrfGI1vgsYfTZ/USp8AA3HEEA== "], {{{}, {}, {}, {}, {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{22, 1}], LineBox[{23, 2}], LineBox[{24, 3}], LineBox[{25, 4}], LineBox[{26, 5}], LineBox[{27, 6}], LineBox[{28, 7}], LineBox[{29, 8}], LineBox[{30, 9}], LineBox[{31, 10}], LineBox[{32, 11}], LineBox[{33, 12}], LineBox[{34, 13}], LineBox[{35, 14}], LineBox[{36, 15}], LineBox[{37, 16}], LineBox[{38, 17}], LineBox[{39, 18}], LineBox[{40, 19}], LineBox[{41, 20}], LineBox[{42, 21}]}}, {{}, {Hue[0.67, 0.6, 0.6], PointSize[Large], PointBox[{43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63}]}, {}}}], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0., 20.}, {0., 0.1754673697678507}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], ",", GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGCwB2IQDQPXrgh/DPRLsYfwPtg77p/7sqq0D8pncCj0N9OX ubEMyueA8rdB+QIOU3dnKIsqHYTyRRx8RJ5M8Ok/AuVLoPFlHNYv5jFOmw9T r+DQ9nWSj2T+LihfCSq/EcpXcZj3/fa1tapLoXw1h0/BKa+uCE6H8jWg/HYo X8vhfsmz0k7vUihfx+HJxfDv+xySoHw9h7yXn/almPhC+QYOwvpm/d7PTaF8 QwcLtiv5em/koHwjh6rIXq+SuSxQvrGDonUIrxPXKzsI38ThkHBqWZP9eTsG rOCDPZqAAyqXA40vgMYXQeNLoPFl0PgKaHwlNL4KGl8Nja+BxtdC4+ug8fXQ +AZofEM0vhEa3xiNb4LGH02f1EqfACHStH4= "], {{{}, {}, {}, {}, {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{22, 1}], LineBox[{23, 2}], LineBox[{24, 3}], LineBox[{25, 4}], LineBox[{26, 5}], LineBox[{27, 6}], LineBox[{28, 7}], LineBox[{29, 8}], LineBox[{30, 9}], LineBox[{31, 10}], LineBox[{32, 11}], LineBox[{33, 12}], LineBox[{34, 13}], LineBox[{35, 14}], LineBox[{36, 15}], LineBox[{37, 16}], LineBox[{38, 17}], LineBox[{39, 18}], LineBox[{40, 19}], LineBox[{41, 20}], LineBox[{42, 21}]}}, {{}, {Hue[0.67, 0.6, 0.6], PointSize[Large], PointBox[{43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63}]}, {}}}], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0., 20.}, {0., 0.16062314104798003`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], ",", GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGCwB2IQDQP9K1XmZD/0tYfwPtjHiizQsFOtgvIZHC4K9iRP ezANyudwkM9SLlm/YRWUL+Bw+8+81plR26F8EYc08T0CrJEHoHwJh0UFt1+0 Ch2G8mXQ+AoOfUwHtE03wNQrOSxep8W94utOKF/FoXht1sKv2pugfDWHiUp/ fq9RWA7lazj8vxRQXfJ7FpSv5bDBlcPsDF8vlK8D5ddC+XoORcu/7Xoglw3l Gzi0XJq+mGV3OJRv6GDQ8PXQly5nKN/IIeP4Nu+END0o39jhd/mnZ4lpYlC+ iYPO7Z0rlWL+2zFgBR/s0QQcULkcaHwBNL4IGl8CjS+DxldA4yuh8VXQ+Gpo fA00vhYaXweNr4fGN0DjG6LxjdD4xmh8EzT+aPqkVvoEAI3+vhA= "], {{{}, {}, {}, {}, {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{22, 1}], LineBox[{23, 2}], LineBox[{24, 3}], LineBox[{25, 4}], LineBox[{26, 5}], LineBox[{27, 6}], LineBox[{28, 7}], LineBox[{29, 8}], LineBox[{30, 9}], LineBox[{31, 10}], LineBox[{32, 11}], LineBox[{33, 12}], LineBox[{34, 13}], LineBox[{35, 14}], LineBox[{36, 15}], LineBox[{37, 16}], LineBox[{38, 17}], LineBox[{39, 18}], LineBox[{40, 19}], LineBox[{41, 20}], LineBox[{42, 21}]}}, {{}, {Hue[0.67, 0.6, 0.6], PointSize[Large], PointBox[{43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63}]}, {}}}], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0., 20.}, {0., 0.1490027796743379}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], ",", GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGCwB2IQDQNr1QVYFP+Y2kN4H+wh/FQon8EBwm+F8jkcJt7P YtUJmAvlC0D5a6F8EQe+Z7uzwoq3Q/kSDsIdvyyKXfZD+TIOB31vbPpx9yCU r4DGV3KICPxk23gYpl7FoXJ5n6FJ5k4oX81BeOLa9XzVm6B8DQfJnOdThJes gPK1HB7znQs5GTwPytdxsCx7zF0cMhHK13OIPyRSbFbTBOUbQPlFUL6hQ7nd iSc3UhOhfCOHpCNXYz+/9YPyjR0SlhaU7+e2gvJNHBq2fz5qdE0FFl5o4AO6 uAMqlwONL4DGF0HjS6DxZdD4Cmh8JTS+ChpfDY2vgcbXQuProPH10PgGaHxD NL4RGt8YjW+Cxh9Nn9RKnwCvprXa "], {{{}, {}, {}, {}, {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{22, 1}], LineBox[{23, 2}], LineBox[{24, 3}], LineBox[{25, 4}], LineBox[{26, 5}], LineBox[{27, 6}], LineBox[{28, 7}], LineBox[{29, 8}], LineBox[{30, 9}], LineBox[{31, 10}], LineBox[{32, 11}], LineBox[{33, 12}], LineBox[{34, 13}], LineBox[{35, 14}], LineBox[{36, 15}], LineBox[{37, 16}], LineBox[{38, 17}], LineBox[{39, 18}], LineBox[{40, 19}], LineBox[{41, 20}], LineBox[{42, 21}]}}, {{}, {Hue[0.67, 0.6, 0.6], PointSize[Large], PointBox[{43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63}]}, {}}}], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0., 20.}, {0., 0.13958653195059692`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], ",", GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGCwB2IQDQNRIWqqn3QU7CG8D/ZP5U5nTjAKgvIZHA41sZQ/ qiiB8jkclI+0bQre2gflCziEnMsW+e+6EMoXcTh5s+/jdPH1UL6EQ7iy9teN gduhfBmHexwxLUG/90L5Cg5/jxRnxd09AOUrofFVHPT+ZPY4R++D8tUcsrU1 uvyu7YDyNRwmKMx7vmvBJihfy2ELq1jG7VMroXwdh/M+4fM2TlkA5es5xPeb flz4dDKUb+Dg7RijH5bUBuUbOuRNcA7I2lwO5RtB+elQvrGDOJPDA+GSMCjf xOEh4wIxV1MXWHihgQ/o4g6oXA40vgAaXwSNL4HGl0HjK6DxldD4Kmh8NTS+ BhpfC42vg8bXQ+MboPEN0fhGaHxjNL4JGn80fVIrfQIAPSC3BA== "], {{{}, {}, {}, {}, {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{22, 1}], LineBox[{23, 2}], LineBox[{24, 3}], LineBox[{25, 4}], LineBox[{26, 5}], LineBox[{27, 6}], LineBox[{28, 7}], LineBox[{29, 8}], LineBox[{30, 9}], LineBox[{31, 10}], LineBox[{32, 11}], LineBox[{33, 12}], LineBox[{34, 13}], LineBox[{35, 14}], LineBox[{36, 15}], LineBox[{37, 16}], LineBox[{38, 17}], LineBox[{39, 18}], LineBox[{40, 19}], LineBox[{41, 20}], LineBox[{42, 21}]}}, {{}, {Hue[0.67, 0.6, 0.6], PointSize[Large], PointBox[{43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63}]}, {}}}], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0., 20.}, {0., 0.1317556400095227}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], ",", GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGCwB2IQDQOza1K2Vp5lt4fwPtgfmr1X6cYBWyifwSGycZto +4wkKJ/Dwb6ptdLsXx2UL+CQUfiZ+1HcZChfBMpfDOVLOOh0fuVMV9kA5cs4 2IU1L8jj3w7lKzic017i4XV5D5Sv5LA69yX3bOYDUL4KGl/NwT9rhegV2b1Q vobDtAgeoTbnHVC+loMQ5/IYiVWboHwdB9v571bcXLkKytdzqN/vKT3x2EIo 38AhTl8mydRiGpRv6CAyqWsik0oXlG/kcK+1Vngidy2Ub+xQWH+89+WkPCjf BMqPg4UXGviALu6AyuVA4wug8UXQ+BJofBk0vgIaXwmNr4LGV0Pja6DxtdD4 Omh8PTS+ARrfEI1vhMY3RuOboPFH0ye10icAtLqyTg== "], {{{}, {}, {}, {}, {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{22, 1}], LineBox[{23, 2}], LineBox[{24, 3}], LineBox[{25, 4}], LineBox[{26, 5}], LineBox[{27, 6}], LineBox[{28, 7}], LineBox[{29, 8}], LineBox[{30, 9}], LineBox[{31, 10}], LineBox[{32, 11}], LineBox[{33, 12}], LineBox[{34, 13}], LineBox[{35, 14}], LineBox[{36, 15}], LineBox[{37, 16}], LineBox[{38, 17}], LineBox[{39, 18}], LineBox[{40, 19}], LineBox[{41, 20}], LineBox[{42, 21}]}}, {{}, {Hue[0.67, 0.6, 0.6], PointSize[Large], PointBox[{43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63}]}, {}}}], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0., 20.}, {0., 0.1251100357211333}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]}], "}"}]], "Output", CellChangeTimes->{3.541307254796875*^9}] }, Open ]], Cell[TextData[{ "La distribuci\[OAcute]n de Binomial(", StyleBox["n", FontSlant->"Italic"], ", ", StyleBox["p", FontSlant->"Italic"], ") se puede aproximar por una Poison(", StyleBox["np", FontSlant->"Italic"], ") si ", StyleBox["n", FontSlant->"Italic"], " es muy grande, ", StyleBox["p", FontSlant->"Italic"], " muy peque\[NTilde]o y ", StyleBox["np", FontSlant->"Italic"], " es moderado... veamos como:" }], "Text", CellChangeTimes->{{3.5090334582929335`*^9, 3.5090335143126316`*^9}, { 3.509034356823312*^9, 3.5090344116262083`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"parametros", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"5", " ", RowBox[{"10", "^", "n"}]}], ",", RowBox[{"1", "/", RowBox[{"10", "^", "n"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"5", " ", RowBox[{"10", "^", "n"}], "*", RowBox[{"1", "/", RowBox[{"10", "^", "n"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "5"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.510634542453125*^9, 3.510634683*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"50", ",", FractionBox["1", "10"]}], "}"}], ",", RowBox[{"{", "5", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"500", ",", FractionBox["1", "100"]}], "}"}], ",", RowBox[{"{", "5", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5000", ",", FractionBox["1", "1000"]}], "}"}], ",", RowBox[{"{", "5", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"50000", ",", FractionBox["1", "10000"]}], "}"}], ",", RowBox[{"{", "5", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"500000", ",", FractionBox["1", "100000"]}], "}"}], ",", RowBox[{"{", "5", "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.54130725490625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"ListPlot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"PDF", "[", RowBox[{ RowBox[{"BinomialDistribution", "[", RowBox[{ RowBox[{"5", " ", RowBox[{"10", "^", "n"}]}], ",", RowBox[{"1", "/", RowBox[{"10", "^", "n"}]}]}], "]"}], ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"PDF", "[", RowBox[{ RowBox[{"PoissonDistribution", "[", "5", "]"}], ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", RowBox[{"Filling", "\[Rule]", "Axis"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"PointSize", "[", "Large", "]"}]}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"n", ",", "1", ",", "5"}], "}"}]}], "\[IndentingNewLine]", "]"}], "//", "TableForm"}]], "Input", CellChangeTimes->{{3.5090348844786386`*^9, 3.5090349330103235`*^9}, { 3.509034989092422*^9, 3.509035048575327*^9}, {3.5090351140798416`*^9, 3.50903517008394*^9}, {3.509035239972063*^9, 3.5090352409392643`*^9}, { 3.5090352714685183`*^9, 3.5090352757897253`*^9}, {3.5090353478462524`*^9, 3.5090354129919667`*^9}, {3.5090354998373194`*^9, 3.50903557434305*^9}, 3.5090356427647705`*^9, {3.509091493919952*^9, 3.5090915074049788`*^9}}], Cell[BoxData[ TagBox[ TagBox[GridBox[{ { GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGCoA2IQDQEf7DXdyv7Ly5TaQwUcihNfr9wVOBfK53B40Cp6 QeDLZihfwOHx+m87GvYchPJFHG5/rvr4QP04lC/hwCHQ+Wf2ahhfxiG69/jy NTsPQ/kKDnolLSXNvbuhfCWHOcGx15tLNkD5Kg77nLN2dggshPLVHEK3XJpd INEP5Ws4RGZM2LdWoRLK13LYtGDvhUuqSVC+jsOyZ9s6Z052h/L1HFLW+rjk b9SG8g0c+oNueQh08UL5hg4J0zXnMO54YwfhGzmE/lB5INt+Eso3dmjPbnv/ 4swSKN/E4c6djsbTyvVQvqlD1Onu4HXFoXaw8CwL5n1gP7MaHp5aIRxvjtsv hIenSSbX8539W+HhGcZ0b+rR74jwfNMU+ntb6TF4eKLyZRyk3hZezN1+CB6e eQcWsT3bswsenq47VI/wb0OE5yLWjzfTJi6ChyeEPwkenvKsdVZuDxvg4dnB cWmbvFIOPDydpOxTJZaEwsOzSTXqX/YrO3h4rjn87J/7HBV4eE4vWfAv8jCn PSw8D8iLb7bxfwcPz+zm7R/XX7sAD88fbt0nJuzcCA9PCH8iPDwZUIEDKpcD jS+AxhdB40ug8WXQ+ApofCU0vgoaXw2Nr4HG10Lj66Dx9dD4Bmh8QzS+ERrf GI1vgsY3ReOPhicqn/LwHC0/R8vPwVh+AgASSIsL "], {{{}, {}, {}, {}, {}, {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{64, 1}], LineBox[{65, 2}], LineBox[{66, 3}], LineBox[{67, 4}], LineBox[{68, 5}], LineBox[{69, 6}], LineBox[{70, 7}], LineBox[{71, 8}], LineBox[{72, 9}], LineBox[{73, 10}], LineBox[{74, 11}], LineBox[{75, 12}], LineBox[{76, 13}], LineBox[{77, 14}], LineBox[{78, 15}], LineBox[{79, 16}], LineBox[{80, 17}], LineBox[{81, 18}], LineBox[{82, 19}], LineBox[{83, 20}], LineBox[{84, 21}]}, {}, {Hue[0.9060679774997897, 0.6, 0.6], Opacity[0.2], LineBox[{43, 22}], LineBox[{44, 23}], LineBox[{45, 24}], LineBox[{46, 25}], LineBox[{47, 26}], LineBox[{48, 27}], LineBox[{49, 28}], LineBox[{50, 29}], LineBox[{51, 30}], LineBox[{52, 31}], LineBox[{53, 32}], LineBox[{54, 33}], LineBox[{55, 34}], LineBox[{56, 35}], LineBox[{57, 36}], LineBox[{58, 37}], LineBox[{59, 38}], LineBox[{60, 39}], LineBox[{61, 40}], LineBox[{62, 41}], LineBox[{63, 42}]}}, {{}, {Hue[0.67, 0.6, 0.6], PointSize[Large], PointBox[{85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105}]}, {Hue[0.9060679774997897, 0.6, 0.6], PointSize[Large], PointBox[{106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126}]}, {}}}], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0., 21.}, {0., 0.18492460089521523`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]}, { GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGCoA2IQDQEf7Ddfmzxn2csqe6iAA2/Ss9dtfxdA+RwOzlXP X17P2ArlCzhMWML/gefzQShfxMHvdLI9a/sxKF/CocZn1snVk2B8GQfhqQwa /ecPQfkKDi8Oz/xVcXEXlK/kILNqWvDUjRugfBWHl7Ghx5bmL4Ly1Rzs5zj7 NnlOgvI1HE5yL5j3tqQBytdyiLy6/Gu+RDaUr+Mgdd3GyKUnBMrXc+A/4zXV /KENlG/gwHkhI8LouRKUb+gw/VaBzWk1dijfyCGkzezr/oWv7CB8Y4eVJzfn Lbp/Bso3cTCUiN0XPGMtlG/q0LLuuxDPoR47WHiWBfM+sJ9ZDQ9PrRCON8ft F8LD0yST6/nOfkR4hjHdm3r0OyI83zSF/t5WighPVL6Mg9Tbwou52xHhmXdg EduzPYjwdN2heoR/GyI8F7F+vJk2ERGeED4iPOVZ66zcHiLCs4Pj0jZ5pRx4 eDpJ2adKLAmFh2eTatS/7Fd28PBcc/jZP/c5KojwLFnwL/IwJzw8D8iLb7bx fwcPz+zm7R/XX7sAD88fbt0nJuzcCA9PCH8iPDwZUIEDKpcDjS+AxhdB40ug 8WXQ+ApofCU0vgoaXw2Nr4HG10Lj66Dx9dD4Bmh8QzS+ERrfGI1vgsY3ReOP hicqn/LwHC0/R8vPwVh+AgC9eYfP "], {{{}, {}, {}, {}, {}, {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{64, 1}], LineBox[{65, 2}], LineBox[{66, 3}], LineBox[{67, 4}], LineBox[{68, 5}], LineBox[{69, 6}], LineBox[{70, 7}], LineBox[{71, 8}], LineBox[{72, 9}], LineBox[{73, 10}], LineBox[{74, 11}], LineBox[{75, 12}], LineBox[{76, 13}], LineBox[{77, 14}], LineBox[{78, 15}], LineBox[{79, 16}], LineBox[{80, 17}], LineBox[{81, 18}], LineBox[{82, 19}], LineBox[{83, 20}], LineBox[{84, 21}]}, {}, {Hue[0.9060679774997897, 0.6, 0.6], Opacity[0.2], LineBox[{43, 22}], LineBox[{44, 23}], LineBox[{45, 24}], LineBox[{46, 25}], LineBox[{47, 26}], LineBox[{48, 27}], LineBox[{49, 28}], LineBox[{50, 29}], LineBox[{51, 30}], LineBox[{52, 31}], LineBox[{53, 32}], LineBox[{54, 33}], LineBox[{55, 34}], LineBox[{56, 35}], LineBox[{57, 36}], LineBox[{58, 37}], LineBox[{59, 38}], LineBox[{60, 39}], LineBox[{61, 40}], LineBox[{62, 41}], LineBox[{63, 42}]}}, {{}, {Hue[0.67, 0.6, 0.6], PointSize[Large], PointBox[{85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105}]}, {Hue[0.9060679774997897, 0.6, 0.6], PointSize[Large], PointBox[{106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126}]}, {}}}], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0., 21.}, {0., 0.17635104507334975`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]}, { GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGCoA2IQDQEf7PX8vh+Y0V5tDxVwkCyTN9ewXAjlczi0LFut cqd7K5Qv4DBP/2ar//eDUL6Iw92XiVsKyo9B+RIOCz7JVU6vgPFlHAxOzey/ vPMQlK/g4BX16cLnfbugfCWHDcuv7F24dQOUr+KQ2hJ3SbBvEZSv5rBOeyGH S9ckKF/DIaTO5XT5tQYoX8vhVpPdpWr2HChfxyHxjKPcvfZQKF/PoYRPzaNm qx2Ub+Dw46g+X0++CpRv6JCoKdAeXscJ5Rs5TH98hFnl7Vs7CN/YwXK/0NVv Uy9A+SYOL6z8jp/N3AjlmzqsmvrC0j92oh0sPMuCeR/Yz0SEp1YIx5vj9ojw NMnker6zHxGeYUz3ph5FCs83TaG/t5UiwhOVL+Mg9bbwYu52RHjmHVjE9mwP Ijxdd6ge4d+GCM9FrB9vpk1EhCeEjwhPedY6K7eHiPDs4Li0TV4JEZ5OUvap EksQ4dmkGvUv+xUiPNccfvbPfQ4iPKeXLPgXeRgRngfkxTfb+L+Dh2d28/aP 668hwvOHW/eJCTsR4QnhI8KTARU4oHI50PgCaHwRNL4EGl8Gja+AxldC46ug 8dXQ+BpofC00vg4aXw+Nb4DGN0TjG6HxjdH4Jmh8UzT+aHii8ikPz9Hyc7T8 HIzlJwByK4S3 "], {{{}, {}, {}, {}, {}, {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{64, 1}], LineBox[{65, 2}], LineBox[{66, 3}], LineBox[{67, 4}], LineBox[{68, 5}], LineBox[{69, 6}], LineBox[{70, 7}], LineBox[{71, 8}], LineBox[{72, 9}], LineBox[{73, 10}], LineBox[{74, 11}], LineBox[{75, 12}], LineBox[{76, 13}], LineBox[{77, 14}], LineBox[{78, 15}], LineBox[{79, 16}], LineBox[{80, 17}], LineBox[{81, 18}], LineBox[{82, 19}], LineBox[{83, 20}], LineBox[{84, 21}]}, {}, {Hue[0.9060679774997897, 0.6, 0.6], Opacity[0.2], LineBox[{43, 22}], LineBox[{44, 23}], LineBox[{45, 24}], LineBox[{46, 25}], LineBox[{47, 26}], LineBox[{48, 27}], LineBox[{49, 28}], LineBox[{50, 29}], LineBox[{51, 30}], LineBox[{52, 31}], LineBox[{53, 32}], LineBox[{54, 33}], LineBox[{55, 34}], LineBox[{56, 35}], LineBox[{57, 36}], LineBox[{58, 37}], LineBox[{59, 38}], LineBox[{60, 39}], LineBox[{61, 40}], LineBox[{62, 41}], LineBox[{63, 42}]}}, {{}, {Hue[0.67, 0.6, 0.6], PointSize[Large], PointBox[{85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105}]}, {Hue[0.9060679774997897, 0.6, 0.6], PointSize[Large], PointBox[{106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126}]}, {}}}], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0., 21.}, {0., 0.17555516637903157`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]}, { GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGCoA2IQDQEf7K9vPbizenq1PVTA4c89lmg5+4VQPofD203T fof1b4XyBRyWpk86t/P7QShfxGHFRCmVx6XHoHwJh+DOyKkMZTC+jEPBJ3n1 1dsPQfkKDsY/mmdI7d0F5Ss55K3XO8+ybQOUr+Lw+XDdCsGJi6B8NYe4CdZ+ GyZMgvI1HB6YLVph+KABytdySDuQ2VMqnwPl6zi8CDVXc10YCuXrObh46+6T e2oH5Rs4vJZL1D4zXQXKN3Tg6ig5kbuHE8o3cjBIua6R7PrODsI3duC9sqdH 78IFKN/EgXlqgErXxo1QvqnD9bppea4bJtrBwrMsmPeB/UxEeGqFcLw5jhSe Jplcz3cihWcY072pR5HC801T6O9tSOGJypdxkHpbeDEXKTzzDixie7YHEZ6u O1SP8COF5yLWjzfTkMITwkeEpzxrnZXbQ0R4dnBc2iavhAhPJyn7VIkliPBs Uo36l/0KEZ5rDj/75z4HEZ7TSxb8izyMCM8D8uKbbfwR4ZndvP3j+muI8Pzh 1n1iwk5EeEL4iPBkQAUOqFwONL4AGl8EjS+BxpdB4yug8ZXQ+CpofDU0vgYa XwuNr4PG10PjG6DxDdH4Rmh8YzS+CRrfFI0/Gp6ofMrDc7T8HC0/B2P5CQCz 6YGD "], {{{}, {}, {}, {}, {}, {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{64, 1}], LineBox[{65, 2}], LineBox[{66, 3}], LineBox[{67, 4}], LineBox[{68, 5}], LineBox[{69, 6}], LineBox[{70, 7}], LineBox[{71, 8}], LineBox[{72, 9}], LineBox[{73, 10}], LineBox[{74, 11}], LineBox[{75, 12}], LineBox[{76, 13}], LineBox[{77, 14}], LineBox[{78, 15}], LineBox[{79, 16}], LineBox[{80, 17}], LineBox[{81, 18}], LineBox[{82, 19}], LineBox[{83, 20}], LineBox[{84, 21}]}, {}, {Hue[0.9060679774997897, 0.6, 0.6], Opacity[0.2], LineBox[{43, 22}], LineBox[{44, 23}], LineBox[{45, 24}], LineBox[{46, 25}], LineBox[{47, 26}], LineBox[{48, 27}], LineBox[{49, 28}], LineBox[{50, 29}], LineBox[{51, 30}], LineBox[{52, 31}], LineBox[{53, 32}], LineBox[{54, 33}], LineBox[{55, 34}], LineBox[{56, 35}], LineBox[{57, 36}], LineBox[{58, 37}], LineBox[{59, 38}], LineBox[{60, 39}], LineBox[{61, 40}], LineBox[{62, 41}], LineBox[{63, 42}]}}, {{}, {Hue[0.67, 0.6, 0.6], PointSize[Large], PointBox[{85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105}]}, {Hue[0.9060679774997897, 0.6, 0.6], PointSize[Large], PointBox[{106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126}]}, {}}}], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0., 21.}, {0., 0.1754761437651476}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]}, { GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGCoA2IQDQEf7N/qZa0QmlltDxVw+Byt8n2b/UIon8NB5tY1 pg39W6F8AYe78zMyjnw/COWLONSIHE/dXXoMypdwiGfICt8H58s4BDA0fy7e fgjKV3BgL0rzeL1nF5Sv5JBYeGQ137YNUL6KwyUJ99C4iYugfDWHN6lyM0Mm ToLyNRzaLtVN0nrYAOVrOSQJvKu7rZgD5es4VL7tF7iwOBTK13MIvJlp/+Sl HZRv4FCrcl7/6mwVKN/QoUn9wPYVhzihfCOHX7+DCx383tlB+MYON4/cDOS8 dgHKN3G46sZgeHjHRijf1IFf+c3qRTsm2sHCsyyY94E9UnhqhXC8OY4UniaZ XM93IoVnGNO9qUeRwvNNU+jvbUjhicqXcZB6W3gxFyk88w4sYnuGFJ6uO1SP 8COF5yLWjzfTkMITwkeEpzxrnZUbUnh2cFzaJq+ECE8nKftUiSWI8GxSjfqX /QoRnmsOP/vnPgcRntNLFvyLPIwIzwPy4ptt/BHhmd28/eN6pPD84dZ9YsJO RHhC+IjwZEAFDqhcDjS+ABpfBI0vgcaXQeMroPGV0PgqaHw1NL4GGl8Lja+D xtdD4xug8Q3R+EZofGM0vgka3xSNPxqeqHzKw3O0/BwtPwdj+QkAUJ6GRQ== "], {{{}, {}, {}, {}, {}, {Hue[0.67, 0.6, 0.6], Opacity[0.2], LineBox[{64, 1}], LineBox[{65, 2}], LineBox[{66, 3}], LineBox[{67, 4}], LineBox[{68, 5}], LineBox[{69, 6}], LineBox[{70, 7}], LineBox[{71, 8}], LineBox[{72, 9}], LineBox[{73, 10}], LineBox[{74, 11}], LineBox[{75, 12}], LineBox[{76, 13}], LineBox[{77, 14}], LineBox[{78, 15}], LineBox[{79, 16}], LineBox[{80, 17}], LineBox[{81, 18}], LineBox[{82, 19}], LineBox[{83, 20}], LineBox[{84, 21}]}, {}, {Hue[0.9060679774997897, 0.6, 0.6], Opacity[0.2], LineBox[{43, 22}], LineBox[{44, 23}], LineBox[{45, 24}], LineBox[{46, 25}], LineBox[{47, 26}], LineBox[{48, 27}], LineBox[{49, 28}], LineBox[{50, 29}], LineBox[{51, 30}], LineBox[{52, 31}], LineBox[{53, 32}], LineBox[{54, 33}], LineBox[{55, 34}], LineBox[{56, 35}], LineBox[{57, 36}], LineBox[{58, 37}], LineBox[{59, 38}], LineBox[{60, 39}], LineBox[{61, 40}], LineBox[{62, 41}], LineBox[{63, 42}]}}, {{}, {Hue[0.67, 0.6, 0.6], PointSize[Large], PointBox[{85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105}]}, {Hue[0.9060679774997897, 0.6, 0.6], PointSize[Large], PointBox[{106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126}]}, {}}}], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0., 21.}, {0., 0.17546824711098716`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]} }, 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.541307265375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{"problema", " ", "2"}], FontSize->36]], "Input", CellChangeTimes->{{3.5395025730700235`*^9, 3.5395025767731485`*^9}}], Cell[BoxData[ RowBox[{"2", " ", "problema"}]], "Output", CellChangeTimes->{3.541307265453125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", Cell["\<\ Definimos nuestra variable aleatoria binomial, como hay 500 componentes que \ fallas con probabilidad 0.1... La probabilidad de que un componente electr\[OAcute]nico falle a lo largo de \ un mes es 0.1. Si hay 500 componentes en funcionamiento, calcular la \ probabilidad de que en un mes: a.-fallen como mucho 50 componentes, b.-fallen entre 30 y 60, c.-fallen m\[AAcute]s de 65.\ \>", "Text", CellChangeTimes->{{3.509695338239297*^9, 3.509695347275013*^9}, 3.5096953816013002`*^9, {3.509697026955991*^9, 3.50969702737003*^9}, { 3.510634863015625*^9, 3.510634964765625*^9}}, FontSize->14]}]], "Input", CellChangeTimes->{{3.539512094328125*^9, 3.539512095453125*^9}}], Cell[BoxData[ InterpretationBox[Cell["\<\ Definimos nuestra variable aleatoria binomial, como hay 500 componentes que \ fallas con probabilidad 0.1... La probabilidad de que un componente electr\[OAcute]nico falle a lo largo de \ un mes es 0.1. Si hay 500 componentes en funcionamiento, calcular la \ probabilidad de que en un mes: a.-fallen como mucho 50 componentes, b.-fallen entre 30 y 60, c.-fallen m\[AAcute]s de 65.\ \>", "Text", CellChangeTimes->{{3.509695338239297*^9, 3.509695347275013*^9}, 3.5096953816013002`*^9, {3.509697026955991*^9, 3.50969702737003*^9}, { 3.510634863015625*^9, 3.510634964765625*^9}}, FontSize->14], TextCell[ "Definimos nuestra variable aleatoria binomial, como hay 500 componentes \ que fallas con probabilidad 0.1...\nLa probabilidad de que un componente \ electr\[OAcute]nico falle a lo largo de un mes es 0.1. Si hay 500 componentes \ en funcionamiento, calcular la probabilidad de que en un mes:\na.-fallen como \ mucho 50 componentes,\nb.-fallen entre 30 y 60,\nc.-fallen m\[AAcute]s de \ 65.", "Text", CellChangeTimes -> {{3.509695338239297*^9, 3.509695347275013*^9}, 3.5096953816013002`*^9, {3.509697026955991*^9, 3.50969702737003*^9}, { 3.510634863015625*^9, 3.510634964765625*^9}}, FontSize -> 14]]], "Output", CellChangeTimes->{3.541307265484375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", Cell[ "En primer lugar usaremos la Binomial: ", "Subsubsection", CellChangeTimes->{{3.509695152095353*^9, 3.509695181528103*^9}, 3.5096970251217422`*^9}, FontSize->14]}]], "Input", CellChangeTimes->{{3.5395026448668985`*^9, 3.5395026515231485`*^9}}], Cell[BoxData[ InterpretationBox[Cell[ "En primer lugar usaremos la Binomial: ", "Subsubsection", CellChangeTimes->{{3.509695152095353*^9, 3.509695181528103*^9}, 3.5096970251217422`*^9}, FontSize->14], TextCell[ "En primer lugar usaremos la Binomial: ", "Subsubsection", CellChangeTimes -> {{3.509695152095353*^9, 3.509695181528103*^9}, 3.5096970251217422`*^9}, FontSize -> 14]]], "Output", CellChangeTimes->{3.54130726553125*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"X", "=", RowBox[{"BinomialDistribution", "[", RowBox[{"500", ",", "0.1"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.509695182897181*^9, 3.509695246540593*^9}, { 3.5096953509300013`*^9, 3.509695351409066*^9}}], Cell[TextData[{ "La probabilidad de que fallen 50 como mucho: \[DownQuestion]", Cell[BoxData[ FormBox[ RowBox[{"P", "(", RowBox[{"X", "\[LessEqual]", "50"}], ")"}], TraditionalForm]]], "?" }], "Item", CellChangeTimes->{{3.5096953851643553`*^9, 3.509695394060217*^9}, { 3.509695450206068*^9, 3.509695455550405*^9}, {3.50969562195819*^9, 3.509695675593134*^9}}, FontSize->14], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"CDF", "[", RowBox[{"X", ",", "50"}], "]"}]}]], "Input", CellChangeTimes->{{3.5395026671481485`*^9, 3.5395026684293985`*^9}}], Cell[BoxData["0.537568807543059`"], "Output", CellChangeTimes->{3.541307265578125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "La probabilidad de que fallen entre 30 y 60 : \[DownQuestion]", Cell[BoxData[ FormBox[ RowBox[{"P", "(", RowBox[{"30", "\[LessEqual]", "X", "\[LessEqual]", "60"}], ")"}], TraditionalForm]]], "?" }], "Item", CellChangeTimes->{{3.509695713035005*^9, 3.509695792274581*^9}, { 3.53951213578125*^9, 3.539512135796875*^9}, {3.53951220128125*^9, 3.53951223253125*^9}, {3.539578209578125*^9, 3.5395782116875*^9}}, FontSize->14], Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"P", "(", RowBox[{"30", "\[LessEqual]", "X", "\[LessEqual]", "60"}], ")"}], "=", RowBox[{ RowBox[{ RowBox[{"P", "(", RowBox[{"X", "\[LessEqual]", "60"}], ")"}], "-", RowBox[{"P", "(", RowBox[{"X", "<", "30"}], ")"}]}], "=", RowBox[{ RowBox[{"P", "(", RowBox[{"X", "\[LessEqual]", "60"}], ")"}], "-", RowBox[{"P", "(", RowBox[{"X", "\[LessEqual]", "29"}], ")"}]}]}]}], TraditionalForm]]]], "Item", CellChangeTimes->{{3.509695713035005*^9, 3.509695792274581*^9}, { 3.53951213578125*^9, 3.53951214015625*^9}, {3.539512237453125*^9, 3.539512242859375*^9}}, FontSize->14] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{"CDF", "[", RowBox[{"X", ",", "60"}], "]"}], "-", RowBox[{"CDF", "[", RowBox[{"X", ",", "29"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.5395026871012735`*^9, 3.5395026881012735`*^9}}], Cell[BoxData["0.9376227122698747`"], "Output", CellChangeTimes->{3.541307265625*^9}] }, Open ]], Cell[BoxData[ RowBox[{"\t", RowBox[{ RowBox[{ "La", " ", "probabilidad", " ", "de", " ", "que", " ", "fallen", " ", "m\[AAcute]s", " ", "de", " ", "65", "\[DownQuestion]", RowBox[{ FormBox[ RowBox[{"P", "(", RowBox[{"X", ">", "65"}], ")"}], TraditionalForm], "?"}]}], ":"}]}]], "Input", CellChangeTimes->{{3.539512266421875*^9, 3.5395123030625*^9}, 3.539579423609375*^9, 3.539579456046875*^9, {3.5395795338125*^9, 3.539579538328125*^9}}, EmphasizeSyntaxErrors->True], Cell[TextData[{ " ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"P", "(", RowBox[{"X", ">", "65"}], ")"}], "=", RowBox[{"1", "-", RowBox[{"P", "(", RowBox[{"X", "\[LessEqual]", "65"}], ")"}]}]}], TraditionalForm]]] }], "Item", CellChangeTimes->{{3.509695806557659*^9, 3.5096958345467978`*^9}, { 3.5096959880001307`*^9, 3.5096960164434853`*^9}, 3.539579415671875*^9}, FontSize->14], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"1", " ", "-", " ", RowBox[{"CDF", "[", RowBox[{"X", ",", " ", "65"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.5395027039293985`*^9, 3.5395027050231485`*^9}}], Cell[BoxData["0.012694293036013105`"], "Output", CellChangeTimes->{3.541307265671875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", Cell["Ahora usamos la normal", "Subsubsection", CellChangeTimes->{{3.509697040203865*^9, 3.509697045464024*^9}}, FontSize->14]}]], "Input", CellChangeTimes->{{3.5395027197106485`*^9, 3.5395027208043985`*^9}}], Cell[BoxData[ InterpretationBox[Cell["Ahora usamos la normal", "Subsubsection", CellChangeTimes->{{3.509697040203865*^9, 3.509697045464024*^9}}, FontSize->14], TextCell[ "Ahora usamos la normal", "Subsubsection", CellChangeTimes -> {{3.509697040203865*^9, 3.509697045464024*^9}}, FontSize -> 14]]], "Output", CellChangeTimes->{3.541307265703125*^9}] }, Open ]], Cell["\<\ Como sabemos, la Binomial se puede aproximar por una distribuci\[OAcute]n \ Normal. En este caso\ \>", "Text", CellChangeTimes->{{3.509697048904317*^9, 3.509697071481326*^9}, { 3.509697164705286*^9, 3.509697193500763*^9}}, FontSize->14], Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"Binomial", "(", RowBox[{"n", ",", "p"}], ")"}], "=", RowBox[{"N", "(", RowBox[{ RowBox[{"n", " ", "p"}], ",", SqrtBox[ RowBox[{"n", " ", "p", " ", RowBox[{"(", RowBox[{"1", "-", "p"}], ")"}]}]]}], ")"}]}], TraditionalForm]], TextAlignment->Center]], "Text", CellChangeTimes->{{3.509695713035005*^9, 3.509695792274581*^9}, { 3.509697117807798*^9, 3.509697168223783*^9}, 3.509697201300899*^9}, TextAlignment->Center, FontSize->14], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"Y", "=", RowBox[{"NormalDistribution", "[", RowBox[{ RowBox[{"Mean", "[", "X", "]"}], ",", RowBox[{"StandardDeviation", "[", "X", "]"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.5395027354606485`*^9, 3.5395027365075235`*^9}}], Cell[BoxData[ RowBox[{"NormalDistribution", "[", RowBox[{"50.`", ",", "6.708203932499369`"}], "]"}]], "Output", CellChangeTimes->{3.509699618645196*^9, 3.510631256578125*^9, 3.54130726575*^9}] }, Open ]], Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"P", "(", RowBox[{"X", "\[LessEqual]", "50"}], ")"}], "\[TildeTilde]", RowBox[{"P", "(", RowBox[{"Y", "\[LessEqual]", "50.5"}], ")"}]}], TraditionalForm]], TextAlignment->Center]], "Item", CellChangeTimes->{{3.5096978187760487`*^9, 3.5096978734123697`*^9}}, FontSize->14], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CDF", "[", RowBox[{"Y", ",", "50.5"}], "]"}]], "Input", CellChangeTimes->{{3.509697879528041*^9, 3.509697887906295*^9}}, TextAlignment->-0.5], Cell[BoxData["0.5297078920851258`"], "Output", CellChangeTimes->{3.541307265796875*^9}] }, Open ]], Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"P", "(", RowBox[{"30", "\[LessEqual]", "X", "\[LessEqual]", "60"}], ")"}], "\[TildeTilde]", RowBox[{"P", "(", RowBox[{"29.5", "\[LessEqual]", "Y", "\[LessEqual]", "60.5"}], ")"}]}], "=", RowBox[{ RowBox[{"P", "(", RowBox[{"Y", "\[LessEqual]", "60.5"}], ")"}], "-", RowBox[{"P", "(", RowBox[{"Y", "\[LessEqual]", "29.5"}], ")"}]}]}], TraditionalForm]], TextAlignment->Center]], "Item", CellChangeTimes->{{3.5096978187760487`*^9, 3.5096978734123697`*^9}, { 3.509697970236467*^9, 3.509698005747403*^9}}, FontSize->14], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"CDF", "[", RowBox[{"Y", ",", "60.5"}], "]"}], "-", RowBox[{"CDF", "[", RowBox[{"Y", ",", "29.5"}], "]"}]}]], "Input", CellChangeTimes->{{3.509697879528041*^9, 3.509697887906295*^9}, { 3.5096980121037397`*^9, 3.509698022392926*^9}}, TextAlignment->-0.5], Cell[BoxData["0.9401158584270422`"], "Output", CellChangeTimes->{3.54130726584375*^9}] }, Open ]], Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"P", "(", RowBox[{"X", ">", "65"}], ")"}], "\[TildeTilde]", RowBox[{"P", "(", RowBox[{"Y", ">", "65.5"}], ")"}]}], "=", RowBox[{"1", "-", RowBox[{"P", "(", RowBox[{"Y", "\[LessEqual]", "65.5"}], ")"}]}]}], TraditionalForm]], TextAlignment->Center]], "Item", CellChangeTimes->{{3.5096978187760487`*^9, 3.5096978734123697`*^9}, { 3.5096980645521317`*^9, 3.5096981208312387`*^9}, {3.5096981583772984`*^9, 3.509698160868965*^9}}, FontSize->14], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"1", "-", RowBox[{"CDF", "[", RowBox[{"Y", ",", "65.5"}], "]"}]}]], "Input", CellChangeTimes->{{3.509697879528041*^9, 3.509697887906295*^9}, { 3.509698166253352*^9, 3.509698169916793*^9}}, TextAlignment->-0.5], Cell[BoxData["0.010427380754857385`"], "Output", CellChangeTimes->{3.54130726590625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", Cell[ "Visualizar la aproximaci\[OAcute]n", "Subsubsection", CellChangeTimes->{{3.509698768522193*^9, 3.509698783023766*^9}}, FontSize->14]}]], "Input", CellChangeTimes->{{3.5395027695231485`*^9, 3.5395027706168985`*^9}}], Cell[BoxData[ InterpretationBox[Cell["Visualizar la aproximaci\[OAcute]n", "Subsubsection", CellChangeTimes->{{3.509698768522193*^9, 3.509698783023766*^9}}, FontSize->14], TextCell[ "Visualizar la aproximaci\[OAcute]n", "Subsubsection", CellChangeTimes -> {{3.509698768522193*^9, 3.509698783023766*^9}}, FontSize -> 14]]], "Output", CellChangeTimes->{3.5413072659375*^9}] }, Open ]], Cell["\<\ Podemos visualizar la aproximaci\[OAcute]n dibujando la funci\[OAcute]n de \ probabilidada de la Binomial (con BarChart) y la funci\[OAcute]n de densidad \ de la Normal (Plot). Mostraremos solo los valores de 0 a 100, ya que si \ presentamos todos los posibles valores (hasta 500) no se ve nada\ \>", "Text", CellChangeTimes->{{3.5096988430422707`*^9, 3.5096988832832813`*^9}, { 3.509699970333626*^9, 3.509700004378324*^9}, 3.539584001*^9}, FontSize->14], Cell[BoxData[ RowBox[{ RowBox[{"a", "=", RowBox[{"ListPlot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"k", ",", RowBox[{"PDF", "[", RowBox[{"X", ",", "k"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "100"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Filling", "\[Rule]", "Axis"}], ",", "\[IndentingNewLine]", RowBox[{"FillingStyle", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"Orange", ",", RowBox[{"Opacity", "[", ".75", "]"}]}], "}"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"Orange", ",", RowBox[{"PointSize", "[", "Medium", "]"}]}], "}"}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.509698790947898*^9, 3.5096988328487377`*^9}, { 3.50969889423074*^9, 3.509698918137226*^9}, {3.509698964031727*^9, 3.5096989643154182`*^9}, {3.509699059833555*^9, 3.509699079933962*^9}, { 3.509699118035583*^9, 3.509699159682879*^9}, {3.509699219034349*^9, 3.509699223317297*^9}, {3.509699306252758*^9, 3.509699323144475*^9}, { 3.509699419280929*^9, 3.5096994484758587`*^9}, {3.5096995596021233`*^9, 3.509699594479158*^9}, {3.5096996298914413`*^9, 3.509699651022832*^9}, { 3.509699730630068*^9, 3.509699847333412*^9}, {3.509699881539947*^9, 3.509699934771991*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"b", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"PDF", "[", RowBox[{"Y", ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "100"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5096998746419563`*^9, 3.5096998788454638`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"b", ",", "a"}], "]"}]], "Input", CellChangeTimes->{{3.509699773288962*^9, 3.509699776617156*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {}, {Hue[0.67, 0.6, 0.6], Thickness[Large], LineBox[CompressedData[" 1:eJwUl3c8V98fxyWkqGwSsrKzV7jnvO2PzWdIRSLZsvfIKpKWFMmqZFMyikpI qK9EESmikMgMIdXP76/7eD3uOe/xet73ufeKOPuST9LT0dE9ZaCj+/9V9NKf O7lCzUho9tL660k54iGz9D4f9zzMKcyebfj9ANEcVlkg5X4Pb4lh4QxZlCfa FP3dmNyf4Tt1lz/wXFYkorj/PfqX/xy/sdhzsVhUibieZog2LrRj9e6YLSoN SkRH6lvSstsbvDjq/t+nVWViPpH1W1hpDz7vzbZIzVchop/fk/6V/w6ff1h4 MdRClbgOK5U/L/TjM0UPBWLq1YiXWgn1P9w+43D46685rEmU6XDGqN0bwWSv 0o1bjw4SCx9d8oJKR7Fq8SuHk1laRAw/85fF/K+43fX6+M8gHaK1/vBW5ewx 3CFxC+ueIogdh8vE/TPGcVH/o18/fBGRkWHpNnfhG/5l97n7qREQw+r5yfLn JrGT7R3FtV4gxN8vlPgkfsdmDGl5v9x0iftc135MR0zjFoeA8eFsPeLVlY/+ k25zOGJ/xtvtxoZEcub1l1eV5vF556QdzHRGhJw7PqJybx7rHWGLUnhmRARs uxIZULqATwp6x7y0JhHc/QdZOaQWcd3UifkiMRPiUeGX7Kq7i/is0EBY0h8T 4q+hauN8/k+cFRm+odpuRtziHrK8LLSEed4s6EY/NCcMxs98VshewsY+odaP 71kQ5xP76XwzlrGO7wcbsXorgu95hP7MhV+Y5jsw8WAvmXicJtabyrKKtyvM vEh+SCaOOXe6yJ1bxQ0Ca1pxdhSiYIvQWa/ENTwRNvQlsZRKGPe08bDQr+N9 Hp4rk0dpxFS+b1Hp6XX8XaopRITTllCC5o7vEb+x4+PHVj1XDxG9uz0Pn1v9 jaffP9GvcLAjwj5zTEmFbGCvVupPCfnDRGOMC4u7/x9se4P/WtfXI4Tp022W E27/8GOjhDrL4mOE0j/nZZ75f/hRP3Jse+5IpAo7donp0IE409C2O0HHiSDn hmBq66b+OCT8pcSJcN/q/tKbeQsIpDd+bjR3JuwLuAXPmG+BGxOXHx1ZdiYM Jvxaa3u3gMrX+fRsOxdCM0mIr4uPHrb0Pnao4DxJyEl1ek3Y00O/vcEkue8k wekpyck7Tg8j705JGPm4EV9mhpzClrdC7icq+c6KJ/H+4vnaywcZoE2yJF5s xot4pXBwe0k0A9RU5hfq/fAmHvin3//AyAh9iiyGFxl9iUIOPYZFE0Z4HrD3 vhybH5FVPXdox0VGQNPXfWJv+xFxy6b/tHiYIDHIlC3/vT8RdH2VTDnCBBxd 2c5tYQGEu0ZhoVcuE7xoOth/STiQsA7fYpktsQ0qhpi2vo0LIoT/PMz+o84M LFnH0wYvhxJcuSfnuSOZIVGqJen9yTCCGXMayD9jhmNlY0/k9cKJudhT08eM t8PHu3nZS+yRxBcRARx6fjvMfn+6+I0xinjf8jLt0pvtwE+uo9enjyYaGfZr NR3aAav3B89RuU8TD+6+vTBwcwfc3FOeZsMTSxQaxY7Of94Bey0jllsLY4mL yR+TRdxZQEPxuXbd+zjCgTWtPz6MFTz58gqzQxMJ6wose/MJK0z86i0Olj9D GFjOxFTT7QS6irqR1OkzhNxlksRY8k64cy9uxjw8iRBWWgnf6NwJrhF5BSdN kwmut3dec7HvgvZ1p4Bs0XPEBue/IMMbu2BYWuS23fcUYr6mvMNhaBeYfz+3 32HgPDFGOyIQIrIb/IvLRGPepBL/ZdQ+LyzZDQUXdrLL9l8kXu9U387gwAaH kjo2xEqvEG/NODK7otggSJbVJkc7jRg4NytxI5sNzkoa6Jb2pBFjjEUG8p/Y 4G6yxhY21nRiSj/h3epvNvDizWKruZ9OzMc5Oj/fyw7ynalm8UeuERt/eGPt jrLDXkpqEDReJ+h1lnaJRbKDZ6jP9jNhGQRzRHfOTBY73DNtks7RzCQ4V5If xw+yA3df7rV/r24QMrNrK+WHOaAgGX59JnIIRbn3Z0LDOYDr74NPO+RyCXXP B1x6Nzjgp5rklxyRPEJvwlO5f4ADGs8q7Fm8kk+QxI2bb61ywM2jt4aT+G4R ls5i1t58nHAld5zO9M4t4vDwR58tdpywr/pobt+L28QxgUcb/4VywrRJ/J0v DncIlyPp569ncAK3wSXJO+t3CL/35iWy/ZzQb8G+3K13l0juejpGs+UC1m8J PIIcxcRF1qxA4RAu6Fp+fnrjXTGRbhpCP32NC9Llu0J7bpYQeW3ywrF9XNB/ V9eBC5URBQws90yXucCUS/3NKF85Uar3jeDm5obhmHs/TqyXE3WNeUdLqdyg /R8xRn1bSTzZiJwKCuKGhed+o/Iv7xEtWnbhOJ0b2j+L/Xx54j7RVceW0fuO G/Td+7x++lQR45Vxb/+SeWAt7ObV6ppqYuqHg9PLAB5gkq2/cdumhpiX0Zq/ msYD6m+Ut9j+rCE2Chd3Sr/lgVkiKeWmYR1BP96V/XOBB6rmVfaEr9QRzGJl so3svBAWv75QVf6Q4Mo7YUKx4QXXGIZrA9L1BP8QHhD05wVK1PIA/0I9IbxX wG3yMi9wnZLycmpsIGQzehOju3khSvUjxwOvJ4TeJcOmIis+eN2hIE5jaSJi TWtK3p7iA7UkrZ3iSU1EI6PY1T8X+MByOf94BlMzoRVF50rp5INDtF3f37O1 ECoej1n+kfaA9vBGex+tlQgQl1mWdt8DxyqVnT4vtBL3P2cOU5P2QLeol0J4 2gtCzjakqvTFHrjrlOnzdbSNENdXOmSrxw9f035G+T99STj/zYM4J37Qcdap 7Yt7ReTX75Ipj+WHtt+RSXNm/xECij82tjzjh1/3g65PLXQS3IJFtyu094Kf BzB/M+gmqAPcqQNH9sK7haN3KE3dRNrVxOCtEXtBR7DKxgb3ELt2OJMOP9oL /8VlUd1IbwmmXwKzDGoCoH+hHq+f6yUMHpzvV6AKwPE9DELfxPuIeJ/1piOB AuAYXqBh3NpH/P3af/V+lQBY9GRRR9n6iV/daQft5QVBa6nJWXH8A6GeukUs yUIQVOV60lyKBokgYz/WB96CYHdDWFnc9yMx/9Ti87YyQXha+yRsbPcQMVnK fKZaUgh8jicUxFiMEBKuoaeGjYRg38rdbTvbRwgXkYlD212FIFB8IXSXwSgx kvFcxrFACPZ8vH+zk/SF+JAY071DZB88Ew6T3hE7RvDBTL0a7AP11YphOr5x wvb30TvHHfcBV1veC6gZJ976Hwypy9m8X9urz70+QZxUWN+ptFMYViOCyi82 fifMPybd5RMShojh77M3UqcI1SRugk5BGF41h76aOj5NMHxW9H5jLQxdQ93X BQRniB8pjVsfOgkD39+dOccZZ4l36uY3cwOE4c/Pnoj7S7PE7Ytur3zSheF1 5sxcQdA8kaK17ES7KwynYrUl437NE/4T8Ws6dcLwySRahxyzQADKlWId2IyX KPbGNHOR+DzTe7Z0rwi0ehh8Y92yTLTdcBZKkxOBEY4LnVuKlolKw/nacEIE bkT9iFu0WSFicljGSY4i8Dl9p7zDw1+Eq8mNKEU/EVis9KkRD1glLJYluPji RCDfaUkzQXmNELDQ0/92e3N/4kBJees6wbD2ZrCrWgRky/qh6/pvYrrAIaCu VQSihu5pq/puEA0bYbfOTIhAsJKqS7LKX+Jw+b1/YjKiwBY90/Rp2xYEdkQG i7YocAxX9lSmbkFSDP/J/zQTBb0Tn5n8uOnR6tEJhxYfUfjJU+ahqrIVXWcR fHK8ShTEpkYFxO4wopiHpRRSiyiIX7i4s92UCZ08oTmt8E4UtrxpPnb4FxNS fUzh/7ckCkfO7BAddGRG7zxTwnI0xWA15uTBqAAW1MDDx3bGRAzmF9zKnxiy otstd4u8j4iBiaDcW6l9O1EAf/N77SgxUMo8YaE5vguxvfqlOvhMDOqWuyOq ndjRavCZzuZuMUAHO2YyJtjRZxFOl5JRMejjv7r/kC8HqgyXvxq2VRzep3w9 15fKiSykTy7wGIvD1uXKHzt+c6P188GPh2zFwW7DLeredR5UPHvmTIGrOFzv OrMjXp0XMdQU7lE+Kw73pfOFRBL4UAOa1LV4IQ60oz0Cpyl7kfutVRauPnEo TFVdbOMUQNwM298PjonDYy+RzwofBJDfS2lPd4b90PdWPHAmUAhJUL3SEvT3 w/r5htS4FWHUWxdpb0rZD5VRL3oEfERQ3J5UCfYT+0Fw5mfBpwkR9Gm4vCE3 fj+MT1J+CYyJoqses1/qm/dDu0HKFXrm/Qg6/5bH9uwHOXN2aZGs/WhWfneo 8eh+iOdoMeBTlECmSwosfXQSEBSr9XnJTRLRnfZXmccSkHz49iPzHTKocjTu T52VBCwb3gtga5RBRw3S2qMdJWDg22u5pBBZVLe9+ijLaQlQTatb3LYih7zT lxIkGiXAMjmzynuPIuL/xWA581oCjCbT3T4kKaL2w9x8NUMSUHjWnEV8TRGJ 7lMv1/0jAfFaRxRyxpTQh5LQXnsdSVgynZlEoyroLGtyrpi5JJjiZe5H7qpI 1TfTfeqoJCQGnIm691MVXVat3wiNlAQuQVpqAJc6Mnq2Ln61QRJId10cPiZo oiURlrnDryTBgv2pb6/0QXQrcW+98KAkJKkdDtvZexBtmOhYVK5JAr/Xt6wy NW30oDc6+KWmFJw+r7DlgSJCxWdcnL+YSIGRhPGv36wY5aqbWf0+IgXtoBhw eA6jlEw+6QPRUtDYqtke8RXQCfvqT5ebpeBriXo2+qqHjuzMelnyVgpSFg2u cnrrI+vG2LqWr1JQZ/zZuWhVH+kIW15eYpSGvcY7XPwFDRHX2KS+nak0OCdw Z0dlGqMd194o+h+VhnNmws+V9EiIzqhOMMVbGtruW29JmCehH0UJvx5flIb8 wHtsIUdN0QsvobJ976ThV/9ONqVTFuiJAGOm5pg0CFi4O1DBEj14PZ1osywN uROK10X4rFCuQv2xBF4ZGOgYzCn2tkYhPykc347KgJip10UFChl5F2j9++ct Azqmi8UcfWTkTBP5wRcjA63DrGunjlCQ5cPZF6b5MuBcHmAz50tFkpHnwivH ZKAnLPBjdYctEpLzc21flgFNCabBLR6HENeQLWWESRZKf6eXXN5ph+iw+AEO aVn4fSo/eeTEYTRA/2wk2EcWLsw0NMeQ7FFX9d3XF2NkIZP+G2LY5YBaXVIb ii7JQsn7z1VPBhxQVdvh9A9VsjDulLxsEeOIUlKWjIkVWdjl1RY3ddYJxWp/ VLXdJgf3d72bdKNzRiE/mkV8+eQghnm7G3u0M3K2vPQ7X0sO6keDbmrFnkDa HDL3GE7LQZmXWTi+fxJ1bTny8vUlObj5VS71gZ4rOr5w7uv1fDngLvjeODzg ihK7v/NKt8gB/rLO1cTmjroulsRaMB6AkAM+0dQqT3Q85kMWD88BsL+2e1rL xQst+myv/SxxAJI11hwL9nojXguP7/6kA7Dw7OMLv0wfdJxFmnz9/AHYxdiV edXVDy2u23k7Zh8AM377nPJ3fihxKvmsVMUBiGQ9Ro3V90clLycbGroOQBd7 JbopG4AWk4rFPrPLw5d51crUfUEoMXSAKBaVh7BDjE6uBUGIx43Zzl9FHvTo Qv+clwtG2kbuqVtp8vAUfctnMQ5BiQxSy5KZ8pCwRjOWLQpDPEuHdi8Uy0Pj r7M/75HCUfHXJOmGennwFUrE8rPh6HXLNwfzj/JQSYkXDjOMRDxxRW1+QgpQ p7ScRy8Vg4r9+kcOKiiAT/aGGcePGKR9fNtvelCAPeGPt03XnEbHsZvCNScF MJGhO1xbGotK/khk1hcoQJkImTfEMx7pzNg+iK9VgKIikccGo/Go69PZTrM2 BXhWTUn5eSQBLT6eoBv+pgCld6gS6ocSkRDxTjWOWxGGBl9zGgSfRd9Up5vH BRXBvPKSNRNjErovt9XKVEIRSjIEPmhnJiE9ARUPTg1FUPE0Uie/TEZuv9Ny 7topwqKSg8hpu/Mo3fLH8/DjilAg09p4bP08arplOGXhrgiyDlnX+/JSER9p VX0ldHO9DVW2f/kC6kh36DbKUAS5jNAeJffLaOlb3Qp/niLMVdLxZnVcRsLa bIJzhYrg328SKiJ7BYWNtnhk1CmCar4f7fHKFSQtL7V1sk8Ryv1mWD1KriLb uDjpJ0OKkO+cLskjkI7iewetLo8rQuujTh6DK+loMOJCtuayImzxVNtql3AN pbQvqp3jUgKaPF4ZT8pA08efustQlKCZ0rNaty8b8dXwXPp7RAl0f9qpmzdn I4NtfrVvnZUAKy+2HnbNQdkVovSRAUrw0XnsmcTjXGS+nnTzvytKkL6Dqvu6 Ix+FWYw2591QgtvufSJxUrdQQb7WZOAtJTB8pN6FUm6hDaMZVYGqzf3pn9e3 UG+jiqvkLu9uJegQYVH4tKUADU6ULcGAEizcM89lDyxATFqMe7lHlEBzdqtM 2UQBOjby0O3pnBLknUz7rt13F+06ILhl125lSP4lEKPVU4R8276p3LNQhqe9 LbP3rctRE5R7ydkqg65Ltfq33+WI7bHfnZJjyhC+t5VYK61A9++tcRT4KoOT 9h9rRu57aDGTZTHzijJoTrJcvLqzCulxdkvzZCnD2r2sHT2BVejqhXSnq7eV wVN+eNz2UxVSjRfsuVCtDLtZLh/1qXmAQrwU7sf3KUOQq2GpfHwNahv/+e3f kDL0dKYP8WzUIN7jj/ZFTyjDeUEjclVYLXpE1b0U+ksZZrzvbtWIqENrBOWU 9x4VWG7RbZDNf4Si2ELlbB1UgK3rSO/0maeoM0Xb5d1JFdDy0ug9odyIBBnp sq1PqYD4iZ7xG18aUeNaMovZaRWoLBo+ayzZhOi+Zk3hWypgetlJ06esGVk7 OIo+LVEBRSblJ43sLehWv9gRrQcqwE+q368f0YL0Ostfqj5XAameqBAO8nOU UNtYLD2uAmLftL7yCr1AvQoJI4UzKkARnF82y3iBxEuN+cRXVMDoDBeFi7MN teZ2JwltUwV9+a27MjjaEVPyF1dOaVV4nlYRMKH8EqUcYdr/x1sVvCuU5bMY uxBSZF35HqQKqN4jJOpOF1pg5Gh/H6UKzRof3P0N3iC7KkGP+6mqwFL0Nn7C uBvtZ1arOFGuCuKBfbErhT1oYEgrxrpGFS6vGXvTb32LUqvBiniymU+WrbT3 +Fu0eMx8gadTFSiPL/HOiLxDTbUn1F5Nq4L81tPOnxp6UdB5D6aHP1VhuaM6 i1miD0k6+fbf+a0KmRPLL+FqH7rIGhkezaIG9V2aFeuB79HRE2lPFWXVQIZZ qKzAagCtsDUbZniqwXSwSe2nsE+odKKNJzFADf4Ox2snbR9CDk86v/lFqEFr okfYt+wh1Oo2cM40RQ0OMfS8XvtvGF1pnHv9p0QNVuce/HUuHEEG6cu5U1Vq QKdmFIPWR9Cqx2/f/s0/HOM3pw8UW42iY9zbOKpeqkHd/bYm3X+jSM5byNbl uxpsPfg9mBbwFY3oikvaLKhB6GEhP493X9FVXplVYk0NuFLRW0P1MbTeopbF u10dlkLMRUO3jKOOPRbDr6TUof/nIZncygl0oj3SVcldHSQ866WjvKaQi46E 5YqvOlwaDpQLmppCrlXdao9D1UFl0jejxGsaud/cz2iYpA6eX9api0E/0Cnf N3fsCtXBOp8izlIwi/zGws8LVqpDvSVJ9o/aHPI/LB74pVYdiugFaiNfzaEg /XA97xfqcEbQ43BB9DyK4BUbPT2mDr9E88ZLGhdQVOrrDoMf6rC96KmkD8ci it4Sdn/7kjoEyjLsu+O2iGKnO09f3aoBXcTIrxien+jssxChIlENUDj26PGt s0soze3V0a7jGrBvDbVo1f1C6Z+C9K+6a0D18IurouKr6JrNPlk7Pw1wasof mLi6ijK1g9ZHT2vArjK1dNHwNZS7W+jGcq4GPHGdLSCO/kb5iR2xDYUaIDxf Kfd54De6tRbgfrpSA/7mPM2/abeBCr62a2xv1ICTPmEFZ4/9QaUP/d8LDGnA vYvqv7nO/EPlcgKNo2MaIMRVHYN20OGKW213C39oQGHc/V5RCh2+f35vsOKG Brw76sRzaZIO1zm+4DTYqwm3DcbvRIrS4+Zte2y8DmuCq+EG545+BjxxR970 g5MmvOF+p71LhxGzgoG+sacmFHcEfP5wmxHbhfmqiUVqwnfHue3jwUx4bvLF no/ZmuAzWDqdq8yMuc585DC5qwlPDh3WelDIjLVEFlgeVmiChr7z/VcC2/HZ wwJ/0xo1Ybxej0Fu9w4s+Crgi+mIJrx2eeCTs5MV67kmf3w0qQmdTxWs29JY sTt9bq/EgiaYhwRZHeTfiWu0XrbR0x+EpvcuvqKKu7BZ2b6yBrGDMJ3Ps5So w4bDUzsDZdwOwoF/+cTCcw6cK/XFO9P3IIwP/MIiezlxa+uvk0xhB0E89Mmt 9kBOzPZH1O5L8kEgLzLYXJTmwkU+4TpZpQfB+KEBKirixp3bL6kxVx8El4/j GQdYePDi3QL5kMcHYer07PRhPx6Mht8IkzsPQsuv6z1PMS/us5Rg3DF7ELJD 5g+5/+TD61Paf0NXDsKQ+Y6Gdy57sHCSza/xvwfBbW/a5z0De7D3s6jvzbu1 QFBGJpLcyo+3Kr57Ha6kBfqyLmKoRgArscde/x6kBdOZmmJmUcK4gblfqj1K C/70Ly/dbhLGenTyjwsStaAAsh/8ZRTB1LmPnx3TteD4if3/vbkqgkNea0i/ r9aC6v3zmdpPRPGTc3OPWxa1wCBqbiZIfz82jDOyzF/XgqRvFJumG/txV1jO SDS9NjB8128yW9iPP7uZMR7k0AaP7RJGKgUSmN6oyPKekjYE6PAJPN4jhUn0 jqM3/bQhlsF+/YyxLO5Zqw0MD9OGoF6pLYPVsvjIAivToVht+PE+PblWRA57 jTTIcFzWBnmO5kIe+gP4YiNPUPI9bah4HNLH+l4e90Z0MQXPaoM/tyR/iZsS dgjYf4O8og3tPx7w6pUp4QmPKFnFv9rQ8WtwuWNOCf+yk7Ge3qkDqY57usoi lTG/xtkbTgd04AfrygfePBXs+JOQs/TWAedW7kVFXnXMykHX3RukAzfyo/Ul A9Rxg2JL4NFoHVjwOmbm26WOuU4ZPXa/qAOwnfcc43kN3DFpaZpwXwd+B4if auU6iBWHHd0fLenAFYd65ZhTOnhoQ4QV/9GBXZFquoUjOjhl79i9F4wEmIj8 IHlQCTxm5/7rLQ8BXNWqMr2AcOY7v7MzmgQURnVeGucBTPcyrkA0moDvCpcy POX1cMU3fVLJGQLkpRVCLwTr4SNMTD8ULhKg6H/TpfipHq7RT1Eh8gg4wys6 2WOtj90b01oONRNg4McVbJhggLur74ykMiIwoy7zUvYa4+i3JxM5dyGwiRuW cwg0xjILklJZPAjqw0rgcqcxTpQv9y2SROAZzX8uJp6ENUtq/jabIAiGca4P GyY4P/eFwK8LCK5N+Qsny1vgm/Zy/bTrCLKlezqeZFrg6/xXr9TkIoi6+Zow ZLDEqdePMwXcQ7A0l33D8bMlDrv4e+5HNwJZH96pXRRrbBOj9PwLJ4alqPS7 4TpkbK6TGa0rgEHsTHc9SzQZk9b/auSLY3jHLaN7spGMUUhnuYMahjL+N1Eh +hQsc8rt+oAtBuGjG2Imh6iY/liOR9cNDIcFTsYGF9niP3sZxA/cxqCVVinl t2yLVz94Dp8vxQDvY+gpBofwLE2TYvIYA4/LyrcPY4fwR4t3Oq2fMPzX2x0g rXQYD+YyMA/tBmBmCz3YvHoUD/zROMnKBTBbzn7f2NYe99l7tWjzAZTs7JcZ rLHH3fxvo7KEAV4J7UmWC3bAbdfzFg4pAUwbs/zpoHfEDy5qfXxLBsisSSb/ kXbCTjd3MTbYAph19MlMOThhtuIv8reOAJw5vWhhn+aETzWnxPs6Axg5SCf2 bjhhmaVBadYAAHVOGWulAWd8+3BkmOEVgF0aZCKxxAXbuFrdlru2GY/NwVV3 wgXTBYp1ct4AmIs1jkoXO4mPpf6370v+ZrykbdV0+Scx/7O97TH3AZytztns znfFaeJPuB+9Acgq2Xnr11N3rKt0Gee9A6gqLV9NZ/DA84SLx9l+gEnJ1swP Zh7Y8hDrU+pngHfPiwUcPnngHSn2LguzAFssH6p4M3rh+LmNBzK7dGEJy3y6 E+aDAxsI6xxzXTBL/rZaFOyPa46003+w1gXZZHnGyGJ/vLJuXctF04XJ2i9X Xnz0x2HaLvypDrrgm3puW6t+AI56kjIWcUoXrrzjoUXsCcRnG/vD7C5v3jcS FPb6FITbjznJpqfrwhPpJSoLbzBm/jc19CZTF+LteWny5GCcgv/qGd/ShYWf TFH/XgbjS03iO9Uf6ILQ891Fo89CcGaL/y3OXl34x7YcSrwIwx+cf1OsBnTB ZI+YvD1zOObfeobp/KfN/QLaYczm4ThHP9OLflwXih3NHVn7wvHt1ka1hWVd aGHidH03E4HL2lhedfHqQUgb2/EprWjc+Oru4rmjesDy4MfrSrE4fJ+v2z/a UQ+eCxmVvzaLw3dc1+f9TujBwo5YHeWgOJxMbzV3yEsPxrWitF6/iMMUrdXp /ZF6UPR8ZcPKOx5PlpiON2fpgc/D5w332xIw57m5/rUPehA46GC/UnUWM/Xv OTQzpAdJZ81HBL+exaviBu9HRvWgTr7/7SWuJDzclNnb/l0PzENrjlHCknDx qm7PtTU92Gi0ox7VT8bIPf2V0h590K2nWkR/O4fdjQ8+9bDTh2ySZKee+wU8 I7XnRZW9Plw/pRb6sOgCDtix1rl2XB/2RbfTEr9dwJGvH30656EPMX3nHCXc L+KLFM2Nkgh9sB+t33vO5xKuddTQnsrWh9AwEvVQ62VMH6ZW7zmqD8UJz7tz /6Xhm8VKtV6eBlCSyhhnPpuB2z6c6Mg7ZQBPKn4aHeHNxIs7rn98F2AAevm3 TyRDJjb1Wd+iE2kAXMzSIQZXM/G60nNL1lQD8JpXvKaidQPbPaZOllcYALPD QG/hhSzM0xW6d3beADQX1QL8STn48s+ncX6hhhDw7EwzJfIW9nl72ck+0hBc tx5nHrp8C5tWndAlnTaE33M7H7oX3sKMvtu3CCcZAvMOba+zPbdwxBQ19s11 Q3j01WOtV/I2Pjk6HSNfZwhXOp/uSu29jbXe7In6sWQIg2KvZZ/JFeDx0uAQ 9wAj8JXotPR+VYipgn+Hi0OM4PrcmzWnkULceums8fcIIzg+f2LSeKUQ3w7K 4PNMMAL25ZWDX0WK8HFU3+CVbgSB30PJlmFF+FPPxt9TdUaAvXvPlokU497V hKTgdSPo1QkkFFxKsIEX63ztXyO48JoUkhxagquH0u1W6I3hCqfkifaUEpzW clc6lMUYytfpOZbvl2Dr1Pb/wgSMwW86+gvTRgnu3MfCFoWMIeSMqHZjail+ bpSWGR9vDO8zbpQ4XC/DY66PX0ecNYaxbf9y3hSUYYakMfrAFGMooFFsRavL sFG7us+JNGNgpetU8nhThl8Zf9Q1uG0M58M2EkKYyvFbkvg0Y4sxKObdijx+ qhz/dLcQ/vvCGKZb5ZVeRJRjrnMhtJWXxvBQ8prdtqRybPuy49lEjzEwCQVq iuWV40ETn/T2UWOg53m6Wv26HH8xrSPObSFBZLzfdnbxCrzV63NAHCMJZgzo v6jLV2Dx88zF4dtJkDb0laahWYFd/zvC4clOgt6WJ97tZhV4yuzfhKkICdp6 U+mF/Sswi7eUgP5+EgRZJDjwRFRguVQbG21pEizpLghMxFfgU513HssqkUBY uF+TPb0CL5iTLrPqkkA2sIUzraYCc/j4v2AwJME5DeunVk8qsPKFrPUNEgl8 bxg2jD+vwEGvf7jMWJPgkeZppay3FXjV4srBruMkuHB29LXIbAXec6rhVJsL CcZNd7fnLlVgrYtf7zS6k+DdHyWZn+sVOKpLbdc9PxIUfqh/IbKtEtNZDX65 FEuCjMipG1cFK3FHI00sKJEERQPC9vdEK/Fl+Z4TdskkoIaun7gjWYmFd3WM CV8mwW6hhmVOpUo8Ga2/nzGdBFFLjw9fVqvE92caT37PIEFj4Y2HYwcrMbyu najKI8G2yMW93HqVmJlQkrx+hwTk5rgtC4aVuLu83C2iiATXmXnyCkwq8fHU O5N690ggk3K0Pc26EkttCElLVpPAdJuk+mtKJZ73yvJgeUgCxTa5/Z9tK3Gs 2ZWpd42b65vZKefsKzHpMavsoxYSVLIJRoo4VmI22WSv7DYSiDg/Xr7sVIkH sraWx74igWYHf33/iUqcv+P0D5cuEiRu2/lk+WQldo9YlzN5SwKx3m0rU26V WHEq2OfAexLIs+x3fOhRiVcPL1SwD27y/yY6f8SrEje99J5dHiKBtKrL7T7v Spx8cFJ+cJQEecHzvpKnKrF1yQnfxnESqHEHUax9KzHfns/3bn8nASkBSNZ+ lXgk+cj82RkS8BwyN5X0r9w8X/sUvRZI8N1DxbZvU/u52/hbLW/ynFH3OBJQ iTUHOqtU1khwNpaIq9vUdCTSIu8fEjzTfJf9fVN3PHyuvEFnAi33pR//3NSX JXHgCIMJeLPwferd1HYZDdWtzCZgt8xPd2FTC29TXypmNYEbt6hSApt6MqRK 9QKbCfC3pNrGb+a/PyEX7M9lAnmRiheebdYbZltcS+MzgUAa+c27zX6gTWzl oIAJPBUvFX622S+zep66kLAJBP9MPxPns8n3Ln8ovbgJ7P7KtXXvpj+Z3Ncf TkiaQPOOntzznpu8z7CvvpI1gTM23I7v3Dd5L6dq3lMwgRr9t6aLrpu8XZjD r6qYgMtYtsekyyZvg39rR7VNYM1uzOnI8U3eNRFagE2AKHhm8d5hk7f4SoS4 vgmYsJ+8In10k+/Wmd8/TE3gpX2PmS1tk2+gu06PpQlc+Mc2qEDe5Pv1a1Qt 2QSE77HMjVhu8mwZ/BN9ZNOvNoGvL403eSrbIudjJjB58snwFoNNnrd7Yoyc TcCsRSqLHTb5xXX82+W5uf7AicuPNCrxP6jbkh9uAn8iFRwk9lfiIwbfXg1E m0DCfsx1b18lrjHmS2ePN4EC3QXe7fyb9VhGSCSkmMCxk+V+Srs2/TqKzFxv mkBTfflZ2835lXH05crLMwH7om1PvGcqcKJz/lD/HRN4r1AmQ5uowJoe9H4m 5SawOPnhYE5/Bb4V0pYu99QEyu6V/dr5qAJvhP9yONlsAhsTR1/W36vAttFS krkvTCDqsueyZlEF3pGYUr+7a5MvyWSj6loFDrhiObw4bALMFcyWV/0qsH75 e8l6OlNwPXit/aBQBc69t21hgcEUvjbonlPg3Dx/Hmg2yGw3hSjprMjf2ypw eX2WeTa7KYjY0Jp5FjbP4/Zj/qdFTYEx/nb+8eZyPD460WBoYApDotftA46U YxjnTYwhmUK22+qbMfNynDVJsnhobgo++3f8UcTl2HKu9LMUzRSItaCoQ2Ll uG7jFAOrqynoBYeuf/1ehpN4f1m8TTKFo1/SeVX9ynBaR8fXlvOb+RUPiPk5 leHc8Kzw6kum4DirceoiuQzXfSTupmeYAtv21qIA1c33UV7ihm2RKfiriNCN rJRiXSmOso9tptCn5ccbH1KKf2seYB5nNIP+eKvZK84l2PfIiZZfCWZwQPuF HstGIWbNmxrRSTaDazIvgH2iEJd+9f8Xl2oGf69tMdnWXYgnvGN1WK+Zwbaz XW9b7xTiY6dz6oQLzeBy05D+JdNCbF7QX2rSYQYfhMr2V1y7i6Vmza7eZDWH /j2VQifECzafL1UXfM0cltbOONWr3cL7eXZd9LthDu8l70g2C93CnqXfHt7K MYfnNtd/d267hX++zWJhKDQHRcup3oUP+ZhJfEt1R505HFcu9w6NyccH2l5v IQ+Yg4+Wgj/lSh6O2OGW57LXAkYG4lxz2rIx59Ubg+duWUCYse4R5YgMvKOP syfgrgXUTZ1VC6VmYDrei+1HSyyguXurygf5DPwjK77mQJUFJJdl+C5/vY7b bntd7GmyALYgx8Z0q+s47AGht2fEAvZ3ZyZmyV3b/P4YLSkWsoRhmQG1X3/T 8FtO+/wropYw1IlUtYfScAft/fUICUtIUKErvPU4Ddd+eJVgLm8JMdrOh9+H peGLo9UO84QlXEyR2/Vl6QqGhTPsmg6WoDwfWpP58zK+yyYT3n7TEgy2u7vw 813E8hOHVxnyLeH9cY7pooELuO7xuVC9Akt4tl362/kbF3Cb6/fgp+WW4D8s dPaQwAU8+aQ4oPqpJUiqtEz93Z+K5TwkvfM+W0K1vwD7NZMU/KBZ3DFUzArk Nl7WPes5i7UyqMM1klaQ2KxVKpRzFj/3TnRYlLWCjuR4+XfuZ3Ev79hRH1Ur MLng6Kmz5Sxe8bljd8LQCjTMHX+wqJ/BB/lFyVZuVpAtrvoj6l4CbgrYZyhZ ZgVT11PoDo/E4vXlucsC96zgYrQB3ddHsVg1vOkTe7UVHLC/o/TgSiwuPu0U tNFgBYwiheR9BrH4cuqdOz2vrODa+3Y+B7vT2LFQkj5qygqifXJeD7FH40zp VQv/WSsYoDPUPvFfFH5b3nHDddEKxlYOdHudicJG1R5KNutW4H93LJLhdyTm HaEpcjJaw74/rhuGPyLwvx8ZjpNc1hBuPzucMRGGs+VjGb/yWMM1HgZHzuIw rOnnXjbEZw1svAu92z3DcMBPzV9vBayh6NhC5Mm5UDyx9uHiU3FreO9CTur4 F4K7mAQa01StQa14j16LejDOFc4XIKjW4GfZ8fLKmj/elaLUccDWGu6rqa6Z vPLHp3+2BArZWUNd5e1l15v++Hjb+Kt/R62Bh1VW9DXyx6LesuEtJ6whJKTl k1aKHy58WNdnHGgNl5S/hYDrKcwjQorTDLaGdkqwSBvnKZyU8kFOOtQa3sln N25t8cHuDhsJOyKt4VxTkNttYR8ss1VP+XW8NcRT+LItJ7xwpeXri+Q0a1DN KcjxTvPAQo+OaemnW8Og5+DlGVMPfElkflzlujUct/Gc5dr8H/Zb4iC4s6zB M3w4jRzmjpWz7Kb7b1nDV81X+l7ubrhu/KuxQ5U1BFtL8ou6nsRPo9bp3Lut obq3Vtuw2wmv3JuYj39rDYIvYz/szHDafF+9HcnptQZKv+LngGNOuMCkrOnd gDU0P6Ky7Jw7jlN47GPxqDU4xblcOMZ7HNvef/qPZ9EafhRUxz5jcsCXv5bM KS1ZQ8BjreaqQnv8kuf6Z/MVa0iUolnUGttjnehTz+LXrWFXQHnHROpRLGq6 7/QsvQ14fDUPrBI7gue+xv59wWkD/KqUkpHYQ1iK12d2hNsGuNnpP3UrHsLO poeHf/PaAGnu2qOKUVv8/r5So5KADehfkawWN7LFT6K/ROeI24D4dR6t//bQ cDKvwZ8gNRt4saEXJjJFxi2mijOXNGxgZo5+8FMRGf+OFhgqPWgDaCvJ44Qr GZ8aW3oyQmzGX+AVezVug6lVd6PMjWyg9m8Hap+xxiJm2zbEDtlAyfOlkBJd S6zap/+W/7ANdGtuJ9Y+WmAjx9hi9qM2YL8HHQkJtcCegWvUf8ds4E8tdedM lTmuuTldMehqA+02zVejVM2w0Y83jldCbMDJTtq6zoeE7UJY1ZPDbIBRF6zO 7yFhTzoT1tMRNlDc8OK+U5sxvsTV8sg7ZtOPpWYTZjFjPKBTw046awPf3Gkl y98MseeFzOd/r9mA3Hbrq5K5+jiKt+/GcoYNPPH4IfXNTh9fvMXu9+PGZj+v eJjjuPRxdW2KwGCODfxeNonXuqiHN4aigmvv2kBFXl7CmfO6+JK8k6R3rQ0I /eSwkDyE8e1HOX+cH9oAB7/OyvA4wjV6g+8O19vAR3VdS6YQhAdsKbHGT23A UilsR3oWgUVPG34QfWEDuXxt14klbVzzRvr8h14bSOl3kAya0MSXxZrvrr+3 gV8CXpHF8ZrYK9Suae+HTZ55GqOGwppYdF/SssOQDfRzVSmXOmrgS6fGHL+M b/YrXpqaN6uGPXfmqU6v2MDxKo7KayYq2MhJ3Yp1zQZ4A6X2Oa4rY5Ha1x4H ftuAtW7yS6tyZTxgv5Hr+88G2FjTmzM4lbFh+eHtS9vIsOVih9LROUUsbMY1 vMFHhhHRQieFqgN4I7dsVXAvGWyuPGY1Vz2A+xf1OLEgGaRs5GqM6+XwxSx/ UpwIGSZPzBW3dMji39+7HjDKkGGrRtfonj/S+D3h+lpCjgx36l2LYy9K4wdX /nwzlicD4yX369dEpLH7QTnBFGUyZLD4vnhgLoXfJ59L2qVNhvUzaYICdRL4 wSfh2woEGZResdnSqBL4guKjJ9aYDM7IV4BtaT82GJhYSNPfjMeQrLmssR9X SRrY85qTgblR59hMtxhObfurKOxAhv7vqVcM9EUw+E8oCTqSod4p6IrOhjBe 2tulzO9Ehj/bzh/WrRPG9v45qlwnybBmeo3lxAFhfEBAR5PZhwyxynmnzKyE 8Jc2sYOMvmTY/hgPG/QI4uv+LFr0/mQwVGPnEqEJ4r9tg9obQWRw+nNsws1Z AHf5h+P5KDI8+c02Gp3Gj+MFnGAmhgzZCdI1H0X5sXo7SXcqlgzipEynqZo9 OFeAT38skQw7T5nU0A/zYd/2OqOBVDIo32ddi9bnxWyCSxZN2WTo+zuX9NqW C7e2f7R8mksGzxU9jRv/OHFYwHOrhnwyxIjySj4r4cQj7Wk2NQVkIEvKHWWi 58RVAUq04nIy+CVHev9pZseugnts71aSgdpXv50nmB3zd9Adun2fDI77vl09 Ic2O4wW77bJryCCzh+3j+WtsmNxxyv7yEzJsjBsFKP/ahZkCbR0uNJLB6u6N hmbfXbhBEB1Ladrs53KpfejUTiwauPN4YisZ0vpPz6hNsOJFwfITYZ1keDbK cUtyZQe+Gvjd8/gnMnyyk/zr4b8N8xtF+FOGycAi59L3Zcc2fJuPJcxoZNM/ /d8Rf+4y4QdP5c7IjW3yLhue/DfCiLu3+eWtTpPhnJBA7VUPBmw3SFc4PUOG HHqN3qDdDHik/Er58BwZ6DtjlF/WbcVzNtX1rT/JYGdl0lO7fSvelb3y7vJv MoztSLixvWkLvn4qaTDhDxnKiaMKc35bsKAu32jIPzIEOEaICYltwXITB2ft t1JguZMtweA8HTZTjGaWZqHAt6G7OUd6/6Lk1q1EMz8FPF8avZ16so7YMtL1 awQowBR6qzFFfx1leOw3LRKiwKza9lfynWuocJfxoQuiFAiwoD448XUVvbBL 8T8sQ4E37IKMpVK/kLns3jBzOQo8OR7mcLVxBfX+KYvB8hTowRYJBrYraOz2 6/P7lSnw70Y1w5eUZUQ/w1a4cJACMi5zaybMSyjl2a3yMW0KfHzmKFZV9hOx pylX9xMUqNSt1Sy1/omENahNT3UpoJ918o9m3iLCcRmD50wokHAzo1XQcgFF cQvtFj1MgcZt3pbjH2fQ66rtR/BRChjcleHL0Z9BQpbLBfYOm/lym+cUKn+g Z2c7tTKcKDAxL0dfc34a0a9GuLJ6UmD865fQIdfviJzuWiXtTYHJbrN/nGOT 6I4iecPoFAXqRMjiL05MIgMP6bS4AAoc+neqyNPzG0oa7H+6EkGBxxR5+fSr 42gg5DkzVzQFSlrbF3zFxpEU5z2K0unNfmT23/avHUOvzM5+90qgwKWtbwue ff6KWJ+qco+ep8C1KA3uaPMvKC3vivd/2RSQ+nGyzu3PMPqqHf1wMndz//lb 2eTDw0h1wJ2e6RYFDmRKbg98NIT62CAT7lJAdDT3Kl/sJ8QXP/u8toIC2Vu3 IyeVQeQhNLjr3T0KfKFfIDsVfUANDS8Oz1dRYB+uO79f6AM6+jN7TqaOAo5f UxTbOAdQrovZ3vxGChRdOcu3Teg9mqPTcH3aRIEQzqnTLwr7EOSIVg22UOBu +wliXKkPjfatGXG3UyBiesRor1UvEjcuDkh5Q4GZk2et5QveohJpxldBIxRw GtTR/ur4Br0V0P3t82VTp9kU7HjWhTZ2R8u5jVHAlSFvFkS6kOXK0sXDkxTI ePTX4fZsJ1pqGaOgeQp0UzL/Npa9QkJ1wmc0FimQco5t7xeRV8i4xL5OcYkC gtF9TqVZL1HWpV4+sdXNeiL3Vq5d7UBg3zq0jY4KXaeLD5sUtCFPK7rdW+ip 8Oxfl4upfBu6qqcD61upENsiYZze8AJNSNXc/rGNCrsZ/mMe+NCKUpfvuPXs psJMrETHP6XnaOBiwkLWPipEVKt4OkEToo9/JpouQoU5llHf3N5nSDb4N+WC GBXeWL9KH5Z9hmKOBtadlqSCqW3HDvOxp0hc6kSkiwIV8n83CkpFPkaWe/PK HZSooCbhEBAw2YBCd30cslXZrG+YO7HIrgG9WiKDiQYVrFyiftzQrUe+zXqM 8pgKf09+ertf9SHKrIlRl9TdrHexkGT6sA61FDW4CetT4V2Q+es5nTrEdVH5 FYcxFa4j9cQLVrWo4YjopV+WVGi17xTtvFyNmJa27Gk+RgW0dH71efh9tHo/ 8+LYcSp86jT/rs93H037KDAwn6BC7uz7C+/976Hub/Zzlm6b9Tu9SGTYUomy Pj588cmXCmbOvw9oWJWh1ExLbbqATT/keki4vBSdpo3fFwuiwm1i/dx31lLk 8oYj2zOMCnRKdRzvB4qR/HOfgNVYKpQKSI7+yyxEwrEMk3sTqFCyZrnKxF6I OImbDvgMFQzPXZAXTL2LVus6SGfPUaH78FVj1fMFqKVUbB9X2qZ/g/bT5mW3 UY1bQ7pGOhXKbywb7dC6jYrEbXYcvU6FxnG/nsP/3UKpuTHLt7KocObjy/6Q 5Xxkm/bhP4U7VPDoW26w68xFJCs/XcpdKlTMtF5e252LtFm3PQwpokJg7vS7 qUM5SPis6u2nZVSQu1f58NjSTTQVfinMrIYKA1/5P21zuIE+qUvMnqqjAkwf dytoykRvfj45kfaICmy/3BeHJDNRjc+U5YcnVPg5LDf9ni4DxTgZ7nd7QYV7 s+urzwbTkZ/Qp6yU9k1ttv+P8OF0dOJjAFvlSyrc4E51Shq8iki0/N9Lr6ng z/nj3b6JNMRh8rsn/j0VLuQpMNcIXUEMTGnGhQNUyPmYwhVQfRn9apF6+nKQ CqMvhXJqTS+jTzq2xWyfqfDUKfCbxJZLqEixKib3GxUYrux8bsmWik5xL6w9 /E4FgdC4LBPn80h1XTG4Z5oKx9Tq79o8SkFNz+97McxT4bVWdsgBv3NowPa+ nefqpj9S3KVlrEkoV3v+XcI6FTSjmbULos4iF2FFq5wNKhhbfnb7O3cGzX+/ Z9hNRwNDBUm1lJFExBx9T1l9Ow2mJUivVifiUZfTXIUVCw1eyx50WvKNR+lG CtIeO2kg7tIt2/w7Dgmz3duXzU6DkyHLVhf2xiHNO5Ws9Pw0MBp6Uxe6FIP+ Js0m7RWggVT4BxZuxRjU6i2/VU2IBoWH9ko6+0Uja/XKNTdRGqT6jiXk/o1E 7i8rJl7L0EC7s8On1TIcyVfOOH2To0ErY5sSXUUYWko7MESnQINfefz6wrvD UKx9xTsVFRr06vQNVA2HoMy58qYb2jT48GzEvq44CB3r/aFdTdBASXSXR7lY EBKvl3vYiWkQvpDq/elWILofX17xT58GKZE6wzlFAaiDuzzrpDkNzj7dE1H4 3g9dXJ/mPm1JA9YVVmUPDz9E/Sx7JdOaBpUjr9nu/fFFI8VlSf9RaTDRzOc7 63wKrWqXBSk50ICxJn1Y3t0LNQpPz5k6buZX473GUeuJEhllvVycaJDtdoD5 OJMnYntT6pRxkgZXDGwbXte6I2nnUss/PjS4Oh+TK2foijpytO4v+tLAZobw s3hyErl+eMU+6U8DEfLL5Cz1k6jAerr3bTANxpNzY/1VXZAwljtaHE0D03le RwWKM3oW8eRJzmka6Bo89OocdULH6syFrsZt1ptTqbs70AndPOAzGn2GBuUf aqpMco4jHoFKN8oFGvy5uDC1IngM1R5CL0mXaMC993qkvbMDol7tkkFXaLDH fO2CbJk9urJjbkbqGg06aVeD802OItY1haC/2TSIOqgYoP3QDpWpNvX9zKVB BN1tKSxgh0z9rDW+59MAlamUziYeQknf/NbfFdBAccLq6e/jtoj+fVVsSTkN dk25F6XpUtEtdr0vuZU0MLuxtbu2mYLA4q1++n0anJ7e3TluQEHRrYtMp2s2 tWpEjziVjFYfqFygPtn0l/t2N6Rbo4zZ57MmjTRINmbx/y5jjdRlqNa4iQYs X9XbVZKtUOCtIE6ZVhokHHrOVfHbAs1eqr3x7z8aNK05hB3jN0MX/jPcnG8a /NzNW8/sY4rktr23n3pDg9C+aOex5ybII2ZlX9+7zXnIrNfvjCahMW+NwtKP NDiQ433s+T4jlFDcvi1/aHOezI2mDl8xRKJjhzyufaaB0PG6KHcmQ3T8aJhc 7FcalA7M3Mla10cfTeof0KZp0P1sm4vkdj2kZ1VgFzxDg+WrmURGii4qpV76 mz5Hg/9Y6T+f2K2LIhxPmvb+pMFKs+bdx6KA+IPZv5A3Nufj2KV0zU86KD5i IyngLw34h9Q/m7LpoKnT3w6k0dnChFSQ01sTbVSf8jS8h8EW1L6l2Vd1HkR2 +R7s1jttIafY6cbiTg3UdJf60He3LTwy8Que9lBHUmXY4RK7Lbj+XHe1fqWG Vmu5S7q4baFL+4za9wxVlPFfM1gI2UJ1u+YjkxPK6G93+YS3sC2wfP5v+5XP Ssj1fUZqqqgtdMio8Xg7KiH1UZ+B/yRsQSehqSHaQxG9X9njZ6pgC5oi35kk TA4gtMHA46lkC3JbXXfMBcuhwi3zj8+p2ELgk+Btp4tlUQhr27aXGrbwY2XU 0E5IBnGLBuQZgy28+XB4fIwkiaIkHQzd9GxBN+Oz/7s8CTQmR5o+a2ALW3/z 0jx/70c1GkIabaTN/sorKjiaxBHV4lWXgY0tcHZGWjFGiaIn5NogF4otuO0o 0phcEkHidvn8iTRbCPEQa0/xF0FLziGuzw9v9h98k1wcLIyuhon+1XW2hWO3 O8c0LATRevTOAicXW9jbwcKQHSyAnBNWTeJcbaG2E5GZCvYi5Ytd15o8baFy qTTMmIMfvb0TcQAH2sKVB2tpBxR5EQddXb1WsC0cj/JpqbjEgyj2C4bqobZg Y0g54PqTG/VyuR87EGkLrclUVY52LtR/hnZpb4It9ISm34nO5kB8Xy7v5T1j Cwe9ismj/BzIDnUWcSTZQvzyIH11NjsaXNFr2n7eFkZzJjuMStnQJzfFhV9p m3ynrgXW9e1EAv+r4UzfqdDaMG5IUkg6DUqSHJKOkCR5tociKWPaa5kiDdJG jlCSWaaQNCAyC5kKJaqdEGVIyVARmSWihCind395/4C1nnvd9+++rufTqmZ5 T15jorqivEHeAiGGtWSWwPgNJpYv1bTctlOQ0fVundTgTSbKuGsl2xUtZnza t+RgSxoTW73PTHn08DMkb+t2N2Uw0XHQvUdyJz/jCE8Aq/42ExO2e783uL6Q 0Vv+M7DyDhMzf95wKrPgYwzID5bcLWLibgVbkccreRkyoRu08kqYWBo1U2Z9 mYdxot+qMesBE3Xk2FK3l/AwhhPfDiSVM9GbdbztpTA3Y0To2crISiaKDSoH 3PH8Dzaf+p0WWs1EvZiDqVop88Cq2bE1qIbDn/kXn6cNv2HUp2CvVx0T88pK lr5R/QVfxxPOOTRz8hLsZins/wkKB9oXHG9h4r5lj0baEmfgdLboFds2Jlr+ WeitPTkNE7ZhOeQDE8dG3JR786dg8o3HB51eTn/2rX0xypwEFYWiE1r9nDyP ieYb138Ht/Cx7xqDTOQvfNkVvvs7TGsfW6IywsRkuvmVmOY3+FlsoiH1nYlD Gss2v3/6FQTVVF8t/8F5T/CmsIH+MZB8vMaWb5qJbaVXv/QsHQO96r7A4Vkm rn+9i7nk7BeIb3GvL+AmyJgtXz9/cRgKqIV1Ci/BWwMSpw+3DUFlJ2P8Ch/B FquP+uHyQzDSz7/cXYCg3yZXtYq+AVCfirfYtYyg6GTcU73QPjD09Bndspxg ecPOdYm/esFu3s5HYgXBdX8cP9S79kI435Y0bjGCahcrfYhjD3SsYH+ulST4 t22weYNoN0zEp3mVSRF8Z3L//GOlLlggESKUK01wwr/UoI/5EbbIGCtFbSIY ZLBFRL64Ay6o9p4zUyTozvtUQ73wHUSX1yzWVSZ4z0d23PlXO2QwchN3qBDM /xwxmHqgHRp03SrWqBEEgwQVz/lWWEcWLurRJCggNT5sdf0tKHeMxDdrEfyR JnZvlO8t6No0yVfvJvj+nvlun/PN4GwfZ5S1l+Ai+ebGHaffAPvs5lgnI4I8 YQGr9BY1QfMvYTkbE4INWT8vP9z4CgZ9J8uNDxJMsXCRuK7TCMKhj7u2EYJp s7aXuhPq4XCcoczcYY6e6H0XV0a9AFfxbQ+/2BJ8fsTqya53tRCcskr/ox1B 3+sn84Jka6Eg+5NTxQmC/bYaid9ansOfh673g505fnJvNrhgXwWdC4supbkQ dNKZ3jJUVwnlZt+OsF0JlhVLv5HeVgluE6eFpz0ITja7i1xc9gxMGIX9yzw5 +lYdK7QNqQCFiK/l/3gRfPOidLE/dwUMyzrZH/cluL1I22DNAjY8d88Df3+C lv0ONWdEnkBa1ZfltwIJ1gmdjbCQfgzWNqcqWkIIch3uaBo6Ug7NN+zF9kQT rFp7J4tPoRQK+2+P28Rw8i1N1nnm8gAilAefe13jnNeR/Ha07D7sfXXMtTiO o9dLrCHLsgSkxTP0mm4SfKHvvuhbSTHwnOqT+JJIsEJJh/67vBge89nVS6US /K7z1NC9+x7EH0xNZaQT7Ii35c09cA88Uj+dtcjk8OyY0+rFvguKYCMdk0Nw R3rFC/bhQsh0s/LmLiIY1ed9ezYoFwIqEw6uKyHIZrUfyEi9A7YiHXI7HxA8 +Zfj5gvPc2BNnnmbSzlBrTzr9OYN2TAzG5cX8Zjg+aENXAPmWdCy911ANpvg w9KX8/vjbkNUH3Prp0qCkoUm7caymcBSusH3u5rDu7HvWNTZDNDzbe1YVcvJ V6aKx64xHXjXmoUa1XP64+O0YVVYGpwzNelhvyUo6KE/sl0jBQ6lRJd+aCVo nU1iVjgkg/LXpsjpdoKd7jMFp+ySYCzMUF2hk+C4is4wr3Mi1LVHiuh3cfrn t7agyjcBsv9uHDz+ieA/OwP4ZOJvgt2z/Vdv9XP8ePD2cHdPHGguveRQNkgw 0FnX65lIHIhb12m2DhNsU9ylbaUbC20/9UYFxwiaJvsrDVRfh/2KujoXpgje yY89WiFwFbhaW7ndZgiuWmDP73ImBh54HmezZgkmya19l9NzBaSqgnZYzhOM Tg4s2lYfDe/s//ph+ofTt+Xp/Nq60RAlmHFXn5uiX+eAdEH4ZZg7VCWnzkfR +zWXuFpSJNydMx1U4qdoola+fmNxBJxI7k2TE6A4569QrtR0CZqHucXFhCiW f0iT7F0bDne8UPjnXxQ3+PmxuHhCwFbydd34SoqBKV2aTvrBsPK5TcjQaoob k7yE3eMuQoCwL1e7OEXT4Vzb3D1BoFYs/OSVBMXMF6NdIWmB8JUkedZIUtwn 8Erdki8QLFKffL8vTVFm+KCV0Xt/ENE1KMyXoSgsHLJfVt8fakY6WZmbKE5k 2Fsee+oHyiq/+69todhckLF3qZMvCNSqt59RoXjZIzhqLssL2Ky6qyxVil9Z e4t4Xp4HNxEL46NqFNWyJ8tGJzzhk7nnS1MNitsWZq28anYObvy3KFifQdF8 gWjy58tn4UB6nLY2UlxtaGLJfOMBD0dLHyntofhuRefcg+Pu4Hxl7zk5XYqR jrFxxg/dQFq1XWWDHsXFfMl1+0XcINp3Ol/kAMVJ7qpHFU2ucFJ0e8r4QYqX RPdssg51AYnSaquhQxSr8ycuF3G7QIulmVg3oZho5rr27H/OgJlnYl5ZUhQ0 mEivF3SC6X28RjXWFJNiwq5Er3eEvK8xS9g2FA38ao2e7WTBarWioPyjFK9V /vrbN9ABXnVqaWUep3inS5X7VtFJCPJ/M59oz+HBp1NMb9geJuomPCJYFBvj k5w9T5yAWuutDqwzHL9NuxsX5BwF0aMnH91ypxjPdtxR+cMODp9MFXp9lmLu 5wyBVl07mHZdXqRygeLmjjCfdfO2oH3uwAJ7H4pxnpoin21tIdL7IjPej2Ls Yt6rrGs2IB06MzcfxNFrmWuz0dwaXCIVDRRDKDo0ubeE6lvBoxiHZLswDi9Z Izd8dCzB9FbH7tpIilwvnufUMc3Br+hpRPQNip8Il4lh1yFoKP3ZVRlH8Xo+ n3j48kOw6omS0tRNioU1lRt+GZlBQW16q3kyxZIf7a3eH01hrqFTNiKV4tWp OYcVCqag27ziPDud4rxnZPdYkAl87AyR2JjN4TMnNjBwjzFs6q1wOXSHorx2 +pc8cyNwG5qtDMmjODXFOiK/3RAEv7PsR+9SPPk+ZWrrkgOgzm98934Zxe4t Af/6yOlBsGAYz/AjiuyylcXTunvhzbJKszVsisdGSw2vOerCSXGVWZ9Kijf0 ckbWNu2Bkg1O++9VU9xlVmJxfske4JK9fauvhqJyENf7QcPdEKu0WluvnuJu Qc3s0c9a0Ktqcu18I8XfyhJVglpaoKARPpjXRPFesJ6FXhJCje7v8GUtFJ2+ yQo7tjDgh+Wntx86Obxt0eBJCVIHPCImI9RNcXvolyt7wnbCpROm5zR7OPzv k/MWilUDqX+rxTMGKIp5bVZ91qAKzh7zzm1DlLMv6KYI/dgO5V6qzxaNUOwr 03bU2rgdTIKzjzt9pTgaaPdHM24bJF7qKU2e4NxX4+Du/1EZhqPXLG7+zpnX K+MbK6cMfgkRBaozFF1d9Vl6rYrQkPKcy2GWYlP+jKGjiiKsuv2facIvzvwY OZ0x5a1gl7sjs3GeYk+w+SK7RQpQcNdl5s8fiv//v+t/OwZrFA== "]]}}, GraphicsComplexBox[CompressedData[" 1:eJzt139Qk3UcB/DRoZGSTkHFlN8/9FCRIciAjX0YvzbQ8WuMqdNMQUMCPFDL jPkoGpZNJLSpF6KUbCCaxoWnCS7TuMhITwfoJRRkJYHgQlAvsad7Pv7xfP7s b55/dq+9995uu23v+3quyU/NekkgECy0Ewj+u31xBdqfs4pHFkZwGpS1TW9s Lrq0Fy0A4aptu397pQPtAH6jXTOnNsyScBaC42B+1sz7GWhnuBTTcvubd/aj XUB4JXRTfddl9GxYO37SNut2G9oDroZ3mm/Wuks5e4FbPvQHTFSgfcA/Qx6m z9qI9oNJfkKPTuUB9Fyotz7KmzfSgPaH/eseGTbY2tHzYf3qintV3iPoAIiX mlpjbzpH4ruHOdF2BXYfiNAiWNHq1xl1MREdBNOOD8Wn1mWiF4FDe3DrFa8i dDBMq+oI6dpSjg6BtzbWtG06Z0Yvhszq6Tm19xrRobDw9gJzjvwGWgz6hJXB dZN60GFwcku9yDB3CB0ObWcXRzVutpdxjgC3C9+VZQ85oSUwL3mfNviCF1oK y7+ekfTsQSA6Evqf/PHY90MpWgZSc9F8w68KNMCM4NKKFLmaMwOgTsgtf6Pv dcyjYLtTX7yr7k3Mo2Bg2L++yb4Aczk8qRSafH7eirkc9vxUqouw34l5NLgl 7ts+MXMP5tGgL33uq351P+YxIOwviwnbdwDzGFieV+I9VHkY81gYHafcZHat xDwWBC1715VkV2EeB99m61OOyE5gHgeumW2jn/SZMI+HWfpfjnom1mIeDx7d cX/liuswV0Bz6M3+CuMpzBXQajw7UK4+jbkSKvNUbtYsNKOEj0tHVsl+xMcL EqDdZNEVG/H5mATounq+Z+cdfD1BIgysKNbd+dKMeSK42panDUE15ktgwP3E R47Vn2G+BK433fPS2x3HfCmEXzOMyO9+ivlSaLHNNF4efwhzFdgC03vdKssx V4HE89mD44WlmCdB9YGOoJKmF59/EkhUplsa12LMk+Hlz0tzhgVFnCEZlD0X t96o2IyPTwZ9yGPd9Jp8zpZksJ056lv8/Trsp8BS//u+KvfV2E+BCYElb2vy NNhPgT/PwMiTMyrsp4BR4Xjd3xSD/VTYUJXadVgbgf1UUCQsyy6+LsI+m5+W GO62+2E/FcqCrspV1tnYT4OnDUdyNb1TsJ8GYnVBkk/fOOynwa5jTl8ty3nK /Z4saTCn0WXPDt0A/r7U0JDT4V2g6eYMapi8Xjcg8bRyZtTQFte8OWi0Gftq iHyoPPj89gXsp4OxyporrjyF/XSYc63p4BezjmE/HSb3btVOiCvDfjqYLntB QMxO7GvA5va3oN+xEPsaEEXWrBw+tBb7Glgxza5G2ZOGfQ0UGt5z2nE/GvsZ oOgWnxo8uQj7GTBFd8vbuMAb+xlQJ3Xf3V04FfsZoA18V5T0vh32tZBgWBPZ mzvI/T+CFtKzChx2Z3dyZrTwz7zXjOaWHzhbtFB7tsN52Ok8/p8ug9iH0S6/ a6vR9BqUkTuATwdiIbEzsQvxbGIPYi9iH2I/4rnE/sTziQOIA4lFxEHEi4iD iUOIFxOHEouJw4jDiSOIJcRS4khiGTHwzRCze8LPidk94efE7J7wc2J2T/g5 Mbsn/JyY3RN+TszuCT8nZveEnxOze8LPidk94efE7J7wc2J2T/g5Mbsn/JyY 3RN+TszuCT8nZveERyBmiC3E7J7w+8QMsYWY3RN+n5ghthCze8LvEzPEFmJ2 T/h9YobYQszuCb9PzBBbiNk94feJGWILMbsn/D4xQ2whZveE3ydmiC3E7J4I yDV2Phk7n4ydT8bOJ9zXYex8MnY++X/nk38BYxzNaQ== "], {{{}, {}, {}, {}, {RGBColor[1, 0.5, 0], Opacity[0.75], LineBox[{102, 1}], LineBox[{103, 2}], LineBox[{104, 3}], LineBox[{105, 4}], LineBox[{106, 5}], LineBox[{107, 6}], LineBox[{108, 7}], LineBox[{109, 8}], LineBox[{110, 9}], LineBox[{111, 10}], LineBox[{112, 11}], LineBox[{113, 12}], LineBox[{114, 13}], LineBox[{115, 14}], LineBox[{116, 15}], LineBox[{117, 16}], LineBox[{118, 17}], LineBox[{119, 18}], LineBox[{120, 19}], LineBox[{121, 20}], LineBox[{122, 21}], LineBox[{123, 22}], LineBox[{124, 23}], LineBox[{125, 24}], LineBox[{126, 25}], LineBox[{127, 26}], LineBox[{128, 27}], LineBox[{129, 28}], LineBox[{130, 29}], LineBox[{131, 30}], LineBox[{132, 31}], LineBox[{133, 32}], LineBox[{134, 33}], LineBox[{135, 34}], LineBox[{136, 35}], LineBox[{137, 36}], LineBox[{138, 37}], LineBox[{139, 38}], LineBox[{140, 39}], LineBox[{141, 40}], LineBox[{142, 41}], LineBox[{143, 42}], LineBox[{144, 43}], LineBox[{145, 44}], LineBox[{146, 45}], LineBox[{147, 46}], LineBox[{148, 47}], LineBox[{149, 48}], LineBox[{150, 49}], LineBox[{151, 50}], LineBox[{152, 51}], LineBox[{153, 52}], LineBox[{154, 53}], LineBox[{155, 54}], LineBox[{156, 55}], LineBox[{157, 56}], LineBox[{158, 57}], LineBox[{159, 58}], LineBox[{160, 59}], LineBox[{161, 60}], LineBox[{162, 61}], LineBox[{163, 62}], LineBox[{164, 63}], LineBox[{165, 64}], LineBox[{166, 65}], LineBox[{167, 66}], LineBox[{168, 67}], LineBox[{169, 68}], LineBox[{170, 69}], LineBox[{171, 70}], LineBox[{172, 71}], LineBox[{173, 72}], LineBox[{174, 73}], LineBox[{175, 74}], LineBox[{176, 75}], LineBox[{177, 76}], LineBox[{178, 77}], LineBox[{179, 78}], LineBox[{180, 79}], LineBox[{181, 80}], LineBox[{182, 81}], LineBox[{183, 82}], LineBox[{184, 83}], LineBox[{185, 84}], LineBox[{186, 85}], LineBox[{187, 86}], LineBox[{188, 87}], LineBox[{189, 88}], LineBox[{190, 89}], LineBox[{191, 90}], LineBox[{192, 91}], LineBox[{193, 92}], LineBox[{194, 93}], LineBox[{195, 94}], LineBox[{196, 95}], LineBox[{197, 96}], LineBox[{198, 97}], LineBox[{199, 98}], LineBox[{200, 99}], LineBox[{201, 100}], LineBox[{202, 101}]}}, {{}, {RGBColor[1, 0.5, 0], PointSize[Medium], PointBox[CompressedData[" 1:eJwNz0VWQgEAAMCPii1iB0qZmHfxCL7nVg+qYAd2dyO2wizmAJOaXZiZDwVB MMciS2TJscwKq6yxzgabbLHNDnl22WOfAw454pgTTjnjnAsuueKaG265454H HnnimRdeKfBGkXc++OSLb3745Y9/SgRyISqopIow1dRQSx31NNBIExGaidJC K22000EnXXTTQy8x+ugnToIkKdIMMMgQw4wwSoYxxplgkimmKQNmAjYa "]]}, {}}}]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 100}, {0., 0.05947076472952652}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.541307266296875*^9}] }, Open ]], Cell[TextData[{ StyleBox["LA DISTRIBUCION ", FontSize->18], Cell[BoxData[ FormBox[ SuperscriptBox["\[Chi]", "2"], TraditionalForm]], "InlineMath"], "\nLa ", Cell[BoxData[ FormBox[ SuperscriptBox["\[Chi]", "2"], TraditionalForm]], "InlineMath"], " es una suma de normales independientes al cuadrado. Su comando es ", Cell[BoxData[ RowBox[{ ButtonBox["ChiSquareDistribution", BaseStyle->"Link", ButtonData->"paclet:ref/ChiSquareDistribution"], "[", StyleBox["\[Nu]", "TR"], "]"}]]], ". Hagamos una ", "muestra", ", con p=1 (1 normal=grados d libertad)." }], "Text", CellChangeTimes->{{3.5090373276145296`*^9, 3.5090374112462764`*^9}, { 3.5090375064844437`*^9, 3.509037513036455*^9}, {3.5090375524733243`*^9, 3.509037558463735*^9}, {3.5092779349524937`*^9, 3.5092779504383793`*^9}, { 3.509277981033129*^9, 3.509278029510902*^9}, 3.509421364453125*^9}], Cell[BoxData[ RowBox[{ RowBox[{"chidis", "=", RowBox[{"ChiSquareDistribution", "[", "p", "]"}]}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Mean", "[", "chidis", "]"}]], "Input", CellChangeTimes->{{3.509278068044106*^9, 3.50927807615257*^9}}], Cell[BoxData["5"], "Output", CellChangeTimes->{3.54130726634375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CDF", "[", RowBox[{"chidis", ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.5092781175339365`*^9, 3.5092781340088787`*^9}}], Cell[BoxData[ TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ { RowBox[{"GammaRegularized", "[", RowBox[{ FractionBox["5", "2"], ",", "0", ",", FractionBox["x", "2"]}], "]"}], RowBox[{"x", ">", "0"}]}, {"0", TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}, Selectable->True]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.541307266390625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PDF", "[", RowBox[{"chidis", ",", "x"}], "]"}]], "Input", CellChangeTimes->{3.50927815484107*^9}], Cell[BoxData[ TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ { FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "/", "2"}]], " ", SuperscriptBox["x", RowBox[{"3", "/", "2"}]]}], RowBox[{"3", " ", SqrtBox[ RowBox[{"2", " ", "\[Pi]"}]]}]], RowBox[{"x", ">", "0"}]}, {"0", TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}, Selectable->True]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.5413072664375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p", "=", "1"}]], "Input", CellChangeTimes->{{3.509428715140625*^9, 3.509428718046875*^9}}], Cell[BoxData["1"], "Output", CellChangeTimes->{3.541307266484375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "chidis"}]], "Input", CellChangeTimes->{{3.509428730640625*^9, 3.509428733375*^9}}], Cell[CellGroupData[{ Cell["Global`chidis", "Print", "PrintUsage", CellChangeTimes->{3.541307266859375*^9}, CellTags->"Info3541310866-7153777"], Cell[BoxData[ InterpretationBox[GridBox[{ {GridBox[{ { RowBox[{"chidis", "=", RowBox[{"ChiSquareDistribution", "[", "5", "]"}]}]} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{"Columns" -> {{ Scaled[0.999]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}]} }, BaselinePosition->{Baseline, {1, 1}}, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], Definition[$CellContext`chidis], Editable->False]], "Print", CellChangeTimes->{3.541307266875*^9}, CellTags->"Info3541310866-7153777"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Mean", "[", "chidis", "]"}]], "Input"], Cell[BoxData["5"], "Output", CellChangeTimes->{3.541307267015625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"tmuestra", "=", "100"}]], "Input", CellChangeTimes->{{3.5092784903142586`*^9, 3.5092784910643015`*^9}, { 3.5092785217860584`*^9, 3.5092785230651317`*^9}, 3.5395030351012735`*^9}], Cell[BoxData["100"], "Output", CellChangeTimes->{3.541307267078125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a1", "=", RowBox[{"Histogram", "[", RowBox[{ RowBox[{"RandomReal", "[", RowBox[{"chidis", ",", "tmuestra"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "10", ",", "0.5"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.5092783056926985`*^9, 3.5092783524593735`*^9}, { 3.5092784169550624`*^9, 3.509278426810626*^9}, {3.5092786549236736`*^9, 3.5092786706825747`*^9}, {3.5092787548103867`*^9, 3.509278755930451*^9}}], Cell[BoxData[ GraphicsBox[ {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {}, TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0.5, 0.}, {1., 0.10869565217391304`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{37.05020408163266, 54.6004081632653}, { 21.30902128887253, 94.43368479858945}}], StatusArea[#, 0.10869565217391304`]& , TagBoxNote->"0.10869565217391304"], StyleBox["0.10869565217391304`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.10869565217391304`, { 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, 0.10869565217391304`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{53.6004081632653, 71.15061224489796}, { 21.30902128887253, 94.43368479858945}}], StatusArea[#, 0.10869565217391304`]& , TagBoxNote->"0.10869565217391304"], StyleBox["0.10869565217391304`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.10869565217391304`, { 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., 0.2826086956521739}, "RoundingRadius" -> 0]}, ImageSizeCache->{{70.15061224489796, 87.7008163265306}, {-94.09044032667454, 94.43368479858945}}], StatusArea[#, 0.2826086956521739]& , TagBoxNote->"0.2826086956521739"], StyleBox["0.2826086956521739`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.2826086956521739, { 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, 0.13043478260869565`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{86.7008163265306, 104.25102040816324`}, { 6.884088586929153, 94.43368479858945}}], StatusArea[#, 0.13043478260869565`]& , TagBoxNote->"0.13043478260869565"], StyleBox["0.13043478260869565`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.13043478260869565`, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2.5, 0.}, {3., 0.13043478260869565`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{103.25102040816324`, 120.8012244897959}, { 6.884088586929153, 94.43368479858945}}], StatusArea[#, 0.13043478260869565`]& , TagBoxNote->"0.13043478260869565"], StyleBox["0.13043478260869565`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.13043478260869565`, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{3., 0.}, {3.5, 0.19565217391304346`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{119.8012244897959, 137.35142857142856`}, {-36.390709518901005`, 94.43368479858945}}], StatusArea[#, 0.19565217391304346`]& , TagBoxNote->"0.19565217391304346"], StyleBox["0.19565217391304346`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.19565217391304346`, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{3.5, 0.}, {4., 0.06521739130434782}, "RoundingRadius" -> 0]}, ImageSizeCache->{{136.35142857142856`, 153.9016326530612}, { 50.1588866927593, 94.43368479858945}}], StatusArea[#, 0.06521739130434782]& , TagBoxNote->"0.06521739130434782"], StyleBox["0.06521739130434782`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.06521739130434782, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4., 0.}, {4.5, 0.06521739130434782}, "RoundingRadius" -> 0]}, ImageSizeCache->{{152.9016326530612, 170.45183673469384`}, { 50.1588866927593, 94.43368479858945}}], StatusArea[#, 0.06521739130434782]& , TagBoxNote->"0.06521739130434782"], StyleBox["0.06521739130434782`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.06521739130434782, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4.5, 0.}, {5., 0.10869565217391304`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{169.45183673469384`, 187.00204081632648`}, { 21.30902128887253, 94.43368479858945}}], StatusArea[#, 0.10869565217391304`]& , TagBoxNote->"0.10869565217391304"], StyleBox["0.10869565217391304`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.10869565217391304`, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5., 0.}, {5.5, 0.17391304347826086`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{186.00204081632648`, 203.55224489795916`}, {-21.965776816957614`, 94.43368479858945}}], StatusArea[#, 0.17391304347826086`]& , TagBoxNote->"0.17391304347826086"], StyleBox["0.17391304347826086`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.17391304347826086`, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5.5, 0.}, {6., 0.08695652173913043}, "RoundingRadius" -> 0]}, ImageSizeCache->{{202.55224489795916`, 220.1024489795918}, { 35.73395399081592, 94.43368479858945}}], StatusArea[#, 0.08695652173913043]& , TagBoxNote->"0.08695652173913043"], StyleBox["0.08695652173913043`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.08695652173913043, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{6., 0.}, {6.5, 0.13043478260869565`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{219.1024489795918, 236.65265306122444`}, { 6.884088586929153, 94.43368479858945}}], StatusArea[#, 0.13043478260869565`]& , TagBoxNote->"0.13043478260869565"], StyleBox["0.13043478260869565`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.13043478260869565`, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{6.5, 0.}, {7., 0.15217391304347827`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{235.65265306122444`, 253.2028571428571}, {-7.540844115014238, 94.43368479858945}}], StatusArea[#, 0.15217391304347827`]& , TagBoxNote->"0.15217391304347827"], StyleBox["0.15217391304347827`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.15217391304347827`, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{7., 0.}, {7.5, 0.043478260869565216`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{252.2028571428571, 269.7530612244898}, { 64.58381939470269, 94.43368479858945}}], StatusArea[#, 0.043478260869565216`]& , TagBoxNote->"0.043478260869565216"], StyleBox["0.043478260869565216`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.043478260869565216`, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{7.5, 0.}, {8., 0.06521739130434782}, "RoundingRadius" -> 0]}, ImageSizeCache->{{268.7530612244898, 286.3032653061224}, { 50.1588866927593, 94.43368479858945}}], StatusArea[#, 0.06521739130434782]& , TagBoxNote->"0.06521739130434782"], StyleBox["0.06521739130434782`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.06521739130434782, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{8., 0.}, {8.5, 0.08695652173913043}, "RoundingRadius" -> 0]}, ImageSizeCache->{{285.3032653061224, 302.85346938775507`}, { 35.73395399081592, 94.43368479858945}}], StatusArea[#, 0.08695652173913043]& , TagBoxNote->"0.08695652173913043"], StyleBox["0.08695652173913043`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.08695652173913043, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{8.5, 0.}, {9., 0.021739130434782608`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{301.85346938775507`, 319.4036734693877}, { 79.00875209664608, 94.43368479858945}}], StatusArea[#, 0.021739130434782608`]& , TagBoxNote->"0.021739130434782608"], StyleBox["0.021739130434782608`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.021739130434782608`, { GrayLevel[0]}], "Tooltip"]& ], {}, TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{9.5, 0.}, {10., 0.043478260869565216`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{334.95387755102035`, 352.50408163265297`}, { 64.58381939470269, 94.43368479858945}}], StatusArea[#, 0.043478260869565216`]& , TagBoxNote->"0.043478260869565216"], StyleBox["0.043478260869565216`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.043478260869565216`, { GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesOrigin->{0., 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, PlotRange->{{0., 10.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.1]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.541307267375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "nordis"}]], "Input", CellChangeTimes->{{3.5094288670625*^9, 3.50942887240625*^9}}], Cell["Global`nordis", "Print", "PrintUsage", CellChangeTimes->{3.541307267734375*^9}, CellTags->"Info3541310867-2699824"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a2", "=", RowBox[{"Histogram", "[", RowBox[{ RowBox[{ RowBox[{"RandomReal", "[", RowBox[{"nordis", ",", "tmuestra"}], "]"}], "^", "2"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "10", ",", "0.5"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.5092783684752893`*^9, 3.5092783690513225`*^9}, { 3.5092784009071445`*^9, 3.509278436282168*^9}, 3.5092785175478163`*^9, { 3.509278675050825*^9, 3.5092786910987425`*^9}, {3.5092787483140154`*^9, 3.5092787495300846`*^9}}], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"RandomReal", "::", "unifr"}], "MessageName"], RowBox[{ ":", " "}], "\<\"The endpoints specified by \[NoBreak]\\!\\(nordis\\)\ \[NoBreak] for the endpoints of the uniform distribution range are not real \ valued. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \ ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/RandomReal\\\", ButtonNote -> \ \\\"RandomReal::unifr\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{3.54130726784375*^9}], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"Histogram", "::", "ldata"}], "MessageName"], RowBox[{ ":", " "}], "\<\"\[NoBreak]\\!\\(\\(RandomReal[\\(\\(nordis, \ 100\\)\\)]\\)\\^2\\)\[NoBreak] is not a valid dataset or list of datasets. \ \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \ ButtonFrame->None, ButtonData:>\\\"paclet:ref/Histogram\\\", ButtonNote -> \\\ \"Histogram::ldata\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{3.54130726784375*^9}], Cell[BoxData[ RowBox[{"Histogram", "[", RowBox[{ SuperscriptBox[ RowBox[{"RandomReal", "[", RowBox[{"nordis", ",", "100"}], "]"}], "2"], ",", RowBox[{"{", RowBox[{"0", ",", "10", ",", "0.5`"}], "}"}], ",", "\<\"ProbabilityDensity\"\>"}], "]"}]], "Output", CellChangeTimes->{3.541307267859375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", "=", RowBox[{"Histogram", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"RandomReal", "[", RowBox[{"nordis", ",", "tmuestra"}], "]"}], "^", "2"}], ",", "\[IndentingNewLine]", RowBox[{"RandomReal", "[", RowBox[{"chidis", ",", "tmuestra"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "10", ",", "0.5"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.509278380530979*^9, 3.5092783901225276`*^9}, { 3.5092787143010693`*^9, 3.5092787442667837`*^9}}], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"RandomReal", "::", "unifr"}], "MessageName"], RowBox[{ ":", " "}], "\<\"The endpoints specified by \[NoBreak]\\!\\(nordis\\)\ \[NoBreak] for the endpoints of the uniform distribution range are not real \ valued. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \ ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/RandomReal\\\", ButtonNote -> \ \\\"RandomReal::unifr\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{3.541307267890625*^9}], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"RandomReal", "::", "unifr"}], "MessageName"], RowBox[{ ":", " "}], "\<\"The endpoints specified by \[NoBreak]\\!\\(nordis\\)\ \[NoBreak] for the endpoints of the uniform distribution range are not real \ valued. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \ ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/RandomReal\\\", ButtonNote -> \ \\\"RandomReal::unifr\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{3.541307267890625*^9}], Cell[BoxData[ GraphicsBox[ {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {{}, {RGBColor[0.24720000000000017`, 0.24, 0.6], Opacity[0.5], EdgeForm[ Opacity[0.7]], {}, {}, {}, {}, TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2., 0.}, {2.5, 2.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{82.6804081632653, 100.47551020408162`}, {-94.77511686302664, 96.52385474233894}}], StatusArea[#, 2.]& , TagBoxNote->"2."], StyleBox["2.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[2., { GrayLevel[0]}], "Tooltip"]& ], {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}}, {}, {}}, {{}, {RGBColor[0.6, 0.24, 0.4428931686004542], Opacity[0.5], EdgeForm[Opacity[ 0.7]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0.}, {0.5, 0.02247191011235955}, "RoundingRadius" -> 0]}, ImageSizeCache->{{15.5, 33.295102040816325`}, {93.38566405014382, 96.52385474233894}}], StatusArea[#, 0.02247191011235955]& , TagBoxNote->"0.02247191011235955"], StyleBox["0.02247191011235955`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.02247191011235955, { 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., 0.0898876404494382}, "RoundingRadius" -> 0]}, ImageSizeCache->{{32.295102040816325`, 50.09020408163265}, { 86.97109197355846, 96.52385474233894}}], StatusArea[#, 0.0898876404494382]& , TagBoxNote->"0.0898876404494382"], StyleBox["0.0898876404494382`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.0898876404494382, { 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, 0.0898876404494382}, "RoundingRadius" -> 0]}, ImageSizeCache->{{49.09020408163265, 66.88530612244898}, { 86.97109197355846, 96.52385474233894}}], StatusArea[#, 0.0898876404494382]& , TagBoxNote->"0.0898876404494382"], StyleBox["0.0898876404494382`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.0898876404494382, { 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., 0.0898876404494382}, "RoundingRadius" -> 0]}, ImageSizeCache->{{65.88530612244898, 83.6804081632653}, { 86.97109197355846, 96.52385474233894}}], StatusArea[#, 0.0898876404494382]& , TagBoxNote->"0.0898876404494382"], StyleBox["0.0898876404494382`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.0898876404494382, { 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, 0.15730337078651685`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{82.6804081632653, 100.47551020408162`}, { 80.55651989697311, 96.52385474233894}}], StatusArea[#, 0.15730337078651685`]& , TagBoxNote->"0.15730337078651685"], StyleBox["0.15730337078651685`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.15730337078651685`, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2.5, 0.}, {3., 0.11235955056179775`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{99.47551020408162, 117.27061224489795`}, { 84.83290128136335, 96.52385474233894}}], StatusArea[#, 0.11235955056179775`]& , TagBoxNote->"0.11235955056179775"], StyleBox["0.11235955056179775`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.11235955056179775`, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{3., 0.}, {3.5, 0.06741573033707865}, "RoundingRadius" -> 0]}, ImageSizeCache->{{116.27061224489795`, 134.06571428571428`}, { 89.10928266575358, 96.52385474233894}}], StatusArea[#, 0.06741573033707865]& , TagBoxNote->"0.06741573033707865"], StyleBox["0.06741573033707865`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.06741573033707865, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{3.5, 0.}, {4., 0.11235955056179775`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{133.06571428571428`, 150.8608163265306}, { 84.83290128136335, 96.52385474233894}}], StatusArea[#, 0.11235955056179775`]& , TagBoxNote->"0.11235955056179775"], StyleBox["0.11235955056179775`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.11235955056179775`, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4., 0.}, {4.5, 0.11235955056179775`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{149.8608163265306, 167.6559183673469}, { 84.83290128136335, 96.52385474233894}}], StatusArea[#, 0.11235955056179775`]& , TagBoxNote->"0.11235955056179775"], StyleBox["0.11235955056179775`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.11235955056179775`, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4.5, 0.}, {5., 0.2696629213483146}, "RoundingRadius" -> 0]}, ImageSizeCache->{{166.6559183673469, 184.45102040816323`}, { 69.86556643599752, 96.52385474233894}}], StatusArea[#, 0.2696629213483146]& , TagBoxNote->"0.2696629213483146"], StyleBox["0.2696629213483146`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.2696629213483146, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5., 0.}, {5.5, 0.0898876404494382}, "RoundingRadius" -> 0]}, ImageSizeCache->{{183.45102040816323`, 201.24612244897958`}, { 86.97109197355846, 96.52385474233894}}], StatusArea[#, 0.0898876404494382]& , TagBoxNote->"0.0898876404494382"], StyleBox["0.0898876404494382`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.0898876404494382, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5.5, 0.}, {6., 0.0898876404494382}, "RoundingRadius" -> 0]}, ImageSizeCache->{{200.24612244897958`, 218.0412244897959}, { 86.97109197355846, 96.52385474233894}}], StatusArea[#, 0.0898876404494382]& , TagBoxNote->"0.0898876404494382"], StyleBox["0.0898876404494382`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.0898876404494382, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{6., 0.}, {6.5, 0.15730337078651685`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{217.0412244897959, 234.8363265306122}, { 80.55651989697311, 96.52385474233894}}], StatusArea[#, 0.15730337078651685`]& , TagBoxNote->"0.15730337078651685"], StyleBox["0.15730337078651685`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.15730337078651685`, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{6.5, 0.}, {7., 0.1797752808988764}, "RoundingRadius" -> 0]}, ImageSizeCache->{{233.8363265306122, 251.63142857142856`}, { 78.41832920477799, 96.52385474233894}}], StatusArea[#, 0.1797752808988764]& , TagBoxNote->"0.1797752808988764"], StyleBox["0.1797752808988764`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.1797752808988764, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{7., 0.}, {7.5, 0.0898876404494382}, "RoundingRadius" -> 0]}, ImageSizeCache->{{250.63142857142856`, 268.42653061224485`}, { 86.97109197355846, 96.52385474233894}}], StatusArea[#, 0.0898876404494382]& , TagBoxNote->"0.0898876404494382"], StyleBox["0.0898876404494382`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.0898876404494382, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{7.5, 0.}, {8., 0.11235955056179775`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{267.42653061224485`, 285.2216326530612}, { 84.83290128136335, 96.52385474233894}}], StatusArea[#, 0.11235955056179775`]& , TagBoxNote->"0.11235955056179775"], StyleBox["0.11235955056179775`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.11235955056179775`, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{8., 0.}, {8.5, 0.0449438202247191}, "RoundingRadius" -> 0]}, ImageSizeCache->{{284.2216326530612, 302.01673469387754`}, { 91.2474733579487, 96.52385474233894}}], StatusArea[#, 0.0449438202247191]& , TagBoxNote->"0.0449438202247191"], StyleBox["0.0449438202247191`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.0449438202247191, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{8.5, 0.}, {9., 0.0449438202247191}, "RoundingRadius" -> 0]}, ImageSizeCache->{{301.01673469387754`, 318.8118367346938}, { 91.2474733579487, 96.52385474233894}}], StatusArea[#, 0.0449438202247191]& , TagBoxNote->"0.0449438202247191"], StyleBox["0.0449438202247191`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.0449438202247191, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{9., 0.}, {9.5, 0.02247191011235955}, "RoundingRadius" -> 0]}, ImageSizeCache->{{317.8118367346938, 335.6069387755102}, { 93.38566405014382, 96.52385474233894}}], StatusArea[#, 0.02247191011235955]& , TagBoxNote->"0.02247191011235955"], StyleBox["0.02247191011235955`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.02247191011235955, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{9.5, 0.}, {10., 0.0449438202247191}, "RoundingRadius" -> 0]}, ImageSizeCache->{{334.6069387755102, 352.40204081632646`}, { 91.2474733579487, 96.52385474233894}}], StatusArea[#, 0.0449438202247191]& , TagBoxNote->"0.0449438202247191"], StyleBox["0.0449438202247191`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.0449438202247191, { GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesOrigin->{0., 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, PlotRange->{{0., 10.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.1]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.541307268328125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Histogram", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"RandomReal", "[", RowBox[{"nordis", ",", "tmuestra"}], "]"}], "^", "2"}], ",", "\[IndentingNewLine]", RowBox[{"RandomReal", "[", RowBox[{"chidis", ",", "tmuestra"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "10", ",", "0.5"}], "}"}], ",", "\"\\""}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"PDF", "[", RowBox[{"chidis", ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0.15", ",", "12"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.509037582004176*^9, 3.50903760125461*^9}, { 3.509037769282505*^9, 3.509037858686262*^9}, {3.5090406793829956`*^9, 3.509040703266638*^9}, {3.5090408463656893`*^9, 3.5090410195571933`*^9}, { 3.509041055608856*^9, 3.5090411523358517`*^9}, {3.509042609166272*^9, 3.509042610258274*^9}, {3.509278045677827*^9, 3.509278055663398*^9}, { 3.509278163261552*^9, 3.5092781694219046`*^9}, {3.50927826918161*^9, 3.509278301964485*^9}, {3.509278792477541*^9, 3.509278813101721*^9}, { 3.5092788608934546`*^9, 3.509278867308821*^9}}], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"RandomReal", "::", "unifr"}], "MessageName"], RowBox[{ ":", " "}], "\<\"The endpoints specified by \[NoBreak]\\!\\(nordis\\)\ \[NoBreak] for the endpoints of the uniform distribution range are not real \ valued. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \ ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/RandomReal\\\", ButtonNote -> \ \\\"RandomReal::unifr\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{3.541307268375*^9}], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"RandomReal", "::", "unifr"}], "MessageName"], RowBox[{ ":", " "}], "\<\"The endpoints specified by \[NoBreak]\\!\\(nordis\\)\ \[NoBreak] for the endpoints of the uniform distribution range are not real \ valued. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \ ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/RandomReal\\\", ButtonNote -> \ \\\"RandomReal::unifr\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{3.54130726840625*^9}], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.7]], {{}, {RGBColor[0.24720000000000017`, 0.24, 0.6], Opacity[0.5], EdgeForm[ Opacity[0.7]], {}, {}, {}, {}, TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2., 0.}, {2.5, 2.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{82.6804081632653, 100.47551020408162`}, {-94.77511686302664, 96.52385474233894}}], StatusArea[#, 2.]& , TagBoxNote->"2."], StyleBox["2.`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[2., { GrayLevel[0]}], "Tooltip"]& ], {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}}, {}, {}}, {{}, {RGBColor[0.6, 0.24, 0.4428931686004542], Opacity[0.5], EdgeForm[Opacity[ 0.7]], {}, TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0.5, 0.}, {1., 0.044444444444444446`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{32.295102040816325`, 50.09020408163265}, { 91.29498870666416, 96.52385474233894}}], StatusArea[#, 0.044444444444444446`]& , TagBoxNote->"0.044444444444444446"], StyleBox["0.044444444444444446`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.044444444444444446`, { 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, 0.06666666666666667}, "RoundingRadius" -> 0]}, ImageSizeCache->{{49.09020408163265, 66.88530612244898}, { 89.18055568882676, 96.52385474233894}}], StatusArea[#, 0.06666666666666667]& , TagBoxNote->"0.06666666666666667"], StyleBox["0.06666666666666667`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.06666666666666667, { 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., 0.2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{65.88530612244898, 83.6804081632653}, { 76.49395758180238, 96.52385474233894}}], StatusArea[#, 0.2]& , TagBoxNote->"0.2"], StyleBox["0.2`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.2, { 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, 0.17777777777777778`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{82.6804081632653, 100.47551020408162`}, { 78.60839059963978, 96.52385474233894}}], StatusArea[#, 0.17777777777777778`]& , TagBoxNote->"0.17777777777777778"], StyleBox["0.17777777777777778`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.17777777777777778`, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2.5, 0.}, {3., 0.13333333333333333`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{99.47551020408162, 117.27061224489795`}, { 82.83725663531457, 96.52385474233894}}], StatusArea[#, 0.13333333333333333`]& , TagBoxNote->"0.13333333333333333"], StyleBox["0.13333333333333333`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.13333333333333333`, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{3., 0.}, {3.5, 0.13333333333333333`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{116.27061224489795`, 134.06571428571428`}, { 82.83725663531457, 96.52385474233894}}], StatusArea[#, 0.13333333333333333`]& , TagBoxNote->"0.13333333333333333"], StyleBox["0.13333333333333333`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.13333333333333333`, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{3.5, 0.}, {4., 0.11111111111111112`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{133.06571428571428`, 150.8608163265306}, { 84.95168965315196, 96.52385474233894}}], StatusArea[#, 0.11111111111111112`]& , TagBoxNote->"0.11111111111111112"], StyleBox["0.11111111111111112`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.11111111111111112`, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4., 0.}, {4.5, 0.2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{149.8608163265306, 167.6559183673469}, { 76.49395758180238, 96.52385474233894}}], StatusArea[#, 0.2]& , TagBoxNote->"0.2"], StyleBox["0.2`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.2, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4.5, 0.}, {5., 0.08888888888888889}, "RoundingRadius" -> 0]}, ImageSizeCache->{{166.6559183673469, 184.45102040816323`}, { 87.06612267098936, 96.52385474233894}}], StatusArea[#, 0.08888888888888889]& , TagBoxNote->"0.08888888888888889"], StyleBox["0.08888888888888889`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.08888888888888889, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5., 0.}, {5.5, 0.11111111111111112`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{183.45102040816323`, 201.24612244897958`}, { 84.95168965315196, 96.52385474233894}}], StatusArea[#, 0.11111111111111112`]& , TagBoxNote->"0.11111111111111112"], StyleBox["0.11111111111111112`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.11111111111111112`, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5.5, 0.}, {6., 0.15555555555555556`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{200.24612244897958`, 218.0412244897959}, { 80.72282361747718, 96.52385474233894}}], StatusArea[#, 0.15555555555555556`]& , TagBoxNote->"0.15555555555555556"], StyleBox["0.15555555555555556`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.15555555555555556`, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{6., 0.}, {6.5, 0.044444444444444446`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{217.0412244897959, 234.8363265306122}, { 91.29498870666416, 96.52385474233894}}], StatusArea[#, 0.044444444444444446`]& , TagBoxNote->"0.044444444444444446"], StyleBox["0.044444444444444446`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.044444444444444446`, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{6.5, 0.}, {7., 0.15555555555555556`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{233.8363265306122, 251.63142857142856`}, { 80.72282361747718, 96.52385474233894}}], StatusArea[#, 0.15555555555555556`]& , TagBoxNote->"0.15555555555555556"], StyleBox["0.15555555555555556`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.15555555555555556`, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{7., 0.}, {7.5, 0.17777777777777778`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{250.63142857142856`, 268.42653061224485`}, { 78.60839059963978, 96.52385474233894}}], StatusArea[#, 0.17777777777777778`]& , TagBoxNote->"0.17777777777777778"], StyleBox["0.17777777777777778`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.17777777777777778`, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{7.5, 0.}, {8., 0.022222222222222223`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{267.42653061224485`, 285.2216326530612}, { 93.40942172450154, 96.52385474233894}}], StatusArea[#, 0.022222222222222223`]& , TagBoxNote->"0.022222222222222223"], StyleBox["0.022222222222222223`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.022222222222222223`, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{8., 0.}, {8.5, 0.022222222222222223`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{284.2216326530612, 302.01673469387754`}, { 93.40942172450154, 96.52385474233894}}], StatusArea[#, 0.022222222222222223`]& , TagBoxNote->"0.022222222222222223"], StyleBox["0.022222222222222223`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.022222222222222223`, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{8.5, 0.}, {9., 0.022222222222222223`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{301.01673469387754`, 318.8118367346938}, { 93.40942172450154, 96.52385474233894}}], StatusArea[#, 0.022222222222222223`]& , TagBoxNote->"0.022222222222222223"], StyleBox["0.022222222222222223`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.022222222222222223`, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{9., 0.}, {9.5, 0.08888888888888889}, "RoundingRadius" -> 0]}, ImageSizeCache->{{317.8118367346938, 335.6069387755102}, { 87.06612267098936, 96.52385474233894}}], StatusArea[#, 0.08888888888888889]& , TagBoxNote->"0.08888888888888889"], StyleBox["0.08888888888888889`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.08888888888888889, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{9.5, 0.}, {10., 0.044444444444444446`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{334.6069387755102, 352.40204081632646`}, { 91.29498870666416, 96.52385474233894}}], StatusArea[#, 0.044444444444444446`]& , TagBoxNote->"0.044444444444444446"], StyleBox["0.044444444444444446`", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[0.044444444444444446`, { GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}}, {{}, {}, {Hue[0.67, 0.6, 0.6], Thickness[Large], LineBox[CompressedData[" 1:eJwV13k4Fe0bB/BjPefIljVLCnGo7K9S0n1LJBWpbJEUIlKWUpbIUlRIIpIt yZIte9nPGZUXiTeVtFhCKmRJsv/m99dcn2uumXlmnuf+PvfInjx3yJmdQqHw slEo/z++tbmxXVuLAP6XyfJetpehrX118P7HBLT/bMkWdQiCJoN7hKNsE9i1 qtzkcAmGcpXc/XECzyHIf8cXVt0ViGd7Yf/r5wtwdz70ru9LKBzKYwvLy2oB X5/il7GmEeAaWDvEv6oTYnr1Lx45EQtDrVqqYYHdMPr56z731GTYPOyXu2g2 CLGPA7dUrM6DYP8wfNP9E2ypd+prBkpg+MrBoe+pk1BxL2u9alElWEb/8Zko nAThJ/EODcxKeHEvhX22bhI8uPqOGb6thOzSkXWcXyYhRL/nvNpiJZwavHJU RmYK6M0l1gF7q+DbnpLXh9KmIDff2We0vwpG+IWqa9KmocJ4bDUfzzP4kfIm Jjp9Bg6+r3Sw21IDoYvXjoQWzcCQy+PqHsMakLTbLnmxbgY2p0U6mVrUwD6p B48cPs7AaqOFTNHzNVBw72ytlvgf4POVfCxfUgNn79J/fIj5A1Xmk+x6yrUw dQsMFYNmoYLDYZvD6jpYCM1fqLebA78Rx1EnZj38Lpsw/X1mDlYmtNSMXtfD +KB2pvLlOWjh3Tsk+bkeBowajeNT50A9mqMk7W89NPO8TTj9ZQ40/TZPCqg1 wN24ZTURh3moGg6PSL7XAJqZ5k6nHReAuujFKtJshM1v7lal+SxA0+vzFt06 jaDI+YmnK2wB/ri8Zy7sbASJU6dKdmYtQHb/v5vU9zUCZWPAsvDQAvxjk+Bq 5tgI7SVZSfWnFsFdRabMNa4R3JizbcJuS7BmT3+u4GgjmEjKnl/yW4L5ebNf 9pONsNHHROrb9SVYe1H3Qs6fRvi+IfV0dd4S/PXsNmSwMcE1chf3ie9LsLFq SHFAlAnOZtFQ5LoMr9y0LI12MsHhs1ypscsKGKt3m3fdYAJu2W+jeXEF3L1t CY9bTFh/6wJFOmIFZAR35bPFM6EXm01/Za+AgN6DoTWpTLDP8viZMLwCr20H dbiKmVCkbRc3qUnBwbfKbO87mZC/mN26s5SCYza6BWeEWVB0iFX9+BkFLTcm mIuKs6A093OeGJOChoqZts8kWVB9RCRy/DUFeUsvZU3LsqClIGR32hgFB96z tmqos+CHnV3dkhIbOr+U+9y5jwXKdauLa9PZsOeph1BFMAs2C6ukKeWw4bTY m4RXoSxQP20cHV/Ehgfassr7r7JARzTY/UwdG144fLd18SYLjD1GGdIf2fBS rkjsciILXNe+zAgQY8dK3WiKZjELci4Hxm2PZsciz0RO5x4W2NU6NBslsOP5 3IKQTZ9ZILiwe/lQKjv2dNHWjPWywP8Sn5t7ITv2TfXdOzHEgv0+afopr9jx 5ycdLcEJFky5Nk4s8XEgl6zVy6ucBGTnZCnyiHFg+cmMiWVuAmyHI+3EZDgw hi3O2odOQJOjebOqKgd6zXSNHeAnINF+IP24KQc2r1SfaxEnYMcRTjNmDAc6 bhLpH1AmYDJuJPzVXQ4MYsYKrN5M3r+zrfpDGgd+UvXJ3K5KgIBZguJUEQeu 1PYvB2sSMLBXcVnuNfm8yGddb7YTEAHGheECnHh6TwA104SA/zZGrTKO5URD Ewul76cIkBKetWtN5MQm3VYuD1cCnBZOFJmmc+IP9T2yY6cJmGndam5RxInx LbySA2cIWOPx9e7JNk4UrB0zTvcmwL54u9xlGhcaqbXtd71MQE7iIx+KIBd+ ag2ZehJEwESw4PMwcS5MLdkwMxNMQMjBYZcbilx4QfT7mguhBGRN3i5M3M2F AfVOgsYRBPzQ+q5TeoULH/wJOLsrlgAt6SM3tCO5EDM3tZjfJiCQs+Hj01tc qN1158GxOAL43sYHNaRx4S9h3Va3eALUfbGprZYLK+8ngm0SAX72+aIHm7iw 1aShyPQeASwjMZc3rVz4Yv1M7s5kAg6Lj9J7eriQw0DTSCSFAN+niWbf/nLh JfOLNnfTCWjIYH/gRuFG1aS7lmczCKBd95gao3LjaVPe8V0PCLhnY5DwW4wb 49qTp/szCaidH+9h0+bGXy3xMbOPCODQMzol7cWNmUr5haH5BOzc9rDf7xI3 Llsv0eUKCPDXphx7H8yNBXufQD3pKZXqw3Ex3BjDsNo5VkhAv4yqPq2AG5Xi PasVnhAgLXWz1rmMG9kc44QLSFuLj2wlqrnRSW3fEbUSAjoEMlWD/uVGb5/E O5tLyfFTxKR/D3Pjx1+yuuzlBMwveieaj3Oj72w4uyfpLXOvhYpnuPFLYmZD D+miyet0N04qRqdKyOVUkPMxNhz+chUVhbb8baFVEqD4w4CiIEzFuLb7ni6k UweW/vTKUtHljc4zqSoCur8c9dZTpqLN1/LjXqRFPlaNJatTyfWxQG8iHfXG a9ACqLh/zYinw1MCml+3Hy8zomJSIb/GY9KcbZs+CppSkevsysIE6YCmoc5W OyoqZ+k+u/CMgMrGXQeUncjnWXEWl5Geqk1vvuZOxbLi25XjpN0qbBr0/al4 4PcEm101WS8lldvTQ6jYe1BvbwzpgULhysVIKn7XMMirI22T/aqgKpGKTd5n qoVrCIjP3Kgkmk7FSEfque2kO9IiHnpnU/HOnImBPWne+4MyHYVU1Bae0gkm bZyon6xSQUVx9SrzVNLhd9JEb9ZSscTzyK2npBtvLcSOEFTsTAib7iC9eNOa 16iVijTKcvAw6a2RFREP/yPfrzhwyxxp73AhDrYeKr7Qf7qGXkvOx5VzQfb9 VHzy21VJjPSPwLa5mhEqnss0cllPWtFP+YLEBBWfs2jvGaRPXrg24TtLRS23 U36bSad5fXXvWqai516xg6qkezzwmwY3DacL2u1USIu6pZ68xUfD84GGD5RJ Hzw1/3lUhIYXt6uvkycdddLKxkSahi0cu7slSDfbl3flyNOQ+5Z2Ox9pTtvV B7k20XDj5mfsK+T40eps60lNGvI3hV4cIx14uNWocRsNl98bqn4g/dRMibVW n4a6IRVKLNLT+67qBRjTMNwz3DWXdJ96/sqlgzS8cqzE8TrpNtFOpq81DTss 4je7/P/6+T9h5x1ouG3C8rk+6axeaSNvVxoqqMupS5CObdpF8/Sk4US4zLkx cn4v57m2eFyi4d5/fcLrSVv6lJuejqShVMbz7Vakd1n3CLrE0vDFPH+fDGk1 PcobpyQarusycfpKricadb+VQy4NnVarCDmS/v3TS8L+CQ0/BEmhDOn+jsSP tk9p2B0YZfGOXK/VyV+PWzXTcDwjGPRIZwfT5Sw6aHh7efeaUXL933FSGzzU TcP8o8L9iaTPqAa4mo6Q3+eFyb5hsp5kWEJehjQ6Di8F19mT9ceTo6NlIEjH nbJj5jNkfc7etJ/BNXTMTj/0LZJ0h8Vjvx1KdLwf7L02p4yA0O/6oVrGdHwo 8XaygcyDs+0uuzUOkte/6G7eSdq2LJpbzZqO7uP3S6rJ/Pjn8ocbG13p2CT2 tDGvmIBhQa87spF0/KYXIeBM5s9/M3ct1sXS0buupaiNzKeGnlrxtUl0rL3n 7qlBOimLlrIml47VQ1THKbIPNtHJyBJopmOStBUcyiXzZe2LU3wddHzksWXT wxwC5NlHlVZ1k+NrH947mU3WQ+vWQu4ROkoPfmNcJfOy6PjriiUqD1KvhKTf JPNUKGL5xc89PCjyM8JAlMznONH8LAczHtQYOMu79z4BwllWoW8tedCigz3E n8xzEeYTvQZnHlTLKPV5R+a/2MLJ8rgwHqR03C/wTiD3u3MvH2xr4MHgIPl3 ejEEpCz5BBe94MHO8V6pA9FkvkatPybfzoOhLwQYR6PI+cjzW8P3mQdH/JXi PW4QsP7rplt98zyYtKNqxu8aARusYgMjtqxC/gATnY3kfpc1tOPoot4qvCG8 7Y4YuR8qnP++1cuQPM/zvo0SSNbr7V3TR4+swpJ3dgPtfgQot/4+req9Ch8f EWaZXyBAFWys3hauQssr54um3cl8YMhpyivwon7OzK9SKwJc0xItdVR4cW1U 2Cl9SwKSRfkCDmjzIpOd7I+OkN+T4y9x0ZAXxRX2Kfaak/td3yuLNmdejGsI M/i2j4D9yX5+F7J5MVUzVTgaCDjB19n4ksGHhhs0uHYoEHBzOtjszEZ+FMlZ co36wYInQd9SbTX5MYnY8jhjhAVddLNRk+38uPrOVqWyYRZIr5e5rmzCj/If F/r+GyD7wf21rOHT/Fh+2dJ7ieyvOh791T6Rx4/fuWQvUVpZIGLtJW2pJIAW Z+5S/81jgZl9ye91woL4TSHj2rOTZD82c1FzbEUQw/upOT2vmXAl03YvQRHC wPX1OWXrmMAIFekMnBBCEf3nRx+ea4Thiz804LcwMmmljr4HG4BzlL3TaFoE B8dyhXzr6+BR3ESfRr8oMm74Sp8yqAV7s4V/Fb6KoXgAa+ZtbjUk7/wov/RG HBuEfd/fUXkG2gVLNRKNa1BzSmjauZH831HTU4FGCdz62eKs6s5KkBk2FzAu lsTRT4dF//aVg3tpWItNqRQ+iuRuOnC+DMSXZoknT6TRZng84/zaUtjjr6/6 M3UtfuYrb/718wnE8OV6qabLYMa9WBnzE8Vg/eargsWtddgnoVylr1UIzFUa UQ566/H3dZZS7+Z8GHi6PClZtx75tT7Y6UjmgeHKFsE9/8iidMpJt2DjHCjr WEq+WCGLzq9qj/eefQSOumpfJFTlsHjgS7dA50MwGApptM+SQ7bF3RoiFpmg KukokLtBHlOc089c78oA25EiMccUecyuqJjr4U2HeP3rN+RkNiB9MMBC4kwK LH4ITw1P3YBWNhtCumnJkL3qp6u1iAIKnTD/qPY3EeyaezPUExRw/hS/Z+ZQ AhyWgdv+fIrYe2fdQ4p0PPiXNax3CVNEOQvXkKuBcVD4pl3amoOBBp0L/1z9 FAuy0cad1f4MzBX3Nq4ciwH/mYGh14EM5Dhi0F/THwNdxy7PDwYxcJV3fOPz tzFwTbVUXiCMgQVWfgeG62Lgx2spX8ebDByvKQk4GhMDpUK/JHlTGChu/5GL Xz0GDJISnI7VMVDZjK0hyTcaUijqft4NDAy9ZvJwg3s0/HFtiY5gMtCxvDCr /Hg05G5bqSx5zsB3yjlzfcbRwPvRlc7dzkAV/upmN6lo6Fq7o6joCwO3bOz9 os+MApVr71hEHwPVVbUW+Suj4Nq45/vuAQbWWVjI9T2OAp2GRxSObwzsiZ8P i4mPghQHgcNWvxhYVpDgJ+UaBTPNeS5nJhn4vVGhmnYsCkw1dgeGTDPQSfjS 3Jx5FFDY/R7lzzLQPP/kuRHdKLBxE65unGOggG7AwyH1KCj9r7D97QIDW1Mt O4cVooBX1/jrjyUG0nIqZn9KRoHzw4HZlRUGKnnaiM4IRMH/AJGP1DQ= "]]}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesOrigin->{0., 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, PlotRange->{{0., 10.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.1]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.54130726890625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"PDF", "[", RowBox[{ RowBox[{"ChiSquareDistribution", "[", "i", "]"}], ",", "x"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"i", ",", "1", ",", "8"}], "}"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{"%", ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "15"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}]}], "]"}]}], "Input", CellChangeTimes->{{3.509091854347513*^9, 3.5090918913227654`*^9}, { 3.5090919366993027`*^9, 3.509092052641275*^9}, {3.5092788915642085`*^9, 3.509278902058809*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], Thickness[Large], LineBox[CompressedData[" 1:eJwVlXc4FYwfxa2suDbXta49L1KRyPerjbIiVDaVV1Z2ImQnDUVGXCWREIWi ZKVIdr2iF1nJ3ivj1++P85w/zvP55zzPeY64g4epMx0NDc32X/3fZSf11hWZ JyCv8apNsUYHCPe/GXVQmgJRqqZPwkIb0Cx4PWg0mYIa1V8WP/raYJhRQV/V fwq45HXkTZraoEA5tWCzZgpIItxNBVltoBNyxeeBxTTwTHL9lDFtA1sRLbqW 8BmwOnSB+Yp3K7RT+hLSJ2fhpYbb/f90v0C9RsUvo+1ZKHr4r3EZ+QuU6SYh Pfcc6Pp9V2jYboZUc8N5F405OHDdZmdsVTM4BFeZa4TPQfAxzax4nWaYb84Q 7hCYh7P3u4+Qjn8G3ku2z5gOLYDjxoq/WEgjKDA9bjC2WICFm984H9k1Aj4a HUxxXYBlRo7nZoca4VK3m5DSvQW4I2wveJylEeoPX403HlkAn9InPmeTP4GP SIp7SvQiCHyQEPtW+RE6WzrUFJuXgOXJlwoPyQYYc+E38hlYAgtPviXFnQ2w xXDG9d3iEuS3eWuwLXwABa2fj41EluF9W1SmRt0HCH86w+vjvgzL/jLvdjl/ ALVQtpW3nCtAzSfT+RTVw91dRysNzVdhWN0r2O5sHaj0Wh07cHEVZN52nvA6 XgfNEW6dikGrUL82czF1bx0wdt+bYM5ahcGazX/3cNZBUMiQUN3kKvAZ7uiL bKgFp8+hVzUi1qB3pOuYj0YtqDtXHiC/XIefd+Kv+MjXQCehtZHQsA7Jmcmu uoI14Pl60Hyzex18D5//Lc5SA892srr3bK0DV1Y9i8jvahArscy4p/8HLg73 O6zmVQPz9tIW8+AfaC04HCenUg3fH6hWz3Fuwq3hild6N6sgtTOfw096E4o8 2eI33avgDEHWdl1zE4jhlXPfjKvgx3WRLTrHTdBrNXFf462CAXdWbd7STRhU IPotZ7yDscPD5epWW5D1q/dz+pu3sDqbXBSUtQ2udi/HeZkr4Y0iz/Z26Tas J9/Ys3O6Aq6cTzCMaNoGVfYHquSuCtjojZiKX9iGaxNnw55QKyB06DVfqwQN 6uaFuBC1KiCi5cmpAR8adEra+dzf9w3cyL7WSidIi0U/VxnntspBf48LN58k LRp0Bli3j5UDc72puSyFFgdOL6s3dZRDxJB0r4EuLfpyHvzF8LQcrko0j95z oUWvi+OBqcbl4E4lbslU0KIOrb2YfG4ZmKQXKxmcpcOKiRvhyxdKgVMpzcPa mQ4zk1Am16wUWiojSjw86LDx9oyDu24p6Pda7Lt3nQ65JU/u2ydUCgdJW4f+ y6dDxXRZ86rWV7Dngf5Zjw063G6Zpw/WfgUC94ZiEx/S42z7RCu31EsgKpZG rObQo7HW9Pwx3pdAqo26Zv2CHt/EdOrFM7wE0Vl5X9k6eky+kal/cKQEpE94 2lWO0WPgnqYs+6clsJthU31oNwNmp7mdsFEuASMf/mG1JgaMiVUi9RwtBuOd Y33JnQxovCUT2rWvGEwfvfm+8YMBN87fZ/yhUAyn2861Nsww4FhewT5ujmKw VnpccYZvB15uKb0j2P0CXIdV7oTb7UB7zY/noi+9gGgzPZ2O5R3YOzDk8Ue7 CEivWkh0tIw4MDDQMSpeBIU8Ziu7djLi3IlNuinGIvjWYfPijhgjrjyI19dr LwQpEx8Jk+OM2J1vTqtzoRBqT2YytqUwYpn60fWN5ALYPLrU8kWbCcMcqS9p 2Z6Dt2aWbWM4M3b1UT/s2pcH+lTCokE8M/pIjmZZSuWBBNPVmJb7zMjInrV1 mzMP2rpOF3fmMmPnYufs3t+5oOzJRt/XwowXvOurDdNyYSzHP2eexIIzexky ntPlwjlewymhlyyo9/7dwUf/5cDhmfUr7kOsKPPh37Pb1dkQePyeQs0kK/YJ RdOaF2dDYRalh2eZFR06psvKs7KBaGan+YZ5J/57K0c0OzwbJl9/WKFX3onW t8iRAkeyITH8tk9KwE58Pe6+at38GAb5ZNzr2dnQeWE+g3/4EYRpm9iT9rGj tkVZYNPeLDhukzGvcZAdhY8PhC/KZgEhdOK6+Ql2JCyqFSuQsiC9LjLnth07 VkfOnqjcosJr/YoJxlh2TF/T2nXpExVmLSX9Fr6z4/Skhw2dDRVsfJfimoMI qK9OVbeXzIT9hSmvQt5z4KvGQ/xhu9Lh8L8tm9OfODBw72hrmXA6GNIwHLPt 4MCY9UekTaZ0cDR1/w4jHGgkdkGusi8NjgaJXwvdwYlPCCY3/sSngafY8mNd RU5UCSlsD51MhfoLmVN1fpy4kEvvp1WeAq6rc6Gf2LnwxrjhUEJAMuz3Os8/ ys2FfU/8nTnOJwPzeE8+PZELe762RWeeSobs3rpvOhJcKDjw6fK0cjL8qLqv VKrOhTOSUiePjCaBYaRmd5YtF07p2VKbLJJAjTtMJaiYC318u9U6j9yHVUXO Poo5N6YSC/x2GCTC0kNS2O4z3Hi67NpVfe1EmOeQltK05cY93w0D0yiJMLmg +c9hF24s7veg2HMmwkCl4/KZYG7ciJ6wvPLtLjQalBNinnCjpGtCbo/TXUh1 tYHBJW78dTEogy3uDmjlP6cmJfFgZNgzhYNjt6CHnJ95JI0Ha05Wz3xuvwUB SXkZi5k8+In+4aXzlbegLCwn3TSPBy272y2+JNwCNUvqA8JbHoxm+hFsr34L 5Hbcux31kwfTbGWCk2MSgN82KNRPiRfzbqQaD+y7CbPc+nana3nRJPznD82G OOi+JNH2z0defNpkzfCnOA6q/37FtWZePKEccrT5YRzcupIvlvuNF53+5Axl +MaB8iBb/9o4L2p8MaKnl4kDt+JW64c8fGjpmc1RGRsL40bmZ4ed+PDGYXya cC4GhuLtTl9m4sdrJxQ32ChRcGlcSUKVjR/tPL7y3xCJguVja1NTnPx4971c PC8hCljp70a6kPjRVOa0o95MJKgG1r2yo/Aj7bTuF82SSLjqLMNjdIofdTTj Fyj7I4FfZ7JVMZMfP8+fV5AzjYDjM/56I+oCKMbYL0GlhgNpl2gUs7YAdlRG RGbeDYepy/W1iroCuOj/ZDAvIhzuLnNqXzYQQO1H3Rf6L4bDj8085W1bAVxi O01t3hUOXmw/eARjBTCL/cvy0w9hkCqPfSd6BVBdx+Sg9FIoTDgye7+6RkTP r8avvw2GwGTG4XfvI4h4YPkY3b7mEJj+Hsr0OZaIvLvjrj8rDYFZo7W0n4lE HC0oWKyNCYFlrfF6Qi4RU4u1uKpVQoCOt5nfpY2IKUc8LPtDg4FYf6tCRFwQ tfJ3PzZXuQpHpAToomsFsYsobGNfEQhjDsdytT4KIgFXGyZyAyE+y99w9vPf XFvQLzw5EDpEu1OtvgpiButseJdPINgIpuxWGhPE0ZHJM6yqgRBAEHJuZyfh sitFqzQ3APJXRT8JWZEwNFJwoOmRP3B9kUl4MUNCHWH2NKnXvrA1o/qkaZGE a2qXJA7m+sI4t9bb4TUSxnD3P3N94Au1lkbjRAYhbPTkShkM8IXLw/5Hw4hC uCDQP2iz3xe6/nzaMtEVQo5fVKbY9z6QpODqsXBXCI1Gmnc4dXiDUEyRsbq6 MLpteocaEy9DbmFB3dp+YfQZdQlhYrsM6l/z1d+BMDZr7OH7uO0FphK5wof1 hNHl8d5F219eEPeWOmZyThhtm6IaV8q8YH32TqhbuDB2GP5yq7Dwgu9WPi+y W/7y6lH+9pmekKyoyclzQQTnA9hg7IY7mBl8uV3lKoI2ciSLAn934HS15/rH UwTNXGg0Qh3dIe5ZLHdNoAg2SVvJGmm5Q4h8D69H/F/eaaji9oQbOMkGCX4u FsEKFQX9VEM3UJV8J3F9QwQZj3+2jxS9BI0k3b0Ld0Rxw2uPX/2QC7SIFskw JIuiUmLpCLa7QJeECJEvXRRfyYxONlW5wIDC2rp6jiiuydGkMKW6wMr+4uor FaJIVEo4LmHiAtJnxU/QDYkiefCaZFfNRQhLo3Xk2iOGVhzMtsPPL4CmcO1t lW9iqOtMrsl+6gwDklJ9v3vEsJTp76JSnCFGMUoxu18Mix4cGB2Lc4bu/foN xN9iyMSrI2Lm7gx+Vh1/aDfEcMabOpKx1xmsDLx2j3OSsbYhYH77gxPcjwnL eKtORupc792aKUcg0D/ysQ8n4/5OIfl+CwdgXHt/ai6CjMU05lPl+g6wNf2f Wlg0GUvOaFmmHnCAmR7BOWo8GYeP9DNclXSAtpI7bgNJZAw67T1dPGMPdx3C ztvmk7F8deLtz1h74K+1s7TuIuN6kp82+YMdiIaJaVvJiOOEgNLWoXwbKPRm lvhPThy5riqz1t23AZ3zc0z2iuJ4P3ck2CTUBqwN6jovqoqj5h92j3RzG0jn u+AasF8cgxPctH/T2IDgs8LUZENxTDBorjY7Yw28nQfWvvqJo+d+NT5Z4jlg kT5XZvpRHCs5zJ95vrMC5QOCRf7WEiikOCYu028Ol/u46/RpJLFA7jH/eQtT mFmIN9d7IIlBL81mOiWN4JhKQ6oeRQqfsrwZlI/Rh6oFrT8rLVJ4v83r+j9G R8FdSa2n3Vkab+sK+VZuHIQD005dViwyKJG5GfJgBP7un3iS/ZEMekSVOLOL aIFcaFxArYYsUs5c5F8ha4CCs+Z76R5ZVFi2JbME7gbnqosRr7zkUI2mbE93 kiq8p3Y5zfHJoxGv1/b4iCIs5m6vqJTLY8y7zvzdcbLgKJ3PknpSAdOOqlyP JErBnEKiesmsAtbuPfDy5zQZXmf/+bkUo4gOjJPtlX3CcOawJGqJKuGPkkHB rGIiCLlFv1GuVsKiuBh3ynde4GO9VHzSgoI79io3nmrhguxDwVdmrSg4aSZc 0FrDBWrBCYcSz1FwyzPGw6yUCwxnX3zttqegR0iQX0A6F0R9W1pzvETBhL7d P+RduWD10bWDV8IoeKqN/Y4SKxf0aCV25uRTsOvku94oQ0646JudrldIQc9m x1TuQ5ywXFjqPPmCgsGGPL45GpzALdG9squMgs9p7S+MkjnBgFlE+F01BR9W fNW++YsD3nblOHV+paBXaV8JozoH6BNeU/y6KXjPXtBMmMwB3ccal4m9FHy1 Veuvy8oBixUTMTYDFOzwFiBV9BGAkqVa8HucgvuivZMcYwjwtkfXL36KgtJ3 0vgXLxNAn/cUqMxSUND5n5pEawKcj/Zt91miYEpgoSvNbgIsVkelCqxSUMro tvkXEQKEryc7VqxTkMI+r5PHTADOPXlK1psUJF0WEbm3wA4ZbhVL29t/+1tz HLnZxw7/AyLMOxQ= "]]}, {Hue[0.9060679774997897, 0.6, 0.6], Thickness[Large], LineBox[CompressedData[" 1:eJwBUQSu+yFib1JlAgAAAEQAAAACAAAAFstT0cEX8j+pyXxesTfSPxRsX6oH Q/M/fngIhy+H0T+SMUa7TlX4P8qSozMU680/2ZgwwPEQ/T+EwBVpDs7JP4uk f88CGQFA0GexorD7xT8XlOOJk50DQIXokpFByMI/h1RJPtL2BUBWmiU90TfA P3M5oV/JgghA16HQ58Gpuz9E7/p6buMKQNiAAzTl17c/gTxRYRo4DUBtp/a6 dZy0PzqumbR+vw9AtvHazw6ZsT9r+PGAyA0RQK+X242oXq4/+CsQ3i1VEkDD vKS6C+KpPzurrKCWlhNA2xFPqqgfpj/wEkpgVsIUQBO4/huGHKM/44xgVnIH FkBGb77WXk6gP0jvd0nlNhdAFNSQRAAfnD/rYwhztH8YQOhD+tQz85c/RSQX AofCGUCnPW6kEnWUPxHNJo6w7xpAYD16FuaokT8biK9QNjYcQPRdcn9EHY4/ lys5EBNnHUCdfKynAfOJP8kaQTXzkR5At+/39/lshj85HMKQL9YfQISA0ydf JIM/DgOidGGCIED6bsTZUoOAPx6BHzxZJiFA9Js76awjfD8JJVy2UschQMtn d93EC3g/Lj0Zr3ddIkAyseW1OsR0P3LeEsNKACNA7kD3v6+2cT/v84xVSZgj QKO6FrJUim4/Ry/GmkktJEAHXaULl2dqP77zO/v3ziRA9xwhm0yMZj9uLDLa 0WUlQPwOuYmedWM/Pe5k1FkJJkAI6dYgVpZgP0UkGE0NoiZAyd/FjiGUXD8o gIp4wjcnQHa7VZUIsVg/KmU5vyXaJ0D8nFLgEhJVP2W+aIS0cShA0mfYu/0r Uj+/oNRk8RUpQF4e+FhA9U4/9Kj/9y+3KUDKQqT4l3JKP2MlqwmaTSpArgJc XKnVRj/xKpM2svAqQK8kS+74eEM/uKT74fWIK0DD/yylNMhAP1pEI0A7HixA uDQfa+MCPT8bbYe5LsAsQHv+SUR2xDg/FQpssU1XLUBVqvqOg141P6RDfXrw WS1Auiv4SXNQNT8yfY5Dk1wtQHMBYUZsQjU/TvCw1dhhLUCPMhvreSY1P4bW 9fljbC1ASlOfOgPvND/4on9CeoEtQCMMV7LIgTQ/2juT06arLUDb3vLU9a0z P2h1pJxJri1AlW9SPAKhMz/2rrVl7LAtQN25wykXlDM/EiLY9zG2LUAp5W6A WnozP0sIHRy9wC1AbrO9gEZHMz+81KZk09UtQH3s6feu4jI/Sg64LXbYLUCW BT8nQdYyP9hHyfYY2y1A83uahNvJMj/0uuuIXuAtQBCL37MosTI/LaEwrenq LUA8YcVOJIAyP7zaQXaM7S1AiaVXWPdzMj9KFFM/L/AtQIb3QWXSZzI/Zod1 0XT1LUAOGAp0oE8yP/TAhpoX+C1ASztma5NDMj+C+pdjuvotQA0RF1GONzI/ EDSpLF39LUBcZOQfkSsyP55tuvX//y1ApW+Z0psfMj9kHOs5 "]]}, {Hue[0.14213595499957954`, 0.6, 0.6], Thickness[Large], LineBox[CompressedData[" 1:eJwVlXk4lWsXxitlOqVIiIiSU9hEokL3m7EcsRuUMSWKCkklMoWiQmkwJZVj 6CQyZ06GTHu/IlNE5sx7m6Xie78/nuu5fv8811rrvu/1SNk4H7VbsWzZshHq /P+e7awul77/ZL9d0Puq8+PyaIwVcT/QegW2pFCeXsIzEBvqbERa/WAQ+0W4 zvdfCLXz86zTCUbwT5MrTY1JuE5/08LR+gi63UVGTleTcSaz9s1SSAQWA1Zz zLxIhaHQmNcv7Rh8VSuWIArTEKMR+PqX50sMuP+l0sOdAf5x4Uc/W+LAweKW o2tk4s6L1zfnlBOg0Vq6dZVFFn7T99rNhCRhnif6vJ59NgYzzfdMaL9FXsRK etXJ9zhlNyLFik0FB7pZPpq5uPBX8e1ZzzS4r9l1ZFokD98LjZynWzLA/YjD hyc7H9EbhG1dV2Uh4lDNNW23Ahx3+m46qZwNdeNAf0/lQtRsvqzFDnmPgLP5 I5zhRcjxC9swql0IZtBt9Rt8JbjcbsZ70aUIFYO/bSPMSiCnsmVpKLYYgybJ jLdxJfh8xWx6yrMErtEuETKKH6EnPdwx0VKKpwE3NtbvKkU83cg03akMz8xs Xii5lGK5V0bD5VXlSH13vFghpRSFTR6VLOUK1PPNTatKlUEp8K/0sZBKhH3Q SmteKENoprNcinQVTlkH6t1UKMfo9y8JlwqqIO7EPSx8phyJe2KiRwar8Xyc n9+irBybhuUDhrQZaGw65fzNswIeQmGLr9sYcOUXzBP5rwItWjM37F2YeC4U vuZOYwUePSty/BFLIv32SwHeHZ8QIJOUPOn5GeVrtjzQrf6Eny1qT9ktDfid +XbZseFK5Cpzn07a8QU5O60snvJV4XpIq+ypm19gYuWQpKxchUkt95JaiUbo rdpXFOxWheGU/JFEuyYI7FynKPGrCq+57+dYvW/C3/vMr0SKVuPcWYtbgjzN CH22uSJwbzV6RX4L+b1txsWopuefr1Xjm7+mltVUCxylnE4fo/qM7lyzRlC3 FVdQJfiBowameztbasJbYcqXV5QpUYOmcW/HPfu+Qtoo0os4VgPSrCRy/a02 rE1dpyf5vgYlitqsar4OPO5+zBt2sRbe99bn+57uQMfvE53OvrXQ6O8NUMvo AFIfdE49qUVedIBogkknrK6IzbMLa5Gx6pOub8x33L+bUd3HzYDL6fB1auPf 4dmw4aaAGAORVpljs5u7YLhDKZ0lz8CJXP/cFJcuJBzxOlxkzECDo7SR2IZu PH1Yd6Q8jAGlZ8GZs5rd4M3OtQ15xcDDqmmRhnPd+Lw64hVfOgNGWyt6g3K7 cUBe45ZmHQM1rXbusxY9KHi7e9N5bibKtJPi6+N6sTasVCLFiYmdoe+G5qp6 EV7W4//CnYnY1vcKEqxeDGlGiVkHMHHDsSr3gnofIl0uaByMYkIhYojB0diH /ySeKjaUMBHTPcEvu9CH4WTPv/fXMMEjv3CCLtkPjwTOqptfmOgr4e2OudSP 6Qdcgk79TEQPy83sXjWAb+/udGpwkeDerbLPUm4A2rXaSjprSVzz0fDxOzIA Jft6MSlhEnTBwzx1zwdgvWss2EqGxKr9TuL2qj8wvsSkj2mRuBJ03SbU8gf8 Fvd2pRwi0dXgnZTl9wNPNNpu69NJ5J9/oLS87gc0Um2yuaxIXA5L040+Pwgu hfMfP10l0dmee68kZBAdmW3bLTxI/CPzsW4gcxCDh6Iran1IyBTUm+1aNoS5 2xc2aN8j0d436ciIHEIPNzfXk+ckDir+ypgsHoIUd4SoYByJHHeOeZH+IWxj 6Cu5JpJ4yCfoZ6c0jCrti3l1qST09uwOX6weRum7K7v+KiaR5afZLs0eRmjg nXPBH0lIMXUl/xEawWh5ljSrnMTvMyfeRNiM4D49z9W8loTD21OsoqARXEsf jz5LkmiePafSlzoCjpSVHsb1VC7vuxXv/DWCJ44Vfp+bSUg0+3CclBqFhUWZ +rmvJIIlgw566Y/izQPj2u/tJM5lRzZUPx7FDdlH/j5dJBqXXgqz80bBF7pq d2IPiQMG/1kKdY1icDiQTO8jsel73oCN/Bia4uNKbwySWDblEll9ZAxeTppy 8sMk+jhlDXa6jWFHjqz/pxESVaI9v8JjxjDAp855cIxEikJ0yp+PY9D5FM5K GyfxSOuote2PMVR7lLgvZ5O4foKXv3b1OKriIzr3TpAwv1BaqqQ8jiZ+i5Pm kyT2e3tcjTw5jiPHkjednSKx5ZGyzJLnOA5Khpw7Pk2CM3G4xS5uHJzJFy8p zJAYzou7y6gcR+ywqN0ExSTTXH3X2DgqWr/eeT5LIqNbYCxKgIUD8ce5ds2R CJ+piV22hwX11kSxDIo9ePzp561YSLlhNS86T8JaXH0F6ccCIehe70ixjtJU psprFhprndveULxdN9nuGZOFRWNFvQaKV5udFV4xxUJMo4R+H8U3ckJsVVaz MbEgubab4gslDkU/JNjQzHhaV0WxZY2u0DMlNizXWuY9o9ioUcrZSIeNY2KN v80oJjr/VC4/yYZ+VFc1B8XKg18lsx3YaC8bNI6i6pWezHa392TjxIq2IlGK hX6HNYg9YCP06Q6tIKpfbk4nubpXbKzXbObtoeaxsNYgwC+LDfdGB93tFI9u lOnYXcmGxNCChAU1z86tK1SHvrLx+KBCuQc173paZ2jMKBs1gXvOBFJ6lKvl /zBeYmOX/3epW5ReOQfCCQ6BCeofuKlkT+kZbWI06aA2ARunjsFFSv9ga9l/ xA0mkPV4f3/qKAlvB874z5YTcIit+2pI+cXGq9hEzW8CpZ8M6Mcofx0PjE4d fjKBM/ditxYOUPkJu84VmzSBL+vnw9b3k5BNUMhbyZyAQLV5Z2g3iUlG7KYG 4UncbfFyK6D83tfsce227CRKbIzOP2+h8tJ1gtyjOQna6R/bnJuo/TDN5/vC ZhJCo6/iej6T8N/k03spZRL3VCpD1lRSfpSx0JAsmcTZh81DLlQe7XeqPf3S MIn2xBvKlVReDXVYevvmJ9GadFBAt5CE4CXrN1zaU1iT05kblkbVx/XvJ/rJ KZQLunLsT6H0ixvoibo4BclTKYyv/5G41OooJv9kCiH9Pl5d1P4o1/EMpvdP wWpCIUvhCYmr4lFOUYHTcN79WZztSuJe7rd7Pc+m8ebkj/BEZxIvj0kmyaVN 46g217jRRRKMu0nfi1qn0b6gVXrNhvLDbDa9Z8cM3B4ol2+m9uEXskFZjjFD +dJAfcUOEoMOQsZXu2ZQxst9cmAricWV5heLpmdQ1WxuVSxB1a/e/a+x+Cwc 9KfjDARJ+CWxBK86zSKgM+1YyyITyr6r5wrXzeHpIHdAWz0Tj5T0CoxM5lHt V3tJ9zITiu1m+pr28/gnvTPF4AITjADHL3I352HNedzooC0TnK1PRrhfzSOt xX9e3pSJm969YmWj8xDXYMw9BxO2tb6eagE/0W4zZqGwhglVuwJNycwFDLta /+vzLwNfI3eWTKz7A+aMCrGnpBb3433qVmxcTqgor0+yia+G8JPeu4+fcxCR 6j11pm6VCDx+aH/D7CrCxdvsr7nLFXDd+8q62o+bqOQpPbrnSBl0WAseTr28 BK+c9m765Y+4pXHkjOieNcTiovmrFscP2JcaleX9YS3xJ1NE9u18AS7OT/hW reEnNvIV9xuvzMO83LpOmokA0fXbcPkmsRyoJ799GR6+nhBts9/JF5QJtoDB 6ROlggSvsrSC96l09AafPnGFS4hQMZXg0QlKxUGW26F+VWHicq4A6jiTMXKW 2zXLR4Rw23fe/WxCEnSlhVcElm4kfvpX31+REw9+pkxoGkuUYHsl9BkejINY 0Du6quomosOAYfXtxwtEyO1dt/68OCH1RmNJgT8G1aIHdk+FSRDNj/NXPS+I xN5NpQ8VmzcTe5IEhkzvPwUfR9zVM36SREJIXqvp2CNI3NqsYSYjRUil5K0q cn4Inm2WOUcrpYjVF26Ns6OCoaC58Z2b1RYicH19aJ3oXVzpFCgzWLaVuJ2T Oy5RdRusqWCTQ5FbiamRT2fc+P2hr/gp+hBNmiiKC3mXmO+L4in1X3OkNDFs Pn++g8MLTvLKbfV22wjHND2Xe7bu0By3bTTjkSHke92mZeeuUf2LHF4TJ0Po 23SE6tNcsd333o1Stb8Jm91ldYuVlyFrt/fDtra/iRvf/eQ8uRxhV2wfkOWy ndB5bfR5u6kDPrxstJ3YsIMITz4wVtJph+nXS3OK73cQJWUyS3nDNji7LZkn +rAsEbAwrvY64DQmZB+rZrBlCdcJwchhP0vkxv/qngmSI/443xv1bjGFuc5W Ql1CnliUSlX9mGECMcfAPIUSeeJKhbWWZsFRbOC9lH74JI2QrzMWf3iMjnht Lw+2GY24LsmTFnyIDmWvUO3HljSiOF35xAPQYcROa2o9QyPM1xuTiXJ03Gme +Xn2Eo2YP+3MLbGSjvk4Hy2PWzTi7wMvV5hcMkab+uMvick0YtpyNFtX0wj2 1+JjDqVS73+zmsqWNcJsarbdaBqN2Oq/w01JxAgCW1rnlHJohNOWOlWDqcP4 h1t8U1EJjfC+vLNt+ZvDKGxMtP3SRCMmZUQ6/DcehgFfLu16K43YTzc+lcB1 GK361bMi7TQiKCCpoH7GENP5I0GnumhEzsMstkGDIWivdqYMDdOI8A9DocX3 DVHYduB68BiNOP4tR13VwxAGgsegyKYRARK/HubaG+Jc4LX6qzM0wnqjpViH LvVeyZ1o4XkaQcsv0PZRMYTfQsTZ/AUa4Wwo8ktuqyHWqfwnb/WHRsS82KTe y2+IWMf8maUlGuGr6fYnfpkh/gcAD0xD "]]}, {Hue[0.37820393249936934`, 0.6, 0.6], Thickness[Large], LineBox[CompressedData[" 1:eJwV1Xc8Vf8fB/Brr7LKl6zKKuNGKiPq/TELGQ2FIjsys7XcUEZaCAkhqyR7 UzLuoURGUfaoRDKva93rd35/nMd5PP8478c578/7/Tp77b3OODESCAQqfv3/ vjLc1ix1P/64Tin7Y6n7fsd704SCtfp9QPbcSL385zOABDrthfpDYTCWtXvp gz0EmL3uY+qPBevUHSJf832A759g7FpfJrR+suBlJoXCSJ2J13JfCeQYT1tn ycaCvtT00EJfI4xJXYpNu5MBWWYmFsWeTeBI1uTbzpQJDLdKur1ZmmG/jTMM hWVC3dfr2JxyC3TZrw9nhb2EgxFcxbMPMLCofxo5eiMbRKcVwv/otMPB6kNs YaavYK1P9el8XzdItFzXeapTBFXK7La5sj1AVY1qfxxSBAEP+uVsbvTA0PM6 DfXaIljUDm74JN4LFTwv+WMPFsN0Qc1MjtNXWC2NveUuXAKDYce0rZf6wP1j yjHOoVJoUNSZa+MeguSui3u59lfC7egdNSTbIcgMJJloWlWC5s+JcNWSIbBu ieWViqmE6uRw4WzzYRD6sTtIaK4SSljIeqSUEYiMtMFSiqug20PKRERgDJae 9yicka2BJp3crK7MCRAwdc+3/FkHSg8L/1BbJ6DQZlfdvm31kNZfeUB8bgKa FyUt65XrIcijteqqxiT8XmbkRiH1cCDxTztT7yR4smsefCXwDpKn5SlHWH7B G/132mpq78H7SZFe8pUpGKw1Zu1/3QDDA1XRDQ+mgJeFmXG6pgGMZD50/iqd AhmBU4vjHxtAprbL8hDhD/hW03mjpxtgYHLRoz3pD6izJvws3P8B9NWOJNDb pqHbOCjdM/0DiI5U/7JXmIW7O/7wWd1uBMLStaS207PA5nTvuMr9RphklTNU CpyFprdhwrTERig4kFxA+zALnt8fKRsVN8Lx29f9ki78A9fLv0VnxhvhspgG Y0foHIgUmfoZaTdBF3H4YcrfeeBWan8tuNgEzao1v0235sH0qxby3myCCq0E xMS/AKPP2ijlrM2QbG6y6Kq6ACnZnFwcIs1gf+uduWroAtw0GBvt1G6GxfY0 0W7BRbhmLSk2/7AZdrpffs2mswQFirKzK7taQI7tJdnswhIcfZ9X0yLRAijz 1/gztyV4PRs8Q5JvAfd+DxGF+CV4+vtwe51mCzTr3owx+7kE1fGD30/ZtICf 2DPPZxHLUHHivvNoagtEVw1Gjz9fBiOlg5oh2S2QfnZPrnzRMsBlpQ9cBS3Q HpU7Ut+/DDt+l8n+q20BqZVys3FZCsh4qWf96G+Bno5uZfl2Clz4czvEgYcM U67/mfqNUoB8bCzulwAZ6MxWbvXLFCBquT+xECWDnMbYS1OxFTj2H0c8hywZ QnPndvp5rsDVxGUsQ4sMyqRt1DpeKhwf8VWt9SLDSRGzHazSVOite5R1xJ8M NhVxiqbqVOh6aC6Zfp0M0X+FXcbsqEBRqUzVu0uGcQvZ7yylVHjnJxvc+4wM sQf1a03MV0HQ/6YSXwMZFAcsTxxzWYWo75rnTzaToT3co0f+xiqYx5Ef+rSS gbU/foY9YxU49zh4pX8hw43bEyJNf1dh9pKrp8MoGRw/kW6qhq/BZ8fSo7E0 MjD4x7PLJK6BEpL8S2DAIE08L37n6zVwi/4U4cCMQf+1zjcLnWswkcJbwsyF gbGQ+FC+yDpwn2U7XiWIgYpT7bE9pevga87tPncAgx7uzjZu8jr4Hf70MfMg Bt5V4+a0/nW4P/57xPAwBq+5OD1/0Nfh+Uy7TbA6BrtLLNLiDTfgeGAL22kd DOouusuFWW/AHMMpn3w9DKxYSBXXvDfgm7IKZf0EBvEWuR0mCRug+NfTL/gU BuxbFDr7+Aa8mKnNpZzDIDuP4z51eQPUfJek1s9joH1GTPAX2yZcdFvatWyB wc1sXcUm4iZMX9ZIbr2EwbxR3OVbwZsgWq12lOKAwQNKzoxbzCY0rp+sy3HC QO5FTaDVi01oiKfym1zBwHFx7JFqyybofxpwu30Vg+9JSg0LvDSINT3JccUb g+SefJ4AaRo8fn4g9uc1/P25911eV6fBS/fqeAtfDM8/MTqjAw0+D+qBaAAG qe+SjCMCaRCQf5XJIxADm7UdqVwxNGD0vx5cEoTBqCen5s5yGogReUpFbmCQ 8eru/aQ2GgyrGMfCTQzsJwkDosM00I+csrK4hcGkJTVYmo0OohtCIy4heD/i fdpeidAhLIpebkvCwLlzVuiAEh1yTMffGN/BYEp3slLFkg7b2CqV2MIweBVy ma3Wgw4dQk/6e3BfrflxHkLpIFKt8e1pOAbyFPOcpgQ6kCO4VI3vYvBXsYty Ip8OyddOsq/jLrh6Sq/9PR0ka4kXUu5h4JmNxZv10sGXa1rpcATeb+F3hyxp dCiKcqjWjcSg2Fw9bIhvCz6dgdB63D6Py7rtZLbggqcip0IUBoc+KUr8OroF ZrxSNo9xL7PkX7tqugViPAz3p3GXI5kP/xy2YOe/1NSj0RgE3Mjg9Q3aAtrv lkwSbtUKUVtqzBbcW1PNrcO9Op9YeCNjC8pmcir/4a6W37G1Vb4F+jbVo//d x+C680OT8I9bINrNoXgEt0YGRxr7yBaQSmUKDXBvDoTPxixtQYhjrMc53DZc pDR2ZgLaf6IpwBz3+7xjZENuAmrHJPtO4d6jvzEbI0RASlf4nx/FTZqoEuiU IKD65rEOcdyjpIBjfEQCepnXf3sNfx8t8cNOZ1UJiLpdufIj7szahZinWgTU rCAWHoub0bKwrM+IgETD6xfMcNuvuA/uOk9AwpNy21hxN8XJMV+yJaDBwGsj xXh/pA5OyaddJaCbnU8Cz+EO78g+O+pHQOt/SKOzeL8n3RxuSITg9WC/zG3c ehx7XzpGEdCFNqdzLLhzcoY/5sQRUBzPtsAw/PxYdVMWp1IJiFVx/Nkqfr7O Y5bC8nkENDf5stURN3ZbUNujhIAskxh4WvF5iKyOfbJAJiCW3cJ8fvj8TJ03 qz7URUBhLrSJOny+DJa3j/kPEJB24efNzVAMOBWjlNbnCIhbk+uAAz6f97NC Ohl3MaAZR5fPrfh8Gx525ReQZEBMoltVXfj8szefMd9HZEDFpPOx3fh+hE9I DxhpMaCE7ZfU6oLxfZdo/xXvyoB8rCUClPwxOFpSLpvry4DKgpyW1/B9XNV6 4V59iwE1az8qrfXBwN/OZ3HoCQO6ueIhth/fZ890IbpMDQPy5BGszcb3XUGJ UUu9mQH5foq7pOyKwfT7mTCjDgaU9CbvUSWeD1dG3nF4j+PPx2l25ztiYCvu JFDNyYh+fXcc1LTB4HRKsYLRRUZ0NzuVxGGGAa/Ccy9rJ0b0LW/bZ0kTDDpq w0u8vBiRq5WVniqeb4YDF9TiwxiR/5fRYYOTeJ4J03WG8hnRRMnHKnGEweEk w4tem4zI7eQF5kd4/grGT0TFpTKhu/s2+FpZMRCSLw9fzWFC+1WfpZzA81y4 8V6IdRETMjw+LteI5734vKz/viYmJPBY1yNvkwzSp7xta6eYUAFK0zm6SIZD zDSViUPMKKruAiVokAymfv9NKn9kRleU82UfFZDBjGtqOLGHGT0MDSm78ZoM ZzKrv28OMiPn9yLcjrlkOP/lUid5jhmJqz3Q259BBmuFlzVWAiwI5vTcQuLJ 4Dap+CTUlgX97npa6IH/DyPOGRzvXmFBrjacs9d0yCBc1iHMyMCKMsu9wxOA DG93nKMe5GJFBhIbjJUaZPjWbVP0ZDcrmuOJ/jJziAxSp/0kTp9kRdkr7q7S UmRoNH7B+uUZK2pFhVbDTGSg6VM6PmuyoaOUveLxDS3gq55xuS2UHflGPpKx U2oB3bn1654TnEgCW9g+yt4MdzRP2wmrbUeyVN1bs12NcPTts7Lb73mQ5b2G xKf+H8BtdYHUup0PnWDrNbBRbIBVed5hojk/snXR1RHKqweN/DfpCQk70Ji4 r02XQC3M8xvanm/ciTRPOb9q/VQFEzG2533Y/kP/ZBVVLX0r4ORcoMFPFUFU 8FWacM+5DGYc2H3LQoQQa3uM5IZ5CehJCTJGNO5Cxe8q07sDi4Dvs8zDojlh 5CMHRUy1BSASWWimoiKK8gQ8vNNjXkOivDrvjitiqGKwSqKzLxfahLWOLD0R RxbWhAQf92xQF218rPhtNyJgi8MXuV4CN1Omn13oHlRo6+s1zpEB4nd2a1rK 7EWgl2dvKZsGHNKXKs5gexF/tvIPnqpkOHBsV2GgtQTyu/h8le9bIvgM8zcZ EiRR0bfvQTocT2FuKcbcIEkSsSRpWwaXxsIJRXKyAVEKSVyq6BTNeQzvljQ2 qB1SaKlSIp7r7APwVFD+0eUkjSIbTLAjrNFw7J9jryWHDGrM5RB36b+Hf7+Q 8fZMGdTrzz/0WCUc9pOigxpV9yEqnzVJd/oOyDmpv5f+gVtKf5eOawg4vXMJ L7u2H/XlcZnuaboB79N7HRcEZBGNcq6hVzcIlvO2qIqVsihOP7VsFvmDg3Q+ R7KxHNqtW5G91uwDC3JxKiXzcqgjvYL+wdEbqrI2xiiR8kjO6edN0pg7WOlK Ig1xBTTQ6nJ17pYriHhEVB9oUECfd1m75SBnEOB0Lza+QEQmdvv4lhMdIEvn 1vV5SyIK9s12+RLjAMq3HurEXSIiSVuB2ZI7DmAyX/S1346IlE8/9Yp2c4B7 3yhrDu5EtDq0SQ8FB1jNDNG+foeIDHyF3BOn7OGHRlxPTj4RWf88sKEC9uDi n5Vi8JaIeJ8fed192B5W3pY7/S0iovrrWbv95OyBX6KferCCiI6Hm59uFbAH I3Yx0foGIgpKTwou/2sHdb05jj1fici4wlkx/bkdGHJXEQP6iYg4c7Y34Ykd 9J9oWxEaIKIC4Y/ccRF2sFwzE2kzSkQu46ZqKb52QMxQKvgzTUQlEts4F4zw ej+0AmJmicjd9w7bTm283s6zoDhPRNSrWaGaanbgHOHf5UcholOREr9SpfB6 DfeSBVeJqJXvWes3YTsIXU90qFknIm72ZVEBPjvgPfxKwZpGRI9GdUct2Owg zaOGsrVFRH8ep/Fk0mzhf8tjVyQ= "]]}, {Hue[0.6142719099991583, 0.6, 0.6], Thickness[Large], LineBox[CompressedData[" 1:eJwV1nk0Ve0XB3Djvdc8FEokhYSbePGStLehCZkiQymFKJIpZcqQSIZUypDM UkTGuobCPRpI9FKGhEJlLDIkwu/8/jrrs9ZZZ+1nP99nP0f65DkLZzYWFpY1 rCws/3/O9zc1ysQk7uZsDB+pJRg679PX+et2e8P5NZ6/BCo5AUXaTq7rDof5 hxkf3DM3gmivEJegQSwcJE6aaAkpgZ9ZQRd7900wrxFlPRevDifK3xSsxiXB 2aaI5iD+3WAsOhm8pJ8GEW/8jpdV6oPQD7Gbf7qyQbZx9+1CNROIzHgQ+Fs1 DzJ450v6F83hr5mW81xcPuROP8qJY7OCkXI7zWn9RzAyocz9PvgIDNSanJvt KoN7C0J3xBacIFVEzMmHswLyuL++zhg9BZYeAza/VCvheaypCm3EFZqlPPWm 4p6CfZTL0Bmus/Ak/IbIhH4t1N3esm95xBv2yoz1TXcxodqya3T/7SDINTOx KfUgQFdqyNm6LxhYg8vaPTkbYW+MxYr4thCo/RDw6qfqC2DxNnj28GsoqETx lE7GvQK5uqz5gbuXQWJMKWJUvwVs47sD/U2i4U/Xv7enutrhCeuj1vGXN4Gh SnPI39YBv9nj9IzVb4FfXLfCscAOOGB0N1sy9xb80vOvf7PxPdhZHBHnvJwI Y0XV4/edP4CXwubpq3vuwKfLOnr2M11w/V559OOPKVCvrP+zib8P/p6VKT2X kgmEfn7uf9lDcPOhyZeMtQ9AYqDq20mlSSimt7vSmsqAZcYrucl8Elr/vCjZ OlgGwxQFwx0XJuF69d5dO5fKoGh7atFywyRI2Aa/0qSXw+5LAb7J1j9gTNDJ MSWhHI5LarO1hv+Ez2bLh7ssK+A/en982sQUBLyutGxur4S17scLqPozIJ7V 6xaSxQAFas5LM+sZkDtwo6iBwQDM/jaY4jYDuw+7z061McC9++wGpcQZqFIu 8BBdYUCjQVCs2dcZSGnXoAfZVoGvZIpHStQseN7bY/CItxo6WttVFVvm4F3F jne+TjUwclrU1PfzHOyau1Rk6F8DKxx2bs9m5yDBbbiHN74GFLS/5JhKzsPi jzUih5/WQHj+z7W+HvPA8zjqvyVaLaiG8v6uFfwN0ep2jTcf1MJNlb01JlYL UFhoMDfS/QyUe2336bguwN4eN16+sWfQEnG2QzFwATwl3k9ILT0DSnfiOC1r ASIsjfiFJZ9D4KWhDcTEAtj8W7q41eE5OL0JDfo34g/MNuXNbBh6DhrONTqb yhehcfyektqnOujgb2vif7kIO2W/6KqP14EnY9BquXsRMte7uMsu1kEBD7fH x5VF6PuTFTXKUw9SZTbpiYZLEOk2sqCyrR5oq3MrtMEl0OJxI5RP1kNP8o76 acFl8L0g1jH5th5SOwoF/GSXQTHHtWLyfT3Y8W89vqi1DKbbNRaGeuvJPEmu sDkug1CmXUX5aD189uDetbZyGTyKp4585miAEYPhpxq2K+DGnefqpdUAC1NJ jwOzVuHp5UPvYu42QJXimtXVylXYstzYeSyrAQJOxZtENK+CadybCvn8Bvjb GzEZO7MKaX1PqVllDRA6xBBp28yCmcULATJNDRDRmnfosy8LSpT4qQfMNkBM bkgb23pWLGOEvr5kwARDtdPCIltYUbH86MLGA0ygNVpYbaWz4qnQ8O4nB5kQ MSTba6TLik1VDdVvDzMhaHPLt8TTrCigjSHJrkzwyFy3IlfNihf7NrXnXWOC 0g42Xa1GVgTrq7xEPBPG6sYvG7WyosxM5a7um0xwGXjO5TnIilQv4YSxVCY4 bHQWqeJmQxE1WsjjAiaYp5UqGR1hw04ewvn5ayYIKt09Z+/MhleJ38L2LUxo rYkoO3eODfHV5eWZNrL+XmvNxMtsOGRRl8ZNzhk98RX9vkI2VE/7Et47zAS1 ZMMj5/6y4Y2Hk2MCq0wQSxyKvnWPHS3FHYyG6ASsU6yMWLjPjrzPBa857SBA nBkZYl/Cju/S30QNqBKwcWrb+a0EO4ZOercx/yVA1tjToWaEHS12Sf7ZrUvA PxzLGkP/cODDFkd2oUMEqN1tVdmvw4F+FUG/la0I0FDNVCray4GUIur3/dYE 7HTQ33zBlgNNhW69cj1CzsHaaD6eEA4cdz+64OBIgKmv6LBqMwc6ldx00fAm wIxnpD+pgwOl8n27530IsMiu6vn7iQP3t+uFlZ4n4PC7o20vf3IgM+F5tIg/ AfZKOdV2IpzolzI0kBxCwDHCt7JuIyea7+v2VwwjwMFub4mMPCfenRw5zQgn wOnqaN6PnZzYJ+B1pOEKAW7DyjfCHThx1P765PUYAtwDWWO/n+ZERd/urLlY AjyEOyKNfThx+qlds1U8Ad7oFyQayYn5p4WjOG8Q4J9W61JQyIkWp9zXbblD QJTlgd3t85w4ck9r0DaD7G9FqzgbKwW9ko+phWQSULzG8rcKDwVV3b/vS88i oLP9WMkNKQpOGMu+bMohQMbcd7P5fgreaN+a25lPAKPkz0qoBQXNlvdGNj8g wFgwpLfkKAX9N1WaMh4S4NMWnSjoRcHgDycLwwoJYB7MoLxLoeDkMB93SzHZ ryKZodUcCg7KVRZcf0zAGG9BnXIxBd24j9gcLCFAqKXi4nUmBWP0XSaflBKQ q7jTqq6Fgnka9P6TZQRoxtSp/OykoMtqyQ9aOdlPw+Yxk3EKmh7MC9OvIGD2 oemrS3MU7Mp15+smHcX1Iad4lYJbPDPenKok1/t64Cj/WioO+YxMez8hQE/e WWv3RioqHDB2nCLdGTUm4iFPRf8XT9a7PiVgee9c69tdVCxpobvuZRCQcD+g cHkvFVttLnEVkZahsFylm1PxwFV7Nv4qsj/OV5zsj1AxXO+M9WnSxi+4deOc qaiipMdXR/qzTILks3NU9MgNkxeoJvsVIbI44U/FVw1EkS1pynBqp0QEFZ1N s7PSSafqbyo3jqeiUnMlrZ/09py860HJVByzv/1drIbsL5ui+6NsKt4e7NQz Jn34ZMn+T4+oGNjDLxVIerRBXZb3KRWTzrwLzSUdJF3DuquBil0nitxfkxYM w363N2Q9Shrfv5HO/fyi+u4HKmp1/pldJa2JRklvBqgoQY1MXVNLQEvGO5+l USr6sLh8kibtsGplpjhLxdDUrXUKpGeP9SodWSHr0zXft5101HMHrhgaDXXm 3PyVSItv/Pa1WpiGZ/VWbGVJFwe7McckaOhtEDe5jrRe31S6+FYadmamaVJJ d+7yCzRUoaHFlWKYIus5k7ZkHaBNw6A8fep70stLoWoFe2joqtl7q4x0whGK 0EdTGp6a/zUaQ1qmJmaSy46GJaJUfgfSDHGhZi0nGmocvMmhTNo44M790x40 PPKar32B7O/nng2XUy7SsHn7dMCz/++PVtbxpnAaHrhXxh5M2jCTf9YoloZh gpWau0hvpgZdbb1Nw4seBcvz5P6+e3+4tOMBDZ+wDO05TvqBduOew2U0lCPs 3/GSDslW+dhdQ0Nm9M4/lWR+tnvysve30lBrKVBticwbZ5d/kkM3Dbsi+U2S SH/S+a449IWGTh+OrVUmHcPDtByZpeH6pchKczKvI/cv3P8lzoUnMjqKHMm8 1/F93XlehgsT+bVv9JHn446vRdtvOhcKm3/SOUR6jx594S9yoarjLxZV8jxl 9w0eoLpwYX+U8o1n5Hn0NzDrj/bkwlfaKtKipM0Kn3nzBnBh+MWkO2fI87t6 MfmuUBwXjmvHA7WIgKNrTSY3lHOh9TIxLlBAzuPAmrD0Wi40VbxJ20/OA+5B eVHpl1xo++2uXBA5L6oes4NcDxfaqav5dt8nQNSoKmHHKhcK8E5UniDnzbsw GbU9Rtxo4ZDZXnWXgPyRG69fWXKjS9af9PJUAi6Zrh41PMaNb2W0ch6mEECX /HjF1Isbg/Z9dbiWRMA1xvUu2yRuHKhc4pe6RYDBz8UAjyFujBNpkU6OJte3 P1GhYYIb/Q1EbOyvkvnLon9cM8+Nkm8kpaSiyPvI0kGrisaDRXNNbskRBEww Xvxm386DulFtVifJeX4rPME35SIP6nyhix/2JWBQRM6jkY8Xv0bzXmsn7xOx c3WSYmK8+IOrr0bZjszXa5u3pzfxYiZPQ3+0DQFPAmKUBP7hxVotb3Z18n66 NjA1ZmvDi3p8v9a7mBCg+rDG5Wc2LyYL3GPTQQLCdpmfENfkw+IrU2WENAH7 j6X/+leP9LZhthQpAvhDxy9bGfOhapK5jJskAWnElfsJDnw4/jhjlHM9mXfD 6nFKNB+qBTYOiAgSMGWzxW+mhw+Fc7PCspeZcOz83LWWQH70sj3hGdnJhJ3F KRWX6gTw/cWUf1RCmWDQ1br847UAihvsNIsMZoIJC8e+4+0COHz2un1PABMc LTx64KsAsljJWfqfZ8LeQOmQUE5B9F9xmMs8wwRPqfkcXUVBPM4QlbthyYRG l4xJwk8Q715+Pcy5lQluC9Ohr/mEMNCDU7/hJfn/pSjYT7cSRp4elR9Ng/Wg Xfgo886dNSixL37545c6mBI2dDjMXIsXnBmGErzPYSjW4bA3VRQ9mRy7TlJq Yf/PCwe+aoihkfj5zTYy1TDuSPOpCFmHftIDL9W3MGCPjBhbFHM9Zt3f/OzN zicg9FYuvuSnOHaKY9NoRAVsuPrYTENDAgneFx3p9WWQpKgluMZFEoc8revM VUqhSVxXfebGRrzsvuA6EfoYtCSYCcqdUji14RFDL/ER8LNn+54I34Snls3P beAugI1hUrts5aTxgT6THhycD1yyR59YvJLGJ8vpD0aV82C7zvrHF+w349JE R/1n9Rzw7hcmDFm24I4TLo9Kd2fBz5lYqwPJW/CM8PbzfzZnwD7ll6kH6DK4 vjyeOrQpDZ7PaC/9bpVBzdHBNnH5FPBQUv34n7MsGspLp5Xn3AGdH07vbbnk 0Fuza3qTYiK5/nUH+bLlcEXvReQDkZsgH3rtIvPfrfjNdb5jSTsBFJy16mQ/ bsUHNWtMy3tiwfm5a0SFlzzKULd90n4XDXWZ752mRbbhknp+N/VTJMw+WP2t /HQb9lQF2Xw1iABH2UKu1IMKaDcbEuUrHg7TCrc0yqYU8FLtaFcsSygwcpe+ zF1VxIwET0/V0CCwM9iC2huVUJohtO6Lmz9sOBtVtb1eCfO3XInw9PQDEW73 0oPWdHQLmfteOucDufrBAVO2dLyuyzutM+4DqsHx+reO0tG+969622cfMJkq +dB9go49EzmnWVt8ILJz7o+jOx3Tr7b8k5vtAwvZIXoBYXScbJ5U+2LmAx+1 b3XcL6RjQL2EgnypN7iez007UEy+7/eIwzrfG+aLK50nSuhoWVbfeu2eNwhv 7v6t8oSOZ+nb5VmveYMRTVLiWT0dxQjrx/KO3lD7/r5Txwc6Ri5+4zkh6g2G /Ay6XzcdNVeguY/XG7r3Nc2v66Xjpstuh46ze8Ns9fjVY5/pqLdd+ZnnlBfQ s3YUjY7RsVrJ4nFLsxfUftT1i52k49pH0lfONXiB4dpDoDxFx4eZL9eIMbzg VNT5/3zn6GjulGvhm+cFs/WRqWILdPQ0Pr2yLc0LwheTHKsXye/3brAbvukF gmoPleyX6Rh3IcIxJ9oL0s9Wz62u0tH1ovs6l1Av+B/gjxLJ "]]}, {Hue[0.8503398874989481, 0.6, 0.6], Thickness[Large], LineBox[CompressedData[" 1:eJwV1nc81e0bB3AjmzOIZGUrHCSJkusK2QmljDKSLRTJQ0IyKslMSUak4ikr e51DSkRlZFRS1INsiYb8vr+/zuv9z31/z3Xf1+e6pU74W7uxMDExKTIzMf3/ 98fIi6eyV9N0x6R8q9Odf+n0ZQv/s2/wDCi1TC/NyVbpouCrE8KDFyFFI0f3 8qa3ukLvqFwUgwSQiSaTazondIMtiwZYB1NA2sJoxXVtWdelorNo/VoGiH9a etMrwwzmQjPhv/WzQEGrUnImhxOydOIe/D6fCyV7DyodqKEAdXZTys+Bu6B1 R9G+8YUgxOY8CFtRvwca3n2ywtGi8MdS22352n2Q/FvxJ2NBEs6wdFgsTTyE NjlvG98gWZiosNda0P8XNJKaqgNNtoKj2zepuezHENww6785QBm8eZpifpwv hYl208bxQDX42GDh/32gHKpO1y2tue6ETMFNJwPZnoCl78GBfzdpwWG/j7aL 6pWQLOJm3LC4Gzq2BOjNX6sGy9PTqzOJCDEhWrv862sgKfGo8WNNPcA3TMqz E7WQblxocH1BH6ouJgtO6zdAwjRzpFyuEQS8s+P2Od0Iz6v/GKalmoCShvT6 ZHYTDKm6dty4ZQavz9h9XzpPh5mKJ+Od7w+CoezUh4WBFhjxetghnH0YCiwt bMv8WiGPFiKjM2oDzOHlPQFsT4G5bd8hSaWj0NAf+nxOvQ3mbW5rTwzbwfY4 nrKZa88h9lF5xr1cJ0is8Fd6JNsO44YTRhGpzjD9sfeeb307DItZanbYu0Ch Vlbmt4kXkFnioHh7+QSITSlfmtR/CU+/SPWZOLhDqFDy3wfDL0HQ8QLLFV0P GNBbDvE83QX2/9ySfCjnCSm3G0/9l90NmTmVUm7rXnBJ/n7x4vnXYCtSz7z2 8RT8HNiVPj/QA9eXqTnxCoFQo87pfH9bL3Tt8/X1bwmE4GuDio5hvXDf4WG1 jVMQLOr9Q++U6IM47YXzpJyzMPWo7luhWz9ESseSyneGwPvovXrHlwaA7ZXk 1Y/14UBX1Z97QfoAql6t9WvsMXDhikBdpPMHYJ7sNN8REAM6X8Yu7Sr/ADYr xvxywzFQm3lJ5J7NCNgkGsfuLI2FcrZn+yOzPgKbZ11t38l46DklayEq+Am0 bH+rec9ehVb9+wVv7o5BAh67u6M+GdQSSyZX2scgHn7eKlhOhuzBahWJuTHY aWk1Y6GWAiGn2mu894xD8IEn7AcKU0AlY/Ila9848OnZ9bxPS4XMKaXlnWxf gevJb5GGsHQISC7dn+kxAfrigtfUfG+B2MfaryeUZ+CVvtOlre9zYaOvUxGH /hLItJWQdTweQsp2w3oLm1XwP3yYp8K8DIZuqtEXKGuwpKxz39C0EjJ7i8nB cmuwXdBtb5F9JdiTFJx+aa9BDW/ALjafSqJ+4n9ZXNdAYtVHPe9qJYz6cets rFwDD/tFo4CXlTBhMF6tafcXVGD8uKt5FazOZ5SE5a3DqUFFPbf91XC1IOIV y2Zm/FLptMFRpBZMNbz4BWWY8cwwrVtiay1wPrW2UaAxYxnX06r+nbVwaUzu ndk+ZlQZL++Ts6qF89Ivv6Z5MeN/U9+GLOJqwS9X+K98HTNeE0mZpS/UglVW mbKZAwuymnD6k5vrYFPa2OXUO6zI7mN6tm93AwgrVV5aLWTFjOvKi4b7G0Ck JTbieCkrLlQdO1Z6sAEk5redVWhlxY3/5P/wONkAcuYBzvUTrCj19Jym97UG 2LFhTXNsxwa84cnIrPvQAAeDhMbVOzag3AXl/VfONYIlz8RIRu8GzLUtYxuO bATru7VDf95vQP071HLJK41w5PWxV8/mNmABSeR1SlYjHFfOr7MXZMPPn2pV uBmN4DOumnzRmQ3vyBiu7OdsgrjDJro9P9jQpC2Le+V6E4g86RZhYWZHam/D +/6bTfBY4PDKdh52ZIsOlSzKa4K3PY6lyVvY8X3RJMuOiiaQtQqStjJmR06v 307P+pug5UAO++tb7Fh40uHHd+FmWDNc7u7S4UDL0PixCxnNkFQYWrxmyIE8 fQoe5JxmkGVniqdZceCB9rbM9MJmMG/j3nfNjQMvTEWJRlc2Q6a+ZIV5Igfy RU0++9zTDFpoltH5kQOllXnPv2OjQ6B2ntOLi5wYPfmy6fNuOpjmkr6bJXAi a2qHVO9eOkhznI/vTudEueTNys1Ih9d9R8p6H3Cil3XuniuGdFAJ4GUd6eZE 481uXtNWdJgoPFe4KMKFVn5Uic8edDi20WJGtIILwzZyamQl0WFHWH1UdgMX Tpj6cGxIpQP3561CUs+4sDru678e6XSoLWEF+SEudL7yOVA6kw5CZrVJautc aJ3gLeKeT+wfJaux34wbBzsHqAqVdDCY+xXqN8aNahe0lDP76fCPcZoiY5ob 32iz3D07QIfHebRhgR/caCX+fd+BIToIH3bWruXkwVAwYl94T4fpmrYVVhUe zC3L7uAep0PqxaSgWyE8eL4gKy1+gQ7t77bJTkfxoLV/hYvCEh3+aLT26l7l wZE8jdMt3+ng/t+y+vgdHpQXKzg+s0KH3eYOCyqtPFi8np8h9JcOnwXl/Z7y 8eKWIJbZai4GbPJvFt+0iRe7u0qzRHkYYN5u2+UlyYtnAwcKw3gZUBV6VZm8 gxd35k32qpEZcOXj/JSdLS/m33nR6L+RAeoP6z3m7vLiiWLGrn0SDPBgsdmk 9y8vHg7gdPTZwoAsh9lnaZW82Pfuws9kSQawk6Tkd7cT+904f6NPmgHDZ2LH L83wInOo+w1VBQZE6Vi5iGjxoVXXrJiuKgOMHbMXd+nxYVjJoRcGagwgRX6L tjHnQ0qcnpfRdmL91pjCJGc+XJbZmYA7GFBjWveN/TIfTim/usWyiwERvhzh sql8uO3eqPgkYcPEwyS9O3x45HZIYacWA/rezKqFl/GhlsXTrku7GTBvKxO8 NMSHRaq5pc/3MqA6NICDOs6Hqw7VaYm6DLiQ1XhTZZb4HqYziVbAAN7Ro/Ve LCSkNnl2diIDFDwSmEYVSVjjkXY/WZ8Bs/FDyWsaJDyU8ydI24ABT4rkZUSB hCo96PWBsN4sff+RQyRcSGJ6tdmQAY5nl6+8DCNhH0x0njRmgFyGnthUDAn/ XK/hnSU8XXP9EUcSCXk1n8QEmjAg9M+213oFJNz1d3hroCkD9kmcc3F+TMKD 144fnSHMiU8Xw2tIuGJU98zVjAHp0Y6CtS9JuDhfEbDfnAHH7hUXvn1LQlnr opJSwtLPV3d9HyWhO52mJXyAAaXcqfaqyySMl0lWeU/4nPLoN/N1EsYeeJmr ZcEAXQtauDcXGUunTN2SCb9Mfp5zT5yMhhydM7sOMiC1YuP2VgUybtDZVhVD 2L7fpWV0OxnjTS8NvSI8IfxnXNSQjL9kp7XtLBlQstskWNuSjNNfjoTdJBx8 7AbHUXsyVrqHSvYRZs1VU0zxI6ML08NstGJAByO8viSEjL9JAudPE04a6zDv ukhG5raltmzCR9mER6YSyCgyEnqhnbCEgps/ZwYZTykP3p8l/MW4nEk+j4z0 G3sMqNYM+Nd7PVm/mIy3hPpt1AgHJpjLuFSS0amqb8SM8O7Ht55caCZj7HXv T66EDQa612bbyZhv/0zsHGELpg1GTj1knPspZRpH2HabdtKrd2Rku2bgk0bY 1dpvCL6QMU17OSqbsF9YvnTpLBkFFX9fv0c4pGDQR3KVjAkJ4hkPCTO+xtq3 M1FQP1nmVhFhwzCpiEg2Cl736st4QLiT3JCvxU3BVMOVtHzClgVH2udJFFw7 eijlNuG3WgvTDwQoONRRkpxE2KHrKtVFmILG7b1pFwmPushrbhanoH1Q7J3T hN1/0O3fSFGwZzrx0XHC3644RFyWp+CC0ZNnhoQDtvzI36dEQfPUxillwssV Se0/VSmY0XNalEI41FhppkyDghf+ZtjPE/Vl+tBG9damYADrysMuwjGnnTWl dSkYTrfheUCYm/23/bAeBdXZwyIj/n9+mekRKUYUdEqn8RwmnNna0c5iRUFT XRvP78T5b7F1m6mzoSBn1FFdOuGC6XVqoD0F2Y8zb7/8//sjuNNhzJWCSwfd AvkJaxS9irjtSUG9L8XPeoj7VqfrXXDoFAXdSBV7kwg/9ciZaQ2mYBSbaDYL YZM/2vznwyjIe4njajVxn7uT+jQ1Iinovdx514vwUC1XZMFlCs51L9q1Ef0w yxPEH5NFQWZFc2EHon8Cc0m79uZRkG8g4dpPot9WNR46LN+j4Ipl9550wqyO IwVuJRQM8nYzfUr0p3Cp8S7DFgr+uH3UhZno5zsGYw5/n1FQXlzg9WWi36WH wiOrOon6VczGkAnTWCpeyPdTMD+cv5vfiMiPw+LHOCYoePKGLfNPIk98Vhci 2/mouJCeEb6fyKPdp92FvvJTMVPM7kw6kVecU8PFrMJUlMwOs/lM5FnBu9a3 utJUVFF/OXeGyLv3TenKlZpU3MPzpdyfyEOLGO3BPCcqcu/ZdHKIyFexv49O NZ+k4qOA0yY/1RkwFSzN+sGLiodL76EQ4ThPHhXhICpqKZ06ZUTkNd3sQ3Ri PBVvTgr9jVUm5gV/lGpYGRV1zpz877wscT+uLj+9WUXFwJWVBT8Zot6s3vZV 9VSc/R283ZGYDz7L1jELbVT8sPbtqAYxPwoGZd95DFNRzDg2olmUAYI57bGH Wfmx4nmExCF+ot5KlBGaDT9K+4Y8uLBGh+U7IlE77Plxr3ATi/QfOiyS5WS1 nfjRy/PXTMsvYt4uaXsbePFjXpJ1xBoxL0frXX/Yh/PjOQf9NptFOrwwqybF 3+NHjpYTmWlf6ZDp4wifl/kxeSeNZtdFhz3F/+beuCGATY2tAt5pdBiWLM7Z f1sAyYdiue6m0CHkxsPs7zkCOEIyMx8k3htVUYVZ1g8FMB96m+AaHdRtc2+S GgRwTu9q1K8YOmxlS0uK/SSAvC5GLyTPEe8Np7DIYOWNuJk5On+3LR3m+U2d j7RsxPXFovYlQTqMJTgfOcMhhB2Sq8l8k01gPHfO5IvmJlwKjFpzvNUI31w5 A59ECKOo6fBPK4EG2C+7iSWuZTP2tMlMBUTXAbVLPrF0TgTTR90689lrQTS+ xFJTUwx7RI8z2D2rIUNJmyLgIY7i7Z6JzhOV8EJk386lZAnUcWa773LuCWiL tSSpvt2C43U79v+zWA4k1rtBLhclsWPkeFxdWhlIRG3RsZOXQnvn3eViiqXA JXesyvq5FPKHDOr4lj4Clb2bS84dl0bhs7Jd/MeK4cwIf6spkwwKBvZ5n/j9 AOaWEmxMbspgxkThG4n/CsFI9VmmCU0Wx+5ldbb+LYCmpT2/V7plUY3NQSiZ mg9+yurDb9zkcED4auIn9zzYO3uyz45LHs/0jstPBucQ/1/4AN9deXS6fCaE npEFWyOvhLTsUsCfFWejt6/fAkU37Wa5YQVcfFnq3OGVAW5NnpeenN5KnEf/ pzWNdGjO7Tu5ILgNd+ypD/JmT4XvD9ZXVKu34d7310dPbkwGV7lirswDimgq PG8l8S4RFhRTNcvnFfHDxccadplXoabg96fleCV0b5uoHB2KB3sDGdwjoYw7 +gfphu6xIHoqrlaFroy63Z4smn+jQZDbt+zAURpe3uf8adtKFBToh4fO29Hw pr/XqeuzUaAenqifeoyG22z3da9+iQKL+dL+QRfC6kc5B/qiIPbt8k9XXxpS hbg0GOVRsHo3Qi80iobv7f1EzPyjYHhPam9hMQ3j6Cwtit8iwfNsQZbJYxp2 0Y+zcY5Fwo/HlW7TpTRUz1ebnRiOBH7pwZXtVTRE0dNFlR2RYMYpLtZIpxHv 2XcFoUWR0NBXeLK3n4YnFuscy7wjwZRUQwsepGHunjDz9hORMGj04ofwO2J/ hYr2z/aR8L3uW7zjKA3LnIfcpc0igZan9mhyiobhLgb8L5WI9Yb3BSfM0HBP Fav5ugyx3sZDoDpPww/iXzg1xSLBPe7sm6BlGg60+rA/5iXWo8dmblqlIeMb GsxtiISLvzJc637RUGdJdd3jVwRQNB4qH1+jocRPAb/VqQjIPlW3vL5OQ9VJ 557r7yLgf1zYfXg= "]]}, {Hue[0.08640786499873876, 0.6, 0.6], Thickness[Large], LineBox[CompressedData[" 1:eJwV13k0VV0UAHCRIvObDJGSqXhIJaK3d2gQUaJQopAhUykkZZ7JVCmZkkqU kGR43iMUpaTIFCoNhsxjVL77/XXXb927zr17n7P3OXfdSQ9TB04ODo79yzg4 /r/O9jbWycZcZZSwTqev9NTSac0Qu7Cz4yw4KD/1J52zZyC1+aRYRzAcdC/6 atgdy6B1i/AK68dCyZAsuLTdYXgfyGvn6kiCo0u8Zi4mJYwTT17nLcWlwMo0 bebKJzUMI9rIpUW9NOib/Ht3vus1I00nInfRPwsy3Vq9mtxaGSKjokm/27Oh c8jV6vr5T4zwzNyLc+p3YcjdktYm2M/4c0DLYSbuPiw1ODz0Zg0wznK+Mp4a eABxzScXTc3GGANPrDQn9B7CAFgsKLtNMY47DK8byyiAnX5dx8YezjFc+Fhh s/6FoFGlX9rq9ochax/udz6vCCw5DN2WdXFAH9PYY7q9GGh3PYuf1HBBKlXU 3ou7BNRudJzsHVsBZu59FpPqT2Hw2Zq9e06tAqGX9/efsS0Fx1X3r2fIC8Ir aU/d8bhnkP5qlz6Ki0CYr+Y2j8oykFzMOlm5iwzYwqE8OlAOzM9Hm/1vUqE0 OJH6S48Jjm1HpG+VS4Bnt+Wq02eqgNG5J9cgQgqUtsgsDWawQFXj/YEzsBbe nbWcnvKvBodPZqM0n/Wgklnl/oRcAwvMx+SAzXIQ83rd4Nm8GpDZN1K7wK0A u2WHeiban8M2TZMfyqMbIeeAsUWRey0kPODSsl5Oh2WXit97cteBpaqMwLVN qsBs83s5pl4PqpMXZxcGNoE4Z9/Ox4318PTT3uhamc3graLHdLd9AZz0L4K+ TltgUwRf0UjcS/gsnX+QU2wbXHniofRItgGWvugHLQ/WhF99H+66VjaAReKu q4bzWnBPMy11eKARjOyn/8zx7gDJIeXQQb0mCN4p9f77l53gR0v8l9vVBF3/ zpn+a9CFdt0ZX6czb2DL7d/rA0r1IOlWldvPjLewolpI6mPOLgiVv58/6f8O VlZ85IhvNoBinU4n04Z38Gpz6eTtoX3wxZRPvpjcArdoJ/ca8xsBI8Aj60xe C4TYxZ8OtzOG3+3bro23v4dVnBd/zBYehDJ1Htv7Gz5Aq4+roKejKXjHdWw8 fvED7KiJk+1ZdwgmdS9Uv17TCspb9W6mZpvB0KOK4XsObSA9ZqfZ/OEI5PLE lFo/a4Osb95e1DwLOGV3NIjC+xHGezX4joZaQr/YH1rww48wNPLnxk/9o/Ap ZIeu9VQ71PgI5dJmj0Nqr4AAZVcH7H3waa3zLxuw0Optf3W9AzI+bzC08bKF ttHLbprbO0FsXevacq8T8Nay+gY5qAsuXH7U5RdrB9WqemONgj3AfW7nzLSU E1yOJlcE2vbACrWeGIlyJ9D53h+6rbgHPo+qcescdoby1FCJu+a9ICK27YPH dRco5n6xKzCtD2wvlpuFqbjBezdZ49XULxDeG6t/4PgZqNW7n9OS3Q9HFnLi 3XN8QO3K48G5hn6IZBwdSeL1hYyOZyprxvqBsq6xNdTDF3zdGspctL+B1bKD dW93XACVlMEmrtZvkET1tB7s94PUIaWZrdw/oGLWqfOu+WXwTCzcleo4ANEv nJ9s+B4Mvd1l0dVxA3AufaRzeH0IGMrXNP94MgBaQUaevHYhIF/ZYrmZYxBU U4WPmn8Nge5vk25NNwYhSTWRKvc9FHZrbr3+r3EI3t+e2bxvMRwk+8p/nFQe gT3aec8bT8UAx9SZG40HR6DLS4ibXRAD31Zs3KfmMwJv7LMvLM3GwCOV1Ed/ a0ZAT/SblW1kLDAu+527cWQUsve7Zl0viAMbKW3Ot8Fj8OrX2KjO8gRoofde Sfs1DpRss8x0nySguNrkrdSbAoEW34H6shRI2rS70th8HnQDBs9tViT63A21 6gnhv+DE61vK45oLMTkBzZziy/D3g3iJSu3HIHq1Pyo5nQvvvLRpC2wuhggz A8b7WW7spjvuKoh9Cl5at20ag3lwuVZ96w16GezLEpw2jOVBgyulrXkaZSCz 0j/y7TUebNSKknkGZfCu9XDRh1welI4/lMU6WAYqnvxcvW950PSN2kTk+TIY uOdzb1KCF82Zqja8zDI4RjEeWf2EF9XUjLcV6JeD/tiCn3v/KpQWjU5h6FfA hb1XN9b8WoWka777iw0roOA2vYs8uwqv3rqjs/ZQBYiZ2WqV8/Bhi6Jq3dCJ CvhVVj/HpcKHWVm+jtsDKiA5OOHcTV8+FHAJCa8tq4CvVHn3OgF+vJz7WslP oRJEPdhSoqL8eMiBQ3KLSiUYNVi8cV7Lj98el2gObKmEUr8YZaHNxH2537MM 3UqI7hsfsrTgR4UeDLl3rBLUH1Q6jmXzo9z1qAbrhEoI0jl4QkJTAB/r3Vrv NlUJe49nTG7TFUDms1tto78rQTBwOMTcSABF2k0eOXMwIa027F6CrQCaR0o2 7xNgQtm+iuEVUQI4oL31R4U8E8Yt1ntPdQqgluwptqkFE46fn4luuiiIXp+a O+xLmSCXois5FCaIC2Y9dH4mk4g//tHKBEE8+eBaxcMaJvj92fBON0cQIxN3 Xe5sYsK1kOPU8iZB5JxZ9+LLVyY0Jb7MvCslhFLXraULBKpge8HNkstsIeyT qvipc7wK9Nvf/h1tEMIDPAUNFSerwJhj+R6b90IIDqt71R2rwM7UvRO+CyE1 wjpPxLMKdl9cFxDILYwLm3q+RQVVgaf07J2dSsL4YpNUk8OdKqhzzByp9RbG 5U2Fih++VoHBHy2S/0VhjF5vUHjzRxW8TWjV2BIojEfFrBOshqqgs5w3MCdK GEVVOG1eT1TBKN85UliaMOoJz1g6c7BArHDvtt3PhXHR+MBQiiQLTs9PBDYI iGDna9GphgMs2H7mFO0HSQTF/73nkzZjAc9QVz6XmAg63bB+4n6EBTndtR8Z MiKoGO1WumDNgk+sa8pPNUSwPOFVTb0LC4zDtDpu24hgSIdw5oYQFkj+e+TG thdBsdcFMeLhLBjyluHqcRbBgoBd8lxRLIhw4lMROyeCOvYebrVXWFBt2BNy JVIE8/mz/edvskCdFKR6sUgE21tUXDUes4AjZqbuRqkI2m05r/K8iAVvuVys SitFsI7Vyd5TQsQzYxo2US+C626GW2A58b0dst2OXSKYmZOY/vM5C6iZDeFm XCScXOCzFm5jwTfRHZJneUi4Zq6Fsr2dBcUJRUXxAiQcuJnBsu4k4glO/fRK lISnXRgTST0sCHdwVd+pTMLB5/EiT7+zYF5JuJduTkItGlW7a5oFM+kSQZut SPhEvuPdrVkWTArJyWrZkNA39/uTI/Ms+DWl5aLvTML+gwUurEUWfK60m7W6 RMLElL6OPZxs6KG737QNJvz4I+0TFxu6Mn11TkWQcGtW6xMXbja0hsQFn0kk 4dzPTrIPDxsaDZ8JRt4l4Sv7P3lGgmx4UVVTFJdHQuVDlLUlQmyoU20yS35M woPHtq+gibCBRf6SmlFOQlnXRpVGMhuKu1cpPH1Dwm+futVGxNiQevo4fJ0h oVKhzyJdhg0pPU5ffy6QUKbY/+qO9Wy4auIVNrJEQr5A59o9smy4sjny9Twv GS0mTX8ZyrMheLHoiNAaMtoscT4kb2RDgBtzgbKejOvv9WydJ+zf9yJdQpGM c9udnNqV2OBd290vp07G71XLWsLobHCJ4fbU2U1GtQs5k9lqbHD8K0TWNSQj 88vh5dab2GDvIVG65wAZOVKftYios+H4IdU/plZkFNImPTi9mQ1H67UyLWzI uEKp7ZnwFjZYbNPXPW5PxlPnOmIKCZuutox0diejoNH2uM9b2WASZ6fk4UVG 7heObE8NNhgtub0950vGja5e1YuEd/cHUwKDyZjR+UqTU5MNeuZxz8IiyNig MFxyiTC+TLGKiSWjSX4S7zRh7fyHWdevk3GqRmF3ixYxf2vzM3fdIiPlu6fr pu1s8L3+IGM6k4zmnqek4wiXBt1LM31Axh8ftm/eps0G87mcW8sKyNj2lf9G GOFp1zuphcVk5Ks7k9hMWN0i64Ygk4znz/YZHNZhQ8ubjJSqaiJfon38yYQ9 9dKvu9aTcet2G9fXhAXLb11b/YqMJ6yPuSwRJvbPq6/eknG1xwce1R1EvDk3 ki98IGN7Q42BFeEh8ZQkxQ4yRtHlVIMIR8VfS2z/RMbtDYsVdwgrcl9NCP9C xvCN+mM1hF/6JcVv/UFGScO/b7oJnxpPuPJtiIzGofKWE4S5T8XHJY+RMS2J ncTJYBP9Iy5Wd5qMGskN/kKE9Q7GxkzME+/j1BUXI/z1RXR01l8ydlQou0gS DtSJijLhpCBzMurM/5Yujoj8t4KC1dpHN/3/PEshPOIRHwUHA7Pz/x/vWHpo +DFhCppzn/z6//sWSSFhfFQK1p9Ma///e1Ijg0IrxCm4LdIs7hNhrX8BIc5r KHipLI67lnCH1+VgsfUU7I001L1L2GfQP+ilAgUz+xJ3hRCm2VwM9FamYNGk vYg14aetFwLkNlFQd3fjfXXCZvt8L7dupeDJ/NpVywlPsr0vhWyn4G2GpU4L kf/Eref91YGCD0/FM1IJq+V7XfyiR8E/70+TbQi/XXvWL2EvBV38ppnShPn5 PXxHD1KQ58n661eJ+c8PcvNJP0zBD9HtjXsJ75s77W10lIJGiqZd88R6ivzq dC7PnoI+pPKbRoQVLBy9LJ0paJ9fYjROrMcXbxzO8rgT+ci89i2eMFf5Sc9T PhTUeKX4+jmxfrNVTnhQ/Sn4VeGX1OH/13eOjXtdIAVL6M+sv29jw+X4Y64y 0RTM7o18OEfUx4LDYafeNAo298hXDxP1dbPbzDHuNgX1OdRLjhPWPHjolM49 Cm5kJN99Q9TneZ0D9qmPKRjNDo7MJOp3nLTP9vBzCvZ1GUSSiXrvcJV55/KS yE/W13dHVNlQ/WIBApoo+OqI6vkUFTbE++VL536koNeBw908RL9Q+crf93uI gnaLS6dKNhDzo/PdWHCcmL+QYx8/KLLh37UqlswMBbnum5WOKhD5NXDPMFyi IPnAlfc0ol+5FTVbp5OpuLPwdL0a0e/M+HLfFIlRcSxtgFN5HRt0HAJ3vJCi 4kOJiXqZtcR8iG+SGlOgor7/mp+ca9jwMDDpE+pQUWKXbl+cOFE/JuZHv9lT MYAUN/GO6L/vH9BfzztTkbxV+nkY0Z8ruFZoC3hQ0V9NUVdDgKivZ6USGheo KFUkfjR6FVFf0mJdEXFUHKxt01paTtTTaJeFUikVHcKtZqR+s6A/1vbw2ZU0 HA5d8XRnLwtch5Rl1Php+I/TITnhEwtm9/weGRGmodgKmO/uYsEqrqQwZwni PrPX2onY39Qu1JbY0mmoVEtuPfKOBf4O8mSTQzSsHJvflVzDAhrjV7NSJg1P b03mjLnNgqxbZbcG79DQXDfhpXsmCzb8DnW8n0tDXUGvwybpLNApkVqSKabh vso9XSuI/frkRhMViXoaBms9LjFJYMFjWnEszzANqWGpEfsus2DvmI/Bdw1R 7M47pjpFnCckNq0J59ERxSPi9oUMcxaMnK17rrRTFAv6DSrCTVmQNCusc9ZQ FG2NZLz49xPnjb8PVJZsRPHM6xXPR3ey4Az/J7J4lChqFk9LiCixIHUD9hp1 i2JrPeVd70IVDNvxeJUEiOGc9T0xemIV/MrQr2KHiqHkw4jD7DjifNQZuPJ1 lBgWfOHrMo6ugnGT37e+JIthjtH+SoeQKpjVHqoTzBVDjqwaBa/zVcBJaaI5 vxPDcybFBYKWVSBWF18htU4cP097hFisqYJdsqKcEc/FMSHhi9fT20wQeSN/ pXBMAhUuwe/i7EpYHfn4gIaGJLaxPs4Ue1VAipKWMNlRCt/lnhkK3V0OjRI7 t04lrkG9tSJbcshloCX5PEH1ozTmOobQZNilIMiVfe5E8Fost9tpdufyU1gT JK1jKb8OzVVs7wTJlgCv3LFS05fr8Ft07qxfWzGo7BB/7GMtg3WHnZR67xTB 2V5S7T6O9TgfFSegcbIQxqZizQ1urMeKKEZ8cFAB7FF9kWpAl8XpYYOYq7YP gTWlvTj3VhZVX1s1eyjngbuyeleLgxw2me9wZ2nmwo5R+1ZLXnlsO3iFp0/z HhG/2H6BbHkcufaDV9EnBxQDo32fb1PABekk55yObNjooMWW61LAa0XqDmu2 3AYHllNoyRlFvJfGMZEdmwnsrFb7CeoGdFzZZ7HmYRpM5y7NqT7bgAmiCUX1 QqlgJ5fPm7p/I/4MZtTzNKfAxMZkjeLxjXhtOpEmfuUalOUsfpmJVMIZ13eS YRnJYKW/HrXXKGN+/1RERW8irHaLKFepVsbgInfq8NoEoK5yLdp/hI6bpzUv qO6Ngxy9S37jlnTsFO5mXdCOA/VLV/SSj9GxPlRuskElDozHC9s6TtBxYn/a am9qHIR/nPlt50rHvgg/E77+WJjPDtD1C6JjW/nwD+mAWOjSTv5wL5+Ot8M5 4WdFDDidz0kzKKCj9F/TfU3E/+1swVOHX4V0fCE4RyrNjgGSTMfcplI68jN3 fEyJjgFDHinJqmo6XqkcXki2igFm6z37D210/FVY4e62GA37BMvo3h10HJRU Sksfi4aOPY2zYt10XCYu5vG+PxqmK4Yjj3+mo+KfC0sGTdFAv632aHCIjhnC Q1me6dHA7NrpHTtCRxLnq3f1icR4lEOgOk5Hx1UHU6XDo+FUxPmWczN0NJdw n/7sToxXHZ4qOk9HwRSR4L120RC8kGJXsUBHBtXnTsmRaBDe8kDZ+i+dOJ/K HZEzioYMt4qZpSU6Xs28eysVo+E/bMeNiQ== "]]}, {Hue[0.3224758424985268, 0.6, 0.6], Thickness[Large], LineBox[CompressedData[" 1:eJwV1nc8Vu8bB3AlRZH9DCuEiEeI7Oe6RXypkCgq2RKZIZX9tbLKLKOMyEqh CM8RUiG+VrYipIzsEQm/8/vrvN7/3Oc+5/pc130LWbsa2e2mo6Nz2EVH9//n 2nDze5GoRGrKZtN9rkRv1e4npNsa/R6w/TqjXc2GnYq4261J/cHw7Wy+fJyp BpUwxM7EphUN+c9mereOm1O9DQv76PvjocTXefdvTXeq1auWwp2YhyDCuGp/ vSuQeoYw67epmQ671SZFTehiqOlq4fmbvpkQoPd4U2Ejmco+R4zf6MsGf/mk HgveLGpYRv7d33K50KAiuCB0Np/611DZbjUmDxK6Jea4skqoHrs/6S9PFsBW 4a2notwV1MlXl5QWNZ9DbxNDt0cqRr1qNyM0/+QF5EstqSqLvKM6HngbuuZb Amup0dEyaR+pIrZhd7wKS0FlIYkrq6aFOoLpu670lYEGSwK3T0sHNZWbaHuT 4TUwszL4HCd3U41dRkyX5MohwmpDJeW/PiprY95Zd8sKSH+stCY7N0T9dMjt 5ELMG1j1dZNTQ9+ooT5Kiq60Smh3J9f8ej9GRZ10UnOTVWDsJqw6GD5B3ZRo FnQm0CDS0cCvOGqSWhEcx/1LEwNP66v3GT/PUN2GzPY7udfArmS1d2GW81RJ eeGdqSdvwayeePlq2iL1R/T0skNrLRT98JHje75M7fAwW1n2rYMrLGNJdeOr VOmMGpdXnPXQvlQ5HaW5To1qEZryKKwHtWOiRrTWP1Rtkemvi33voOTwshG3 DB3kGOqblro0wFORBRPHil2wy6+sy43hPXwseB84dJ4esJ47jfNyH+DAos0P x969QN49ovGy+QM89jwTUIoxgre0JuZi+RH2mpF22WH7QTb8QOlsTCPU5KbY Gu1nhdhXrpLFIk0gz2Qh1P2cDX6NfM69QWsCwdwX/54bY4dnSumpM5PN0G5K 0Om7xQV801IhU5qtkOOcE+RizAN3CHHb+YOtsHCvi4tjiRf6Tq76OLj/BxTl R4LpGfwQn1bj/PNJG7wUPzLxMkkQFhqFJp8ptENO++LA/lAhOLsSam3f2g41 HZ8u9vgKQ4hYXtGSbwegjkkz2TARKFMbcDBq6oBvmRwK2w9FYdTogFgZZycs V0v9U1omBtQA10z3wk4gl9dtqtFLwEafYtJCXxeI28zObnJKQ6Uco2WexGc4 fIeFvjHmGHjH9B+9evcznK4SYgm/JwNLJ2/XtQh0g71b7k09QTmYLq6eeWbX AxTvUdGwJAXIZ4yqMH/TA0++Ba0JBp8Ae5vLQVxMvTA1xpS37qkI46S/hODn vUC93LiZ4qwMX/5VP2m+3Ad/R/j/Kj5Xh9RhFhauU/2guGPUrd9KBVPl4b5P yf3ACEebOZcBeub8nZVUBkAjdJ+1y1ENaDOre8QZNAgFMr7+DuWaUHdMc775 4FdgOXLt0TUvXfCP5KwOtPwKUceWeBvV9UBtYjxEsewrdJvrzgwxnYaq1BCe XJNhEJOerVIuPgNlDB9PBaaPQOyxZ2l5bIbgbpnMpjg3AhOqs86L/xrCI/NX s2uHvoHR4TEWiQ1DuFD5b2Wx+zfQPP3Nx3HqHHQ5i+jzco+Cwym3RbfR8yCb Fv1qTX0UhhiYPW1tjeFB0wqpy34Utg9JyF+YMgb9wx/GIypHIXh4ZFh1wwQ+ 9dvdXrs8BvoSRh81ZE2hQTMvpzN7HGyFZWqf0ZuDTOzLqd9N4+D53eKqZbo5 POl/Iy0wPw7md88M/TpxFXycmyodVb8Dw9PK6GB3C5B+ONVK3/0djDYvclzd toTUaclVBYYfsBXyO4hQYQOMCvIqVyR/gJ96IVGD3Ra8AtQCgs/9AKvzWv2X nW3BkOssU/vjHzB/JoJsI24HDFQXfocTP2EX01RxXYE9uMWVnEq9NglfIjuX 5gauw/BQZWRdzCRcc4r1UdVyhNNi9e0/Xk3Cg31xHXdfOoIYrdPsON0UHA3n 9e+PcIKh70vOrY+mYELl+c89Os6graSQvN08DdvUiIOPfdyAb6Tqh7XULAwW nGaN9PcEumX3R83nZiFj/+aRx/We8H3vUT2ZW7PgvswmLsrgBcXSqcVb9bOg O2oVkxDjBVT/O56PLs6BnaVtwM+n3mDBr7q7LXgejK/Ih5r88IFOynBs+q8F 0G53jbtW7wfvFat/GuwsgOxOPe8Ihz9UaCQjeo5F+KnJZ9Ro6w+pJvpL1xUX 4WggHcMUUwBY+701UQxehOiTJVwVUoGw1PqEr4u4BLNvg0Syw4KA64ZF4T7N ZfDZPzx00SYEju57+tHw4jLUOi0HriSHAMr+MZbitAzJcx3S7Z9C4Ea/M69U 4jIYFMX8Vj8eCu+1fKMNJ5bBIeyg09+9YeDJn+KSEr4CM919h3qqwuFzW5ec ZOsqSAxLJD47HQXxsto0fZN1cFAp/yATGQfHhsx01B3Wgfdhrm1Lfhy0hjh/ lry7DpXHFY3uNsbB3v7EGcasddAugUoehni46z/O2/BrHT68bWAwCYoH25ZA X8WQDVAyDhHP9kuAE3Y0dcFXfwAM28gLIUkw8EimbpFtCwR2Bnc3NaVAVE5A +27yLkT2mCuUHMsCYuL4vYTH9IjhuUJSMkcehBvrUrvWGNCHQZ8InfUiuKmc ZdEczIh8h6RijRNKQGv+zx2X8f3oVHx1oOaXMghSO2fFo8SC+LzqpH7NvAaV Fymv/WtZUUbLQsfaVAVo9bVtzTWxIsW2a8rfFipAn26PjkUXK3LjOZzz4XcF 2Bi5DMAEK7ro53o3hOENaN8VCghkYEMbC6qsXYJvwO3Q2lMNSTa0WVrZUHTh Dby/ljHb4M2GjuWOlJ6rfQNO64uBTSzsyICNvCkXUgkq7vaEHxzsyDqHWTQh shIYpweL6EnsaMHqP7O5B5WQM9TQSxVmR/bvad+SHlfCl7dJUuUn2NH7aEnD gopK0A9V7s+yYEchr7gPjf6sBDmOoGN3S9lRtgqd5wPtKqCLWn3/qIIdMY0m NBieqYI2esdLFTR2VNekycxsVAVOq0ahix/Y0cG5+PCb5lWQ0y8ydG2QHd1W 6uDb61kF3BlNYcb0HCgyIDpYObMK1iXZhikmHMhSLHqgb6UKVh/zBB2/xIG+ XvafGt6ogiVWURFlCw60MFXHO7pdBb+WlR21rnOgvBT1n72M1fCNZrN2yY8D HQtt44ngq4bm028ORuRyIO8Fqd27NKsh1ekqjK1yoDlt9dqz0dXw8KvD2M8/ HOjf/VZ6VQ+qIdHgZujsDgcSx7L+HkqqhtjjES3rTJyo6MOLvuHH1RC8WXqR VYATcdhOuAm/rAbHKAY3NW1OZBli6V/fUQ2qRc8zk5M5USuT67QVGw0GBYsy TqVxooHcCptFThr4JBc8WcngRD9LMkp9iTSoCHqWblTAiUrfif8XJkADOdPM RwcxTvThkBTbdSkaiDMkPggb5UTW1x2O2+vQgGBxN9BbigtZ5TbmaN+hQXn3 7QBRWS40wuXy8pwfDYz1fPy7FbhQAeOuTNNAGsQpePnKARf6zeWucCmMBszM rj5z57jQ5iVrTal4GtBXWbvZ3+JCfLHb/swFNFjg0LO88I4L+TrsMXr3mQb9 N4Q7HBu5EGmyXDS4lwZ1H/9AQCsXklYtReoDNLh/p+hQfi8Xct4INswdpoH0 GPPIxjQXYiYPLKtN0cC5tN38MSc3SncPlYnawvd3IP+/UhI3Wk+uWt7ZoYGa XaD6R35uBBXDB912Y8BMluWfP8KN9saYnTu5D4PngfFfkBo3emexKPqSDYNp A5PL32250T+qp5iKhDHoKqC0rF/nRpd9XTt7RDCopt+ryuLKjWbocuj/imFw 700Fz4nb3OhDz2ihiiQG4odIg+Ex3Oi5wopo0HEM7OcGTSUruJH63pYvx/F7 4Hi05QWPfQTkkGa6S9kCgxvTUsIyzAT0db/SiUpLDNZ0NmZn2QhIW5ly/7g1 Bvvp40Ov8xAQ9VNhqYAdBjK3G15bUghorPtq30dHDHztxDgNzhNQcVR5moUX BnsbloaZTQloQ1ctKcsbg/uCtYWfrhBQSIj/+5FbGGQPXTypbU9AJwyrmwzv YNB87p67+m0C4k8YCmcIwIBA/dUumUFA96QSRqvDMchMq0ybekpAOnyztXUR GEhshFzLyyegUhOnH+/uYaD2mn9HuIyAnGjhbFgUBtZHDaR5PhDQo31n/gTd x+BXOO+fvmYCqhJoV3F8gIHXxM8PSW0ERFSda9WPwyAiM9CcvZ+AvLeappkT MHhJKItmnCGgfaIPpM2TMVDy9Df9OE9Axtqx/OIPMXjXqScSskJAUYyfrs3j 7o0ep+1sEZCebB/HzRQM/u7mnlljI6JjaTcn9NMxCLMcrXjNTUSlv0I7/uJm fVsc7MFDRMNiGYJ5jzEQvq3NM3eYiDZ0elcWnmDwz/wt3YkTRERQ3ffALAsD HlmBMEY1IpJnsKxdwz3r8f6dpAYRSYx2vL2fjUH8Gpuax2kiqrt4Sb78KQa2 Sm98kgyJ6GhKTrFGDgaKd8zLK02IaPKE41Yz7i9bBdI7FkSkuNUl1paLwQsw dBK2I6K7r4rp9Z5hEBS0lnfKkYiuDnvU1OMWY9AUivYkIq744205eRi4M3/h JN8jomu1a3HKBRho6QcbqsUSkYdFxL+JuAkPxGMsEogoMmyPxQxujNNr77PH RHTgsu5gdCEGsSa8ms3ZROQndsmvD7fVw/qAX3lExF02wSZQhOeH9+CGXBn+ /2z3sGXg7r/yWuHCGyLKbPvuP4C76Mklj9sYEYn5D35nfY6B/ze6l+n1RNST E6N5ErehcN5M7UcikuPIS3fDLWx7Vny8hYiqZDsWU3Gv5i7b7u3E98v0Sqse d9PPlCyJXnw/Sn+Sx3GnSqDhM0NElLtqOL2rGO8Ppx88bt+IaJHFBvHhhuLo iwkTeD3Gv6TK4eaYl0usmCaiPEenTS3c32UGOgbmieiOJGZzHneFRwDL1goR 3VD36zHHfe+1qJ7gHyKy1DE3ssV9Za0lTHOHiP76Hfhij1tayaPBfg8JKWcr etrhprtDootkIqF9dPF8lrg/096qFR8koYkbLb0XcD/bsr3dwUlCd7WTcnRx +8CBimUSCSH3rHAl3HpBpUsEARLivJgddBg3f8PFYyqHSWhoQi9xP+6FPdtO 5uIkJB2rXz+Lf/877Zz8QAoJLWhY7f8Pd2KE3sRTORL67aHono/72qcFoUZF EnrBHvY7ALcK88Or02okVBu1O+M8bmZ99TSWkyRU+cn6+mHcw/fH+2R0SKhC ztx0Hq9faec9LuMzJMSQle/8BvcFk96Y1AskNHOZjUMNt/hD3081l0lIpjw9 Zx3Px2a/8L5RSxIKlrxkW4o784pr4BEnEjrtf9aDiPvmE+4aPTcSEvi71vAe z5v2N9qGsxcJkfoqdV1wz9gw3nwdQELqT93Xy/PxefBEq6Y2hITCPt9ZNcE9 NxC4r+UeCX2/Zmy4hOd7wWAjbTSBhEJ+HhATxL2mOv3+YD4JrZPyAgzxfln3 FmPlKSah1vjTKZ/xftootTYTLSMhD7UF/vO4/x4ZmlXFSCjjdb+LDt6Pu7la Cdc7SEhpI9acAe/fPQaMVp49JGR9Km3LKRMDhkitooBBElLxmuVuz8CAka4G kr+TkKs5c0UkPg9YfhU7NKyTkBn3+FhfGgak9/er+YXIiHrfzK4lCZ8POy17 JMTIqKZGzOhPIga8KowG8pJkFLp7u1MUt0BJ4LieAhkxLIfEecRjcDjdndlH l4z4bUgwHovnzfP81S53MhJ8I9UmjM9bmZf38796k1Ef/Wg5bxgGstMtS5N3 yegXY9Zp9lAM5C21wndCyajR+0DEUjBe/zMKJVKpZLQ+weAZ44/BKRHi7vB3 ZMSkvJIohp8Hk9Y6+aqNZFS5WnmDzhOD6Kxb+gstZDRpc96nzwM/3wT6U816 yIj7fpyMnxsGV8kpx6UmyYjHbPF0nhOe54O8dp0sPIiLzdX2lhXe/+sCTbxm PCjLdLuD7TQG+ooGLh3mPOh+X0VXgi4GS14BXKHWPMh1+6k81z/4/F4esZxz 4kGztoUCLKcweD+buVHnz4OC3+mVjVDxfI4JS9rn8CBfWDzIJIcB+39isSXz PGjkY6WJNwGD7XmZ3E8rPIg3NXNPEBd+PnOoYt83eJDQY0pXBAfeL6YG06Q9 vMhATKfj/kEMPL7f0g4i8aKzC2P37u7FoHuzafucBi8SL671a1mlQfJRJ9fl eF4UrfinyqyLBrwRLw1PnOBDbb3yiXH/0iD/RXHDhgofois6aSMQRIMTPUUn aoAPpcwssxX408BIOJ9PS5cPESeHWCpv0yASy5w8d4UPcRusvsZcafBnIS7Q OZgPzcygRavLNBgw8yzJaeND6TcbhkVlafBQUpmN8xo/0jNWL/3Wi98feTQU luMEkGlJAmsJezUo8717cKz3EOLkk0rSFa6Cg/TZnlbBguhJ+6bl1rFKEAg6 pGYmJoRqp02jNslvgEn0SoVRoxCyH9Dyl98uB2l18stb5sJo19lBo7T51+Ax zNGgR3cYKTXZsZ9rfAXzy9Emuo8OIyt7L5G1sjLQOfYxVZcigoTWG+KSn5XC 22XVzd9tIigy3ZzZMaIEXKTkBjvtRFG0Rade2b6XoD5n223GJIZ6cwMcZ8ef 43kjnWXJFkPEH1nzPWuFIB4Y6fNO8Qg6qRs4oydWAEftlGtFB48g7cdxjF+1 8sDurUPIa3dxZOrz+7t3Si7UZnbbLnJLIDpPcvjbsaewkr/z+9gbCfRgMMJm 8Uw22IgWMaWePYpCR9SX4iczYfFowomyhaPIae+zG/v/PoHKnM3R1QhJlMHX t38uOB0uaR1GqgJS6Pay9WV5airwOodXSddJIX+iacbF5YfAvf9G6dmLFCTN pE17vpYEOZp+dxbMKKhuz4iB4FwSyPnFaiZcoaD0w2klyRNJoL9Q0tNvRUFR HhLdUd1JENa7umFzg4K2sw0THpYlwXp2wMk7QRQk9nvHRd41CQZVEz4/K6Ig o33CgQHTieDglZOu+4KCBC/WeJ8eS4S1F+V2v0oo6PaRF2I8g4nAIdz/W7aC gnplZUpqmxPhNCM/X00dBRF82cwkCxIB635m+7mHgiqfd/iGOCSC3sFKinc/ BXXNGNfftUyEfp3mNdIQ/r7qnHIv00RYqZ6JuPqNgq63aBS5/5MIlCyZ4qlp CqKxFlTdE8fXG9Twjp6loJrseqdkQXw9rvNwbIGCrrgNNOWSEsE+3KvTc5WC UlUzgloZ8fXqwlKJ6xRE1id/GadLhOA/D22q/1CQ8YejI1vrCcAmXyBlvkVB 5kHKkTyLCfDEuXp1Z4eCCs8VfVGeSoD/AYMKiXc= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 15}, {0., 0.2846492216805481}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.541307269125*^9}] }, Open ]], Cell[TextData[{ StyleBox["LA DISTRIBUCION ", FontSize->18], Cell[BoxData[ FormBox["t", TraditionalForm]], "InlineMath", FontFamily->"Times New Roman", FontSize->18], StyleBox[" de Student", FontFamily->"Times New Roman", FontSize->18], "\nt de Student se escribe como ", Cell[BoxData[ RowBox[{ ButtonBox["StudentTDistribution", BaseStyle->"Link", ButtonData->"paclet:ref/StudentTDistribution"], "[", StyleBox["\[Nu]", "TR"], "]"}]]], ", donde ", StyleBox["v", FontSlant->"Italic"], " es el numero de grados de libertad\n\ ----------------------------------------\n", "F de snedecor\nLa normal aproxima la binomial..." }], "Text", CellChangeTimes->{{3.509041223166238*^9, 3.509041253960692*^9}, { 3.5090413596352777`*^9, 3.509041368948494*^9}, {3.509278994424092*^9, 3.509279012327116*^9}, {3.50942939046875*^9, 3.50942939790625*^9}}], Cell[BoxData[ RowBox[{"Clear", "[", "p", "]"}]], "Input", CellChangeTimes->{{3.5092790741596527`*^9, 3.5092790802490005`*^9}, { 3.509428951390625*^9, 3.509428960875*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"studis", "=", RowBox[{"StudentTDistribution", "[", "p", "]"}]}]], "Input", CellChangeTimes->{{3.509279089135509*^9, 3.5092791083936105`*^9}}], Cell[BoxData[ RowBox[{"StudentTDistribution", "[", "p", "]"}]], "Output", CellChangeTimes->{3.5413072691875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Mean", "[", "studis", "]"}]], "Input", CellChangeTimes->{{3.509279132798006*^9, 3.509279141736518*^9}}], Cell[BoxData[ TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ {"0", RowBox[{"p", ">", "1"}]}, {"Indeterminate", TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}, Selectable->True]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.54130726921875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p", "=", "1"}]], "Input", CellChangeTimes->{{3.509428978*^9, 3.509428979015625*^9}}], Cell[BoxData["1"], "Output", CellChangeTimes->{3.541307269265625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"studis", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"StudentTDistribution", "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "4"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5092792911780653`*^9, 3.50927933776873*^9}, { 3.509279400168299*^9, 3.5092794386495*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"StudentTDistribution", "[", "1", "]"}], ",", RowBox[{"StudentTDistribution", "[", "2", "]"}], ",", RowBox[{"StudentTDistribution", "[", "3", "]"}], ",", RowBox[{"StudentTDistribution", "[", "4", "]"}]}], "}"}]], "Output", CellChangeTimes->{3.5413072693125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"PDF", "[", RowBox[{ RowBox[{"studis", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"Thick", ",", "Dashed"}], "}"}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5092794540043783`*^9, 3.5092795186820774`*^9}, { 3.5092795755153284`*^9, 3.509279641758117*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], Thickness[Large], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJw1mHk01F/4x9FXZJuoLCVCCU1CslQ8o6SyZcmSvaKEsmRJdlFCyEi2LKFs WSdjvx9bWSoxn2St0E6kEWOI3/zO+f3+uud17rn33Od5v59z732kLniauXCw sbHtYGdj+99REYR/rq8TsF1Tvj+uEMnguSwTs8wkYDe49q1tUyFDZY2yLP0v AdPT3BPboU4GFTmjC1+nCVheSii//HEyqAtGjbx6T8A8FeV/EGzIQJqa70mv IGCL8c9VLGPIYHbndelBRwKm4PXlUN9XMgT0RV293CKA2VidzH1ZmgI4zvuz 9Tw/tkG74KlQWCrsxDy3qovzYUz/ddU19zR47t7BSRjnwY6FFT6/cC8DnOKV fw9HbsJ8V+K3/1J8BIzkoBgE3FjPwcdXY9dyIF/gg1jaxEYsnn0BHmJ5kKWv 7EO7y4mda8qkirTlQ6TH+Rvyp//DnNKPxtrOFULQhpIAn18cmC/nrtGSmiI4 H963e7CIHbO/VzqhipWC5XCO9ng+O9YYORWo9LoU9FW8rD9ns2ORg5JJqiOl oPp5c/yfFHasO+aNqeVCKXCfMqMLRLBjD0V9frDJl0E54V3ryXPsWMsliUAG uQxWskcc6jexY1oCRUOPvZ7Bg+YvaVlubBhfdXveHb0KcLiREaruwobFOPoc VrCqALmDZ5wHHNkw3rBs/uHLFdBQVHeA24IN26KemmB7twI+kONeXAc2LNzA YN/fVxWw1015QX8rG3a7qlXz2L5K8NnPzP4TtI5CG1Wgqr4SGj7K8ZVJr6FE LrUpu+kqCD7K/ixDdA0FVn02oS5UgVb6sNFdgTVUtPnbedG1KsDMYhMvMf8h pcTPt2Y3V8PLzmkhqYF/yCCi/MK0WjXgpeViqRH/kB8f5k2MqobZANW94Z9W kfB4JIMuUwMym0nHzmavoLRtxTw/AimQoDRx0428gtYfOvvx3qYAwySyJjxm BQVyBfupJ1Pg1f2O3c98VpBIZItVWQkFfLec5tp4cgVldXOk8IxR4IWw2Svq HBPVR1ODc0nPwW2ns+UOHSaalpGZ9xSshWqFGLfJKQaSlHqVlUejgmS/U/2+ YQYKTaxYVJikQnyAJrffGwaypUR1o99UcOn4WchVz0Bxi1vY+ATqQNTBaIKY wEBLvEZNB07XQch9IesADQYqcLUaL2utg1OMrBN895bQ44ovW9oa6+FjZ9Uu NbVF9PxOVu6dwUYINl/W1SAuIu/dmVM83xpBdIJ05bD0Igqk1RlmLDWCyWpf lbbAIgpbqK8eF20CTGX22Mmvf9H1bXXUJdsmyM1RcLFO/YvERi8uhH1ugguB +cU3FxdQervo3R3rzfCF+EAF1dJRm16s+x5FDBRCC2e/l9LR3uhXW6Y0MLjW 97xEKI+O7h9U2FJ8HAOG96D0pTg6Evpsp2B8DgMeqsgWfic6anewg39RGCjp ZNBtNtHRTMHaVvo4BkEWOZRF2z/IQ5hy0y61FQRDi9UU2efRDV9vr3WpdiCq zREL6TOo18T5cfTlF3BL99fb+hvfUPYk9+6OkB7YdrY86ZzIJDLWDtYW+vQG qmXjGk5smERDYvWypb/fgMny5c/KcxPochnR/jh7H8RmS2nwvJxASiKeGt7S fbD2PeVjg/8Eav7rr4qc++BrSJCi+OAndG+LO43rRx9cO3M/rVn+IxIRdax5 FvAWqhc7CV27R1DZC/dfF/36IaHkcZv28jCS75V8UhXSD+4OYX7PXw8j09gL FsvR/bD7hcboY/9hxD09scc/tR9SH5Q+CekaQrpxjVelqf1wU/W+1kGP90gq fZ8+cakfjvnYuWfX4Chh1zczde8BkJDVlNgWg6PjS9qX4m4MwMrwtv44Oxz9 3tPQ9i5sACg6fWqBnDgS/+H80TBhAGQFj3GctaKhpHSbC60lA8BTuTd900o/ 8uLKCyqeGIDC0S/3fkS9QYKX1XcX6dFgJFg459HBN+imJO2WnCENBCROVppO vkZbwIP0yJQG/k5FA/XwGim/5wq4aEcDvS9uIrHMXsTZ73nVyZsG32fnchW8 utHQ/KuoTek0EE/aVf1Bohv9S6P6dz6igYmyaXvy6y7058iBa76PaVB3vfoL U6ELpRYui5eW0uAuw1eh98sL1BRebxTYTAMFDmaNu20HsnGk74/5QAOHfIVO SZ4OJCXIsHOfpEGyru0gra4dubVzXiR9pQHzdhPjiHA7as10rUC/aNDLG6bF 19+Kxi5GXRdcpQHbswpjLKwVLZ9OuxWxTgNV40+OvoqtyMqs9uskBw5ZSTqR Y3EYmiywcg3chMOQAnfCuXstyCvBqpa+DQfS1SuVrT+bkfpNg4YZURyKKnoG 5E81oy4ugazBHTgEqt4TYXI0IY8rfO3BUjhs1xbKy7hRjw7JPzooSMQhMvx6 O8dgHfrAtVSXqIjDdBv+xe1gHdqjM1+7poRD08mHCkdma5Gxl+rcs0M42JuK U0YvUtCJb0ekTLRxmKH/1fTrqEEyUplGJ0k4BKf2IYE9NYhN/OnRA8dY5x+N 7NX5WoWCo4ik/hM4EEPtTEf1qtCGHA7duJM4NO5Se+/7tBJF3Icfh07jQOkd 6DzTX46ocg+X7QxxwDff7o9MfoYQ20HLYSMc6Baa48/Ny5Bws4a63hkcVD7l LOwYLEaHSyI95k1xMN1jznbmYRHynvOnHDDHwcttI1+k9VNE6jvk6nAWh4oF D5nvIwUIdwn9F2+JwxvNXQd2ZOWjgu9zeLwVDrOhtMPG9o9RqtDqhhBrHPg7 butFSOShXCH92/bncLAW8i1wRTloF7HbStEGh4dZI41vdB4h+pdK3zkWD8rq 0FQ7MpCqWsRwri0OW6ue/szQS0PvSzhuHbPDwfyIAAd79wP0M0HvGs7i5E5f scsGZJTF9zTN0h6Ht2dGlV6/TkLzBi/Xu1gsQbmVdCk3Hh1PIOftc8Ahs8sE qRTeQYZ6OsGhLBYd3zm7VhyJVohnElpZvG/qnWaqfRDaYB49uMBiWT6vh4qX vdGM4l9zUUccwnE5fEe7PWIrWuYksphIGHfj3K8L1TvVZw6weHA+MmczwxU+ uWdu3M3i32f2/vH08YfMaXsLbhYHkfV63FXDIdtrfWiMtf9aaGBmzoFoCDqu n5zH4nC3Mg+aQixcFTWLtGTxBsuPWlyyifCKw7dkhRVP+667dx5tToaDLpZ8 91kclSrtpZ6QAk4fvhcLs1iPr8m6n/chPFZxjo5n5Ycr0kLH/W46SKjo5/1h 5bNraVaekysLKjNd2E6zOPZqjFBOVDaEr3YXJrLy/2Q+KUQ8Ihds4mkpL1h6 Xb6scKl27THUhVc5cLL0PCUdYHNLqwAMjxTp8LP0lhtvNzYJLoTfPjGhnCw/ /DSzV/+5/BTKl53EXrL808Nfso+qUQzYy/qIJDMcSrsWJaMCSkA+vclan+U3 D+0kbom/ZTBxKsEt0RgHo+Wx1Z8Hy8HQYqFqO8uvihT5eapPBVQpqUSkGuDA SJmYkWNUwliOM83xFA71PEHv2vxqID6Rd8dhHRxy92+jVUhTwJUztkoScLht UvE2q48CS/1tDvSjOJxNner1l6+FI/ZeRBcNlj5Shm0K43VgQxb6c51Vv+91 vyKR2Hr4S9uf3rsPh5bL4c3/qTeAtrZpi6A8DnHPKHUfkhpBy3u26YoMyx+a OyuSdVsga3rxkL4IDnx21LKw+RYwN3b0E9nKqrdQ0xKPbAQ1x35W0Dbj4DTZ ZiYTjMF6iqitGA8rPrklo3/vWqHNez1odIUG3TWOulV3O6Dtz9PrBmM0ONpJ bN/7qQPmpa0EBYdoUDm4rJOt1gm+GRofX9BokLpMhripTlj1DrmwoZcGztB1 2EXrJZhme/q11dFgvUdJWWy+G/JMiRuv3qeBz9i/isSTPbA8DhakeBp8/dWj uDG7B4a4SAacd2jwarMLka7fC+quW+87B9MgwzJ97+uCVzCd9NA06BINDk2y S0RY98HvG6PZuzRooNhgNa9U3AfVYz6MCBUayCY/6/i0zLpnn9scGyLSgDev 7FCu0VsgxW9ld5aiwaqJ9dj67Fto5m8tYG6iwXhlhTxSHgCFBUqaxvAA5Hg5 dGhRcRhQtuzJ8BoAmd+Ny4fbhuF5jjtxb0w/BL8+HrXwaxgMTvJNvw/rh8GS XoFysREI5HWNiwzoh1iXURkp7xE4bMz+ufNSP/weYRpx7RqFouUWQe4T/dDS qfmYFjIG5mtLP5LZ+sEmk6rvofkRXBwNLcJ938Lp/OHXxtaT0Oh6RM6u5A2c MBLa8Pf5N2iaqZWJMuqBRMf34UrUGfjjeCDkxf0X8NJ4J7+J0DwUicaKp/G3 w1bFCWEf8XmoCL6Tdp+9HZz4C3elyM7DI239PeS/bcDsJaoOHZ6HtNymK+Xj bUA8fdTW6eI8zHg2Xz5R3gZJx22LvSjz8F1Gy4Zu0gY2Gukn7lv+Abccgbda Wa3wS2pb6EAGHQIvhpZMncZAIyjPu7WADu88K6fWAINIfL9LZTkdvkdfl5JS w0D4jp5hQhsdVGY/Zd6UxkB7JmC7/k86LLdNnORYQpBYO1LbqrkAni/Vnavt ESgb5M5VDi3AvFuvs+qhFvDz3Xc+UXgRbMv2+7DxNoEwz1yTpdQiKOXFHt26 3Ah1OdWiEsRFSDKaUVVjvU9XezTflukswozx6+iC9kaIlDoFPR6LQFFOjpQP aYSEN847OdsX4en1LNT7pwGeyGUP3/RcAqF5Eyu57/Xwfmyz2aUuBiAbF9cN y1TQj3MZ8h1ggKN8+kajaSo0aTY43BpjgK3DRGfuOBVyUy+65/5mQFSpTsyl Niq4mtRGjYguQ7iGjI5bPBWY7bZU4yvL4B3STjWQpoJ46RNxdR4mmCu7q+tY 1IJT4NFvXIYrkKDbNmc9SAEF5653s5Yr8JC+35fZTQG68dmOd+dXIInneF1h MwVu7/bIyw9YgVelYvZihRQo68u0hfwVUGxpUPD1pcDynpU+fyZr/pa/3++t FEgeqK/7UrQKHbQGyR67Gmjfpx7bzrkGlADJhdMbq8HhwNn8eQKLLUUNu1ar gKHi3SS5fQ34u018jOhVQDxcOhukuAYOIW+FPD5VQcopSXNVqzWoPXhsI7Oh Ci65cIkXFq3Bxv659+beVcCd8/7ZbYN1IHJMSw5PVoLspqbvBafYSHoHbAME KytgZ5P7Cc4YdtITtn/pEcJlwMbkKPaZ5CBNi4zeEXlVBEumzQ6de/4j5Ua7 /LdX5QmMqjru2BPFSTJTU4s93psPXlabBaXHNpIiuZ88kO3KA7GUz9b/7eQm XeD44PtVLhfKbXOf0m9sIll07a9LPf4IrLTCTnU185D8z//dd/tFBlQ5XJU+ vMpL2pE871WXkwYMnuMb6i34SYExJ3x0k1LBrP+I2s40AVJWTAXDfCwFeI7w tjY9EiAxn1qZyL1LgdaCEQO7fAFSStg5XbY3KaB0I/B8ZrkAqb9kaakBpYCA JDVerFOAVKn82cA2PwW6PVSmtv0RIG2J7sg+4Z4CJG75JAFDAsmPkylY9Y/M +s8wtpebEkj6nt9vLSySoWL0ZaGRFYFkG7JZ/8hvMkhUXGqMv0AgSYWG9gxM kmHVouArTyCB9NBdz0m+iwzUfEktricEUrZrCvd1Mhmu8c+9fFJKIDHFurCf 8WSQDWgx06sikBKi60pdbpMhRd/eNbqJtX6mSNAlkAw+8xnkDTQC6SyX0Je7 jmRQsHWTyB8ikHSuujG3nyPDRIdm8bEPBFLAAVuVCjMymKQNtUT8IJA2Kgly TJwgAzdH0WmpOQJpP/Pjg1AgA3IPwLEFAunaIRtdSU0y+L/Tc3RiEkgPAmN4 21XI8H/9GdL/92f+BxY52uc= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0.02}, PlotRange->{All, All}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}], ",", GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], Thickness[Large], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJw12Hk0lV+4B3DzVJzSREIiCYmIKJ5XJBQhSSlS0S9TUVKhJJmnlHnMkGM+ Ice8X1PJPJzzmocMDUKDyOyeu9a9f+31+WevvffzffZea4tdv2Niw8LExKTH zMT0v6Mc7Jza2CDhV9v+pZzvDIQ7S+L+S8skXDxBzuPlYCBQihQk5+ZJeOHJ M070r4FwRMrg+pcfJLzq04HMO+uBoLLVp7+lh4SbmxcOzMgEATb+uym2gITz tskPbvcPAhO/1hxFKxIuv28fSJ8KBrd2H8db1Xx41POlczbdIUCjbZqqsebF zYaUoq1awkEYv7NdZc9mXDxl8vzO3gh4b1/PThriwTUDws7YykTCtWCFX33e 3PiesBBPbdEYWIxw90fAhb9yFXEyuBoPX/fUTOmoceHNPwRa/B3igXjLYdCm xIX/rB0aaHOPh6Lyl1uHDnLhtgfmFN3j4sFpLDNueRsX/steq/pCbzyMK9By j37jxGfEyTt2myVAW4dsZ044J867Q8Jk7+VESOMbFoz5zIHvapi+peWbDBEW wKk6yIEb0+3z9sYkgzc55W8fwYFrf41K4clOhusnb7QLtXDgDw9ml7G1JcO+ B998kks4cPERJye9TSmQOvTn59sgDry1Nlhoy4UUSMnl/PD+KAfeuSDQmzGT Agn6Ci7dAey4sWWi6FGlVJDYpN/U4cOOO6zvundIIxVymq/va3vKjs/XPAmV 1U2F8rOvuxpd2XEbf7kjcCUV+gz/Ham2Zsen4wZqSnxSYef5qjmyKjveUrhc MkekQpiFnuuT72z4vbgiv2avNPB2sH54UI8N55LY/lD5RzoMh1omlGux4dKn XgDvYjqovbPAz2iw4YfTHUtn2DLgz/wFLidFNvyKROZIs0gGWD/VjykUZsPx YNvpNZMMwCIUS4//YcUfdpy+glVlwDqVfdEgnhWfbVRhc499C+6s2W4uMyz4 34AI/noXMjjFWnJc+8aC38sRMNJ+Robrh7dFGoyz4IpRPzfawsigb+FRKNXH gv+caOphzSODQJHhzHA9C94/rWEy/ZUMxdfnrp9JYMGDRfJ7kFUWzNacMJQ4 w4I7m1Zl513MBmuvdgmCzIzfoBJlSXa5YNaXrDGUxoyTxu+6Zbnngv6Ru+YT Scy4i8jZu3hwLihNbAn+85oZn8h6prqtIBe4dE3m+J4x4wdMniga/M2FfBK9 5vQlZjzeWlJK6FkerCT1W5ZxM+NHteRe3EjPh8iqyZgEOyYcJy22/AyggOXD uCcqNky4j+yqAkskBaQUz93ssmLCu4+0nxVOoUA5ufQw1wUmvEZAB3csocDw q6AP94AJ525Qtn04ToEDdgp/9bcz4cdeqK6owTtwObSc9Md9Awkcm3hDXnsH 5SNSm3P3raMC6zal9ugi8DjBnBcnsI7EOW2Dr6cXgXpsn0EA3zoK1Irct0Ep AtwkMMx2eQ2Rd5/ab9pUBB8bfvCLda0hMyZjDae1IqDl5AtGPVtDt5p14v+z KYZZN6UDXqOrqE7E3y7jxHsQ34KdNE1aQTj1/KFabiqEyn9+bPdqBdU9/vpP dDcVFo28i7z8V9BJVV5yoDQVWl7WS+S5rKCdUdZDvmeocH+bHifH6RUUVZgf JxRKhQ87TVqoP5dRd26uWfWOUrATvmkmpLmM7szhSVKHy6BQ2t9ubHwRzfXu fRIcXAGindfKZPoWkcrB8hXelAoIdlPlcm1bRMf06viTiirApn4qg7NsEf1x /35oqr8CBCwNPsuGLqJ8m4+rR6QrwfMlv7nbsUUkllC4ObS5EnQXE05tDvmH tjR1SbwRrIaRhnd7lZUXEEdsJtXBBYdJ2cgjqGQOiYZKrNfa1MHWJ1nKcsy/ EXegfGCLyEeQVf4pmzE3jTbesAgRm5vhufZMR9nDr4jr14ynGrkddpjmh1/a NYbaOSAlQbgLCiWDyk+xjqHZruMlU/u7wGjp1oTCz89oj7vdyFG5LghMEjvG 8/EzcmtKUKjT6IL1b69Hyh98Rnf0nDVKrbrgi6e73B5iFD2YYxbeSOkCp3Mv Y6oOjiDOB9zjUXu7gfxXfzqSeQQl6QZH20l1w1gsG+bUN4zUay54qsp3g9mE 21eRgGF0Q0MvqRG6AR5ZKnt9G0KuE+pPsy27YUuaDO1k5iC6qJW66BTfDYUL DaRGiX7UK8g6GrSFBqHZqbUaS31I1S+JFxOggb3lU9f3rX3oy1t1mBalgcSH YwOpD/pQoeT9q7KHaRAVmfPWs7EX/WX7ZahnQIPHSi/VFR16UHmih+WEHw1O ulyxTyqioa5l17vbFmggIqkqssOfhqKLb+q/WaXBSt+OzqArNKRCf5gnwUqH Ys125UfsNPT0Sn/tpi10kNx6ksX0YjeKTxwSuHSQDjyUA7HcK50ofm+Q+Ogl OmQMTIZ892lD+ZXGH8QK6dDvsTM5UbENHQ2T5fxaQgc+kdMU47FWdEgpS+1N BR0eXCN3lUEr6p9xOvW3ng46k3a7ApebEY4Pem/rocO32Z8p0nc/IeFtGSUy S3TYE763cFjkE7q+IHhcbY0ORgrGdRGtjciK323mBDMBpfcKJ5elG9Go6KN8 EW4CAhbvSzdPfkBP6X9umwgQIM2yXGRvUY+EkigOzkoEWKZJN4jy1KPjtMTy KhUCIrQtiO7SOqRU7xa6pkbAsm/l4vGddWjjnEHqRU0Cmjc9Vd/cWYNCqi4+ vm9AAFNegSH+tAaN3UxcsDAiQMlw1Oq+XA2q6F6gKJ8nICFc03swCEdVUX7V DeYE9EpzhV4KqUY7nIwt9G4QgDneptRMVSHnHJfJTzYEkAuaug7qVqFpFOSk /h8Bj5RCdi2zVKKHtz9eW3MgYLcG/5u4h2XonKwD66grAd5e9+pYiFKkBaa1 /9wI+FFLm7RTLEU3zTF9lscEVJ6Olj4+W4KsLP4l/PQk4KrxnuKBG8UoS2JT nvQLAqbn5lVd64tQgLVvfbsvAR5R7YhvfxHCIxfXbvkz1j/g3az55R16UOtX 7xxEgOyTK8YDOu+QcveY7ngwARV7lXvuZ1KQh867odOhBBQ3dzWc68xH5aRS qalwAmhbfDu9I/JQno9pz4EIAuYuqA69P5+LsFZZP/NXBBwZTf4rRGSh92K/ ByMiCTDef57pXDQZ+b+w80iIIuCuHcdmb/NMZBmjtiU2moCCvw7i3/rTGXmM 5LaPJaBNde9hoYQ0NHWh7zYWR8Dsk241w6upSK/wSxFXPAG89b46z0TeoPAb DyfrGDbnv5/+H0pGYgp3Vp0TCIhO6K9o00xEWz90LvAnEkBIanYr1ceh6OqW rrcMb3+XORWnE4MuFheGHkoi4PxxPhbmT5GoQ29VKpPhiIb7grfOvEKZSrop 25IJ6Dg3IN/aGo74T1vMuTAsUvw83DYlGAk93CvWwHB8oxE6kuGHNv8gS/Gk ECAwJDy7nuWNiudluE8yLDNOV4266o7Qfs5aB4YlN9+NlrvljJhOVZsEMuxF k6IJ1V1F6MpKeRzDsqQhO/ZD2sBcGrqcyDDx2zt5y+J/UD3htPU1w7/OHfhz x+UBnCgu3fBg2P2VTpO9khfIqxU0mDO8/uRRfPLhF8DVXHHjwP/Ob5fr0C0d CHuWHPu/MdbLajaizikZBn3h7tKJDNftDfBL3BIBK69wU22GfaL23VUJfQ1U Rbg8zDgPnc2V5p2bomHwk+gJe4Y5vS9o2gfEAnMnZWWKcZ6N/2YPsnMmQO6A bdxVhgMd/fmTfZLAIXBQsI5Rj7e/wz33PEsBrmdd7kIM37olbVuyngq5CRuz 6Yz66u5zu/xcPR1ss1zZCEb9pYbqDI08MiCX8p1tOYaAKZOrKlNLmfCX/3vH bkZemnizZajHsqBF4/ObXYw85TQuiPq4ZYPqGOU/TkbeHDTCuUTmc6G54uwE YuTTYGlwdUoxH0at3yX7vyRArvjgb6pLAQwfEbHUZuR58fXnaalFClzn7v/z OoSAMh53eq1rEeQ7Ov+I8yMg5dCO7oJ9xfCMhcuml9FfvkYFHQntxcDXK1bF 4UOAadR484ODJSDYUiSm7MWoj9jZWumhUujOYHMdZfRvj/YXtCuwDMa1uOIy GP1dfcurik2lHHqeYDSLewQE5RWXDodXgDKHfma8EyMfqsIFEdrVUH1OLOf2 TQI2X6HmPv1dDTx2NItSa0a/PTHOdkhCIE4NurloScC1sVoTcQ8cHEKmU89e YuxP6p/BGr0Grv36NKLDuM8+FVlpvwuoh/use4yCjhBwokG27sBoPQRIBCv8 lSOAQixpJik3wKHJEf5zMgRELb2CoPEGKPrFyz4gTsBNaFSzUf8IF9qcN85u J2CjSV5B8PcnOD7YGJL+hw4ug2sFYaeboEuxyUJxlg5fZprkOJKa4F7K/HLx dzq0bLGRndNvBnqOypfwUTrEmcUeaE1vgaADi9x5rXQ4OsYs8sy8HWyyz+DP M+ggV37xt3xWO2h45MelpDDep4i8+tGldpBrVW4rjKfDpje5R1MMOmC6vd2V +pIOq0bmgxuzHdDE4QhannQYohQcRApd0FI1gN81oUPyXct6dSoN3nnIX/Wb p0HCFe78yBEasKuTPe1+0iBGtzh6hpMOysEjtdrfaRC+l8c+0ZwOXY0Ti8OD NPDqeL91jfFOaZ4RqMupo4G1PK9V5YkeeF9w5k5xGA3Ef1UsqdX2gcJ324Zf YjTwaNXy+TvTB1q6gYc1dtOAyG7myxfsB9PTZN/n/DQItBkQF3Puh/1ZzIYL LDT41b9swLl3AFS767yejHdDdYNqarfnIAxG6d2XSeuGy/FUfQfVERCwKuT1 E+4GvbS+VkPzMaibNonJZumCUwb8rPPvv4IM40oqv9cOYVY9XvLUadA0XAgV 12iGj4bCvEb8v+FRbc9qIvtHmBHb8aQrbg6uFzvNOAfUget9GeuwnQswE89z YWskDjt5flaaiS1A3oiIiHoADqXJhQIisgvQ4lWt7OyJw2qTakeu5gLsdpjX /2ODg7eYLjQ5LICJUk/ORRUcQttuCrPXLcC79O6jl6gI3kol9T2+8w9GLNWO dphWQ8/gFhPbxkVoMqoSKq6uAP0gm977XYtQo1n+1TC3AipVyy2fDy6CY/Dt yIXYCkiJumGf8msRXiZSHzu4VsB/RiU+/QJL8LxbPv+3bAUs11lQDW8zXBtW YpFUDnty3u5R4VmG0r2eZE9G3117dOIr59kV+Cgz3uLoSwXpm430WbMVyDdY u4xcqTBnaFpPt16BE1ePLgvbUMFXwuFNmtsKOB4rPc2iTYXc9ngLSFuBlCwD MVsWKiztX2l/sLwC5sdrJiKelUBEV1npJHkVLu/npmgGvIc6GZXAOvZ1UB9O H2OtLALLw6Zpv0nr8LpKTfF4QREsHnGuFN29DjoUvTX31CKQVcuZdZdbB19e uzHBgCJ4rSt6XuniOvTaPVH4YFYEtjacezLI69BuAHP9c4XAldyT53tmAwTG YmU/KBWCJHflt3RdJuyxW+1rlQ4K/PkoZ5dqwITNz6b5tjVQoNr3zY9kEyZs TpiJ07GCAmZsfrNxV5iwpswXCfhbCrzYMP4bfpcJi+7h9azxpMDE/NcNjxgm rOKOq8L+QxRIHdu268I3JqxtZoAnYV8BCFfan2L3Z8YI1U2rywO5sF1wedkp hBnrFvQQFv+UC5sf+FN6I5gx35OOvy6V5MLq4Qyh3ERmbJNb1aO58FzoTxv+ bVLEjE25xNTTdHIhKsg4KWWYGbt7Iivv1Psc4LNQ+Xf8KAv2uNbtZGhCNjAt s2S5jLFgz4PCKVoRZLg23jf39CsLVkSJWGt4Tga8haIRMs2C+RRJZJm4ksEr 2ZKWucCCrZVorQSak2FDu3xjkIcVu0ceznwgSob1MGez04qsWGxn4m7FgkxY 3T/KuseHFZvXsLXnJt7CP+Mqy4b9bFjZ7vtxfpAB3n0FQxoybJiJafUD6yMZ wGedeqVUng0b/RBidGp/Bkje9bucc5wNc4bEfulNGWAaamz20pgNO79Dx8Kh Jx0oTZMGVz3ZsJdkpaoa53S4rcWnPk9jw1K1K+Y88tJgQMlKaL8PO3ZV5XX0 c0gF26WjpBcB7JgEN/Vbh1Iq/KrazDoZyo7pTbQxS0qnAtvp8qn0WHbM6CWz y9ftqSB3aUe5RAE79i8+J+rD1Bvw8mw2l+hnx0a4dW1+Rb8ByQ8qUeLyHNit Fav+D/9S4O7FLVv3DXJgpbt6JB1jkkHw9YQ5mzAX5l35WOl9dTzkW6Rkzj3k xthLIq2blGPgovpT3cYqHoyeWvYr2y4S3lk67lNb3YSd3qYyNkB6BYs8Wqxl F3ixSZLJD5vhcDDpPK4sHMOHsYYdfntFORR4jm+qqUzkw9yGOYLKDoRCTXr/ mStpfFgY4RYuKhgK8g8fWcfn82HGFm2fOVZDgE+UGizYwIelSciMataGwCeH I+M7/vBhr3aFO94wCgGM62A431kSFp4Uy3rgXjAsOi/uzjcmYcyX5qXibYKh YOBjhsFFEja1bT5pl3kwiBTYVgRfJ2EDPYY3D6oHw+qF9C88j0hY7MlXWQWc wUBNE1XnfEvClEyf9momBYET78+Pb3NI2BCJqnDsZRBIulWb6LwjYSkhye7K PkHwWv/qfy8qSZiwonKTvl0QuPyOe8XaTcJ2Nt6ndCoHgbSFnUhaLwnTesQz wyEdBJ/rVbNODpMw+VblaS3hIDCK6a1+9p2EjZ9KFaKzBgEXC1lP7CcJK+t4 jR38FwjI3o2G/yVhLjU+W19MBcIDuo7VtWUSVkPu8f82FAj/9/+I/f//4/8A OvxRrg== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0.01}, PlotRange->{All, All}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}], ",", GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], Thickness[Large], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJw12Hk8VF/cB3D7MoZBUcpSClkSpYT43rShrGUtS8oSUj8JSbJVZEmILDF2 si9ld68tsmQbM8iukMpaGWN75nm9nuev+3r/c173nO/ne86956DtPSM7JgYG hgeMDAz/+5QHwfmdHQJmc62qUL05AO6tHwpepxGwkH0CDPJfAqC4TFFy9S8B +8elnH14MACOH9G1nflJwPqEbnNK/AoAZb6g4U4KAdN5b0x02x0IyPRye3wR ASuSqj9zwT4QjF505Z2wJmBnjc6JzvMEgWd30F2Heh7s4j0lK/2Hz4BE4ppv uMmNCZz8KT09Hwwi2L3dysJ4bNaFRXisKQw6+U+6q+7BY8uxrPn6pDDwtqP1 q/PjsTzxr06d38KAjHsWfZ4Dj1VnPo2bZQ2HSOMEfqM/XNjkUk5KplY4MP9s 5r3byYWpS2nv1+oJhx8C+7jTfbgwCyusxW4uAj44N7MSRnEYI/fOF1xKJJw+ 4KqYRcFhUu0G31JzI6GatMdSvQ+HeYsV/0PKIwFTdy53bsVhWR21R+M+R0I7 gf9WWwkOWxVxzcj4EwkTZdaY/3Mc9jGztUn7ymvAbdK8/xzDYbmTa3ELjFFg E6a4NBTAiQ2EEjkuBUeDd3nU864nnNiVkYFatZhoeDOyKtzgxYm943HlViFG Q7vcR+0cV07sJuqVolsZDSe6VNM9LDixJW8RnfG5aGDjOW+y6zgnZjvtOPP+ cgzkvzKpvTLJgalptkwI7H0D1KjHwShwYEJej8nfumJhVrhh/qIqByYtsNzl OhoL5Cw23S9KHBirrZME6+9YKKt+zTcqzYG9e7IpZoqPA9ep7ATaLg5M9uOo x+vLcTCtSMo/OceOjdaW29/pjIMvPXK9eZHsGCfp7oV/lLeQzjMm9HaSDTva o7YlKZQIUdeBXWWEDTPjVA3plE2EgBzinyEyG8Z6jbDqp5EItpq3uvd3smG5 fGvRgrcTQdxjLijlIxvWk6np+a8oEdJGVxazQtkwl0sTujE6SUDMZ//04SQb NrIx+ycr9B0k6Si69YewYqq3HDfEDxDhMJdOe08QK1Y+6NPRJEOEvA5b8S9P WTFZCnuGy0kiVF+J6Wt7yIp9V3kVTNYhwpDe2vH6m6yY1rEZMpcHEQSv1q3m qNDHW/5hzPSFCK+uaz/0/cGC2V9mstQLSoUAl5te0tosGLfij7tLXOkwFmGV VH2OBcMyK6jjQumgWnIdu6zBgllmm/J/lUqHlb/GHK4nWDAJT8t9f86lw82n Om9LRViwNMWg+FKfdECiTlSqrTBjI3hvfaeldNiuYKXqJjJjTxoKZHgmM+Ax 83tPt99M9PkPikf+yALXeCs2mzkmjH0itjV6PQtsj+16ozvNhOUUms+nc2aD znWf0iNDTFh2eE3vD+ls2Fum93usmQnzdduPcDtnQ7ntqu3lJCbMIZTnQc1i Niw0nNE7fJkJk258YbrFlAs3/boPk3MYMfzF932uV/PAZChFYzSdETPKt/QL sM8DneP3zb4lM2JrttOfMh7lgdI33rCVGEZscJeZjgAxDzi0jFZ5/BkxzshJ 6+zfeVBIGGi4ZM6InRR+7h8fmg8bycNWVZyMGHtKGsrSXwBv6r6/TXJiwHT6 jDvPaheDlVeCr7IdA8bykMux1bgYjpzQv91nzYANFfEbm9oWQ3VO5TEOYwZs 50GPZuzjYhiLDv30ABiw6uGpy68Li0HKSfGPzm4GjPelnGCgYAm4HaUlrzze QdteBSERCyVQPX4Eny++jZphcpV8DWXgc4axIGHvNmqx5EC83V0G6vFDuiE8 22jv/KJB42gZYEYvX9nTtlCKRopkMq0MWlt+8h/s20IPipbaDyqVAymvUCjW fwuVenRe1zKvHBY8laT8JjZRT1e4OUT8AId4Ec1ryRso7c3mfrGiCohQmPR2 it5Ae2O4irsaKoBqEFDmF7yB5gfKrr0kVUDn6+bDBW4b6ND2GKZIqwD3Xdrs bJc20H2lmwqKFyvhk6BRZ8UiDV1hUvy9PVEJTiK3TfafpaHSFhyCvOLVUCoT 7DQ1TUUFyRTXlv5aEOu1qZIdoqJVl0Sz/v2ohTBPFY6HX6iomWXKrDJDHdg1 z2eyV1HRyYtH0ubl6mCvle6kXAQVXWl+TuR7UQdPXvObeZ6moj/6uVacNOpB i5p0AR++hrbb+Yf9V4XCeEvJgVOn/qHXaecMZ+83wHe5N8fRj6uo6+/PEvj6 ZuDzzT0lz7iM6vN5IHdJbSB3alEuc/UXys6as0Pm7ILA8797qrxm0RQ5Qu+n Hz0gcK0w0nzPFEo1EIk7dqofSiVDqy8wT6Hf37E23tLoB4N1h2+Ki5PoYlsJ W8zFfniZfPA0rnUSHV7nz50z6YftuZjxao9JlJG2NWXj2Q8zTx7LC5Mn0Kqx wXT/in5w1X/9tk56HPW8hDOSUiJBzh+dX28Yx9HrMo27WtRIMBXPgrgOjaHj g00XLM+RwOSb56xoyBgaVfCt2ceIBPDI6pTf3Cj6YsK0wuM+CXjTZUma2SPo hbkn+Tp5JCj910JoOzyMLpknSAsID0DE+7RGjfUh1OukedGjQwPgbPX04Yeu IZR91bx8QGYADn86/TXNYwgdMTNbf6AyALFv8rKetA2iAe2p7y6ZDIC30mv1 Ey4UtObazMSZiAHQdLvhnFxGQhvXquQW/g2AqKSKqEAwCZUxpLIc2hqAjSGB 3tAbJDRUL/C6LjMZys92n3rESkKd7hy5FEAggySfJtM10370v0ktD2cpMuCK peI5N3rRNWlva3ljMmR+/R7+I+gLKpYlxrE7hwzDPoIp7058QVtZDbnC8snA I3qp2HCqC20x8Lq9XkwGD5ucviroQgMX8pfKqshw8bvTnpe0DlTCzcwyu50M cwuLRJn7n9GK6tMnns6TQTjyQOmY6GeU49Z5fq0FMhgoGjZFdbWhXfwCJawr ZKh8UPqdJtOG6paFclmvkyGE6i7T8f0TyrIn61IIOwVkmGhlzteb0c/9+e3l BylglS7TIoZrRj06IrtaDlMg6vx1cn9lEzolcJWvQ4oCtOe1VDXBJvTWoSNQ epQCHVxP1fG9DWibcOODldMUYCgo0sOeNqDvU6JqM9QooKQ3Ye0u34BSCWa8 lzUokBR5NmAkFEPnvVvRB+coMCjDEWEeXo8aF159o6RLAeTuneKG+To0iV02 7Lk+BXKK2vuktepQ/5DPVp2GFHikFL6HxlSLUuP6/E+YUGCfBn9qglcVem/q kfw9KwoE+D1oYiJXoonDcm7WNhT42Uj67nSiEp0JdrtzzpYCtZfiZNQWPqId 5VU2M3YUsDQULv96qxwN8s2gxblQ4NfqX5WHzWXo1WbTMhFXCvjEdqM8EmVo cJOtd9w9+vt/Deg4O1OC3mmhSji4UUDO94bh14slqKUNC0vdAwrUHDhFcc8u Rt+y3Zlme0iB8o6+Fv3eQjR12znBw5MCJN7nvQFRBeiMjb1LkhcFVo1VRj9c zUdN8W5KHx9R4PhEyp/95Fz08oXMpJbHFDCUuMqgH5eD9sqwna7xocB9JzZ8 gFk2KiX+E814QoGiPy6H5oYz0Dn2mbCrTynwReXAsf1J6SiD2O4ve/0osODb r6pnmYa6FPxb7aWbu/n5RX/RVDS5ZnzT158CZvzuGY5oChpiqT4rFkCBuKTh mi9n36GR1fEl5XSTJc/2KzUnoIoCiRbqgRTYXZI9n3DxLTrdyzxZRfdVNR4m xs9v0NdPSs/JBNHz0uIu5HA5GnXsT/WPoLtH/6tCV1ckKtQ4Fz9Dt2h5YKQ9 MQx9d7869PgzCiS2GaDHM1+gypr2Jm507x0VWdjODUDlh03XM+mWnR5QibV8 jH4U3ePeRbck/n6cvMN/qK6a1qc5uv1IR0j7myzRurS8xTW65QijTqxHz4Ma r+gSjW7yckAKL9UR1ILfti7TvaQvtXLPzQOemyl4jND9OPpiu7OSHwzu2bNZ Tfe276PElGPPoC0jwTz8f8d3ynfpl3kJuoclXl2lm9lkXJ1d8hVE75x5x013 04GQF+94o0B9Miiohj6/oFjx+8oRMSBXWnPBku6L+FqzXq44iHhTO7lCXy/2 AOOzziHx4PvN19yH7ra1BWlW9iQQkBYsXKev98u7wfwpQcnQuLd0wonurOXI J8L+RDgRkbzSTa+Xg4OM/cftNChjk6h+SK+nlrinRaB6BlioTrt9pNf/yGiT noFPJjSdV+X76UuBeSNL5fn1bIh3OMamQM9LO/d72YrTueCR3GuD0POU1/ZP LMjzPaiRdueep+fNRSOSQ/RvPjyYr+SSpudRd31kc/5EIUiEbcpw0vMqXy69 XOFWBOKxWWdHPShAjZn8dYRK/06oO2Rz050CVbjHA40Py4Anxq98iN4/xKMC /UXi5YDXq248fZcCzw2KepK6y0Fhtac5xJkC12KnOzykP0KQC2sFoyO9Pgev NMqMVoLHvfYRbXr/Us7PoHteVoHoqDi/Cr2/6x386liUqyFki+H2vhsUCC0o rxyLrIF5irV7mSk9HyoiRVHn66H2ieAy6FEAf6Mi/+lyPdi+5izDLtP7zdfw vUsyCqfMjZpOaFPAZqrR6JAPBojkw/kl+n4kf2RNd2ugAYjTxP1t9P3sc5n1 +ZKQZnAQlcSWxChwpkWuSWqiGY59hPl4YQoUk9fPJp9qgUfJryZOClEgdj0a QqdbgF9z3PgiPwVuQ5uqnXorDD1ItW9npsBOu4Ki0PJneO8glu7wjQxuI1tF ry61Q8GdTC7NCTLM/G6XZ0tuh0fktjHCCBk6ee3kVnU6QKONuPSsnwwJJvFS XRmd4GozSRtpIMPJKUZRf7NucHcWaEWSyCBfbbqskNsNDJJ+MXlx9PMpqqB5 Yr0b9H4zE/DRZOBKzT9J1O0Bsqy2UmEIGTYNzEZ2FnrAT/6xrZcHGUaLi6RR xT4Q0x15d1SPDCn3rZrVK0hAOV7jd4d+Pibd4Cx8M04Cv/dW3ClLA/BWqzzu N/sAHHVMKOyYH4DIAzjnd2YDUDKfaI0bHwC/ng98W+sDUNla1i/aOgA3Fbit a89QIHCB80fhmwE4tFSzrto4BOaLjxlb5AbAp+tc0J/fQ+CXb77rlsQAkN93 8BQKDcN6jXI4VWQAXtp9PXTwv2FI3mra5CQMwNIwTZf9wFfwjLfLblsiQX2L Slr/kxGY+CAr3lxKAovECh0XlXG4E/TWXE6RBNrpQ116ZlOgiWgVvNzfDxd0 +Zn/fpiFsfB/L35/6YFX1hQ/hYpf4OWtE/JNvQta9US4DfiXQe54v8ueqjb4 fVDAty9hFVJui/Rlfm+Gh+6yN18J/oMHu/zHF+IagDLCa2TfRgXDX9KqJHwd 6ITaDbr3UeGFd73+7Fot1KpUWwWOUKHv6PRLjulaIMbeciYuUaGjR8HyYVUt OBp8DBreuw4kNZnxNftaoDVdr9C7sw5XhGyyEptrQDgvS1gZRwPek0s45ZfV YPPozCz7lQ1Y4+BwvKteCTK32wYWTDaAa/oM5y2ZSljVu9Y8cHMDBiI4njns qYTnh11S0z03oOru0/mk5QrI7068DukbID7U6FuZVQHrEhvdHrQN0JFn18/b VQFRfVWV33M2wfUZbUuT+gGaZJVfNrFuw9sr5hn682Vgdexa+jJhG/h0L/ih X8uAevy/WrF92+A3+dBRtasM5FTzFh7Lb8OH6S3EsLgMYrTEriqZbsPpRW0d Js8ysLdjF87M2QZLBjFfZ7Yy4EihFDy/vAN3WWcLjhwtBUnO2rkMLQak7nxM ccvbYlhplXdK02VArv1dubIVVgz1z1N/phgxICpCm8Pq/sVgwvJiIeEGA8JI 7C0dulMMz3YM/0TeZ0AEVu6nPlYrhm9/Z3d83jIgf2KUWD5hRZA2tWuP8RwD wl57TVH6ZiGI1DpfYA1mRMYSjuHt+vJgtxCN5hrOiPjHdBZeqssDvEdw8WAU I6IhNjqolpMHm8cy9+e/Y0RO3dV6aeabB8PpY8tGZYwI780a0k3ZPIgNNUwm jjEiv9xNKrOD3wPPdeU1tZNMiFKlBY6onwsMNKZctykmhNCn7WWBzwab6aHV p7NMSK93YZDZZhZgncUa4b+YkGb8ozXbX1ngl2JFyv7HhJyvxf9I6syCnfPV OyM4ZsSzVONnengWbL/6z+TSCWZE8Ncp2l++LNiUmGAWDmJG5OM0+B0PZcKa YZ1ViwQLktQyezjYIR0ChopGNWRZkOM+pKwz5unAczPtRqUCC8KwY7JrSycd JO+/sMhTY0EeNHkFpMqnw7UIQ5PXhizIrF5InOe/NChu/65r+YQFebmhn6cf nAZ3zvGo/yWxIKd+eqfeKU+Fr0rW+yWCWBGriFdvFOSIYL9+kvAshBUZf63N /vkAEZbq8MzfI1gRabWAYicBIrBcqp7PiGdFljxxu6K3UkDeXKD6cBErwsjc sTiXngJ+TzrMDg+zIn2nXIaWVpNB8pNy7CEFNsRxxiCcLfUd3Dfl5RMfYUN+ fg62FpZLBNucYwkSk2wIqcRhtmxfIhiv6x2SnmFDVAu3zcw4E0E1MfykwhIb 8vxcUnfrTAKwjuMsNFjYEQEZxzlIS4AEe9Z0Czl25LwOsS90fwI0P6QpRfuw I0m1V19f2RMPQjHfzFhEOBAW66nLNxTj4HSgmKC7OAcSkLKskXswDkzcLPqn pTiQ7EK+eCb+OIgy6NFtOs6BbBkYmQ6vxAKeu1YzQIsDWWxJ6Bb+EAvbz6Ll GNw5kAt4sbvf1GLhm6cmw2Y7B3LiDJ/aKaM3UHidmL3qxYloU1RHsJRoUKIc orH5ciK9wZ5Py6KjocYo+8q+QE4kePsOufBFNLRpFy4j4ZzIUan/AtF70TCt XKsWkcqJMOje2KOFRMPe3YPdR9o5kWKGt4eXpqIgoJNAtdyPQ0x/Sa+6yEeB qfpTrbY6HGIudzagfCQSRv7OEBobcYi1ZJBcf18k2BbqUWpaccj3YM0ialsk uIiJ2hf14hDFr1NHzD5EQgBjXWDsdxziVRBo5hgRCYUttPrb3FxIGIYIfj4b CSx6HicZLbmQneKt9z0Wr6DE6q646iYXkupzwX+/fDjYflgSITLikVWZCAK3 cDjsxrsLsbHjkQqu3G9cuHDwqPLm7ePDIy53FZQVZ8JAdTd95lJ45PGfQh2h lDBo/Jw2HG+ER4S+zpUb7woDktJg1HoOHjHj3Ro6yRoKVNw55ipjbqS4Ivvd LXwIGPWqnRJ5y4PkOxqWsHc/A5waV0PtOx5E8G7e6/qGZ9CQMXz5RjoP8skj 5/DT8meg4PXoZmIhD5K0JK8pkvAMeMQqwoRaeJCZwCDvTrtn8Nnl+LTACg8i ZCe0vLgdBAiHdCTPFQLCFLX/z+7TQUD9j7qv0JCAvJlvZ1mVDYKir62ZuqYE ZBmd6hsSCwLRIvuaMFsCko3997KBPQg2jTNmcI/o5nyeTKUEQkW6mDp7Fn28 qnjZnUeB4Mq92JqVR0Cq1avr7VwDQdKz3uhiCQExLficTLINhBgdS8dntQTk 3E/6f+DlQHBbTohm7icgk0hM6T7RQJC57iSaPkhA5GrjFhv5A2GyWSVXc4yA nDXOPfeAPRAM3g7W+/8gIPrHvAV/LQUAB1OO9sFFAvJaGBdc/j0AUGdPEvaH gLi4a/8LGg4Aj4GL1jY0AlLvWWRh2R0A/3c/jvz//fj/AFblado= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0.01}, PlotRange->{All, All}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}], ",", GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], Thickness[Large], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJw12Xk0VV/YB3DTvbi4F80SJWRKGTIVz4l+KSGUIVNRKEmSSChTZmXIkHnI LBQyhHNMkcwuJ2PGUslcXUO8913rff8667POsPZ5nu/e+499yPqugQ0TAwPD U0YGhv+9SsPuH9vbFCy70HgH9yMPuLt2OGhtnYIJ1GABJqEeUFIqI7rym4Lp tSd7vE7yAFkxHeuvPymYv+k6jxfqAYo8/kPtOAXbn7uTq4zgCcjUUtvLYgrm Gp+oFPLCEwwCOwrkrlKwxQu9AodqvMCty/+OXR0Ze4CWM5XyeUPYT1d8tZKM vQgWSF8S8YYM1lunfUvJ2LE+c1CW8YZ20NmVnEvG5E3VE6c0vUGoZFdtbxQZ 07lV/ibrgTd0RmRzqtmRsZ6bUY++9nqDqEFrwU5uMob1zxyOeeEDVCrHj3or LuyV5LJInIIf+Nworysw58J4n2x03dXwA+lVy+gYYy7sWt6/swZ6fhC04+2p WzpcmBbrYI28vR+oGpg851bmwhaUt4udUvwgu+uV/FVuLkwqjZ2rnc0fHrap Ptms48T2H9+3pj3jDwewuzsV+Tkxyh6+ay5oALTznnBR2cOJxdOC8is6A+CR zXqfKi8n1p8wFkMcC4AB0tPoM2ycGIJvPWjZDIAIwwReg1UOrGNM7s6ASiAw /2zivtPOgbHfzRyRqQqE77v4uDI9ObDZvoJyETQIym83ESijJOz6vZ8E4+UQ UDroKJONk7AGg8datsRQqKbusVDtJWGtljYOAXyhgKneLrvdQsLKP7x/uqYe Cm0U3uutb0jYDp9wrPBFKIyXXsV8AkhY1DedPYYnw4C0uf5o9RgJ667OtxGI DYdrYTKLg77sWJTX1I5c9Qh4VBYV0OHFjh3mNahW0o2AmJEV/vqH7BhHtF9C 75UIaJN6dz7XkR0T7ek8InQvAuQ6VDJdTdkx7p6ZyzJpEUAknzHaIcuODV3b Ju5hiITC50Y12hNs2KPnaiXKLZFAi/IIQoENO5H3IKLRJRq+8df/OKvChu2+ bDi+0z8aBrKJOp3ybFgEd3PS/ehoKK2O5BkVZ8OcVnXCr7yNBsfJnIT1HWzY hs61162L0TAlQy08McuKmVwf4wWnF9DZLdVTEMGKSTofkp11j4FM8ti++Aki dow95ans+ziIMgNW5REituZuWb3QEQe+uWmrgwNETH6dplY7HgfW6te79rcT sXlH/vvBxHgQcp31T31HxDyjE8RnDeIhY3R5ITuUiJF/JJDb5+MhrZD1Q/kJ IiZFFLmXIJcASVoyzn3BBKyElF07vZoEwhxabd3+BIwzHy9KJyVDwSdroc4n BEypyuem08FkqNZ+0dv6gIAR2aecNLSTYVD3r2ydFQETp4y4179Kht2Xaldy lQnY6v2etxJXUuC52fkHj7+zYFHn/5kKdKeCr4PVQ/HzLFhhxA5LDq90GHtm mVStwYJdKFfr8wlNB5U3ZtgFNfr97EoRQkI6LP82ZHOUY8H+9tyIkK1IB6sn WvFvD7Bg49MCqPhyOiBRcpUnl5mxEWOh0mj7DNiqINB0Epkx8QOoXp5NJngw 57s5/2LClFDr0ujALHB8aUm8NsuE+b2XLrwTnwXWx3bE6EwxYR8Cf8UY5mWB lpnnW7FBJmyS2Hfz4qcs2Fuq+2usiQlLK8z9b46SDWXWK9YXkpgw/kHFWmpi NszXn9IVvsCEfU0v2fWmLgesvLuEB3IZMeGCtqHjcvlgNJiqNprJiCktH0p7 pJkPWrJOJtMpjNjdG1b5VLN8kJ/mDlt+wYgZGVXWVvnnA9s5gxWyDyO2ro3L nMfzoYjSX695hRHT/3B0OfBJAWykDFlWsTNiNyNvrA+NFEJM7Ux8kj0Dhghy 3I/vKAbLhwmPFW0YMIUTm6lOs8UgJnfxRu9VBsxzNWigmLEEqnMrj7EZMmD8 og8N6/lLYCw69MN9YMBWbXOJdy+VwBF7mVWtnQxYdKBt0mZDCTgfXU9Z9thG oy5qHeYveAPVX8Q4C4W2UKNt10nt9FLwPMX4OmHvFmqb4325pqQUVF8O6gST t1BvLSReESsFzCDkue36P7RyrbRE/0sptDT/5D3U+w8tFln4tlOgDKgFRfti ff6hDU5eT0aTy2DeTf6I9/gm2lFV556TXQ6HuRH1yykbaOKhxsa4sQp4dnzi kX30Bvot7nd4/XIF0PR8S72DNtBz+/6T2SBWQntkk/Br5w2UaJQvlHKsElx2 nGclam6gsw5fQjJ9KuHDboP2ioV11G2XnlipWBXYH7hhtP/0OirQFXxvn181 vJUIsp+coqGaZwW+e9rXgmDPtSrJQRpaLeDpa+1bC2FuymwPOmloe4j5b5OE WrBp+pHFWkVD4+J83B+21cJeS50JqWc0VPFCnouvZB14RfKauCnRUNtGxpbm xTo4R0v6jzP8Lypg66bBcwaDL81vDioo/EF5Z3PETH/Xw4xUjCz6bgWlZKps XXVvBp7HeQrSjEto97KEgv2HjyClsCCVtTKHFvNZF3Ac7gS/M7+6qx5+Qxfz OUvyfHpg1+WiiCt7JlGXj43x9R198FY0tPo/5kn01+Y72nh/H+it2U3LLEyg Cgq05Y3RPghJOaREaplAT0/PPBWe74Ot2Rdfql0nUP4C9x41MhW+enlI8w+M o31di1fCdajgeDEyvlb8C6omEdh9qpUKuataczGMX9CuufXJii4qTL5kQRwH x9BDnRPsR3EqGE27fRMIHkM/tDreIHylArhbKnjPjqK8W+00B+Z+4M6UpKrn jKDyHD3sXKr98PZPM6VVeAg12KLMniroh2f5GQ1qa4PoZLOKmvPbfrht+eRB eccg+nZ6YCSlqh+EPygNZ7gOoo4aJpWjLf0QG1OQ7dX6GQV2G53FqX54JB+p KueAo5J3VVXM+QZA3dn8dkopFeU1b//788kACIgqC+wKoqKjqTrJ808HYGNw V0+oORUddj7e9jV0AMpOdym4E6jooC71aUXcAIjyqDNdNu5DD9h58w0WDQCp 5MhL9o0e9IXm+Cue4QHIGp4J/+7fiX5W3spklsRhyHN3arJcJxoWtHpT/xgO ZAHNEv3JDvRdQV/9CzkcXK/l9lZBB3pGUo5r8yQOZ2fs94Ssf0JFc/sFtbVx mJ1fSJNw+oj+Of77wE97HPgjDr4dE/iIEh3Szj9zxEFPRr8xqqMVTa53CRZ1 xqHy/tuZdYlW1FPfQkzBHYdgmovEp5kP6MFY3v09AThIMK2X3jZrQpdsT3xe SMXBMlOiWZDUhFo19LNMZOAQdcZsoK+yEf2nfHroQxYO6wE1tJO7G1Gbgpd2 TgU4fOJ4osrZU49qi/PZq7zDgeF1sS72pB5dYFZX6a7EQV53/KqLdD2qFIc+ NX2PQ1LEad+RUAzVjnrrro3h8FmC7dmV8Dp00/q8ZtZHHJA7t0rqf9SiPkS9 62OfcMgtbusVP1eL/rv6t5ejEwd3+fA960w1KGcmZ6JGLw58arzpCQ+r0Ebv 1suiQzj4et9vZBqoRKO9sqMZR3D42UCdsZerRIOSzFl6RnGo0YyTODn/DvVO UXTQnsDBQp+/bPh6Geo/p71U9g2HuZXfyg+aStEDH4e3xL/j4BnbhZJFSlHe fIWX0T/o4x/2/XT66xv080XazTO/cJB6bK4/fPYNumo9Fx86j8P7gwq4S04J Wi3dotWygEPZp97miz1FaBnreQn+ZRyo3AE9vlGvUa3VE5dOrOCwYqg8Wn6p EK11iFlVX8VBdjx1df9AHvqDTTH+5B8c9EUuMVyMy0WPzDyMFf2Lg5M9kdPX JAdN7ZIiEGk4FK86HJ4deoWW8v6UyljDoVP54LH9SZkoz46SSct1HOYf96no WmSg7k/Mmbg3cOBqCjjrI5COKusHhZTTbcLr8uommoreZJpyv7iJQ1zS0PvO 08loTrRc1yjdA6Kn++SbEtBrkSbB1/7hsPNNzo+Es/Fo795zOTjdl06SmRg/ xqCuIxQxjS16Xppd9tldiEZlxfpJmXR3Xxw+3tERge6doer+pVugzC/CNi0M zUy6vgLbOCS26qGyWYFoncevv5507x09ML+V54uKGf4xK6JbcqpfOdbCAy3J 3CdIpVuU0ylO2u4eOhhKOj1PtzdVjLq/0QKVHY2u36RbijJqTzh6BqR3xKdt 0z2w5JvKTbsJ7YY8Y3/oXrx4ZPmusys8cud5NEm3R/TZttvy3rC8Ve/SQPfW Y/fE1GNPwZn3Rmfs/37fvtChTyIEEkP0Aq/SzWz0RZVV9Dlwffubyk9348Hg wGTuKLisO7m3k/5//rFCTorPXkBOaPHyfbrPctaY9HDEAXDukSbTzeprePp2 8EvYMfLtUxK9fq1/58UJrEngkcHWIUh3yJ0g3lT/FDic4iYbR69/9lKEF79P GnSlaf1jotvOTsL23VYGhDZ9b6mg9/eckJupn+orqDtp3MZAt9hoo66eZxb0 md5WVKPn4YeBheKPtRxwCG43jqXnp40rX7JCKQ9Iua7kN/R8FbT+EfR3ywfS Yx8F7DcODmoRbAK/C+GQv8vke3o+ddZGNn/IFYFIlIt9Lj2/0mXiSxXOxZDC SHAIXsKB9mJiToxWApdMiTNi9LxXkTz6Gx6UgkXrzMooff6kHd3VVyxUBjNU 70HdWRwC9Iq7k7rK4JaLnebbrzhcjp365Cr+DjLYn3/Sm6L355B2g8RoJb2u 92bnhnHAz3xF94RUwdauMt/lQRzq7LxrWRSrof6RdcsPHIfQ12WVYxHvIX/E 6nppHz0fygeKo87UgdO58y5ZbThwmlcUPlmqA/UrDgtIK32+PdbPd0hBgfXn Z7WuZhyuTTYYHPbEQJ6I3muir0fSYn91/vXXA1ErpZuHvp59LL165k1wEziL RvCppeBwqlmq8ch4E0iT9bvYE3EoGVg7naLQDLXjDxpa43CIXYuG0KlmeALX fA9G4nADWlVsVFtgefe2hpIfDtttx2X2LX2EX3FyTNw2ODiP/Ct+rtkGRpwF djuscPj6q02amNIGbzcKI0kWOLRz20itaH2Cc173TaiXcUgwenmk41U7BPX5 Vg9o4HBiklHAx6QLmlr23EkVpI+/2njpeF4XLFe9psnvp9cj6nXT+FoX/DuV bIftxoEjvfBEmk431A6G8FZx4bCpZzKyPd8NuYlmMbIbAzBaUiyOyvTCuriF li51AFKdLJtUK6hguWLjfpu+PyaZsxfFfKFC26ODkV3uAxB/rizuF2s/xFc2 1ku4DEDEQdLtZJN++Plrd/yHmwPg3V3O82+tHxYcujVi9AfA6jjX1ZpT9H2p SWRn/KEBOLz4fk2lYRDCmPrSfd73g2eHhv/qr0E41/fa/GJZPwzkfyIX7RsC a0bs3M7X/RBiM3z40L0hMP4YsuiX0g+LQ+s6rAeH4d6hZuFN736oa1bO6PMa gR+sBx0szvSDaWKFloPyFzi765XWxWYqnM8c7NA1mYTgq1e8zUv74D8dXubf 5d+ANSrOOdK2B55fxb2PV8yB9DB3frBJJ7ToHuDS410CIS6+N0N59L4d2vW4 N2EF/l2Q/muQ2QwPXCStnu/+Azc0zQz4BBsAH+E2sG2lQXwkV99cTi1ohdp8 dumlwdxnd16byFqoUa629Buhwe7dIkfnHtVCWuz122mLNAgtPDMjqlsLN/Xe +Q/tXYN7uMxvnd81sN5oVqF7aw2Gy50oV8/WAH9BNr8iaR165Q7mOa5UwzX3 U99YtTeAwZb9z9GHlSBxo7V/3mgDPMVCLqZfr4QV3ctN/VYbYDDMlCV8sRIC hB3SM902YOALQcRMtBIKuxLNIHMDjpmWpwb0V8CayEaX6/oG8HAMvexWqICo 3qrKmdxNMCv6ykFjeQeNkoohjYQtsDpy8mVdRylYHrucuUTZAi+TujbOulKg yd6rEeTbgqa7s3vsikpBSqVg3kN6C8JUb8/C81J4cU7wkrzxFnBQg+J99EvB 1oaVPyuX7jLzGbXPb4EtFX8dcGEb/HlFXzrOvwFR9prZV+cYELaVrnWuUyWw 3CJtn6HDgGxJuQ3ZHyuBuoD0n6kGDIiG7VRGj1AJGLEEzieYMyANfCZ9Newl 8HRbfzXCiQHRSru4yFNSDNO/v217xjMgLhwMhJm5IsiY3LHHcJYBqZneSahy eQ0Ham7/RwhiRFhuEl6dqc6HnfvW1x3DGZEgNr2gT5n5wOkaVPI5ihHpZF5a tQnPh81jWfsLkxmRheJ2sf5r+TCUObZkUMqICN+s0kxky4fYUP2UtDFGROpv wGSlWR6QzRT/njzBhCxP3ZXpouQCwzpTnvMkE6J0azPveGEWXJsaXHnyjQn5 PmEaapyYBVh7iVr4HBOyvddAIywkC7xTLak5f5gQkcuiHIK3smD7TPX2CIkZ YYlLa50VzYKt5/eMNOWYkRuag77MWa9gU2Scmd+fGXGJs4rjKMiEv/q1ls0i LIhYl1qw+Eg6+A4Wj6pJsiBW0dofdDvSgWyVYV55nAXZ0fpZ06cuHUSdAk0L TrIgteYi37nS0+HyM32jSH0WxPlgglmTbTqUtM3oWHixIKbTW/2Jq2lwS4Os +pvKgszKpudm7UuDYfmr+0X8CciR7K6ZUK5ksF07QXkaTEBWffgMlP4kwWIt J/PMMwKy75KkyNpYErBoVv949ZKAJIaHvasoSQLpK7uqhYsJiNgyf4ioYRJ4 e30yER4iIChV/cz79EQQ/aAYe/g4EXFpvBB+9nwCOBlz8wiNEBFe9xUadMaB de6xBJEJImJ8jMO0viYODNd0D4t/JSLUtMoZvYI4UEkMP3F8kf682bx2QlAc EL6QTNVYWBGkJ4mrXyMOEmwJmaZSrMhvQjJ5vCYWmh6sy0d7siJeUaZVG5Ux sO/FtAnLATbEXUPPaGYgGpT8BHe7CLEhmp6B8zdaosHI2bRv6ggbEmQ3/m+p Ihqi9Lp1GmXZkG3HO3ryL6OBk6tG3fccG6LbmudgYh4NW0+jpRhc2JDdShLT O2aiYNpNnWGzjf7+9zFhAkMUFJml5aw8ZEemJ4bOW16JAHn88DrxMTviSVOa K9OJgPcGOdp8fuwIS5j+xE71CGg9X7SEhLMjmjffZy5KRMCUYs3JZ+nsiKy/ s9HR9eewd+fnLrE2doSN+LhP8uxz8G2n0Cz2k5BFp3hL45/hYKz65FxrLQmR jz1JOmUXCiO/v1IaGkiIyq9FDa/LoWBdpIu/byEhvm7dq+2nQ8FBUMC2uIeE RCxVh8bxh4IvY61f7AwJOT0Nap97Q6Coeb3uBhcHQmolmPw7HQIsuq4nGC04 kOrrf32eSgTDG8s7QiqbHEjlYk+xqFAgWJcvHkhj5EScQ1O6zXkCYSenyz4i KydiedSyMY0hEFyrHnH38nAiJhO7ful/CQCVnUFbt45wItoSETTj5ABo+Jgx 9NKAE2H07dOd3R8AVPnPUWu5nMiNx29Otwg9BRpJg7nKkAuhvYyd5jD0A955 8osGUy7E/ZMY+t85P5DsGRJuv8qFCCjaKAef9APLOOezX25xIY7aTL+khPyg 8XBGMOExF6JrZHb/64IvPDvFyG2QzYWURKce2R/uCyKOKP/PP1zI7eSR74ad PmDQc1LhQDwZcSzSm/Ow9wbSSY76mmQyohm2KpFr6Q31r4YumGeSEdr2Pskx A284/tDdKrGIjJibWmjbnfQGsmBF2L5mMjI+17f/F6c3fHSQndq1TEYY//7I enz9CSBs4hFkbQryR/3Gn6csj4F2j8ZXpE9B8vHqjKMLXlA83JKlY0xBftYL VH0d9AKBYtv3YdYUxK5PcCas2As2DV99JblTkDDRfv8cMy+oyBRUZc2mIOTC CXu2Ck9w5FpoyS6g2+KyG5rhCaJudQZn31AQo73faAHPPOGFlsXNpzUUpP2n 3EFNW09wXkqIZu6jIAnM29dDdnuChJm9QOZnCmJbmObVyOQJE03KeepjFMRT 7noc54IH6MV/rvP5TkHYyHhkZ4sHsDHlnj+0QEHYlZYMNcs8AL3tRsVWKciF nn/jXWke4Np/9uq1dQryobFP+Ga4B/zf+QHy/+cH/wNDixG2 "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{All, All}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]}], "}"}]], "Output", CellChangeTimes->{3.541307269625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"PDF", "[", RowBox[{ RowBox[{"studis", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "4"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5092796852876067`*^9, 3.509279734330412*^9}, { 3.50928003676271*^9, 3.5092800383798027`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox["1", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["x", "2"]}], ")"}]}]], ",", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"2", "+", SuperscriptBox["x", "2"]}]], ")"}], RowBox[{"3", "/", "2"}]], ",", FractionBox[ RowBox[{"6", " ", SqrtBox["3"]}], RowBox[{"\[Pi]", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"3", "+", SuperscriptBox["x", "2"]}], ")"}], "2"]}]], ",", RowBox[{"12", " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"4", "+", SuperscriptBox["x", "2"]}]], ")"}], RowBox[{"5", "/", "2"}]]}]}], "}"}]], "Output", CellChangeTimes->{3.54130726971875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"PDF", "[", RowBox[{"nordis", ",", "x"}], "]"}], ",", RowBox[{"a", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"a", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"a", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"a", "[", RowBox[{"[", "4", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ "Thick", ",", "Dashed", ",", "Dashed", ",", "Dashed", ",", "Dashed"}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input", CellChangeTimes->{{3.5092797523664436`*^9, 3.5092797797570105`*^9}, 3.5092798181742077`*^9, {3.5092799173408794`*^9, 3.5092799565571227`*^9}, { 3.5092800782200813`*^9, 3.5092801896914573`*^9}, {3.509280315084629*^9, 3.509280336020827*^9}, {3.5092806825906496`*^9, 3.509280704844922*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {}, {Hue[0.9060679774997897, 0.6, 0.6], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJw1mHk01F/4x9FXZJtoQYu1hCZFsrR4hqSyZcmSvaKEsmRJdlFCtpFsWULZ MpbJ2HI/trJUYj7JWqFdESPGEL/5nfP7/XXP69xz7rnP834/5z73kb7gaebC xcHBsZ2Tg+N/VyXY+nNtjYBJT/r+uEIkg+eSbMwSi4AF8Oxd3aJChsoaZTnG XwKmp7k7tl2dDCryRhe+ThGw/NRQQYXjZFAXjhp+9Z6AeSop/CDYkIE0Odud QSFgC/HPVCxjyGB253XZQUcCpuD15VDvVzIE9EZdvdwshNlancx7WZYKOM7/ s+W8ILZOq/CJSFga7MQ8N6vvEMBY/muqq+7p8My9nZswxofphBU9u3AvE5zi lf8MRW7Ari/Hb/ut9BCYKUExCHix7oOPrsau5kKB0Afx9PH1WDznPDzA8iFb X9mHfpcbs2nKoom2FkCkx/kbCqf/w5wyjsbazhRB0LrSAJ/fXJgvt9RIaU0x nA/v3TVQzIk53isbV8XKwHIoV2usgBNrjJwMPPC6DPRVvKw/53BikQOSSarD ZaD6eWP8XCon1hXzxtRyvgx4T5kxhCI4sQdiPj84FMqhgvCu5eQ5Tqz5kkQg k1wOyznDDvUbOLGjQsWDj7yewv3nX9Kz3Tgwweq2/Dt6FHC4kRmq7sKBxTj6 HFa0ooD8wTPO/Y4cGH9YjuDQZQo0FNft57XgwDappyXY3qXAB3Lci+vAgYUb GOz9+4oCe9yU5/U3c2C3q1o0dfZWgs8+Vs5c0BoKbVSBqvpKaPgoL1Aus4oS edQm7aaqIPgo59NMsVUUWPXZhDZfBccyhozuCq2i4o3fzoutVgFmFpt4ifUP KSd+vjW9sRpedkyJSPf/Q4YRFRem1KoBL6sQT4v4h/wEMG9iVDVMB6juCf+0 gkTHIpkM2RqQ3UjSOZuzjDK2lPD9CKRCwoHxm27kZbT2wNmP/zYVmCaRNeEx y+gmT7CfegoVXiW373rqs4xEI5utykup4LvpNM/6k8sou4srlW+UCi+2mr2i zbBQfTQtOI/0DNx2Oltu12ahKVnZWU/hWqhWjHGbmGQiKelX2fl0Gkj2OdXv HWKi0ETKguIEDeIDNHn93jCRLTWqC/2hgUv7zyKeeiaKW9jEISBUB2IORuPE BCZa5Ddq2n+6DkKSRawDNJjosavVWHlLHZxiZp8QuLeICihfNrU21sPHjiop NbUFVHMnO+/OQCMEmy/pahAXkPeurEm+b40gNk66clhmAQXS6wwzFxvBZKW3 SktoAYXN11ePiTUBpjKtc/LrX3R9Sx1t0bYJ8nIVXazT/iLxkYvzYZ+b4EJg QcnNhXmU3iZ2d/vac/hCvK+CahmoVS/WfbcSBoqhRdPfyxhIPvrVpkkNDK71 PisVyWeg5IOKm0qOY8D0HpC5FMdAmz7bKRqfw4CPJrpJ0ImB2hzs4F8UBge0 Mxk2Gxjod+HqZsYYBkEWudQF2znksZV60y6tBYRDS9SUOGdRgK+315p0GxDV ZohFjF+ox8T5UfTlF3BL9/fb+hvfUM4E7672kG7YcrYi6ZzoBDLRCtYS+fQG quXiGk6sm0CD4vVyZX/egMnS5c/KM+PocjnR/jhnL8TmSGvwvRxHyqKeGt4y vbD6PfVjg/84avzrr4qce+FrSJDSjoFP6N4mdzrPj164diY5/bnCR7RVzLHm acBbqF7oIHTuGkblL9x/X/Trg4TSR61aS0NIvkfycVVIH7g7hPk9ez2ETGMv WCxF98GuFxojj/yHEO/U+G7/tD5Iu1/2OKRzEOnGNV6VofXBTdXkYwc93iPp jL36xMU+0PGxc8+pwVGC1Dczde9+kJDTlNgSgyPdRa1LcTf6YXloS1+cHY7+ 7G5ofRfWD1TtXrVAbhzt/OH80TChH+SEdbjOWtFRUobNhZbSfuCr3JOxYbkP efLkB5WM90PRyJd7P6LeIOHL6ruK9egwHLw19+HBN+imJP2WvCEdhCROVppO vEabwIP00JQO/k7F/fXwGqm85wm4aEcHvS9uorGsHsTd53nVyZsO36dn8hS9 utDQ7KuoDRl02JEkVf1Bogv9S6f5dzykg4myaVvK6040d2T/Nd9HdKi7Xv2F pdiJ0oqWdpSV0eEu01ex58sL1BRebxT4nA6KXKwad9t2ZOPI2BfzgQ4OBYod knztSFqYaec+QYcUXdsBel0bcm/jvkj6SgfW7Sbmka1tqCXLlYJ+06GHP+yY QF8LGr0YdV14hQ4cTynGWFgLWjqdfitijQ6qxp8cfZVakLVZ7dcJLhyyk7Qj R+MwNF5o5Rq4AYdBRd6Ec/eakXeCVS1jCw6kq1cqW34+R+o3DRp+ieFQTOnu Vzj1HL3kEcoe2I5DoOo9URZXE/K4ItAWLI3DNi2R/Mwb9UhN4eFBYSIOkeHX 27gG6tBHnsW6RCUcplrxL24H69Bu7dna1QM4NJ18oHhkuhYZe6nOPD2Eg73p DurIRSrS/XZE2kQLh1+Mv5p+7TVIVjrL6CQJh+C0XiS0uwZx7HhydL8O+/4j kT3aX6tQUBSR1HcCB2KonemIXhXiyuXSjTuJQ6OU2nvfJ5UoIhl+HDqNA7Wn v+NMXwWqk3+wZGeIA77xdl9kylPUzHHQcsgIB4aF5tgz83K05bmGut4ZHFQ+ 5c5vHyhBh0sjPWZNcTDdbc5x5kEx8p7xp+43x8HLbb1ApPUTROo95OpwFgfK vIfs9+FChLuE/ou3xOGNptT+7dkFqPD7DB5vhcN0KP2wsf0jlCaysi7EGgfB 9tt6ERL5KE9E/7b9ORysRXwLXVEukiJ2WSnZ4PAge7jxjfZDxPhS6TvD5gE5 bbpqeyY6pBYxlGeLw+aqJz8z9dLRYCnXLR07HMyPCHFxdt1HPxP0ruFsTunw Fb9sQEZZAk/SLe1xeHtm5MDr10lozuDlWiebJai3ki7lxaPjCeT8vQ44ZHWa IJWiO8hATzs4lM1iYzunV0si0QrxTEILm/dOvtNMsw9C68yjB+bZLCfg9UDp sjf6rfTXXMwRh3BcHt/eZo84ipe4iWwmEsbcuPfpQtVO9V/72TwwG5m7kekK n9yz1u9i858ze+Y8ffwha8regpfNQWS9bnfVcMjxWhscZZ+/GhqYlbs/GoKO 66fkszncrdyDrhgLHmJmkZZsXmf58RiPXCL0cPmWLrPjaZO6e+fhxhQ46GIp kMzmqDQZL/WEVHD88L1kK5v1BJqs+/gfwCMV5+h4dn54Ii203e9mgISKfv4c O5+di9MK3DzZUJnlwnGazbFXY0Ryo3IgfKWrKJGd/8ezSSE7IvLAJp6e+oKt 1+XLipdqVx9BfXiVAzdbz1MyATa3jhWC4ZFibUG23vJjbcYmwUXwxycmlJvt h59m9uo/l55AxZKT+Eu2f7oFS/fSNEoAe1kfkWSGQ1nngmRUQCnIZzRZ67P9 5qGVxCvxtxzGTyW4JRrjYLQ0uvLzYAUYWsxXbWP7VYmqMEvzoUDlAZWINAMc mKnjv+SZlTCa60x3PIVDPV/Qu1a/GohP5N9+WBuHvH1b6BQZKrhyx1ZJAg63 TShvs3vZfUFfqwPjKA5n0yZ7/BVq4Yi9F9FFg62PtGGr4lgd2JBF5q6z6/e9 7lckGlsPf+n7Mnr24tB8Ofz5f+oNoKVl2iysgEPcU2rdh6RGOOo93XRFlu0P zZ2UFN1myJ5aOKQvioOAHa08bLYZzI0d/UQ3s+st1LTUIwdBjc5PCn0jDk4T rWaywRispYrZivOx45NfNPr3rgXavNeCRpbp0FXjqFt1tx1a555cNxilw9EO YtueT+0wK2MlLDxIh8qBJe0ctQ7wzdT4+IJOh7QlMsRNdsA/75AL63ro4Ayd h12OvQTTHE+/1jo6rHUfUBaf7YJ8U+L6q8l08Bn9R0k82Q1LY2BBiqfD19/d SutzumGIh2TAfYcOrza6EBn6PaDhujnZOZgOmZYZe14XvoKppAemQZfocGiC UyLCuhf+3BjJkdKgg1KD1eyBkl6oHvVhRqjQQS7lafunJfY7+8xGZ5BIB/78 8kN5Rm+BFL+Z01maDism1qNr02+hSbClkLWBDmOVFAWk3A+K89R0jaF+yPVy aD9Gw6FP2bI706sfZP80Lh1uHYLaXHfinpg+CH59PGr+9xAYnBSYeh/WBwOl PUIV4sNwg981LjKgD2JdRmSlvYfhsDHn545LffBnmGXEIzUCxUvNwrwn+qC5 Q/MRPWQUzFcXf6Rw9IFNFk3fQ/MjuDgaWoT7voXTBUOvja0noNH1iLxd6Rs4 YSSy7u+zb9D0q1Y2yqgbEh3fhx+g/YI5x/0hL5JfwEvjnYImIrNQLBa7I12w DTYrjW/12TELlOA76cmcbeAkWCSVKjcLOVr6u8l/W4HVQ1QdPDwLGXlNVyrG WoF4+qit08VZ+O35/PKJilZIOm5b4kWdhe+yx2wYJq1go5FxItlyDtxyhd4e y26B39JbQvszGRB4MbR08jQGGkH53i2FDBjwrJxcBQwi8X0ulRUM+BF9XVpa DYOtd/QME1oZoDL9KeumDAZavwK26f9kALN1/CTXIoLE2uHaFs158Hqp7lxt j0DZIG+mcnAeZtx6nFUPNYOf797ziVsXwKZ8nw8HfxNs5ZtpspReAOX82KOb lxqhLrdaTIK4AMlGv1TV2P3pSrfm23LtBZgyfh1d2NYIkdKnoNtjAajKKZEK IY2Q8MZ5J3fbAjy5no165hrgsXzO0E3PRRCZNbGS/14P70c3ml3qZEKzjYvr uiUa6Me5DPr2M8FJIWO90RQNmjQbHG6NMsHGYbwjb4wGeWkX3fP+MCGqTDvm UisNXE1qo4bFliBUQ1bbLZ4GrDZbmvGVJfAKaaMZyNBgR9njHep8LDBXdlfX tqgFp8Cj33gMl+GebuuM9QAVFJ07301bLsMDxj5fVhcVGMZn29+dX4YkvuN1 Rc+pcHuXR35BwDK8KhO3Fy+iQnlvli0ULINSc4Oiry8VlnYv9/qz2Pu3/P3+ bKZCSn993ZfiFWinN0h229VA21712DbuVaAGSM6fXl8NDvvPFswSVqHGUsyw c6UKmCreTZLbVkGwy8THiFEFxMNl00FKq+AY8lbE41MVpJ6SNFe1WoXagzrr WQ1VcMmFZ0dR8Sqs75t5b+5dBby575/eNlgDIteU5NBEJchtaPpeeIqDpLff NkC4kgI7m9xPcMdwkh5z/MuI2FoOHCyuEp8JLtKU6Mgd0VfFsGj63KFj93+k 3GiX//aoPIYRVcftu6O4SWZqarHHewrAy2qjsMzoelIE7+P7cp35IJ762fq/ nbykC1wffL/K50GFbd4Txo0NJIvOfXVpxx+C1bGwU53P+Uj+5//uvf0iE6oc rsocXuEnbU+Z9arLTQcm3/F19RaCpMCYEz66SWlg1ndEbWe6ECk7hsI0H00F viP8LU0PhUisJ1Ym8u9SoaVw2MCuQIh0P+ycLsebVDhwI/B8VoUQqbd0cbEB pYKQJC1evEOIRFH+bGBbkApdHiqTW+aESMLR7Tkn3FOBxKuQJGRIIPlxs4Sr /pHZ/xnmtgpTAum05/db8wtkoIy8LDKyIpBsQzbqH/lDBgnKpcb4CwSSVGho d/8EGVYsCr/yBRJI6e56TgqdZKAVSB7jeUwg5bqm8l4nk+Ga4MzLx2UEEku8 E/sZTwa5gGYzvSoCKTG6rszlNhlS9e1do5sIpAe/ioVdAsngM5tJXkcnkMx5 RL7cdSSDoq2bRMEggaR91Y217RwZxts1S3Q+EEgB+21VKGZkMEkfbI74QSCt PyDMNX6CDLxcxaelZwikfayP90OBDMg9AMfmCaRrh2x0JTXJ4P9Oz9GJRSDd D4zhb1Mhw//NZ0j/P5/5H7Y52us= "]]}, {Hue[0.14213595499957954`, 0.6, 0.6], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJw12Hk0VV/YB3DzVNzmSKaSTMkUP4rniIQiSaUfKRWVKfyIQkkyTymSOUOu +YZc8z6mknm498gsQ4OSJLrm975rve9fZ33WOmuvvffzffZea0tcu2Nmy8bC wmLIysLyv18F2DW9sUHCL3f8TTvXHQp3lvYHLy2T8ANJCj5Ph0KBUqIkNb9A winHTznTv4SCsrTxtc/fSXj1h4PZd9ZDQX1rwEBbHwm/ZFE8OCMXBtjEXMvL IhLO36E4tCM4DMyC2vNUrpBwxX37QPZEOHh2BjjdrBXAXzxeOmPbGwE02qbp Oht+/OKw6osrbdEggt/Zob53M74vbercro8x8NahkZM0zIfrhESdspOLhavh Sr/6/Xlx0agIXz2xeGDEeAcj4MHjPESdjS8nwpe9ddP6mjx463fBtmDHRCBe cxl3qPLgs/XDgx3eiVBS+XTrsAwPbndwXsU7IRGcx7MTlrfz4PMOurXnPybC hBIt/8hXbnxmP3nnngtJ0NEl350XzY2Tdkqaif+bDBkCI0Lxn7hwwaYfN3UD UyHGErg1hrjwc3SHAvH4VPAnp/3pJ7hw/S9xaXy5qXDt+PVO4TYu3Esmt4Kj IxX23f0akFrGhe8fdXY23JQG6cO/Z1+HceEd9eHCW86nQVo+97u3R7jwnkXB j1kzaZBkpOTWG8KJm1knix1RTQfJTUYtXQGcuNP67v8OaadDXuu1fR0POfGF ugeR8gbpUHn6eU+zByd+I1hBGazSod/kr3KtDSc+kzBYVxaQDrvO1cyTNTjx 9uLlsnkiHaIsDT0efOPA3RNKglr9MsDf0cZLxpAD55Xc4aX2PRNGIq2TKnU5 cLkTT4CfkQmabyzxU9ocuEKmU/kMRxb8XjjP46zCgV+WzB5tFc0Cm4dG8cUi HDgKt/uxZpYFWIxK+dHf7LhX10krrCYL1qmcDONEdny2WZ3D++Vr8GbP9XSb YcP/hMRsa3Qjg/NLa66rX9lw9zxBU71HZLh2eHus8QQbfiRudqMjigxGlj7F 0v1s+NxkSx97ARkES0xmRhrZ8KEf2mY/vpCh9Nr8tVNJbHiUaGEfupIDP+uO mUieYsNdzGtyCy7mgo1fpyRBZsWvUYmKFPt8uNCfqj2cwYpvmXDxzPHOByNl F4vJFFbcRfS0Cx6eD6qTW8J/P2fFJ3MeaWwvygceA7N5gUesuIzZAxXjP/lQ SKLXnbzEiifZSEkLPyqAlZQB6wpeVlxNV+HJ9cxCiK2Zik+yZ8FxEqNtNoQC 1l4JD9RtWfDH8qtKbLEUkFY5c6PnCgveq9x5WiSNApXk8sM851nwekF93KmM AiPPwt79Byw4b5OandcEBQ7aK/0x2sGCazzRWNGEN+B2aDnlt/cGEvpn8hV5 7Q1Ujkpvzt+3jopsOlQ7X5SAzzHWggTBdbSf2y78WmYJaL3sNw4RWEehurH7 NiglgJuFRtktr6HsPScOmLeUwPum79sketaQBctZbee1EqDlFQrFPVpDdq36 ibdsS+Gnp+pBv7FV1CgabJ917C3s34IdN09ZQfXUc4fqeakQqfjpvv2zFdR0 /8tfsT1UYJj6l/gFryBdDX5yqCwV2p42Sha4raDdcTbDgaeo4L7dkJvr5AqK Ly5MEI6kwrtdZm3U2WXUm59/oXZnOdiL3LggrLOMXObxFOnDFVAsG2w/PsFA vz+KPwgPrwKx7qsVcv0MpC5TucKfVgXhnho8Hh0MpGnYsC2lpApsG6ezuCsY aMH726HpgSoQtDb+JB/JQIW271eVZavB9+k2C89/GEgsqXhzZGs1GDCSTmyO +ItILT2Sr4RqYbTpjbia2iLifplNdXTDYUo+VhmVzSPxSMn1etsG2PogR02B dQ7xhiqGtom+B3m1Wfms+R+INZ1NmNjcCo/1ZroqvL4gvl8zvprkTthpXhh9 afc46uSCtCSRHiiWCqs8wT6OZnuOlk0f6AHTpZuTSrOfkIi3/egRhR4ITZH4 h+/9J+TVkqTUoN0D61+fj1be/YTuGLpql1/pgc++3gp7iTHkOc8qspHWA85n nsbXyIwi7ru8E3HivUD+Y/QjlnUUpRiEv7CX7oXxlxyYc/8I0q4776uh2AsX Jj2/iIaMoBvahinN0Atwz1rN7+swcp/Uephr3QtbMuRox7OH0EXddIZzYi8U LzaRmiUHUL8Q+1jYFhpE5qbXay/1I42gFH5MkAYO1g893rb3oy+vteCHGA0k 3/0zmH63H5VIuV+WP0yDuNi8177NH9Eixy8TQ2Ma3Fd9qqXi2Ieqkn2sJ4No cNzNyiGlhIZ6lz1cti/SQFRKQ3RnMA3Fl94werVKg5X+nd1hVjSkTvcqkGSn Q6lOp9o9Thp6ZDVQv2kLHaS2Hmczv9iLkpKHBS/J0IGPcvAl70o3ShIP2z92 iQ5Zg1MR3wI6UFH12XcSxXQY8NmVmqzSgdSi5Lm/lNFBQPQk5ex4OzqkmqP5 qooOd6+SeyqgHQ3NOJ/400gH/Sn73aHLrQjHh/y399Hh68/ZNFmXD0h0e1aZ 3BId9kaLF4+IfkDXF4WOaq7RwVTpbENMezO6us1z5hgrAeX/FU8tyzajMbF7 haK8BIQw3GVbp94hP/rv22aCBMiyLZc4WDaiPSkUR1dVAqwzZJvE+BrRMVpy ZY06ATF6lkRveQNSbfSMXNMkYDmwmnF0VwNiMTVOv6hDQOumh1qbu+tQZM3F ++7GBLAUFJngD+vQ5I3kRUtTAlRNxq64K9Sh6t5Fito5ApKidfyHwnBUGxdU 22RBwEdZnshLEbVop/NZS8PrBGBOtyl10zXINc9t6oMtAeSilh4Zgxo0g8Kc tW4RcE81YvcyWzXyuv3+6pojAXu0t71K8KpAZ+Qd2cc8CPD3+6+BjShHemBe /9eTgO/1tCl7lXJ0wwIzYrtPQPXJF7JHf5ahq5Z/k2Z9Cbh8dm/p4PVSRJbc VCD7hIAf8wsaHo0lKMQmsLEzkACfuE4kcKAE4bGMtZvBzPkP+rfqfH6D7tYH NbqGESD/wOrsoP4bpN47bjARTkCVuFqfezYF+ei/GT4ZSUBpa0/Tme5CVEkq l56OJoC2JbDbP6YA5QWY9x2MIWD+vMbw23P5SKddPsjiGQHKY6l/hIkcVCYx NxQTS8DZA+dYzrwgo+An9j5JcQS42HNt9rfIRlfiNbe8fEFA0R/H/V8HMtFD q1heh5cEdGiIHxZOykDfz/ffxhII+PmgV9PkcjoyLP5cwpNIAH9joP4j0Vfo 6XWvqQamLba5Z95CqUhC6c6qaxIBL5IGqjp0ktHWd92L25IJIKR0elUbE9CL 2rae10zveJM9naAfjyxKiyMPpRBw7qgAG+uHWNRluCqdzXRMk7vQzVPPEFnV IG17KgFdZwYV29uj0baTlvNuTIuWPo62SwtHIl7iEk1MJzabIuWsIMT/nSzN l0aA4LDIz/Ucf/R2QY73ONNyE3SNuMveCD/AXe/ItNRmlxcKN13Rhl6tWSjT fjRpmnDDZYSsVioTmJYnDdtzHtIDlvLI5WSmiTn/1C2MW4BPOm99zvSvMwd/ 33G7C0dLyzd8mPZ+pt/ioOoHippFTRZMrz+4l5h6+AnwtlZdP/i/49vnO/bK hsLeJaeBr8z5sl8Y1eKWioL+aG/ZZKYbxEOCkrfEwOoz3FyP6YC4fS7qkc+B qgL/jjD3Q39ztUX3phcw/EHsmAPT3P7ndRxCXgJ7N2VlmrmfzX9/ynByJ0H+ oF3CZaZDnYK3pQakgFPokFADsx6v56J99z5KA95HPd7CTN+8KWtXtp4OBUkb PzOZ9TXY5/nvY61MsMvx4CCY9ZcebjAx9cmCfMo3juV4AqbNLqtPL2XDwrZv XXuYeWnhz5Wj/pMD7dqfXu1m5imveVEswDMXNMYpt7iZeXPUjuYRXciHtqrT k4iZT+OlodVplUIYs3mTGvyUAIVSmTmqWxGMKIta6zHzzHj+6Yc0gwLXeQd+ P48goILPm17vUQJFTq7fE4IISDu0s7doXyk8YuOx/cjsr0DToq6kzlIgfZSo 4QogwDxuovWuTBkItZVIqPkx6yNxul52uBx6szg8xpj926f3Ge0OrYBJXZ6E LGZ/1970q+FQr4S+BxjN8j8CwgpKy0eiq0Cdyyg70ZmZDw2Rohi9WsDPSOTd vkHAZitq/sO5WthsT7Mst2H224OzuY4pCCSpYTcY1gRcHa832++Dg0PEj/TT l5jrk/5rvEavg6u/PozqM8+zDyVX9N6ENIIH+17TMGUCjjXJNxwca4RQyXCl PwoEUIglnRS1Jjg0NbrtjBwBcUvPIGyiCUp/8XMO7ifgBjRr2mq9hwsdrhun dxCw0aKoJDT3AY4ONUdk/qaD29BaUdTJFuhVabFU+UmHzzMtClwpLeCetrBc +o0ObVts5eeNWoGep/45eowOCRdeHmzPbIPwgwzegnY6HBlnFX1k0Ql2uafw x1l0UKi8OKeY0wngU5iQlsa8n2IKGseWOkGhXa2jOJEOm17lH0kz7oKZzk4P 6lM6rJpaDG387IJWLifQ9aXDMKVIBin1QFvNIO5iRodUF+tGLSoNin0ULwct 0CDJircwdpQGXFpkX/tZGsQblL6Y4aaDevhovd43GkSL8zkkW9Chp3mSMTJE A7+ut1vXmPcUdkqwIa+BBjaK/Feqj/VBWdGpO6VRNNj/q2pJs74flL/ZNf2S oIFPu27An5l+0DMIPay9hwZEbqtAodAAnD9JDny8jQahtoP7JVwHQCqH1WSR jQa/BpaNucUHQaO3we/BRC/UNmmk9/oOwVCcobtcRi/8m0g1ctQYBcErxfxB Ir1gmNHfbmIxDvU/zOJz2XrghPE29oW3X+BQOBKu/K8Toq70+SlSf8Bxk8XI /dqt8N5EhN902xx41fetJnO+hxmJnQ96EubheqnzjGtIA3i4y9lE7VqEn4l8 57fG4rCLb7b6gsQiFI6KimqF4FCeWiwoKr8IHX61aq6+OKy2aHTl6yyCsOOC 0W9bHPwlDKDFcRHMVPvyLqrjENlxQ4SzYRFKMnuPXKIieC2d0n//zl8Yt9Y8 0mVeC31DW8zsmhnQZlojXFpbBUZhth/dexiA61R+McmvgmqNSuvHQwxwDr8d u/iyCtLirjuk/WLAs2TqfUePKrhlWhYwILgE/r2KhXPyVbDcYEk1ub0EAfVR ZZYplbA37/Vedb5loIr7kn2ZfXf13rEv3KdX4IPcRJtTIBVkbzTTf15YAYrx 2r/IgwrzJuaNdJsVgMtHlkVsqRAo6fgqw3MFnP4pP8mmR4X8zkRLyFiBtBxj CTs2KiwdWOm8u7wCFkfrJmMelUFMT0X5FHkVrA7wUnRC3kKDnHpoA+c6aI1k jrNXl4D1YfOMOdI6PK/RVDlaVAIMZddqsT3rYEAxXPNOLwF5zbyf3grrEMRv Py4UUgLPDcTOqV5ch377B0rvLpSAnS333izyOnQYw/zAfDHwpPYVBJ7aAKHx l/LvVItBirf6a6YBC+btWf9cvYsCv98r2Kcbs2CLPzMCO5ooUBv46nuqGQs2 L8LC7VRFgQscQT8TrFiw1uwnSfhrCjzZOPsn2oUFe9HH71vnS4HJhS8bPvEs WPUdD6UDhyiQPr599/mvLFj3zCBf0r4iEKl2OMEZzIrRNTatLg/mww6h5WXn CKaFfET2f8iHzXeDKR9jWLHA406/LpXlw+rhLOH8ZFaMz7Pm3nx0PgxkjMyZ lbBi027xjTT9fIgLO5uSNsKKuR3LKTjxNg8ELNX/Hj3Cht2v9zwemZQLLMts OW7jbFhgWDRFN4YMVyf65x9+YcPeUmLWmh6TAW+jaEf8YMOCSiRzzDzI4Jdq TcteZMPWynRXQi3IsKFXuTHEx465kkey74qRYT3K9cJJFXYssTt5j0pRNqwe GGPfG8COLWjbOfASr+Hv2RrrpgMcWOUe94QgyAL//qJhbTkOzMy89q6NchYI 2KRblStyYJ/eRZieOJAFUi5B/+Yd5cDcIHlAdlMWmEeevfD0LAd2bqe+pWNf JlBapowv+3JgT8mqNXWumXBbV0BrgcaBZehVzfsUZMCg6hXhAwGcmJX68xeP IR3slo6QnoRwYgd4qV+7VNPhV81m9qlITsxosoNVSjYdOE5WTme+5MRMn7K6 fdmRDgqXdlZKFnFijMS8uHfTr8DPt9VCcoATG+U1sP314hVIvVOP26/Ihd1c uTLw7m8auFzcsnXfEBdWsbtPyik+FYSeT1pwiPBgj6vvq76tTYRCy7TseS9e jLss1qZFLR4uaj00aK7hw4j0il+59rHwxtppn+bqJsxgu/r4IOkZMPh02SvO 82OfSWbfbUeiwaz7qJpIvADGGnX4tZVaJPAd3VRXnSyAeYxwhVUcjIS6zIFT VhkCWDThGS0mFAmKXvdsEgsFMDPLjk9cqxEgIEYNF2oSwDIk5cZ06iPgg6Py xM7fAljM7min66YRgPHIRAucJmHRKS/ZD/4XDgxXxp7CsySM9dKCdKJtOBQN vs8yvkjCprcvpOy2CAfRIruq8GskbLjP5IaMVjisns/8zHePhCUcf5ZTxB0O 1AwxLe7XJEzV/OFHnZQwcOafff86j/k/iar0z9MwkPKsNdN/Q8JSI1K91QLC 4LnR5VtPqkmYiIpai5F9GLjNJTxj7yVhu5vdKd1qYSBraS+a8ZGEnbjHN8Ml GwafGjVyjo8wx29X+6ErEgam8R9rH30jYVMn0oXp7GHAw0Y2lJglYRVdzzGZ v6GAHDxp+B8S5l4XsPXJdCjcpetfubpMwurIfcFfh0Ph/94fsf9/f/wflBVR eg== "]]}, {Hue[0.37820393249936934`, 0.6, 0.6], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJw12Hk0FW/8B3D7cl1uFKUsJUskUUqIz6TFUoSytFiLCqmv7Mmu7MmaJW5Z i5Cr7GZskSXbdQfZt6SyVnZ+93fO7/fXnNeZOXNmns/78zwzzwHrB4Y2TAwM DI8YGRj+9ygHAjPb2yTM4mpZvlq9PzxYPRi8ukbCnu3lZ5D76g+FFAXJpb8k 7B+XUrZ4rz8cO6RrPfWThHUK3uaU+OUPSryB/a04CdN8Z0R22hUAyPhCc2IB CcuXqj593jYADJ+15R63IGEahmdFZngCwa098P6dah7s/ANF88suQUClcs3U WHFju078lB6fCQZh7MEuJSEiNunAIjRUFw6tfCecVXYTsYV41rzL1HDwtFnr VuMjYnli3+xaJ8KBRgiKOcdBxEoyfRK+s0ZAlFESn+EfLmxsPictUysCmH/W 77jfyoWpSWnv0+qIgB/8e7nTvbgwE3OswWY6Ej7a17OSBgkYI/f2V0JaFJza 76iQhRMwqWb9iddvo6CcuttMrYuAuYsW/kOKowBTsy+2byRg2S2VRxK+REEz ie9W0wcCtijsmJHxJwpGKBaY31MC9jGzsU770gsgbKx5/jlKv350OWGWMRos wxXm+/w5MTyMzKEZHAOexdFP255wYpcGeipVY2MgbmBJqMadE0vlceRWJsdA s+wn7RxHTswKdU/TLY2B420q6a7XObE5T2Gd4ekYYOM5Z7zzGP38+N2pdxdj Ie+5ceWlUQ5MTaNhhH9PHKxEPw5GgQPb4/6YNtEWD9+FamYuqHBgkvwLbY6D 8UDLYtP9qsiBsVjbSbD+jgdK+QveQWkOLPXJhqgJMQEcx7KT1nZyYLKfBl1f XEyAcQVq3olpdqy3stj2XmsCfO2Q7cyNYsc4qffP/8NfQjrPkODLUTbsSIfq pqRgMkTfAHblATbMiFMlpPVwMvjnkP/00dgwpqukJV/1ZLDWuNW+r5UNy+Jd jhG4nQxirtOBaZ/YsLZMDbd/BcnwZnBxLiuMDbunOaIbq5MC5Dz2zx9PsGF9 69//ZIW9ghQdBafuEFZM+dbddbH9ZBDn0mnuCGTFinu9WupkyJDbYi321YcV k8HZMxxOkKH8UmxXkwsrNqn8PJimQ4Y+veVj1VasmObRKRqXKxkErlQt5Siz YqcWfhgxfSXD8xvaLt4/WDCbi0xmeoGvwd/Byl1amwXjVvhxf54rHYYizVPK z7JgaGbJyrBgOqh8uIFdVGfBLLJN+L5JpcPiXyMOx+MsmISb2d4/Z9PBykfn ZZEwC5ahEJhY5JUOSPTxUtVFZmyI6HnZbj4dtkpYV3STmTGPmvcyPKMZ8Jj5 nZvTbybMUbNXLOpHFjgmmrNZTjNhrCPxjTGrWWB9dGec7jgTlp1/bSadMxt0 bngVHepjwjIjKjp/SGfDHore76F6JszbaR/CbZ8NxdZL1hdTmLDbYTyPKuay YbbmtJ74RSZMovaZySbTW7DybRen5TBiHBfedTleyQXjvjT1wXRGTC/PzNff Nhd0jj00nUhlxP5aj3/O8MgFxYkd4YuxjFjPTlMdfnIucGgZLvH4MWKEqFGL 7N+5kE/qqdG8xoidFHrqlxiWB+up/eZlnIwYS9oblKX7PcRVTb5MsWPAdLqM Ws9oF4K5e5K3kg0DxuzCdbfRqBAOHb98u8uCAesr4DMysS6E8pzSoxxGDNj2 ow6N+MeFMBQT9vkRMGDl/WMXX+QXgpSdwh+dXQwYT6isQIDAB3A6spa6+Hgb bXoeiETOfoDy4UPEPLEt9ComW8pbQwGv04zvk/Zsoabzd8i32ymgltinG8Kz hX6dmdOvHaQAZhj63HZtE6Wpp0mmrlGgseEn34GuTVRUpMi2V7EYqLn5gvF+ m+ghj3O6ZrnFMOumKOU7soG6OYJVH/kjHNyBaFxNXUc34jb2iRaUQKT8qKdd zDr6NZarsK2mBFb0/Sm+wetoXsDh5VBqCbS+qBd/77SO9m4NYQprJeC8U5ud TXMdFSjakFe4UAqfBQxbS+bW0L9MCr+3RkrBTvi28b4za+ih6xwCO8TKoUgm 2G5sfAXlp+GODd2VINppWXa4bwUt1RTJ+vejEsLdlDlcvq6gxmZp35UYqsCm fiaTvWwFHblw6M2MbBXsMdcdlY1cQRfqn5J5n1XBkxd8pm6nVtAf3VyLdurV oLWScp4YsYy22PiF/1eGwnDDh/0nT/5Dr62dNfj+sAYmZeOOoZ+WUIffXySI 1fXA6/32pBzjAqrL64rcpzaB7Mk52cylXygLa842jbMNAs797ihz/46+kiV1 fv7RAfxX86Ou7R5Dl/WFE46e7IYiybDy88xj6Ngr1tpb6t2gv3pnQmFuFJ1r +sAWe6EbQlMPnCI0jqK9q3xvp427YWs6drjcdRTdXt0cs3Trhqknj+WEaCNo 6VBvul9JNzhefvGySnoYddEkGEopUiHnj86vOMZh9LpM7c4GVSqMJbIgjn1D 6FBv3Xmzs1QwnnD7LhIyhMa8n6j3MqQCeJif9J0eRANHTEpcH1JhR/phqkb2 AHp2+kmeTi4Viv41kJrE+9HZa0nS/EI9EPnuTa36ah/qceJagcfBHrA393H5 2NaHsi9dK+6R6QHxz6e+vXHtQ7+Zmq4+Uu6B+LjcrCdNvahP8+tXmsY94Kn4 Qu24A45WXJ0aOR3ZAxpON+1TKVQUWy6Tnf3XAyKSyiL8wVRUxmCF5eBmD6z3 8XeG3aSioXoBN3SZaVB8pv2kBysVtb93SNOfRANJXg2mqybd6H+jWq72UjQg FEolcq53ov+kPS3kjGiQ+W0y4kfgV1QkS5RjVw4N+r0E0l4d/4o2shpwhefR gEdEs9BgrA1t0He/vVpIA1fLnK4yaEMDZ/PmKWU0uDBptzt0rQU94GRqlt1M g+nZObLMwy9ocfmp4z4zNBCK2l80JPIFZb91jk9rlgb6CgZ10W1NaAsf/wfW RRqUPiqaXJNpQvUoYVwWqzQIWXGWaZn8jDLtztIMYcdBhmmNYn+jHm3szmsu PoCDebpMgyihHnVuiWprEMch+twNWndpHTrKf4W3RQqHtaeVK6oCdaj1wUNQ dASHFi4fNWJnDfpFqPbR4ikcGN4X6GE+Nei7tOjKDFUcFPVGLJzlatBVkumO i+o4pESd8R8Iw9AZz0b00VkcemU4Iq9FVKNX8q/EKerigNy/V1gzU4UmsR8O f3oZh5yC5i5prSrUL+SLeasBDh6KEbvXmCrR5YQuv+PGOOxV53ud5F6GOo55 yD0wx8Hf91EdE60UTe6XdbKwxOFnLXXS7ngpOhnsdO+sNQ6VmgkyqrOf0Obi MsspGxzMDISKv90qRgO8M9YSHHD4tfRX2aWeghrUm1CEHXHwim9HeSQoaFCd tWfCA/rzf/NvOTP1AbVtWJG444SDrPdNg28XPqA3LVlYqh7hULH/JO6cXYjG sd0bZ3PBobilq+FyZz6atmWf5OqGA3XH007/6PfopKWtQ4o7DktGyoMfr+Sh RkQnxU8eOBwbSfuzj/YW1TqfmdLwGAcDiSsMlxNy0E4ZtlMVXjg8tGMj+ptm o1JiP9GMJzgU/HE4ON2fgU6xT4Vf8cHhq/L+o/tS0lEG0V1f9/jiMOvdraJn 9ga99/7fUifd3PVPL/iJvEZTK4Y3vP1wMOVzzriLpqHBZmrfRf1xSEjpr/h6 5hX6ojzxQzHdNMkz3Yr1SagCf/J1tQAcdn3Inkm68BKd6GQeLaP7iioPE+OX OPTFk6KzMoH0vDQ4C965GIPe6X7tF0l3x+Vv8m1tUahg7XTiFN0ixQFRtuRw NPFhedixIBySm/TRY5nP0BMatsZOdO8ZFJ7deuuPyvebrGbSfXi8Rzne7DFK Ednt3Ea3JPFhgtyd/1A9Va3P03T7Ug9R99WZoRVvcueW6ZYlDdqxHjkHqjtE 5tfopi34p+1YuQsqwS8bF+ievyy1+MDJFYJN5V0H6H4cc6HZXtEX8N27N8rp 3vL2SE47GgT1GUnXIv73/nZ5Dt0yoXBRXOL5FbqZjYfV2CWfQ/T26VfcdNft D3n2akc0qI0GBlbQ3y8wXuyhUmQsSBdVnDej+wKx0rSTKwFC4ipHF+njxe5v dMY+JBG8J7yvedHdtDwrzcqeAjulBfJX6eMdej+YLy0wFbA9RSN2dGctRD0R 8iODfGTqYju9XnfuyNh+2noDFDaJchd6PbXE3K4HqGXAdZVxp0/0+h8arNPT 98qE2nMqvD+9cZgxNFOaWc2GxDtH2eTpeWnmfne45NRbcEnttEToecpt+ica 6PYOVKm73p6j581BPYpD5G8e/DdTyiVNz6Pu6sDGzPF8EA/fkOGk51WuWHqh xKkAROOzzgy64rASO/rr0EohiFcdtLRyxqGM8Lin1oUCPLG+xX30/iEf4e8u ECsGol557an7ODzVL+hIaS8GuaWO+hB7HK7Gj7e4Sn8CPwfWEsa79PocuFQr M1gKTg+aB7Tp/Yufm0J3h5aB8KAYnzK9v6vv+FaxKJXDs02G23tv4hD2vrh0 KKoCZnALZ4oJPR/KwgXR56qh4onAAujhQLxZkuezUA1WLzgp2EV6v3kbvHNI ReH4NcO649o4WI7VGh70wgAkXWbm6fOR3KFl3c2eGkgbJ+9ros9nXygW5z6E 1IOtiCQ2L4rD6QbZOqmRejj6CWYShXAopK2eST3ZAO6pz0dOCOIQvxoDYeMN wKcxbHSBD4fb0KRio9YItEevbZuZcdhullcQXPgCb++Ipt+ZoIHTwGbBc81m yL2XyaUxQoOp381ybKnN4EFrGiIN0KB1h43skk4LnG4izwd10yDJOFGqLaMV 7luOrg3U0ODEGKOIn2k7ONnzNyIpNJArN1mQf9sO2xK+sbkJ9PUp+n39yGo7 6P5mJhFjaMD1Ou8EWbcDaIe1FfNDaLChbzqwPdsBfnKPrd1daTBYWCCNKnSB iO7AqyN6NEh7aF6vVkIF/FiF7z36+phykzM/bpgKPu/MudPme+ClVnHCb/Ye OHI3Kb9lpgei9hPsX5n2QP5MsgVhuAd8Oz7ybq72wKdGSrdIYw9YyXNbVJ7G IWCW80d+XA8cnK9YVantA+O5x4wNsj3g1XY28M/vPvDLu7bzlkQP0N618OQL 9sNyhVLEinAPhNp8O3jgv35I2azb4CT1wHz/mi77/m/gnmiT3TRPheoG5Tfd TwZg+ONhsfoiKlxPLtFxUB6Gu4Evr8kqUEE7va9Nz3QMEETrfei+bjivy8f8 9+N3GIr49+z31w54boH7ypf8AjdPnZAJtTZo1BPm1udbgMPHuh12lzXB7wP8 3l1JS5ByW7grc7IeXJwPWz0X+Ef/rvQbnk2oAXxgh6Ft0wro/5JWoRKrQCfM pte5awUCPKsvf1+uhErlcvOAgRX4emQ8lGO8Esjxt+zJ8yvQ1CFv5lJWCXf1 PwX271mFblWZ4WXbSliru1Gid28VLglaZiXXV4BQbpaQEmENSCfmCUqh5WDp cfo7+6V1+MPBcfe+WinI3G7qmTVeB87x05y3ZEphSe9qfY/VOnRHcgTd2V0K T8UdXqe7rUPFfZ+ZlIUSyGtPvgHp6yDWV+tdmlUCqxLr7a5r66Apx345d2cJ RHeVlU7mbIBj0NqmxspHqDusFFrHugVxl65lXJ6hgPnRq+kLpC3g1T3vi36j wMqx/ypF926B76jLXZU2Csiq5M4+ltsCyvgmYlBIgVgt0SuKJlugNKetw+RG AVsbdqHMnC24wSDqbc9GAY40/P3Ti9vwgPX7+0NHikCSs3I6Q4sBqTwXW9jw shAWG+Xs3ugyIFf+Ll7aDC+E6qevf6YZMiAqghv9an6FYMzybDbpJgPCTO4s 6rtXCEHbBn+iHjIguxYfvn6sWggTf79ve71kQOZjFVk+YwXwZmznbqNpBoSj 8qqCtFU+CFfan2cNZkQGko4SbbpyYZfg2ppjBCPiHduar1mVC0TX4MLeaEZE Q3SwVzUnFzaOZu7Le8WIKNzXCjX1zoX+9KEFQwojQrKqoFodzoX4MINU8hAj 8sPZuDQ7+B3w3FBaVj3BhJwsvU4gX34LDGtMb53GmJAdXdru14nZYDnet+Tz nQlp9cwPNN3IAqy1UD3iFxPSQPRYtv6VBb5p5tTsf0zI+Urij5TWLNg+V749 QGBGPIrUf6ZHZMHW8/+MNY8zI7t+nVz7y5sFGxIjzEKBzIhcgjrf3YOZsGxQ Zd4gwYIkNXwXD76TDv59BYPqh1mQ417UrNPX0oHH6s3NUnkWhGHbeOemTjpI Pnx2PVeVBXlU5+7/Wi4drkYaGL8wYEGm9UIS3P69gcLmSV2zJyxI2Prl3MvB b+DeWR61v1QW5ORPz9f3il/DN0WLfRKBrMjNyOdx8rJksF09QQoKYUVGXmiz f9lPhvkqIvNkJCsipepfaMdPBhbN8pmMRFZkwY2wM2YzDeSu8ZeLF7Aim0wt c9PpaeD7pMVUvJ8V6Trp0De/lAqSn5XiD8qzIXZT+hFsr1/BQ5MdvGIDbMiv L8EWQrLJYJ1zNElilA3p+HDnO2VvMhit6h2UnmJDTuVvmZpyJoNKcsQJ+Xk2 5OnZlPbGqSRgHSZcV2dhR3hk7k7DmyRIsmVNvy7LjmjokLvC9iVBvcuaYowX O5JUeeXFpd2JIBg7YcoizIEwW4xdvKmQAKcCRAWcxTgQv7QF9bcHEsDY6Xr3 uBQHkpXPm8jElwDR+h26dcc4kA19Q5P+xXggcldq+GtxIL8bktqFPsbDVlCM LIMzB3KOKHp/QjUeJtw0GDaaOZBjp3lVTxrGQf4NcvaSOyeiiasMYGkxoIgf XGPz5kTag918KDExUGGYfWlvACfydOseLf9ZDDRp5y8gEZzIEan/AtAHMTCu VKka+ZoTYdS9uVsLiYE9u3rbDzVzIgUML8Xnx6LBv5W0YraPgBj9kl5ykIsG EzUfraYqAmIie8a/eCAKBv5OkWprCYi5ZKBsd1cUWOfr4RWNBGQyWKNgpSkK HERFbAs6CYj8t7FDph+jwJ+xKiB+koC4vA8wvRsZBfkNa9W3ubmQUAwR+HIm Clj0XE8wmnEhq4Wb7zquP4cP5vfFVDa4kFSv83775CLA+uO8MJmRiMzLRJK4 hSJgF9FZkI2diJRwvZ3gIkSAa5nnji5eIuJwX15JYSocVHYFb92TIiKP/+Tr CKaFQ+2XN/2JhkRE4Nt0sdHOcKAq9kav5hAR0x2bfSdYw2CFcJa5zIgbKS7J fnWLGAKGnaonhV/yIO/vGnxgbw8CgipXTeUrHkTgfu6L6pogqMnov3gznQep dc0R9ykOAnl3D6vkfB4kZV5OQzgpCHhES8IFG3iQiYBAz1abIPjicGycf5EH 2WMjuDC3FQgIh3QUzyUSwhS978+uU4Gw8t/K3nwDEhI308yydDgQCr41Zuqa kJAldKyrTzQQRApsK8KtSUgW9l9oDXsgbBhlTBE8SEgG59PUFTwAStJF1diz SMh2aeLhbY8AcOSea8zKJSGlauXVNo4BIOlWbXjhAwkxev8llWodALE6ZneD KkmIxk/6f+DFAHBaSIph7iYhQ0hs0V6RAJC5YSeS3ktCpCsT5mr5AmC0Xvmt xhAJUTd6e/YRewDov+yt9vtBQvSOegr8mvcHDqYc7QNzJOS5ECG4eNIfUHs3 KvaHhNg7a/8L7PcH154LFpZrJKTCreC6Wbs//N/+OPL/++P/AzMFbEM= "]]}, {Hue[0.6142719099991583, 0.6, 0.6], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJw12Wk8VV+4B3DTOY6Dc5AmCSlCUqGEeHb0T4RQhpBKoSRJSsbMY8qQIfMQ mTJEGcLepsg8HHaEMiZJpnIMcc/9fO59tT7fN2uv9azfevaLtc/ynoEVCxMT kz8zE9P/jjKwY2Zri4q9yjfexuPqBvdW9wetrlExwSoswCTUDYpKjokv/aFi um1Jbm8S3UBWQsdy6icV8zFd4/VA3UCB12+wDadie7L5uUsJ7oCML7S8LKRi LnEJJ0NeuINBYHue3FUqNn++R2hflQc4d/rdtamhYA/RdywlAl7w9OcjfLmc gr0IFkpbEPOCdPbbp31KKNjRXnNQPOYFbaCzPSmbgsmbqiWMa3iBaNH26p5I CqZ9+11x5kMv6AjP4lK1oWA9tyJdp3q8QNygOY+fh4JhfZP7o194A43GOVN7 nRt7dWhRLPaEL3jffFeTZ86N8T1Z77yn7gsyyxZR0cbc2LWcf2cN9HwhaNvb U7d1uDFN9oEqeVtfUDEwec6jyI3NK24VOiT7QlbnK/mrPNyYdCoHdxvJDx63 qDzZqOHC9hzdvao96Qd7sXv8CoJcGHWnwDUnNADa+I47Ke3kwuLoQbllHQHg arXWq8LHhfXHj0QTRwKgn+wfdYbEhZ3GNx82bQRAuGE8n8EyJ9YxIne3XykQ WH828Nxt48RI9zKGjlUEwo/tAtwZ7pzYTG/eOzE0CN7daSBQh8nYjfs/CcaL IXBSxP5YFk7G6g08tayJoVBJ23lFpYeMtVpY2QUIhAKmcqf0ThMZK//4wX9V LRRaqHw3movJGI93GJb/IhS+lVzFvAPIWPh3nZ2Gyk+BvLHmunyEjHVW5loJ xYTBtafH5gd8OLBIj/Ft2Wrh4FoaGdDuwYGJ8hlUntQNh+ihJcHaxxwYR5Rv fM/lcGiRfq+Zbc+BiXd3HBS9Hw5y7UoZj0w5MEr35KVjqeFApJwx2ibLgQ1e 2yLuZIqA/OdGVdqjJMztuWqRYlME0CPdglAgYfI5D8PrnaLgu2DtzFklErbr kuE3fr8o6M8i6nTIk7BwnsbEB1FRUFIZwTssScLuL+uEXX4bBfZjr+PXtpGw dZ1rb5rno2D8GC3/+DQ7ZnJjhA8cXkBHl3R3Xjg7dthxn+y0SzRkUEZ2x40S scMcyf6yH2Ih0gzYFYeI2JqLReXv9ljwyU5dHugnYsfX6KrV32LBUu1G5542 IjZvL/ggmBgHoo+m/VLeEzH3qHjJaYM4SB9e/J0VSsQoM/GUtrk4SM1n//ju OGN+otj9eLl4SNQ65tgbTMAKyFnVE8uJcIBTq6XLj4CRc/GCNHIS5LVainY8 IWBKFd63HESSoFL7RU/zQwJG5Bh3UNdOggHdFdma6wRMijrkUvsqCXZcrF7K ViRgfx90v5W6nAzPzTQfev5gw15o/jMV6koBH7vrjyU12bA34dssOD3SYOSZ RWKlOht2/p1qr3doGigVm2HnVdmw/KxyMUJ8Giz+MSTZy7FhK903w2XL0uD6 E624t3vZsK8TQqjkYhogkXLlyous2KCxaEmUbTpslhHoOgmsmMReVC/HKgPc WHOdHX+xYCdRy5KowEywf2lBvDbNgvl8kMm/G5cJlke2ReuMs2DNgb+iDXMy QcvM/a3EAAs2Ruy9daE1E3aV6P4aaWDB0vOz/5ulZkGp5ZLl+UQWbM+AQjUt IQvmak/pHjjPgk2kFW0vrnkN1706D/RnM2NieS2DR+VywWggRXU4gxlTXNyX 6qqRC1qyDiYTyczYvZvXc2lmuSA/wfN08QUzZmJUXl3hlwukcwZLFG9mbE0b P6aJ50IBta9W4zIzZvDx8GLgkzxYTx60qOBgxqwjbq4NDuVDdPVkXKItE6Yq zPkgrr0QLB7HeypYMWEKxzdSHKYLQULuws2eq0yY+3JQfyFzEVRmlx8hGTJh AuKPDWsFi2AkKvTjA2DC/lhnE+9dLIKDtseWtfiZsKhA68SNuiJwPLyWvOi2 hUZe0NovmFcMlV8luPJFN1HjrUdj2mkl4H6K+U38rk3U+rXXpaqiElB5OaAT TNlEvbSQOAWsBDCDkOfWa//QstWSIv2vJdDU+JNvX88/tEDs93d+oVKg5RXs jvH+h9Y7eDwZTiqFOWf5g17fNtCuihqX11nvYD8PonYpeR1N2ldfHztSBs+O jrraRq2jU7F/wmoXy4Cu51PiFbSOau3+79g6sRzaIhoOvHFcR0lGuaLJR8rB aZsmO1FjHZ22+xqS4V0OH3cYtJX9XkOdt+tJlEhUgO3em0Z7Tq+hQp3B93f7 VsJbqSDbsXE6qnVW6Ie7bTUId1+rODRARyuE3H0sfarhqbMi6WEHHW0JMf9j El8NVg0zmewVdDQ21tvlcUs17LLQGZV+RkdPns9x8jlUAx4RfCbOJ+norXrm psb5GjhHT/yPK2wFFbZ2Vuc9g8HXxmKREyf+orzTryVM/9TCpHS0LPp+CeXJ UNq86tIIvJ45J2SYF9DuRakTth8/gfSJ39KZS7NooYBlHuf+DvA986ur4vF3 dD6XqyjHuxu2XyoIv7xzDHX6VB9X294Lb8VDK/9jHUPnNt7Tv/X1gt6qzcSx 36Oowgn64vpwL4Qk7ztJbhpF1SYm/Q/M9cLm9IuvlY9GUcE8l25VCg2mPNxk BPu/oT2d85fDdGhgfyEirlryK6oiFdh1qpkG2ctas9HMX9HO2bWxsk4ajL1k Q+wHRtB9HaMch3EaGE04fxcKHkEbm+1vEqZoAC4WJ7ymh1H+zTa6HWsf8GQc oqm9HkKPc3ZzcKv0wdu/jdTmA4OowSZ1+lReHzzLTa9TXR1ARxuVVB3f9sEd iycP37UPoG8n+oeSK/rgwMeTX9IfDaD26iblw019EBOdl+XR/BkFDiud+fE+ cJWPUJGzw9HD91SUzAX6Qc3R/E5yCQ3lM29b+fmkH4TEFYW2B9HQkRSdpDn/ flgf2N4dak5DBx2PtkyF9kPp6c4TLgQaOqBL8y+L7QdxXjWWS8a9qKCNl8BA QT+Qiw6+5FjvRqM1vr3i/dIPmV8mw374daCDipsZrIdwGHTfkZIk14GGBi3f 0j+CA0VIo0h/rB19n9db+0IOh0fXsnsqoB09c0iOe0MZh7OTtjtD1lpRyew+ YW1tHKbnfqdKOXxC6Uf/7P1pi4NguMjbEaFPKNEuVfOZPQ56x/TrI9ub0eRa p2BxRxzKH7ydXJNqRj30r0iccMEhmO4k1Tr5ERWO4dvTHYCDFMtayR2zBnTR +vjn3yk4WGRINQqTG9DrdX1so+k4RJ4x6+8tr0c3FU8PfszEYS2giq68ox61 zntp45CHQyvnExWu7lpUR1LAVuk9DkxvCnWxJ7XoHKuaUlc5DvK63646ydSi CrGov+kHHBLDT/sMhWLo+ci3LtoYDp+lSM8uh9WgG5aaGpmfcEDu3i6qnalG vYl6N0ZaccgubOmRPFeNbl5d6eHswMFFPmznGksVSsngSlDvwUFAlS8t/nEF 2uDVfEl8EAcfrwf1LP3laJRHVhTzEA4/62iTtnLlaEiiOVv3MA5VGrFSynPv Ue9kBTvtURyu6AuWfrlRivrNai+UfsdhdumP4sOGElTo05dNyR84uMd0ohSx EpQ/98TLqBnG+r/4tJ6eKkYHLtBvnfmFg7Snuf6Xs8XosuVsXOgcDh9ETuBO r4vQcpkmrabfOJS29jRe6C5AS9g1pQQXcaDxBHT7RL5BtZaPXzy+hMOSoeLw u4v5aLVd9LLaMg6y31KW9/TnoLMkhTjlvzjoi11kuhCbjYpPPo4RX8HBwZbI 5WPyGk3ulCYQ6TgULtvtnx58hZbw/ZROX8WhQ1HkyJ7EDJR3W9GYxRoOc569 SrpX0lHXJ+YsPOs4cDcEnPUWSkNP6geFvGPYhM/p1S00Bb3FMu5yYQOH2MTB Dx2nk9CsKLnOYYb7xU/3yjfEo9cjTIKv/cOBv/j1TPzZOLRn17nXOMMXlSks zJ+i0YdDVAn1TUZeGp1225yPQuUl+sgZDHdd+HK0vT0c3TVJ011hWKjUN9w6 9SmakXhjCbZwSGjWQ2UzA9Eat18r7gzvGt47t5njg0oY/jUrYPjQeJ9izBU3 tChjtzCNYXEuh1gZm/vo51Dy6TmGvWgStD31V1DZ4ajaDYalqcO2hMNn4Oi2 uNQthvsXfFJ46Leg1ZB35C/D8xcOLt5zfASuLryuYwy7RZ1tuSPvBQubtU51 DG96uiSkHPEHR76bHTH/O79tvl2vVAgkhOgFXmWY1eirCrv4c6B8X0kRZLhe JDgwiScSDHXHdnUw9ucXI+qg8OwFZIcWLj5g+CxXlUk3Zyyocu2UoTDM7mN4 +k7wS+Af+t6ayKhf88qcJIE9EdzTSe3CDIfcDeJL8UuGA8nOsrGM+mcthHsI eqdCd6rWPxaGbWykrN9vpkNIw4+mMsb5nhN1NvVVeQWosnELE8MSw/W6eu6Z 0GN6R0GVkYcZgysKM6uvwS64zTiGkZ8W7txDZSdzgDP7EaWYka+85r/Cfs65 wOnpfQL7g4OdajhJ6E8+iPg5jX1g5FNndWhjRq4AxCOdbLMZ+ZUplVwocyyE ZGaCXfACDvQXo7MS9CK4ZEqclGDkvYLs1lf3sATMmyeXhhn3J/Xw9t5C0VKY onkN6E7jEKBX2JXYWQq2TjYab6dwuBQz3vpI8j2kczxv1RtnnM8+7Tqp4XJG Xe9Pz37BAT8zhe4MqQCmHaU+iwM41Nh4VbMpVEKdq2XTDI5D6JvS8pHwD5A/ dP1GSS8jH4p7CyPP1IDDOU2nzBYcuMzL8p8s1IDaZbvfSDPjvnnq59olo0D8 +Vm1sxGHa2N1BvvdMZAnovcbGP1IRmJF519fLRC1krt4Gf3sU8nVM8XBDfBA PFxANRmHU43S9Qe/NYAMRb+TIwGHov7V08knGqHq28O65lgcYlajIHS8Ebzg mo9IBA43oVnJSqUJFnZsqZ/0xWGr5eix3QufYC5WjoXHCgfHoX+FzzVawIgr z2bbdRymfrXIEJNboHg9P4J8BYc2HivpJa1WOOfxwIR2CYd4o5cH21+1QXCv T2W/Og7Hx5iFvE06oaFp590UYcb6K40XjuZ0wlLFG7r8HkY9It80fFvthI1T STbYDhw40/KPp+p0QdVACF8FNw4beiZDW3NdkJ1gFi273g/DRYWS6LEe2JC8 oqVL64cUB4sGlTIaWCxZudxh/B8TzTkKor/SoMVVJKLTpR/izpXG/mLvg7jy +lopp34IFyHfSTLpg9lfO+I+3uoHr653vP9W+2DOrks9Wr8frh/lvlp1ipGT BjH+uH39sH/+w6pS3QA8ZelN8/7QB+7t6n7LvwZAs/eN+YXSPujPbaUU7B4E S2bsHP+bPgix+rJ/3/1BMPoUMu+b3Afzg2s67CJf4P6+xgMbXn1Q06iY3usx BD/YReyunOkD04QyLTvFr6Cx/ZXWhUYaaGYMtOuajEHw1cte5iW98J8OH+uf d9+BFBnrGGHdDc+v4l5Hy2ZB5gtPbrBJBzTp7uXW41sAEW6B4sGcT/Br33bP nnhG6zovs2KQ0QgPnQ5df77jL9zUMDMQEK4DfIjHwLqZDi8juHtnX1eDVqjV Z6ceOvz67MJnFVENVYqVFr5DdNi9Q+zwrGs1pMbcuJM6T4eQ/DOT4rrVcEvv vd/grlVwwI/90flTBWv1ZmW6t1fhyzsH6tWzVSCYlyWoQF4DmpxIjv1SJVxz OfWdXXsdNq04/h5+XA5SN5v75ozWwVUi5ELajXJY0r3U0Hd9HQy+sGQeuFAO AQfs0jKc16H/K0HMTLwc8jsTzCBjHQ6bvksJ6CuDVbH1zkdr68DLOfiy60QZ RPZUlE9mb4B5wRQnne091B9SCKknbMK1g8ova9pLwOLIpYwF6ia4mdS0cNWU AF32fpWwwCbU35veaVNQAtJKeXNuMpsQqnJnGp6XwItzwhfljTeBTAuK89Yv AWsrdsHM7E3gKDWfVP38Fkgp+JuA81vgzyf+0n6uGMQ5qqZfnWNCSEuda9yn imCxScY2XYcJ2ZJ2HrQ9UgQ1AWk/UwyYkDPW4+ndokVgxBY4F2/OhNQJmPRW cRSB/5b+crgDE3Iu9cI8b1EhTPz5vuUex4Q84mQiTM4WQPrYtp2G00xI1QQ/ ocLpDeytuvMfIYgZIdwivDpTmQv8u9fW7MOYkWCSXlBrRi5wPQoq+hzJjLSw LixbheXCxpHMPflJzMh8YZtE37VcGMwYWTAoYUbEb1VoJJByISZUPzl1hBmR XgkYKzfLAYqZworycRZkfvzesU5qNjCtseQ4jrEgCrc3co7mZ8K18YGlJ99Z kOlR01DjhEzA2opUw2ZZEKbdBupPQzLBK8WC9vovC3Lgkjin8O1M2DpTuTVE ZkXYYlObp8UzYfP5fSMNOVbkpsaAD2vmK9gQ+8Yq6MeKOMVej+XMy4AV/WqL RjE2RLJTNVhyKA18BgqHVQ+xITeitD/qtqcB5Xq6eflRNoS/+bOGd00aiDsE muYpsyFV5mI/uNPS4NIzfaMIfTbEUSTerME6DYpaJnWueLAhZhObfQnLqXBb naLyh8aGzMimZWfuToUv8lf3iPkREPGszslQ7iSwXj1O9Q8mIMveAgYn/ybC fDUX6+QzArLr4iGx1ZFEYNOonHn1koDEhz19X1aUCDKXt1ceKCQgUouCIeKG ieDl0WpyYJCA1NHUznxISwDxjwox+48SEaf682FnNePBwZiHV3SIiPC7LNGh IxYss4/Ei40SEdMjnKa1VbFguKq7X3KKiPSklk/q5cWCUkLY8aPzRITHbE47 PigWCF/Jpqps7AjSncjdpx4L8daEDFNpdmSFkET5VhUDDQ/X5KPc2RHPSNOK 9fJo2P1iwoRtLwlxVdczmuyPgpO+wjucREnIOffAuZtNUWDkaNo7fpCEBNl8 +7dQFgWRel069bIkhPneXT35l1HAxV2l5nOOhOg259iZmEfBpn+UNJMTCdlx Umpi22QkTDirMW20kJCQHyMHCEyRUGCW+nrpMQcyMTqoaXE5HOTx/WtETw7E g35ytlQnHD4YvNYW8OVAWJ7qj/KrhUOzZsECEsaBnL31IWNeKhzGFaqUn6Vx IMf9HI0Orz2HXfyfOyVaOBAy0bP30Nnn4NNGpV/ZQ0YWHeIsjH+GgbHKk3PN 1WTkeIwy+ZRNKAz9maLW1ZER1V/z6h6XQsGyQBf/0ERG/Jy7lttOh4KdsJB1 YTcZiVyoDI0VDAUf5mrfmEkyojYBqp97QqCgca3mJjcnwtVMMPl3OgTYdB8d Z77CiZTdWPH2lwqGYou7okobDM93F4qLBoLlu/m9qcxcyP3Q5C5z3kDg53La TWTnQiwOW9SnMgXCowpXnh5eLsR4dPsv/a8BoMQftHn7IBeiIxVON04KgLpP 6YMvDbgQJp9e3ek9AUCT/xy5ms2F3PQsPt0k6g90sjprhSE3Qn8ZM8Fp6At8 c5QXdabciGurBPrfOV841D14oO0qNyKkYKUYrOwLFrGOZ7/e5kbstVl+SYv6 Qv3+9GCCJzeia2T2YOq3Dzw7xcxjkMWNFEelHNwT5gNi9qjgz7/ciG3S0A/D Dm8w6FY+sTeOgtgX6M262XoBWZmztiqJgpx9uiyVbeEFta8Gz5tnUJCVrd2H Rgy84Ohjl+sJBRTE3PSKto2yF1CEy57ubqQgo7O9e35xecEnO9nx7YsUhGll JtPzxhNASJLhFG0qsqx2868/myfQ79MFCvSpSD5emX74twcUfmnK1DGmIjO1 QhVTAx4gVGj94aklFbHuFZ58WugBG4avpsguVOSZeJ/fazMPKMsQVmHPoiLc +aO2pDJ3sOf+3ZSVR0W4rlxyRtPdQdy5xuBsMRUx3vWdHvDMHV5oXbnlX0VF On7KiWhYu4PjQnwUay8ViWPduhGywx2kzGyFMj4zvpef6lHP4g6jDYo5aiNU xFXuRizXbzfQi/tc4/2DipAoeERHkxuQWLI19/1m+OSCoUapG6B3nGnYMhXR 6v73rTPVDR71nb16bY2KNNT3HrgV5gb/936A/P/7wf8A9KIP+g== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{All, All}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.541307271796875*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"CDF", "[", RowBox[{ RowBox[{"StudentTDistribution", "[", "v", "]"}], ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"v", ",", "1", ",", "4"}], "}"}]}], "]"}], ";"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"Prepend", "[", RowBox[{"%", ",", RowBox[{"CDF", "[", RowBox[{"nordis", ",", "x"}], "]"}]}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.509280790217805*^9, 3.509280791081855*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{"%", ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"PlotStyle", "->", RowBox[{"{", RowBox[{ "Thick", ",", "Dashed", ",", "Dashed", ",", "Dashed", ",", "Dashed"}], "}"}]}]}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[{{}, {}, {}, {Hue[0.9060679774997897, 0.6, 0.6], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJwt1Ps31Hkcx3EzLp+SZncTLc7a0NhVqbTlMqr3pwvKFrmWTDVno5uxWptr sbklFg2HJhSVMkTubKb4fl2b1rWw1uW4kzFf3Vx3DNaesz+8zvM8/oGXzk9e 9u50OTk5m5X913P5vA/Ly4jUyQjpmDERwvoFTX1zGSIF8c0aTeZCqLV8wvad R2Tmot3VJyAE/b7y19RHRPJjazxdrIQwoTKc0TWIyA6HN8HNzkK4cnn3yeIa RBo3nQqe9BFCMLObPB+JyC9Uqpn0UiGkpOolNDEQaW+yPuCB8QtI77/lZbda ieSzZ2biOC9BvdXB1kBNkawczt0hiK0A0XGHQw1MBVIcmmw/3FgJhw2YV/V0 5clHRG1YmS4JrDx2Zst2Oim5vuMrjyESpNHnVXca0MiSndIgaV0VzMw9Tjrz nRzp77Eh2uxlNdTqJuyq9FwiuL5P9feU14C54m/FW9xkROSJgwlV47WQiE1M 9gdJiV5O8rVovXo4d+/k6ET6PCFruITlA19Bi0B7NS1lllhqO7PJRuM1aKsU GBFl08SZa1fuqzX+Ccobx1rETz8T4h8Nzv7T1whcx4i7WVkfiYZVcZvSDFuA U9PfoJ0wScQ+LHAVNLWC7t4lu7oQMTGvR95mW7+F7IvFgy/KRgnOe5ZhTXcb XJ4qZP+eMkioW6gXfFPVAduCFV2U9HqIKOfjc5HtnaAa0L7mTmobcZ0ac4n/ 1AWdbtzN+cP1BI07ueF7917wC9wc9zopj+jXzNfsEPUB31ZjoDS+wZwf6sOg yw3A09um+PGOZ3CB9ajoRuIAxF0K+YsT+griWIR8ZtcgrJ0+ap5r1wYyFYs6 b9kQDFyt3+Ub3gMZ51n1Xboj8L78WLWfaBBSBTeYGZtHITPyIcctahRcyCFZ 6aoxYM7mqPqnioFZpW/R2j8GfUXfVphfnAQPoyNRs/HvwIk/cEvC+wiuU93F 9objkPYkpuLonc8QNvLuVH71OCi4ek4qBkzDl25109v3iaGZky2wD5+F4R+M RtaWiqF0rebpOe48bK29+3XrhgnQT9EZR0elMN51MLDw5wmQ+oYv5jjIwCz0 pqtlzQRIpFqMLNMl4NZt/+SoLIEHFyLbtfTksKjdo6ffVgK8/Y0xGkwa9lVO 7k2IlQDDK+dAjRodn+YK9i5VSaDy0POKMk15rNFpJhLPSGDR86yxM0MBZxra GNroUkBDb5O3LCpgelAE3cuaAuPD3tXWcko4TjylwvemQNqbO672WQnjLaxO syQKDnFFvGOzSlhv3cKL5hXHLgybRkiVsPvQote5OxRs1NSKmqYj/CudaRnD p8DqRJRBmyrCo3f9n/UkU5D4xv0ybzfCs4flr/+SRsG2em1KOQDhkfunSgIE FPg7sRIPBCHcPtCYuyqLgqoRpz2BIQgn51j48VfsKB8bI45C+LbSg9CSbAqu 4YWtohSEnRyP+FA5FIiEnZ4RLxHOi37T61BAwTrrKbUKEuGBrtjl/hWzuxiV 07UI73uVPuNRSMGHOQuGWxPC4Unq7LAiCtR3l+Qd6EPYjxGzvqCEAk5ti3Pg EMJriozaWaUUZDtIlgrHEHZ933KhbsV7vHVtdT4gHNZouaa7jIKbtH1zJ6cQ jk+z0nL7g4JWnks6bw7hvy/FL0+uWHOjj5VoAeFNBqbP/Z5T8P+f4XsNtha0 cgr+BS2yeMQ= "]]}, {Hue[0.14213595499957954`, 0.6, 0.6], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJwt1Ik71HkcB/AZ13cJ+0RTmzbEuq2t5Fi0n68pSU9C7tKmQiUekitFpscR qeaxasuEtnWMI7HKUfj9Yio63EqRMxrH/FjX2GG0s8+z7+d5P+/n9Q+8txwP OegvRaPRDkj63554yJ7++hWR2a86ISKUC+uW1XStVxDJKp37qhLFBd6ePJ/I JURykgscK2K5oNtf0zw1g8h1rIZby6lcmFAc+fPDECKv/l0mVZzHhdBAM6+K RkSevK95OKmXC3E6H8mAZERaqjyjWzoUQiZHO/2tMiILer1M242LIGfgSoiL vBw5Y3chfphZAuvbXJ0MGLJk0NFPvNjgUmhydt39WkeG1L4SwWD5lcFeA51w bS1pUsd0YN+GjnKwKvXJb/1JiqQfMBP5O1eAKDVAdbsBnbxI28P10XoMC8Lc m7/q0ciCkC+22vpVwNNK31EfvEpYrM154ORQA9aylyqM/FaIbUlt7e/GnkIG trCwjRURffdtbLJK6uHEXa/RiZwlYlXl6VzPAAmtBery9MxFwmixT/r48wZQ VyzbRlTOE+mhQbsUmnmgoDnWOl40S8i76cVcsnsJQW6Jt7ncGeLJggXnoPIr 8G0ceK2eLiDqjFiKw+I3oLVz1eU5a5zQcPm+udChDQpPVQw9rRwlHLwJn+36 HRA4V+5zNXOIEG92kjMK6AKTOFlvOe1ewrM428219R2onu9ac4vTSTzIJl+l /vwB3vsFGT4ceUFoPGnsdl3phagYw+vNN0sJtZFA8Z78fqD9F25WtV6ZdRWd NghFNyxx7tYHoBDK9BDnDsL106x3vpdfgmKhvVXSt8OgNL/fusSlE1jV1UIZ zxEYDH+xIzKhFx7ajc6HFXwGqsaxIappCHqYIz7ffByF/OQ/fP1SRqHmWZq7 5uAY6CwWq0ZzxoFGTRUZDn2B/r806qxPCUChv6+/vYoP7r8PXplkz8CPXUUF 986NQ3ZeWt3+W7MQVcP9Z0JvAmQOBwtkz89DkmluGaN2Alp8CwsOJizCLvH0 XTOHSXispHZEGLQEqbqXpt/WToJu5hY+2i8CrKQQ3qk5BaLIBHGx6wqY2iWk O8dPwaRokzLXchW6s44/ammZgnsnk7s2adOwvePZtT0bBcC2fZO2UYeOU++1 fak9JADlkGJmI0MK29wWCS6yBVC/u7quUk0aC7zrFQ/xBCAOPmruoSyDF1bF 3YnTAqCjjjtGYhlsTJNVvcagwHxvWMM+mhy2VyL5d6woEPWV8BmzcjgzmyH7 2JuC3UFNbMdFOezOCViwPETBteURy0SRHP6kb1dcK7Gm2qaUeSmEzVKMTzUe psDeM8WgUxVhkx5Dw5YjFGS0+weyzRAe5HdP9ByjwOSF+pTCeYQ7q7AV7zQF 0e5WGcxYhM2PJm60DaTg2Wd3mxgWwl3XdzbUSewmfS1tPAVhVY340MozFFzA y8ZNmQjHSN/YlRdMQdOT98GJtQjnTGd9ij5Lgcq+OUYdiXDcG+GxWYl9PijX z/MQ9pbnlJ8Jo2BaaKfs9xbhDTe2Vhw5R8F6s0elzH6EnzOrmRBBgS+v1SNm GGH97+J+qJK40HVytXwMYU/Hsx0mkRTYhGk5bZlG2D/e+bfNURQk0X8Res0h bJUfnp8hcRvbO4ctRJh/wTxpTTQFapoR9k3LCC/zy7dflvj/P8MejVIlSxL/ Cz7+aes= "]]}, {Hue[0.37820393249936934`, 0.6, 0.6], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJwt1Hs01HkYBvBx/cpldiMSe5hodCadbDKyZN8vS1mrJBRRKXJbSje5VHuU yCXNWpdSgyK5pFbiYOP3K1bjqFxL4bjmMpj5SZPRYOx0zr7nPOc5n/+ev971 x07uOy5Po9H2yPKt/R9zqJUVRE7z2kebE7iwZlHPxGYJkeWipqMDf3Khaed9 38gFRL6rV9BfvMMFk4HalplZREoPTDg7VHJhSn204MMwIsMVPD5pD3EhIpTt VdmIyA7dhfEa61y4xOwlAxMRaWjPcNQU5ULObeP013REdseqlA/a5EPe4LWT bquUyd/DS1UTVO+BTru7K0tbiZSX5veUfSkA3l53h1amInmkLi/x4NoicGIx zxobKZCsYgV2fF0xWD/yLWozkyd/M6xJME8pA0lyoJY5S440bxjRcFR7DF/E hZmHN9LIchWz465xFdBklG7REC4lGrdyl1zvVoKN0h+VpgFLBGuua0OIUzVk 4O3b7S5KCM8LouzVxrXgf8drbCpvgVAxu/jq1IFn0PbAYJVczjzR66yRu8eU BAP1v7cS1SLCKf29bPkLUGWMt/FL54grIWW6fHEThHlcvVlcPEtM9cYkz4he gl/jYKtBuoDwsXK3+OmHVjCylbr9G8cnNLPeTm4WvYGS4Mrhf6rHCOmp8fxT 0R0Q+rnCNyVnmOhcjryT0tcFWy4peSsb9xGFt9jpIUHvQCu6Wy3rdhdB1L1X j5p9Dz0BYZsejzYTYQKzsKrOPjgfsymtJfMRwXoyGnX95gDQvl0xt8YsWzdL jjYEpTescOGP5cBc/bEqqWwI0kLi3vldfgnGESmD/A0joCFysXno1gU6Jhtj F2NGYehss0VkfB/0nFhZy+7/CMLa3S/O84ZB58LbFQZjHIoS7/oFJI3BxF+f HtZaTgBzvkwr6jYfMtaqbDv66yQMPDGstwkWQKsj5162GR88s4euTXNmIUUt Dbt/5UPu/dR6l6w5WLGT2L6tmwJFn3CBUrQIThRm9Xl6T8Mbv5IH++Lngcme DQqmpqFKQ++QOGwBjFy7nZ1DZsAkZ/0kcpHAzsbxotKOGZBExi+XuS+B4XCB HN1CANMSfXqxlRTOmQ3JP78igPygxG59YxqOCD2UWfVGABy7V6nrmHK4ylq4 x4cuBPrJMvtGbXkcnznO17UXQoNDTX21ngKuPpTsoX5GCMvhRyz30xWxKsfd Zz5HCHKo85bpsiLm+k6cCa0XgqXT6RfONGXsnyS13TkgBEn/w0ntOWV8sJ9T 9ctXITiE8Ti755Vxrv4n6qnM1xdHra5KlPHCdKCAKRECQ08/SSSPcKaKqTla FMKuA0msLi2Ed6lbTjQvCSGj43goh41wkasqw4ZGwZZmgxnVaISn/A1ei5Up iPK0zrC/iPC6sZ6Ko4iC5x89d8TEIdzrxT7cKrOHwvVUfhLCJnFB9FwVCmLx 4mZeDsLHks+0Y1UKeHU94VefIbwhYNvXWA0KNJ0/a9eTCHt1ugWPyOz7gd4g akI4y277XSc6BZTYkR7wGmG15/0Ra76jQIf99JH9AMKNBRYpJd9T4NfUtj9m BOEb67a40FdTUOI+La0YRzjtsrjntMw7Thu5rqcQDpZe2GujSUGC3M9ir88I a9jH2ObJ3M7xzuOIEb7V2/JFXosCPca5XbxFhL1ZqdGBMv//z3Bt9DCvReb/ AAfdZVA= "]]}, {Hue[0.6142719099991583, 0.6, 0.6], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJwt1H0w1HkcB3BP6xuxiZhajcfTzdYlOeSo+3w1lHOMlmxo6xTbaeN0evZQ OeShYjPLZVVcKkkeNjFU/H7loXUqRaPYTrs2sp5+Blmz2G5v5v54z3teM++/ 37YH44K4OlpaWgGa/NeR1Xzq61dEiuWlbjuOCWDVAmOd5yIicZDLS3GSAFp3 3OacnEdkdGIvf9cFAawbaOwYn0JkieBdRVyhAEaN5KV9MkQ2JE9njhMCOMpz Da1tQeT5Ak6Z3Dgfzjr0k4cyEJkpTbQeqMwHYZF93ks6Im3czvmQ6gIo/pgZ xzLQJ/lP79WFOQrB4nVwINOcRpokZdlYlVwH8a5g704HPXJ1iPUB32cl4Mt0 OG5vp0u++G1p1Me1FDyqOHe6NumQW2uImxn/3AZV9iEzZ6Y22eBvUF3sXg5f lLfy93+rRS4Oyt62raqEVrs8l+ZYNdEffZbWf7MGPGnnajdELRKZV+ukZb61 IMBbtnglqwgXy+nsJmY9RF4LHRotnieizBl6wphG6CqzMtAWzhHZqmqTwvQm sDKq2UzUzxKGItfzciUJhjbDXYp700Sa+sGBhIYWiNmdfvXu3SnCYo+x0re7 HSJaPnZa5U0Qu5y9mLGr/wa7bWpWW4qCcGb3oeXmr6A8ulb2uH6IeB//xbrX 8g3wZkSci0IZoWeZPXrhSg84nqWF6dtLiNRtXL6RUy+YnXm7vKCoh8jpGw4T dLyHd1Ex66vl7UTDNcXeK08kcCphfU5HfhUxTQ9n4ysDcC/XHd9yqgTT7vZU WrUUcg6n9Eb88RxkmCn3cxoE41l/z/usHmA9NjSyzpGD9Hi7y8k0Cfxw2DiD Nf8JJhsDnp0Sy2Cq5lNnrs8w3Mn4KyIqawjygo7RLLmfwWGuwux0kQIWJewk bsoIDDywbvKMnoBjbSbNm44qIORPaeYYfwqWRH0dxV6jcOP2pSb/gmlISgGn WMMx0NsbO0E7MwvLUt1bcqvG4FVEeVlQ2hzkmqlL9/80DnXGjH3KmHlI0z4X GNk+DuuEtiPIXwVsi80SkdMEqE6mLVUEL4JYOeKtK5iAMZUl/a67Gp4nGdkW yyeg5NeMt5b2Wli3qPHz1Y2TwPd6cWmNgzZuCzzQcfnIJNDjKra3mOvgO8kv 5N9fn4Rm74ameoYuVrVEuZ7onISl2F/c2HQ9/FBk05g7NQnaqLtww5IeXkv3 GV9pQoGbb/wzPy19nKLbO1S4kQLVh/sj5tP6WOLpfyTGhwLvGDE/YE4fMzh+ v3dpfHlB7p6u0scc7288nHdQYMOwzJrVQTize6W5UuOde7KYPWYIr3ANn032 pUDwhsvjuyIsOxifdP5nChzbrcYNzyCMKw93hrEoOB3iIdiejPCptSGJdRo/ /RSyNSEFYV7a6hmTIAp2616+pMhCeF8c4fFc40S88J1YiHDbGpHj5t0UiB+9 i01/gvCkdLhDxabA1G/GvIlE+FE/tSx4DwWcPnrzbCvCFjwH0wqNKaUPPeol woqestTwUAosXB9WbR/Q7KfUw/VhFES0drETBhHu4x1MNA6noDx4TC0aRphF mUoiNd4abxdoSyEcxFMsrthLwQXtH5WhMwh3+rEJrsav+WHFfCXCDQY3Ah5r zLA5sVO8gPCHD/IyEw4F//8XHpT6veJq/C8cT2Do "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{-3, 3}, {0., 0.9800290135526917}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.541307275171875*^9}] }, Open ]], Cell[BoxData[ RowBox[{"Problema", " ", "a", " ", RowBox[{"resolver", ":"}]}]], "Input", CellChangeTimes->{{3.539583690921875*^9, 3.5395837008125*^9}, 3.53958409553125*^9}, EmphasizeSyntaxErrors->True], Cell[BoxData[ RowBox[{ RowBox[{"Comparar", " ", "mediante", " ", "un", " ", "gr\[AAcute]fico"}], ",", RowBox[{ "las", " ", "distribuciones", " ", "binomial", " ", "y", " ", "normal", " ", "para", " ", "un", " ", "supuesto", " ", "de", " ", "100", " ", "piezas", " ", "con", " ", "un", " ", "porcentaje", " ", "del", " ", "5", "%", " ", "de", " ", "piezas", " ", RowBox[{"defectuosas", "."}]}]}]], "Input", CellChangeTimes->{{3.539583710328125*^9, 3.539583732953125*^9}, { 3.539583789609375*^9, 3.539583864171875*^9}, {3.5395840588125*^9, 3.5395840695*^9}, {3.5395844144375*^9, 3.53958442478125*^9}, { 3.539584739265625*^9, 3.539584817375*^9}}, EmphasizeSyntaxErrors->True], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.53960275009375*^9, 3.539602752890625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"X", "=", RowBox[{"BinomialDistribution", "[", RowBox[{"100", ",", "0.05"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5395839409375*^9, 3.53958395053125*^9}, 3.53958443303125*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", "=", RowBox[{"ListPlot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"k", ",", RowBox[{"PDF", "[", RowBox[{"X", ",", "k"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "20"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Filling", "\[Rule]", "Axis"}], ",", "\[IndentingNewLine]", RowBox[{"FillingStyle", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"Orange", ",", RowBox[{"Opacity", "[", ".75", "]"}]}], "}"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"Orange", ",", RowBox[{"PointSize", "[", "Medium", "]"}]}], "}"}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{ 3.539584076453125*^9, 3.539584462921875*^9, {3.5395846280625*^9, 3.53958462909375*^9}}], Cell[BoxData[ GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGCwB2IQDQPhLazf5B0q7CG8D/bf/d9cn/piPpTP4JAspCkf cmILlM/hkHuPedncuwehfAGHFL8TJxPOHoPyRRzK0zP/XOI6DuVLOFhfC7+0 3vgwlC/jcP1Ea3itym4oX8GhOTHlWcLsDVC+kkN/0FndqfcWQvkqDoGKAv++ y06E8tUc+t7pND2uroXyNRx2fUlMXsaSDuVrOcSWTtx4Pi0AytdxeNBv3qJX agrl6zmwycbej30mCeUbODj4hK/p+v7HDsI3dGB/tJeRQekelG/kYOR19kSh w14o39hhAu+VPc8nz4LyTRy45z4qtVxZZseAFXywRxNwQOVyoPEF0PgiaHwJ NL4MGl8Bja+ExldB46uh8TXQ+FpofB00vh4a3wCNb4jGN0LjG6PxTdD4o+mT WukTAOnDvaY= "], {{{}, {}, {}, {}, {RGBColor[1, 0.5, 0], Opacity[0.75], LineBox[{22, 1}], LineBox[{23, 2}], LineBox[{24, 3}], LineBox[{25, 4}], LineBox[{26, 5}], LineBox[{27, 6}], LineBox[{28, 7}], LineBox[{29, 8}], LineBox[{30, 9}], LineBox[{31, 10}], LineBox[{32, 11}], LineBox[{33, 12}], LineBox[{34, 13}], LineBox[{35, 14}], LineBox[{36, 15}], LineBox[{37, 16}], LineBox[{38, 17}], LineBox[{39, 18}], LineBox[{40, 19}], LineBox[{41, 20}], LineBox[{42, 21}]}}, {{}, {RGBColor[1, 0.5, 0], PointSize[Medium], PointBox[{43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63}]}, {}}}], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0., 20.}, {0., 0.18001782727042911`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.5395845215*^9, 3.539584640796875*^9, 3.54130729321875*^9} ] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Mean", "[", "X", "]"}], ";"}]], "Input", CellChangeTimes->{{3.539584224953125*^9, 3.539584235765625*^9}, 3.539584276015625*^9, 3.539584469453125*^9}], Cell[BoxData[ RowBox[{ RowBox[{"StandardDeviation", "[", "X", "]"}], ";"}]], "Input", CellChangeTimes->{{3.53958427059375*^9, 3.5395842829375*^9}, 3.539584475421875*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Y", "=", RowBox[{"NormalDistribution", "[", RowBox[{ RowBox[{"Mean", "[", "X", "]"}], ",", RowBox[{"StandardDeviation", "[", "X", "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.539584485515625*^9, 3.539584487078125*^9}}], Cell[BoxData[ RowBox[{"NormalDistribution", "[", RowBox[{"5.`", ",", "2.179449471770337`"}], "]"}]], "Output", CellChangeTimes->{3.5395843895*^9, 3.5395845575625*^9, 3.54130729328125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"b", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"PDF", "[", RowBox[{"Y", ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "20"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"a", ",", "b"}], "]"}]}], "Input", CellChangeTimes->{{3.53958433196875*^9, 3.539584344765625*^9}, { 3.539584493109375*^9, 3.53958449484375*^9}, {3.539584662921875*^9, 3.53958466578125*^9}}], Cell[BoxData[ GraphicsBox[{GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGCwB2IQDQPhLazf5B0q7CG8D/bf/d9cn/piPpTP4JAspCkf cmILlM/hkHuPedncuwehfAGHFL8TJxPOHoPyRRzK0zP/XOI6DuVLOFhfC7+0 3vgwlC/jcP1Ea3itym4oX8GhOTHlWcLsDVC+kkN/0FndqfcWQvkqDoGKAv++ y06E8tUc+t7pND2uroXyNRx2fUlMXsaSDuVrOcSWTtx4Pi0AytdxeNBv3qJX agrl6zmwycbej30mCeUbODj4hK/p+v7HDsI3dGB/tJeRQekelG/kYOR19kSh w14o39hhAu+VPc8nz4LyTRy45z4qtVxZZseAFXywRxNwQOVyoPEF0PgiaHwJ NL4MGl8Bja+ExldB46uh8TXQ+FpofB00vh4a3wCNb4jGN0LjG6PxTdD4o+mT WukTAOnDvaY= "], {{{}, {}, {}, {}, {RGBColor[1, 0.5, 0], Opacity[0.75], LineBox[{22, 1}], LineBox[{23, 2}], LineBox[{24, 3}], LineBox[{25, 4}], LineBox[{26, 5}], LineBox[{27, 6}], LineBox[{28, 7}], LineBox[{29, 8}], LineBox[{30, 9}], LineBox[{31, 10}], LineBox[{32, 11}], LineBox[{33, 12}], LineBox[{34, 13}], LineBox[{35, 14}], LineBox[{36, 15}], LineBox[{37, 16}], LineBox[{38, 17}], LineBox[{39, 18}], LineBox[{40, 19}], LineBox[{41, 20}], LineBox[{42, 21}]}}, {{}, {RGBColor[1, 0.5, 0], PointSize[Medium], PointBox[{43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63}]}, {}}}], {{}, {}, {Hue[0.67, 0.6, 0.6], Thickness[Large], LineBox[CompressedData[" 1:eJwVl3c81d8fx42S7C0qe4/rDinlnvMmKxlRipKMjAZJpG8USZJRskcooxQh KSPJvNcoKyEjIpktJNvv/v659/F8vM/nnPd4vc+Qdrpg5cLCxMT0j/Hz//+0 605spNOpyGZahXh+ORzXf5QyPSb1HzYoyFqQVozAG7Sqm1JSd/BmsbUcwSMR OK06SnKzVDKm57yIziuIwOepvh7/JJ/iX3s4zV+6RuKPK+5xvyXL8USe2tZD I1F4S/+I4g/JJjw0UXEtLiQa91a/9Z2ZaMJC19/qDKdH42ePk+qmXzTjgY8/ lc3Ko7G5t/mpqf3v8ZfS6rnwn9E4YWtFwrhbG45xzt+UfPw+FnjQyPKnpxN7 mgn+ENKOwY+aMy5OS37Gk0n7ju3mi8PzSa9UhiI/Y91BhSkPUhw2dGsZ7Vz6 jN22Mgm0WcXhGdZ/1hUf+3D27JUE/oQ4vIdqvvfO7QGsIvk5J0UiHrcXrrIo /hrC424q/N27E3Bgs5oJ6dQo/iV4LqEkIgnnvihVyIsfxSkjWld9ipNwZ5Ie q/z7UVy/sOrg9DkJy7nZVG7T/obHVt+nNCom42bWEAKT4BiuiK4+X0NLxiLU foE22nf82+Pdsf+4U3FB4Z3+84QpTBosNU6vSsNTAlORJo5TWMjnbPrhiTSs eNkEKcVN4eUJrosUgXT8UIfz0ejSFI65u7vR2zUdxzRFuh5vmMbMn806/vBl 4Muj9/4Y2f3AmcrJWetaD3EGZ8tNfoPfWDizN8gi+xF2wx3JM95z2HmQe3aj OhszZS5U9EfMYVS1ZX9bXzZO2rRjoDl7Dldc2r7wcj4bNza5SjztnsOR437B b5VysNKR1UyXvfO445iUWsf9HDzhrpj/hfkvDpZiF1l2e4zPxlyrao9ewP0l nY0GcrnYc0x5tKRgCe8M2Vw62Z+HOaRDFIf2MEHD1oHoe9eK8V2+FpVHDqwg Nty0rmZcip36j7xjfc8GyuThD8IfKvHFhhCnC4occK7vzPFF0Ros8c2QbYHC Aam4cW+pdA1uYdn6LAA4wMhj7b23ag2Wh6g/d2w5QLRLrWcI1eDPFfFB2REc sL2dXzPapQbrFj1O//yLA0iqOYm4uAbzpzb27S/jBMdTp+VuGdfiF15ch7cd 4AZJ0wMHeFzr8PsUwf+eH+UGpwb5v4cv1OHv9eIZeqe5oSI9EcVcqcPiYsrT 5wO5wW3Y5MJieB0OqTG4WfOKG+TnP+afKazDRwUCX56V4YF8g909nQt1ePnl H8G3Kzywb+9S+InAeiz0ZVHbaisvSMdZ/Uy6XY8J7EwO4yK88ImZqPjhXj12 tuPJ5yfzwgnbjRGxh/X4/SZVfVd3XrAPJbDvr67H6danfXg/8YJzlsDxxvV6 /Mj/3BTxGB+4jnce0PdpwMTqrYu3T/KBOcdd3fdXG3D1ptzNQ858cGnTrW6T Gw14OOqbVJQXY3yD7QvVuw1Y4uHJY5N3+GD5Uf5O/ycNOKXeov5RJR8oII0Y 494GrLL1Z8diLR9wyKPpXV8acLlZ5JBFEx/UMq0fFPvWgHu7G5fXPvFBa9sc U+2vBiwyqUs6/osPON+56qWw0XAMt2a6gAw/tDUeTbcn07CMVWfeGSV+kF17 6JS7m4ZfJHiVVxP4gWPb5cfjOjTcLvm8y3MfP/iOPI80NKJhHrICZ8sRfsj7 w7cQcoKGw49uu3LzNj8cJ5qFrN2gYfHU17f6ovhhEQ6mp4bS8NOhI7GkOH7o rzxXRYig4Ub3+wVDD/khQ2tgnhJHw2z+HGP7Kvjh9frVK+U5NBycsWo5P8MP whQ9pjwaDR8ill1UneMH++QvBcHNNCxRc+m+0xI/hPt9PmfRSsMVI1Pt7ZsF 4Kqe9jL9Ew3Pyn+2eC4hAL8fog+a32jYKf+VmeshAXgm+ilncZ2GidSLHmlH BeDhk4xiCRY6Xv+gFtVlJwDb/xpd1d5Mxym/st7rnREA/iuRimacdNxJjjko GSwAl8JZ/WdE6Fi33PNA70sB0Puca7BFjY55TFTO8FYIgFR70txlAh0P9I2F GVYLADuXp1g/kY6vrNo1lrwXgNm2k1VBu+i4CB80uj8mACfNiVy6iI6vt7O5 NU4LgM1GoegRoGNTx9rQjT8CwCnEEnRCj44ngrVpHusCcCP5y3EjQzqWoika mIgKwja5xPEYMzr+eXT09I2dghA8Znbb2IKOK8fTQ8pkBYEmKOMxe4iObbaK 1CsQBYHDVpRZ9ggdK6R0jJ7UEoQLQqeePbWm43mVKNZ4HUGous8fLXeMjqNN N+1nPSAIxTn0Lf9s6dh+8J3TXgtBOKcZFG9+go7VPP2DL1oLgmgQ97EUOzpu vDdbM+QoCOlvuzx4TtFxglTBVxF3QXB8avVOy4GOT784w2zuKQj2FurUw450 zPRxGCqvMuwChqXuznQcMln16OoNQQgs9jG/fJqOtzKlsWiHCcLUf7Q/vi50 fFfE3/nfXUHYseiV4eZKxwLqtvWv4gUBl9daH3Sj48T9u+V9HgjCnoOygtLu dLzjuHAoOUsQvPQEuycYLH+7w6iwSBBO/5ByMz9Lx8/SCnM9SgXBlv8teYbB hJKorWpVguAfPLbuf46OXzafOztVLwgilKTmNQbv+XqgJbdFEC6RZ+Iunmfk 95+imlunINwr5D/Zw2BdHrYo+c8MXrGU0fCgY5rctx+jQ4LwJYL32xUGm+yr Nc/8LgibVxselTC41fJhocMPQdDi5TgxwuDD7tf5JOcF4f6LO7wsnnTce93u 4uCyIAgucb4TZLBd/N7OVGYhMFS4eEaUwcN52yjH2YUgPbuYh5vBLrULsdt4 hSCKY7RgnjHfVG/XfLewEJiIEUxaGez5q9g6focQmFf2DiczeHbz/deHZYXg DrvupWMM9ttxQVRARQiM9n1h3sLgVbLZlXaiEDSWQVQuI76gA6qf7+4WgjgO AREdBm922LrXDAnB9UGhtBpGfsIvj6dwGgiB44acrDaDeaIaVpoOCsFtu91P Mxn5jc3KsguzEoLuVVvi+hk63lZx462hrRA8ZCopP8jgB+2nJDY7CIFW2i3D CEa9pMepgXWuQqAoptRbyajv47Xtwzc8hEC7kdtrmFF/FaFlAB8h2LallneB oY9Cld5H61eFoERrsmyNoZ+yY3HO/mFCEDCaThh1omMdT+967XtCYMAxt17N 0F9NyCH5xXghKD1jMBzN0GfzC65xnywh8D4U/IXNntG/nLfOelYJgci+7Zym NnTsIOPcotYgBJk8F7MrjtLx2B5dtekWISiMuuW0ndE/P13Wfrh9FoIvcw9t XlrSMXO170XHeSHgNGUKoZrQcWj34U7JFSHIOrmWTDWmY44fJMoXZmHQzcr+ qcHoZyHxn/PHeYWBxa7MaVqX0Z8+rleOqAjDl8rikbd76Fh979DhDKIw2KlL 2V/VomNNJhuNKS1hkKEeWVHRpGO9yAPfA/cLQ5hswFN3DUa/ZqsdybMThiyv V9Sj8gx9nM3RWHASBp7YWo0SGTo+T5Tg1D0jDJT9+k5sUnR8tZK3tttXGHw+ WCbfFmf0b9esBss9YbgmTm5c46HjtJRznGbxwpBZyKK1ztgPsx2+fU9MFYZf 5z23zLHTcfHMpzT1XGFofLU0Xs7YT1s3lXPa1ghDjvew4tu/NLx5V+B44Zww WLk83Z7+mYa5Vv7VLi8Jw9eKyJ3jjP1aoMYr3YBJBNQ5XbrlOmlYyszJup9L BKKbd4RcZ+z3Oi4GdWwKIpCX6+SbV0HDPvGcGSdtRGCRY0jgTxINf/ubeJTz rQiYC+9PtzWj4UxdyqXBOhEQb+Q062WcV6eiWu8VNovAIYuIUhM9Gu6T29x0 uFcE2stUxzkY513HYe99D+ZE4MDxkqYlSRquemEqpa4iCnmzU49SGOdnogfz lHmiKEy8W3msGdqAj5Q/YJNOFwXj4SZrHNiABTbvkZ3LFoWrIwuS+EoDvvvA 0y6xWBQklP9oSZxtwCEt/a1DH0Sh/qAv7YRZA/ZSfv3Sa9M2eHEn9egQfwM2 GTt7LebiNti0oBrhFFuPDa/J5utf2QZale0fLSLqsZ7wQN/C9W2wOe6EuubN erzXwGzPiUjG+IO3jEa867FKjsac7JNt4B2//c4ny3rM6TLv/mpgG1i0RE/K 8jDuK9+uHek1EgOXu2/Ru6A6bP4tWlVCQhym5NkPMVvW4qk6p6DG59uhTffS 88Xmd5jA371z/6mdwPsh03fOpAJz4L+OA3MSQKZ9f/LW+BU2+nH8n4y1FEz4 hQu+sSjC6UI3PwbaSMHvbe/OXqEW4fl9eYUDJ6RgmpwVC6pF+GH4iluCkxT8 V2gX9IetCC8rPujd6iUFt174Rj+/VojznQbLf4dLQazS5nAPxwLM13sqoKpa Cg4tKG1i35uPe2tPMx9Xk4aRXTd7ncm5+Ldun/g1DWnQElVhpwnn4i01FpoP ydJQt9SUTV16grXe7XX7vkca1ot1dnlUP8Fxb/g+eBtIw9yFxB2tFk+wRUll UoS9NGRyuvQkez/GtBwh4ttoaTjYzsHn3piNv8iFHxiOlYZru3LZrhVk479Z G06sidJQzl/z+ElcNpbLnIo/kCYNoS0dX6mO2Tg4vXrl01NpWPpKInmuZGGU eJ7+s1YabLrS9gxSsvCrsHp7qb/SIL4cn/S95BHONWnZdntRGlTPGqyXpz7C KVydnT9WpOGUgPitx8GPcFD0kOEbFhnYavFquPnQI2yatEw4yicDbk3LRPj5 EI88IW5EqMpASn8IrUf9IeahP8j45ygDURMlwnyBaZj5TpatvYsMGM9FsYxZ peF5k2eCDe4yMP2p1mpKIQ1/bi29HXNBBqx2Hmm/1fYAZ3d3XlC/JgONR5q3 rcs8wHu/s4Nzkgx8zX89+bUzBbtu9h1ubZWBt6dYBvutk7C4ZFPPSocMSJe+ jtxBTsKte3a2KX2SAc7bDsshPElY63zD2+B+GfAtM698T0/EbB+FU7UmZKCv JC9yl04iznn42jqdWRY0xdrCbdUS8Ld9i80emrLAJ7Pqa64ch5OsTWtTdsvC Jv82OzuOOGx64WE5fa8s2IhHEO9Nx+KSTONcaV1Z2K3DjpwLYnHI1uRbn8xk IfdjmlHtrlgs16MNVDdZqEwcuG14MAY7e/u/4kqRBQczg8zS6GisRf7ySjlN FtrC+7+XXo7GHLPw2vChLDQPpD3stYvGRRfZSoMeywL/Wi+fv3I0XvW6XzZf LAs/I+/bBYfdwwkXnrwZaJEF36L1nf9tROGm8x9r8tdkIVhtpChwewR+oKZV 28QkBxpPXoXq/ArHXjNJtd9Z5YD9Z/wKpS4ci5y3r5PikIPTp2Ch41w4djo3 WR8nIgdRXy8l1b+7g1fPbNADNOQgROvph2PeYVjDTbXV1FEOZk+H5LYxheIv ZyQvPD8tBzVrYv+O9N7CkecF+Xjc5eDSdEyZaNEtPHlxxbLNUw6c69mjjzjc wlkBLZ8sA+QgRtf0cnZdCBaNOTd4NFEOtvNUep+Ov4k3KvNmHD7IwbKe9Him 8w1c8C4jqqZdDgJ3vY231buB7WpjCTJdcvBlhvmlgfQNXE739xrtk4MjTUbo 7VAQvtR5cN5lQg5u5OdUyZwKwuPj0ytnWeVhVOjulHTbddwmoMbpqy0Pk456 OHmvP0YeHpOpOvKwU1+ByMPujwvoBfRaxqsxaY/YdOenq/huACmEz1AeGhm9 aeJ9FZt+11rLs5KH6pzc2bGC/3Bzue6vkXPycPVE24vrWldwg8Oxj4fS5aGL y2hTXoAv1nyT9MLvkTxc+WeT43zYF2cL991Lz5YHg45rwQ4qvjik2c505pk8 GPfDPfnPPlhP06nhdinDfjLsyEdtH1y9xaO0ql0eZtrqvS9uuYTfFASnqrEq wOnX1JrTHV6YzdRaPJFNAXw233DUfO6FLScVk5k5FEDh00qZ0R0vPC77IaGb TwEeBqGF3XpeWDBZNCZIQgF6Ksi73Twv4HM388O6tBVgfHdJWdBxD/xaKnAL piqA/u7Yf3vEPTBzlWXoU1CABv9h3fN953Hi4sLN60YK8MWucBnszuM6D91A JWsFuHTy4q67Lufwdptu3wAvBQhhdRUVunsGu/7Nnf9+SQEm/rs8KGd9Br+I 8b9k6acAF00qeHN2nMFGH6QuKlxXgG2q69O/893xJb1z59sjFEAmPFwoq9MN t6gxOcs9UQCjNJ5dvSRX7M+scuj9oAJMp+0K/L7XGX/X5+xV+KoAn9dYjrry OuNDYTOnbnxTALKQqQv1mxOW4y28oDWtALrWAaM/7zrh9zs07z1cVADhmQdB FhOOWGIPavURVIS7P5iTwp854DB/yaNtIoqQE+tQvTfEAc9WMX1RFlcEyoi3 iba9A6Yb1P34IqUIHgfEXCUFHbDXYWPuAwRFUF1/JsfCfArXelqZ7jygCMf+ O3zCvNMOqxVTuvxMFeEMcX/1+l07nPBXyK7TQhGuUL2S9pna4XMBPeduH1WE QRfy26ONJ7BQuF3EH2dFCBGiD/yjHceuOa7NDdcVgfTuvyH+QRvMMXDV2LNE EZgMuF4edLXGWn5Pue+VKoLmvnZZTS1r7CjQ21lYoQippT+6rrFZ4zLjXSf/ VCsCt0+HJTn3CHZ99euizwfG+ncv2XH/Poxr7p5OvfpdEXYpZ/SvRFvhGeVY h9RJRVCIHC565mqFtzXUyFfOKMITtj3xRTpW2HNFomhtVhFc7zXtfDdpiXe4 f64P2lAEvR49x24jS3xF1/xn6DYl0Hh7QOSs4CGcPRDw8sl2JchLNMq+NWCB 2/zyrjRKKMGfVZn4zhgLrFDAzsohrwTLLwov7WW2wB/F60SjSErQbHTgP9kx M0yY360ba6IEbQ5hD842HsRjj6XjMgKUQMawmZbx1wjPhHxdYg1Sglt26k6/ S43wrNOjU+43lWAKKcd3XDXCTJLSqqRwxnyKitt0WYyweKJUbW2iEthd0T5Z ImqID92W/D1WrARjggef/j6hj4+5DFmbvFaCpyST6VoFfWy/P+NNQbkSPHNz YxKa3Y/PbUjc9qtWgju5N30J4ftxqJ+ExNZWJbCM3/5csVoPV7rtNFWbVAKB pzKHTfR0cZ3B4IvoGSWY0TkgFi2ki5tl00T//lKCEXejZv1xwD1DO0bfLigB yxsD4r8owLPHdly12KQMDcsut99XY6xkvD3XW1IZ8lluXz1AouI4JbFN5dbK EGZCq3J6tAfb2Ss8GbVRhkU2eF3utAfLxVFMeOyUYeRgvk2W3B5csmEW7eyk DPVxT9qUn+3GXd3BO3guKMPKTyWbkTdaWPDWjKZzmDJcebxmu7Goifsqlnqi IpRhvn2F+LdWE2f+ZvMvu6sMrWleHueiNDHZTrqGO55hj9z3oUtWE1tRjpqV PVKGsnDHuGtHKTjm6zsX7jfKENLpuA6dJHxc9AP7niplSM6fTazOImEZs748 pxplGCjfaVnkS8LFZfN/SunK8NHxlNWAOAl33lO+7tSlDMEEGUPTs0TMj2IT Sn8oM95vmV3XtQk4OsWV7iilAveU3ju3xSpjv8vBlwJkVcBxl+P7t4eUsb1V umSiggqUfm06acGjjNU4uv3eq6nArYN2tkcjlHDTfwZKu7VVgDR6cPh9pCJm sZW7w2WlAqaP248T8uXxpCbsUrRmzD/98keetzxu57P7qmujAoSq3GOl2vI4 ozFW289eBfab3njt3SSHdfawTn09qwKpzHxWtr9ksa/oiEnpTRXoeNZyrf+w DLabW1voCGWMv1hCeSwjg/XbxLJm7qhAfFrUz+k/0ljgtuWKdLQKlBW18n67 L40LFqrzIh+owATPUoN7jxSe+JTB5fRKBVr9ZZKLf0ng43EnW7nGVSAapf4b 4BHHO15ybD83pQL27T5+mjVieKij1K3phwqcav1KOe0jhk/zCjCHzqvAE6Ow 6v2D27BnOI2ywawKreFubfQyURwcpJH8Z4cqiHHyVG6LF8b6GQNjFlKqYOMp xbNyWBhvqbpDLpBVhQ7iVogXFMaRK6MtZ1VU4RBf5/vJOCGccDlpfXS3Khwe nsbDGYL46Xnm091WqvCJP1rm8id+fD6ioEjzKON7NlenjXR+THh2Yi3GVhWY 5g7clzvDj4vHXyVYOKjCTY5QM50NPlzpdLap0UMVDO8t8PiS+XC7zUfCmzBV eBLr3n7ejRvH+AX5i0WqgsoFg4ZwLm5snaDe6HdPFXwfJF4vKubCfR9vO2om qIJgXxiRnYULfzPXiXuepQpXTtg8fpDPgRf1c5Yyqhjfdz8a59VgxwFvMm7W 16hCxYUO9csTWzATOYV7sl4VKgVbDNIzt+AtkvekyS2q0FJyZ7ea2BYssnTl QH2PKoS5T5E4eNkw5blp8sRvVXCghmru2rEJv5Y1kuWeV4WITu77fcOseG+K 7nPSP1XQP9//Te4xK9a7rVVzdU0ViFtE3j8is+JDjlKTXBxq0FEpM8FzmAV7 Cs/vIcmqgeYrFmPrIiY8G/Gz1lpBDc41mYSHX2fCviyTpleV1YDtZv3Xg2ZM OODXoEOdhhoURA2r9fVuoIgmepi1jhoYnly4sclpHeVeS+39z1oNMuv7Cu9l ryC1+XindBs1YM/zVaJYrqCis9EztSfUYHPxtdW69WVUeuwWE5eTGpAb4oaz 7JYRjXRBKd1TDVT7zDnFZJfQ6JjeldrbDH/vq0e29S4gvYzWTJUINQhf/h1s F7WAHtoc/xBzVw1eKm7l+KS3gOxbLso4x6vBgfmzfNeL/qK+oofvWbPUYNX5 2A3XhHnU6b8uZVClBs1/PftOhM8i0q7wg89r1OD8o/48T9NZFP1T+LJwgxro tpQdNOCdReaO6i1jLWrwDnHNaCb+Qc2Gdr6hn9VgSJOtcqjwN6rlr2iiz6vB fKyjCO/mn0i6xWBeY5Fhv9g5kJvxAwWFdEgkrahBoBWv8e19PxD6N3HJnUUd ykyse1n8ZlDFgKjEVj51uHJZuDJydQoVP/H1NlFVh8CrL7pa0ATid2ROKyao w9mxpKXV6XHkJR5FFyerQ0PI5dC9KeOIEJW9Y3qPOjxoSd3WuvQdPfP+SIsw VIedFb49G/VjKJNK2v7BUR3WKsgLv8JGUa05x82V0+rA07qTbebAKBo5NTql 7K4O4frbdj/lHEWywfEVoZ7qcPqIkqn9/RGUTVuyBX91SFu+/tov5yvKsahN ehmnDuohXzT2DQ4hmkMq00iiOhx2O5Hq4juEvl/0cedLVQcv8W89HTxDSCFO YY/HI3X4LbZ1u6PBF/S4N7xHoUAdtE4FWS9UD6Bcx8MiKXR1KHh65ua/n59R o7fa9cZmdTihOa6TmvwZTdzc/H3hgzqYST/wMzH4jJQel7463KUOXKqbxN9l 9KKnU9utub+qg/Kng3fzHXrQs0vfYoOW1SH1ge8SD98n1BzydqVgTR0Mhize bG3uQlPxCc6DTAQwu+JjPRLShVTLjCl7txDgkWzfa5m1jyh/Nb9zTpAAly64 4eR/nej5LV9+N3UCaM587tER6EAzOieDbxEJYGl9o56jr52hb/25LAoBSrRP Kd/JbEfPnIQ+DWsToO3hIcK9Xe0oF79MOm7IWK/5uREfvRVlL/2WND9FgB2W lsc3KlrQt6Le6PNOBDjga3mx274FybpXM0e4EGCD9f5qB2sLyuy+N0o/R4B7 35vLlSybUcZLwhPdKwQIOXns18JiI0rxOE/YdZ8A/qPEVoOrNNQndyTjcBwB vJT60QCBhsQG9vF5JxJAIwkHnP7WgJJMOGcL0gjgxJs0hqwaULzis1dKzwgQ e9vo7/s99Sj667jOjjoCfHtMXZwj1KL2pLbne2kE2JeX9ejUnxrEe6hUwraJ EY/P7YaYkhp0tyqUKaGNAEzmttMG1BoUmSpfzzvAyEd6nFb6sWp029r5IOtf ApzvrSzXtXuLMi0G7FwWCbBbUkLO91clqjxg7UlfYaxX3hapElKJZqlG9yNY NGCjJZt7S/EbZKeg2iPIpwGyoe3UVYkKRP436ySnqgGqN6dDXmmXIrM/53xC CRpwNMFZp3HkNXKf/nZrgqQB/TpPXwtEvUZpQ925+Xs04O5Mix0ae4XYGyt+ ahpqwAXyulZgVgn6khR81cBRA9iOZVoYHSlGSzErEU9Oa0DRtS86GzzFSCjK J22ruwbk2q9bFje/QAduuFZ/8NSAl8P8nqv6L1DJGRO2owEa8MIkTqVevwiF 7xWIcU3UYLyPt16pH8hHOZoRWY0pGuB2hs6R4pmPqgmbXqmka8CuVxpUVpZ8 9FdmoedntgaY/bwRclU9Dzlw9u30K9YAzyO/cl0TnqJdA4+e3v6gAeFffmdV 5T1GfAT3xcJ2DdD71XNX6fhjNBNIMOr9qAE9J2tD8rc+Rtmyb74p9WlA4lvM M38uBwmd65Js/q4BlzVr/SSo2Wg5gPUgGxMRjnHfMZ/myUQTOa7eKcxEaL38 Qdv2wyPU3dqUTGAlMu6HU2z5kY9QsVT0xFE2Itjbh52a536EztbvCH3CRQRa lWV9lfhD9JlTq8ZYjAjTfszBqa8eIJpm8sSAOBHUq/QEL5g+QCUnV3kv7iDC Oytt01ffUlF0Ya19siQRxMK794aKpSLjwxark/JEmLK1FX4Vm4zKUtx3R5CJ 0LljcPMhWgJ6XNdiL6lJBLvtD8bkvBNQ3Awh9OUuIvxmfaEtL5mAvNDfrv49 RLDYc80mKSAeKY3c8FbDRAgIP/y7Xz8OJSmnPv9wkAjlcu+mHmyJQfNzhjk3 zYigu/FVrqPqPrKomn2gbUEEz699oVJ+9xHbYZPIHCsiKBR8tWCajka+AUtn r9kSYYfqC6bcqnuo3TDHiXKCCFzjTZQR6j2kxm95fNKOsf7hgk7Bd3fRt5zc A9YORAgTEP2B6VHIqu2YkrobEV71F/vN/YhABcmsUqPuRJirnCFIBUSgracL RZPPEuFvsrskF1cEql5k27LZkwgxv5TObCGFIw2Z12MDPoz1bodM9t4NQ1y+ QlmRwUSoeBp5IzXuFnLH1Sl6IUQYOtEw1L3vFqrbej5m8RYREuOeBXl/C0FX 0+tunL7DiLe+5NEr7RA0Sfd20IkmwkPe/bKDc8FIP0bCZvY+EcxOcrdH5ASj h3bNFrmxRODZ9Ljd2yYY2TDujEKJRPC1G1fuqbmBaOIdO2fSGP7lD/ldzQxC MmMBwpkZRKiL0bh5/mQQulaoxG3ziAh3Si1ML4kFIU39oNW6bCI8jchYsVMO RJkeGv2peUTwOGP2o4twDQVWRyUdLCfC60FODb34/9DUYHXcUgVDn1+Ln7Op /YeOrsxFP6lkjPfNtfKov4LUtI7fYa0mQn52hwr7sh/qzVO4+oZGhJKyZ7XN fpfR/ibby2caiUCRZrm+IH4ZFXyP9BZtJsKMX3lP3DtfdEt67uylD0QYHWTX FuT2ReTEdydUu4hQ8J/SSGDZJZRWMnvs8yci/JTFak9dLyH2Tvkjt3sY8c1e fCcucgkNcUWajvYRwVGLxlJ3xRtFBttQU78S4Xt88NtHphfRd48/Epy/iCC9 rTiHau2JLCPktpf/JsJaxpqmbrcHqsw9Juo2S4S7w+5zhrYeKHb0LW/dXyKo mH+v1nY5j8A2nMl/lQgtigsHJmLPorzLb1eV1omwXfaNipLcWSQS93uxe4MI zzQScwivz6AfrUf/kFlJkPleLPfSkDtK0ZcdmdpKgpz+LKq0oRva7HT0SxIn CTgezt7rHXVFXoF3+gy5SQy90e5K33RFRhW/OjP5SHAnJGzGguaC5jUq646L ksDVs6Dgsv1pZLbdOqdZjgQ+0k3Di+2OKOkbofqEAgl26jVWy4U7om/P2ftn FElAfeBi7KjviAKgko9XlQSH/42Grb5xQPkusgGHSSRYdxudeOh5Ci0S1hK+ kUlgY/QlU/WPPdJf7H7hq0kCX/eYU6m+9qg/PHw8cTcJ4s1FirlDTiKOoj9W A1QSpDn+m772+gQ6+l+LhwdmcMvkLi+jEyhTLydsHUjQc8Muh7/vONL+ZFMl pU+Ck22fmow3HUfuy++UXUxIcP193PeBczaIrn+X6edREgTGXpwLC7ZGAjzu 2wNtGHb2A7FPVK2RfY+uFt9xEoC0hq149xG0cObvOfJJEvyTkTSfIBxBCvfs ei47k+DSwZDotF9WyNtGa3aLCwmShdD9rkwrVCXNx53sSgKLQVkf7WNWyLqk Tu/NGRKgBxyb/OssUchnlYKNCyQw/U+jzfnpIdSeuakp+iIJ9rUf/3nP5RDa cf7LqPQlEtCie7voMofQy/X7YvqXSXBWh749ASzQiOxSSFgACZz2R067mJsh XU/6Cf47jPx+TAjMrT2AlnsnDevDSeCfO3hE9tABVLKfi+wXSQKjGXXlyCFj pCBmyT54j+Evd3fZlk3GiKu+ryQ3gQRuPGNd750MEY2wlnEiiTH/+GOxwXUD FJgsGcGTQgJZwWaH9AcGaNbztKNPGglYLzOXiA7qo16xn9yQTQIV6fb38hf3 o5gQvqXZHBJ84QwrWRPbjw7+In/LeUKCiptbZw7V66Gqer8KzjwS9C44nzu0 Uw9lX2B263lBgq4f5Vs5hwF5NQhVe74jwTWXjym/DKlIhbg7T7qGBMO2yYNJ tTpoNMU2oauWBGpKI0q3QQcd9Uo/v5dGAhOS2Wmu/fuQznYlMbYPJHhjt49e 4qiNFm6ZbCpvJYG1J/edoJ97UOHv87/OtZPAuGfY3PjaHiRDe9HQ8ZEE7hWs ks8e7kbsF/d5p/WRYOFzzVjH2i5U23/y5KEBEjyP7xtKTN6F/A2DjFm/kCDh aEuV2O5d6Of2BokzX0nQ/VU7hOKnibpo5i2aE4z8O1rqLXBQUMYOJ7n3f0mg WNTK136ViPZSVAlO/0gw/smEW0iTiLoOzO9eXGToK1Py7PqABmL3Cz0ot0oC hTtDg14fCMir45l3AAsZLo/sf+7VqIY4Ji4FCGwiQy2L3KSHqRrKXtcJzd1M Btqi+CvvTlXUq9qW3MVOhpztA5Le31QQhM5Vq/GSQfuNhMYZSWXU96CyuZaP DG3XKn/XFishn5e3umwEyCDlNV86ZqSEcodFJ0KEyfA6W9XijJ8i4t+nwzu4 nQy/H0elZk3Jo5FfISejlMgQZvdLXXiHLApgM3eTVSHDKIvt3/ZGGSSyU/Ri uSoZhFoQ7cdlGWRi8jRkjECGh1TRcUqPNCrO/pBH3UUGtdLrr22eSCHTNwmv PmqRYU3OvSzYXgp97zj17sweMlBttGpHRKSQ+Mafzvh9ZAge0190FJFEN21F ln/okuHJ8/mgNZadSMJriDVkPxlCO/4eyry5A5WF5nKLG5DBKjn6hBvbDjTz cq+0oTEZvD/aLxEEtqMjPKeM083J0NmyabJBVwzJ1T1JMD9BhlhuFWuuZWHU qraYPWBHhp3/jbPUpAijKwnGL8/akwFpF4qwU4VRy5nJtlBHRj1qut9SQoWQ N5/q1nduZHj+zLPQSkUQ7bjqL2p2hgx/i/P/m+4WQA2jLfL9Zxn5UvdpHgsR QNtKz+v98yBD7/WhIxPf+NG7kwX+Gj5kEJTdMIwo4UPu9PU7b33J4Bdf0h9/ jg8JkCySDvqRoaUQBrtl+ZDrpt8lblfJkLzV4Wi7Bi/iyiP9zAgiQxZB/X3Q dm50fLHEgS+KDAoeHxvu22xFm5w2X0i/SwaOC08fC02yo4IW62tq0WRY+ht5 xdefHTFnLCQbx5LB4WXozIucLSjXYM/HoGQyREa/bNzPy4asCsO+8qSSQUzz Osvo881oZdvnXw8ekGGvhC+WN9+MzGf+4yrPIEPuWRs/v9hN6G/MG4M/OWR4 Ohb0PpnIitJXOY8EPiFDzYkc/cR+FmTsaufE/ZQMvj3t31jDWNAD7bXryvlk aDJ1SREYY0Z6w6jMsZgMk/z8As6FTChavVals4rhb9UrPk6mNWrunhNbg6vJ 8P3r0zv0S6vUd/vnx0m1ZHBxt34hNrVC/WmrkHO/gQxcweyNFl+WqQdDwyUt 35Phv/j82LrRRarTfdl1plYynHSMDZk5u0i9+qByoKiNDP8+VjRZzv+j5hb/ TOb7yKgvq7ReLvc/KtuQlVD7ZzKU7yRfumD7l7pzano2sJ8MLAPKcPrPPFXz b0iHxiAZlhvrm4wi5qnOnKV37w2Twfo55UJp/Ry1evf2rRbjZBB/P04yNpul +kePrn2YJwOenhU3tvtFjUkNGLi2QAZe50F909qf1GePhd+oLzLifZpxgaz6 k9pbaXQlaoUMzqVRahc2/6BqTebNmrJQIGyhTBn6pqhm8/odq6wUOBErGjph PUU9vTFYmL+ZAtZTCrncXZPUWGE+D66tFFiMf9+S0TNB/a3rM97CS4H7uuJj T5e/U9nNuGn+/BRgPoj11sK+UyVtHmerClKg1l/6ta/Yd6q5Z69jhAgFXr0r ynsOY9S8FJ0Bk50UELVa01V5Mkp1ndvU0aRCgWtjOi2u74ep9s/0W+3UKCDg ePzjvuvD1KOOIS2/1ClgXOsp70Maphq2sdKESRRQOGVlMbN7iKqQx/LGcTcF cmJbXlGYB6kSTnpl83soMDt64nDDfwNUEbHgV7f3UmB/OKW8er6fynabueg5 lQKD1b/Fm//0UcecmHKW9lNgxYk+unnLZ+qAGGRGGlDgTN6qVN39XmpXe2CG pBEFBAciNZIleqn1aCPZwIQC65IffM6iHmq2+Prd+4co8LXJyzwn/hP1dOfK FeWTFOgxtTssktpJtbuz73KlPQX2pHz0sNzfST0C/pcsHCig2vBIS/pHB1W/ YNnD15mR7/jYQCeDDqpc+JJTzRkKMGXZ2+Zvaafu0NV2OHKOAnEV34eS/Nqo QotXTo6fp8BEZKpW4kgrdZPr4jFuLwqEr/7HmVb9gTqq+8/U9jIFdCWiSwNT W6h9i1omM34USM7u53Ta1kLtLLxsFPgfBU6rCmvlJDZTa3cu6OYEUODwNuJO 2bQmaubSvNafYAo4P6mb7KulU51ezErduUeBFyfUisq96qnngw+vmtynwEyU alQVaz3V93BJD1csBZbqA8pXkuqoYX9970YnMOyzvRt/mmqpBdpLK4lpFCD4 PjfL0K+hlnEc77HNoID44NFtWhPV1Jr+iuLtjyjwK2TpWVFUNbXrWsCZjGwK nJ8dd7KufEddqtnofpxHgQd1ea/tld5SWWIdit2fUyDQ8iVUR1RSuU7XRKkU UkDp5dw3m9k3VAm2m/oFxRQQMtpM/9FYQdU3YSt+Vc7Q5/HhiunkMmp0J1dU PZ0CMakR7I5VJdSULA/30CYKGCZ9cpE2L6Fm+bTuN26hQA2NgDSHX1Jfi0Qv t7RSwMWS7Y4050vqwHFB94+fKDBaqZXfe/UF9buqz/74HgqYRR4xn9z+gvpr tUvi2GcKVAQUPZmtKqKyZCR86hugwCXx2jIaRxFVcVRs/8goBcbfinDXez2n EkuuSmSPUeATs+nuA+351L23+pdcxhn5zA7oVKDkU00V04ompygw5Pd1JIcl j+p9Tkrizx8K5F930Bim5VIDdG4sFc9R4FZGruRhnEu9xT3S5fOX0S/Hfux+ UPGEmlSYFbG4SIGbo8S3vuWPqZlBm9wqlikwLMhtPanzmJpn6aIXsMrw50ax 21JtDrVEhrYTrVNA7n0gJB3MoVbNKSxtbFBA8xrvxbLubOr/AGIghiQ= "]]}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0., 20.}, {0., 0.18001782727042911`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.53958456703125*^9, 3.5395846746875*^9, 3.541307293421875*^9}] }, Open ]] }, 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->{ "Info3541310848-9856568"->{ Cell[23902, 708, 777, 15, 62, "Print", CellTags->"Info3541310848-9856568"], Cell[24682, 725, 521, 15, 23, "Print", CellTags->"Info3541310848-9856568"]}, "Info3541310849-9292694"->{ Cell[66540, 1835, 775, 15, 62, "Print", CellTags->"Info3541310849-9292694"], Cell[67318, 1852, 521, 15, 23, "Print", CellTags->"Info3541310849-9292694"]}, "Info3541310853-3325532"->{ Cell[162675, 4558, 125, 2, 42, "Print", CellTags->"Info3541310853-3325532"], Cell[162803, 4562, 758, 21, 23, "Print", CellTags->"Info3541310853-3325532"]}, "Info3541310854-6455769"->{ Cell[175766, 4943, 125, 2, 42, "Print", CellTags->"Info3541310854-6455769"], Cell[175894, 4947, 755, 21, 23, "Print", CellTags->"Info3541310854-6455769"]}, "Info3541310866-7153777"->{ Cell[263589, 6841, 123, 2, 42, "Print", CellTags->"Info3541310866-7153777"], Cell[263715, 6845, 804, 22, 23, "Print", CellTags->"Info3541310866-7153777"]}, "Info3541310867-2699824"->{ Cell[279731, 7311, 123, 2, 42, "Print", CellTags->"Info3541310867-2699824"]} } *) (*CellTagsIndex CellTagsIndex->{ {"Info3541310848-9856568", 469608, 11192}, {"Info3541310849-9292694", 469800, 11197}, {"Info3541310853-3325532", 469994, 11202}, {"Info3541310854-6455769", 470189, 11207}, {"Info3541310866-7153777", 470384, 11212}, {"Info3541310867-2699824", 470579, 11217} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 134, 2, 31, "Input"], Cell[716, 26, 113, 2, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[866, 33, 6004, 182, 347, "Input"], Cell[6873, 217, 10013, 270, 460, "Output"] }, Open ]], Cell[16901, 490, 1006, 25, 88, "Text"], Cell[17910, 517, 353, 6, 31, "Input"], Cell[18266, 525, 451, 11, 72, "Input"], Cell[18720, 538, 1267, 43, 65, "Text"], Cell[CellGroupData[{ Cell[20012, 585, 201, 4, 31, "Input"], Cell[20216, 591, 1592, 46, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[21845, 642, 150, 3, 31, "Input"], Cell[21998, 647, 1681, 49, 68, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[23716, 701, 161, 3, 31, "Input"], Cell[CellGroupData[{ Cell[23902, 708, 777, 15, 62, "Print", CellTags->"Info3541310848-9856568"], Cell[24682, 725, 521, 15, 23, "Print", CellTags->"Info3541310848-9856568"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[25252, 746, 150, 3, 31, "Input"], Cell[25405, 751, 89, 2, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[25531, 758, 150, 3, 31, "Input"], Cell[25684, 763, 85, 2, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[25806, 770, 152, 3, 31, "Input"], Cell[25961, 775, 90, 2, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[26088, 782, 174, 3, 31, "Input"], Cell[26265, 787, 90, 2, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[26392, 794, 134, 2, 31, "Input"], Cell[26529, 798, 89, 2, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[26655, 805, 140, 2, 31, "Input"], Cell[26798, 809, 125, 4, 71, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[26960, 818, 125, 2, 31, "Input"], Cell[27088, 822, 70, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[27195, 828, 278, 5, 31, "Input"], Cell[27476, 835, 202, 5, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[27715, 845, 153, 4, 31, "Input"], Cell[27871, 851, 4555, 138, 240, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[32463, 994, 451, 11, 33, "Input"], Cell[32917, 1007, 12272, 170, 487, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[45226, 1182, 511, 12, 31, "Input"], Cell[45740, 1196, 14661, 430, 134, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[60438, 1631, 129, 3, 31, "Input"], Cell[60570, 1636, 202, 5, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[60809, 1646, 234, 6, 31, "Input"], Cell[61046, 1654, 202, 5, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[61285, 1664, 171, 5, 31, "Input"], Cell[61459, 1671, 202, 5, 30, "Output"] }, Open ]], Cell[61676, 1679, 254, 7, 65, "Text"], Cell[61933, 1688, 201, 4, 31, "Input"], Cell[62137, 1694, 435, 13, 72, "Input"], Cell[CellGroupData[{ Cell[62597, 1711, 248, 5, 31, "Input"], Cell[62848, 1718, 1593, 46, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[64478, 1769, 197, 4, 31, "Input"], Cell[64678, 1775, 1641, 48, 66, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[66356, 1828, 159, 3, 31, "Input"], Cell[CellGroupData[{ Cell[66540, 1835, 775, 15, 62, "Print", CellTags->"Info3541310849-9292694"], Cell[67318, 1852, 521, 15, 23, "Print", CellTags->"Info3541310849-9292694"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[67888, 1873, 176, 4, 31, "Input"], Cell[68067, 1879, 88, 2, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[68192, 1886, 147, 3, 31, "Input"], Cell[68342, 1891, 89, 2, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[68468, 1898, 201, 4, 31, "Input"], Cell[68672, 1904, 1593, 46, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[70302, 1955, 150, 3, 31, "Input"], Cell[70455, 1960, 1641, 48, 66, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[72133, 2013, 150, 3, 31, "Input"], Cell[72286, 2018, 89, 2, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[72412, 2025, 150, 3, 31, "Input"], Cell[72565, 2030, 90, 2, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[72692, 2037, 174, 3, 31, "Input"], Cell[72869, 2042, 70, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[72976, 2048, 134, 2, 31, "Input"], Cell[73113, 2052, 69, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[73219, 2058, 140, 2, 31, "Input"], Cell[73362, 2062, 79, 2, 33, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[73478, 2069, 125, 2, 31, "Input"], Cell[73606, 2073, 70, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[73713, 2079, 284, 6, 31, "Input"], Cell[74000, 2087, 535, 11, 21, "Message"], Cell[74538, 2100, 231, 6, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[74806, 2111, 171, 5, 31, "Input"], Cell[74980, 2118, 200, 5, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[75217, 2128, 171, 5, 31, "Input"], Cell[75391, 2135, 201, 5, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[75629, 2145, 153, 4, 31, "Input"], Cell[75785, 2151, 3911, 118, 240, "Output"] }, Open ]], Cell[79711, 2272, 1097, 25, 124, "Text"], Cell[CellGroupData[{ Cell[80833, 2301, 121, 2, 31, "Input"], Cell[80957, 2305, 72, 1, 30, "Output"] }, Open ]], Cell[81044, 2309, 240, 5, 31, "Input"], Cell[CellGroupData[{ Cell[81309, 2318, 150, 3, 31, "Input"], Cell[81462, 2323, 1610, 47, 42, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[83109, 2375, 154, 3, 31, "Input"], Cell[83266, 2380, 1606, 47, 58, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[84909, 2432, 148, 3, 31, "Input"], Cell[85060, 2437, 71, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[85168, 2443, 223, 5, 31, "Input"], Cell[85394, 2450, 1148, 17, 69, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[86579, 2472, 191, 5, 31, "Input"], Cell[86773, 2479, 1975, 58, 243, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[88785, 2542, 510, 12, 31, "Input"], Cell[89298, 2556, 9119, 139, 411, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[98454, 2700, 328, 9, 31, "Input"], Cell[98785, 2711, 16405, 475, 289, "Output"] }, Open ]], Cell[115205, 3189, 833, 24, 70, "Text"], Cell[CellGroupData[{ Cell[116063, 3217, 189, 4, 52, "Input"], Cell[116255, 3223, 72, 1, 30, "Output"] }, Open ]], Cell[116342, 3227, 216, 5, 31, "Input"], Cell[CellGroupData[{ Cell[116583, 3236, 153, 3, 31, "Input"], Cell[116739, 3241, 1780, 51, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[118556, 3297, 155, 3, 31, "Input"], Cell[118714, 3302, 1852, 53, 58, "Output"] }, Open ]], Cell[120581, 3358, 118, 3, 31, "Input"], Cell[CellGroupData[{ Cell[120724, 3365, 173, 4, 31, "Input"], Cell[120900, 3371, 1150, 17, 69, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[122087, 3393, 247, 6, 31, "Input"], Cell[122337, 3401, 6512, 198, 240, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[128886, 3604, 380, 9, 31, "Input"], Cell[129269, 3615, 6560, 198, 240, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[135866, 3818, 664, 17, 72, "Input"], Cell[136533, 3837, 1006, 21, 241, "Output"] }, Open ]], Cell[137554, 3861, 347, 6, 29, "Text"], Cell[CellGroupData[{ Cell[137926, 3871, 148, 3, 31, "Input"], Cell[138077, 3876, 7445, 210, 240, "Output"] }, Open ]], Cell[145537, 4089, 105, 1, 29, "Text"], Cell[CellGroupData[{ Cell[145667, 4094, 396, 10, 31, "Input"], Cell[146066, 4106, 836, 19, 50, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[146939, 4130, 1015, 25, 112, "Input"], Cell[147957, 4157, 7822, 164, 281, "Output"] }, Open ]], Cell[155794, 4324, 1058, 34, 88, "Text"], Cell[156855, 4360, 1058, 34, 88, "Text"], Cell[CellGroupData[{ Cell[157938, 4398, 91, 2, 31, "Input"], Cell[158032, 4402, 70, 1, 30, "Output"] }, Open ]], Cell[158117, 4406, 119, 3, 31, "Input"], Cell[CellGroupData[{ Cell[158261, 4413, 128, 2, 31, "Input"], Cell[158392, 4417, 64, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[158493, 4423, 152, 3, 31, "Input"], Cell[158648, 4428, 1707, 50, 56, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[160392, 4483, 152, 3, 31, "Input"], Cell[160547, 4488, 1699, 49, 42, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[162283, 4542, 136, 2, 31, "Input"], Cell[162422, 4546, 70, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[162529, 4552, 121, 2, 31, "Input"], Cell[CellGroupData[{ Cell[162675, 4558, 125, 2, 42, "Print", CellTags->"Info3541310853-3325532"], Cell[162803, 4562, 758, 21, 23, "Print", CellTags->"Info3541310853-3325532"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[163610, 4589, 225, 5, 31, "Input"], Cell[163838, 4596, 1154, 17, 69, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[165029, 4618, 627, 11, 31, "Input"], Cell[165659, 4631, 9142, 278, 245, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[174838, 4914, 288, 7, 31, "Input"], Cell[175129, 4923, 458, 9, 50, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[175624, 4937, 117, 2, 31, "Input"], Cell[CellGroupData[{ Cell[175766, 4943, 125, 2, 42, "Print", CellTags->"Info3541310854-6455769"], Cell[175894, 4947, 755, 21, 23, "Print", CellTags->"Info3541310854-6455769"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[176698, 4974, 659, 14, 31, "Input"], Cell[177360, 4990, 7023, 105, 354, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[184420, 5100, 179, 4, 31, "Input"], Cell[184602, 5106, 1153, 17, 69, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[185792, 5128, 836, 22, 112, "Input"], Cell[186631, 5152, 8645, 171, 276, "Output"] }, Open ]], Cell[195291, 5326, 564, 22, 29, "Text"], Cell[CellGroupData[{ Cell[195880, 5352, 616, 19, 31, "Input"], Cell[196499, 5373, 944, 33, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[197480, 5411, 1817, 42, 192, "Input"], Cell[199300, 5455, 13255, 242, 621, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[212592, 5702, 155, 4, 56, "Input"], Cell[212750, 5708, 99, 2, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[212886, 5715, 741, 15, 159, "Input"], Cell[213630, 5732, 1333, 25, 134, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[215000, 5762, 310, 6, 55, "Input"], Cell[215313, 5770, 459, 10, 33, "Output"] }, Open ]], Cell[215787, 5783, 261, 6, 31, "Input"], Cell[216051, 5791, 393, 11, 24, "Item"], Cell[CellGroupData[{ Cell[216469, 5806, 187, 4, 52, "Input"], Cell[216659, 5812, 87, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[216783, 5818, 460, 12, 24, "Item"], Cell[217246, 5832, 704, 20, 24, "Item"] }, Open ]], Cell[CellGroupData[{ Cell[217987, 5857, 269, 7, 52, "Input"], Cell[218259, 5866, 85, 1, 30, "Output"] }, Open ]], Cell[218359, 5870, 521, 14, 31, "Input"], Cell[218883, 5886, 417, 13, 24, "Item"], Cell[CellGroupData[{ Cell[219325, 5903, 227, 5, 52, "Input"], Cell[219555, 5910, 90, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[219682, 5916, 261, 4, 55, "Input"], Cell[219946, 5922, 369, 8, 33, "Output"] }, Open ]], Cell[220330, 5933, 250, 6, 30, "Text"], Cell[220583, 5941, 544, 16, 47, "Text"], Cell[CellGroupData[{ Cell[221152, 5961, 307, 7, 52, "Input"], Cell[221462, 5970, 200, 4, 30, "Output"] }, Open ]], Cell[221677, 5977, 348, 9, 24, "Item"], Cell[CellGroupData[{ Cell[222050, 5990, 170, 4, 31, "Input"], Cell[222223, 5996, 88, 1, 30, "Output"] }, Open ]], Cell[222326, 6000, 644, 18, 24, "Item"], Cell[CellGroupData[{ Cell[222995, 6022, 302, 8, 31, "Input"], Cell[223300, 6032, 87, 1, 30, "Output"] }, Open ]], Cell[223402, 6036, 552, 15, 24, "Item"], Cell[CellGroupData[{ Cell[223979, 6055, 243, 6, 31, "Input"], Cell[224225, 6063, 89, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[224351, 6069, 276, 5, 55, "Input"], Cell[224630, 6076, 391, 8, 33, "Output"] }, Open ]], Cell[225036, 6087, 469, 8, 49, "Text"], Cell[225508, 6097, 1534, 35, 132, "Input"], Cell[227045, 6134, 373, 10, 31, "Input"], Cell[CellGroupData[{ Cell[227443, 6148, 146, 3, 31, "Input"], Cell[227592, 6153, 30453, 502, 243, "Output"] }, Open ]], Cell[258060, 6658, 897, 24, 52, "Text"], Cell[258960, 6684, 121, 3, 31, "Input"], Cell[CellGroupData[{ Cell[259106, 6691, 127, 2, 31, "Input"], Cell[259236, 6695, 69, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[259342, 6701, 154, 3, 31, "Input"], Cell[259499, 6706, 1681, 49, 54, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[261217, 6760, 125, 3, 31, "Input"], Cell[261345, 6765, 1845, 55, 64, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[263227, 6825, 115, 2, 31, "Input"], Cell[263345, 6829, 70, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[263452, 6835, 112, 2, 31, "Input"], Cell[CellGroupData[{ Cell[263589, 6841, 123, 2, 42, "Print", CellTags->"Info3541310866-7153777"], Cell[263715, 6845, 804, 22, 23, "Print", CellTags->"Info3541310866-7153777"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[264568, 6873, 62, 1, 31, "Input"], Cell[264633, 6876, 70, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[264740, 6882, 206, 3, 31, "Input"], Cell[264949, 6887, 72, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[265058, 6893, 536, 11, 52, "Input"], Cell[265597, 6906, 13982, 396, 240, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[279616, 7307, 112, 2, 31, "Input"], Cell[279731, 7311, 123, 2, 42, "Print", CellTags->"Info3541310867-2699824"] }, Open ]], Cell[CellGroupData[{ Cell[279891, 7318, 598, 14, 52, "Input"], Cell[280492, 7334, 516, 11, 21, "Message"], Cell[281011, 7347, 494, 10, 24, "Message"], Cell[281508, 7359, 327, 9, 33, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[281872, 7373, 657, 17, 92, "Input"], Cell[282532, 7392, 517, 11, 21, "Message"], Cell[283052, 7405, 517, 11, 21, "Message"], Cell[283572, 7418, 16836, 482, 243, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[300445, 7905, 1505, 33, 152, "Input"], Cell[301953, 7940, 514, 11, 21, "Message"], Cell[302470, 7953, 516, 11, 21, "Message"], Cell[302989, 7966, 22282, 568, 243, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[325308, 8539, 713, 18, 112, "Input"], Cell[326024, 8559, 44392, 746, 240, "Output"] }, Open ]], Cell[370431, 9308, 879, 26, 106, "Text"], Cell[371313, 9336, 174, 3, 31, "Input"], Cell[CellGroupData[{ Cell[371512, 9343, 169, 3, 31, "Input"], Cell[371684, 9348, 114, 2, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[371835, 9355, 128, 2, 31, "Input"], Cell[371966, 9359, 1545, 45, 42, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[373548, 9409, 109, 2, 31, "Input"], Cell[373660, 9413, 70, 1, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[373767, 9419, 334, 8, 31, "Input"], Cell[374104, 9429, 325, 7, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[374466, 9441, 726, 20, 31, "Input"], Cell[375195, 9463, 30327, 517, 140, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[405559, 9985, 407, 11, 31, "Input"], Cell[405969, 9998, 811, 29, 58, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[406817, 10032, 1051, 27, 52, "Input"], Cell[407871, 10061, 29537, 494, 246, "Output"] }, Open ]], Cell[437423, 10558, 270, 8, 31, "Input"], Cell[437696, 10568, 231, 6, 31, "Input"], Cell[CellGroupData[{ Cell[437952, 10578, 320, 10, 31, "Input"], Cell[438275, 10590, 7607, 137, 254, "Output"] }, Open ]], Cell[445897, 10730, 210, 5, 31, "Input"], Cell[446110, 10737, 708, 14, 52, "Input"], Cell[446821, 10753, 675, 10, 512, "Input"], Cell[447499, 10765, 233, 6, 31, "Input"], Cell[CellGroupData[{ Cell[447757, 10775, 1000, 28, 132, "Input"], Cell[448760, 10805, 1510, 30, 240, "Output"] }, Open ]], Cell[450285, 10838, 189, 4, 31, "Input"], Cell[450477, 10844, 177, 4, 31, "Input"], Cell[CellGroupData[{ Cell[450679, 10852, 263, 6, 31, "Input"], Cell[450945, 10860, 192, 3, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[451174, 10868, 549, 15, 52, "Input"], Cell[451726, 10885, 17537, 293, 240, "Output"] }, Open ]] } ] *) (* End of internal cache information *)