(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 340700, 7924] NotebookOptionsPosition[ 333733, 7697] NotebookOutlinePosition[ 334161, 7716] CellTagsIndexPosition[ 334118, 7713] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Cap. 9", "Section", CellChangeTimes->{{3.7258575232534227`*^9, 3.72585752765137*^9}, 3.725860898519966*^9}], Cell[CellGroupData[{ Cell["Exerc\[IAcute]cio 9.9", "Subsection", CellChangeTimes->{{3.725860894577764*^9, 3.725860896631542*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"n", "=", "100"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["p", "0"], "=", "0.08"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"UCL", "=", "16.1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dist", "=", RowBox[{"BinomialDistribution", "[", RowBox[{"n", ",", SubscriptBox["p", "0"]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"probfalsealarm", "=", RowBox[{"1", "-", RowBox[{"CDF", "[", RowBox[{"dist", ",", "UCL"}], "]"}]}]}], " ", StyleBox[ RowBox[{"(*", " ", RowBox[{"because", " ", "LCL", " ", "is", " ", "equal", " ", "to", " ", RowBox[{"zero", "!"}]}], " ", "*)"}], "SmallText"]}], "\[IndentingNewLine]", RowBox[{"incontrolARL", "=", RowBox[{"1", "/", "probfalsealarm"}]}]}], "Input"], Cell[BoxData["0.0024091146363397486`"], "Output", CellChangeTimes->{3.530876062631672*^9, 3.725860900899122*^9, 3.725861205216838*^9}], Cell[BoxData["415.0902513793759`"], "Output", CellChangeTimes->{3.530876062631672*^9, 3.725860900899122*^9, 3.725861205226397*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ SubscriptBox["p", "1"], "=", "0.2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dist", "=", RowBox[{"BinomialDistribution", "[", RowBox[{"n", ",", SubscriptBox["p", "1"]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"probvalidsignal", "=", RowBox[{"1", "-", RowBox[{"CDF", "[", RowBox[{"dist", ",", "UCL"}], "]"}], " ", StyleBox[ RowBox[{"(*", " ", RowBox[{"because", " ", "LCL", " ", "is", " ", "equal", " ", "to", " ", RowBox[{"zero", "!"}]}], " ", "*)"}], "SmallText"]}]}]}], "Input"], Cell[BoxData["0.8076624154023988`"], "Output", CellChangeTimes->{3.530876065018416*^9, 3.7258609024395847`*^9, 3.725861205567335*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"dist", "=", RowBox[{"GeometricDistribution", "[", "probvalidsignal", "]"}]}], " ", ";"}], StyleBox[ RowBox[{"(*", " ", RowBox[{ StyleBox[ RowBox[{ "geometric", " ", "distribution", " ", "for", " ", "the", " ", "number", " ", "of", " ", "trials", " ", "before", " ", "the", " ", "first", " ", "success"}], GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[",", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[" ", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], RowBox[{ StyleBox["where", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[" ", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox["the", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[" ", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox["probability", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[" ", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox["of", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[" ", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox["success", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[" ", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox["in", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[" ", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox["a", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[" ", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox["trial", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[" ", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox["is", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[" ", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], FormBox[ StyleBox["p", "TI"], TraditionalForm]}]}], StyleBox[" ", GridBoxOptions->{GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], "*)"}], "SmallText"]}], "\[IndentingNewLine]", RowBox[{"CDF", "[", RowBox[{"dist", ",", RowBox[{"4", "-", "1"}]}], "]"}]}], "Input"], Cell[BoxData["0.998631462723679`"], "Output", CellChangeTimes->{3.530876066897806*^9, 3.725860904484806*^9, 3.7258612078969383`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Exerc\[IAcute]cio 9.10", "Subsection", CellChangeTimes->{{3.725860894577764*^9, 3.725860913199335*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"n", "=", "50"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["p", "0"], "=", "0.02"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"LCL", "=", RowBox[{"Max", "[", RowBox[{"0", ",", RowBox[{ RowBox[{"n", "\[Times]", SubscriptBox["p", "0"]}], "-", RowBox[{"3", "\[Times]", SqrtBox[ RowBox[{"n", "\[Times]", SubscriptBox["p", "0"], "\[Times]", RowBox[{"(", RowBox[{"1", "-", SubscriptBox["p", "0"]}], ")"}]}]]}]}]}], "]"}]}], " "}], "\[IndentingNewLine]", RowBox[{"CL", "=", RowBox[{"n", "\[Times]", SubscriptBox["p", "0"]}]}], "\[IndentingNewLine]", RowBox[{"UCL", "=", RowBox[{ RowBox[{"n", "\[Times]", SubscriptBox["p", "0"]}], "+", RowBox[{"3", "\[Times]", SqrtBox[ RowBox[{"n", "\[Times]", SubscriptBox["p", "0"], "\[Times]", RowBox[{"(", RowBox[{"1", "-", SubscriptBox["p", "0"]}], ")"}]}]]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["p", "1"], "=", "0.04"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dist", "=", RowBox[{"BinomialDistribution", "[", RowBox[{"n", ",", SubscriptBox["p", "1"]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"probvalidsignal", "=", RowBox[{"1", "-", RowBox[{"CDF", "[", RowBox[{"dist", ",", "UCL"}], "]"}]}]}], " ", StyleBox[ RowBox[{"(*", " ", RowBox[{"because", " ", "LCL", " ", "is", " ", "equal", " ", "to", " ", RowBox[{"zero", "!"}]}], " ", "*)"}], "SmallText"]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dist", "=", RowBox[{"GeometricDistribution", "[", "probvalidsignal", "]"}]}], " ", ";"}], StyleBox[ RowBox[{"(*", " ", RowBox[{ StyleBox[ RowBox[{ "geometric", " ", "distribution", " ", "for", " ", "the", " ", "number", " ", "of", " ", "trials", " ", "before", " ", "the", " ", "first", " ", "success"}], GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[",", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[" ", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], RowBox[{ StyleBox["where", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[" ", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox["the", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[" ", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox["probability", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[" ", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox["of", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[" ", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox["success", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[" ", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox["in", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[" ", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox["a", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[" ", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox["trial", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[" ", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox["is", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[" ", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], FormBox[ StyleBox["p", "TI"], TraditionalForm]}]}], StyleBox[" ", GridBoxOptions->{GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], "*)"}], "SmallText"]}], "\[IndentingNewLine]", RowBox[{"PDF", "[", RowBox[{"dist", ",", RowBox[{"1", "-", "1"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"PDF", "[", RowBox[{"dist", ",", RowBox[{"4", "-", "1"}]}], "]"}]}], "Input"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.530877991582472*^9, 3.725860919163122*^9, 3.725861210288253*^9}], Cell[BoxData["1.`"], "Output", CellChangeTimes->{3.530877991582472*^9, 3.725860919163122*^9, 3.725861210296916*^9}], Cell[BoxData["3.9698484809835`"], "Output", CellChangeTimes->{3.530877991582472*^9, 3.725860919163122*^9, 3.725861210303749*^9}], Cell[BoxData["0.1391307909676459`"], "Output", CellChangeTimes->{3.530877991582472*^9, 3.725860919163122*^9, 3.725861210310532*^9}], Cell[BoxData["0.1391307909676459`"], "Output", CellChangeTimes->{3.530877991582472*^9, 3.725860919163122*^9, 3.7258612103176537`*^9}], Cell[BoxData["0.08876357345489788`"], "Output", CellChangeTimes->{3.530877991582472*^9, 3.725860919163122*^9, 3.7258612103248796`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Exerc\[IAcute]cio 9.11", "Subsection", CellChangeTimes->{{3.725860894577764*^9, 3.725860926655052*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"n", "=", "100"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["p", "0"], "=", "0.079"}], ";"}], "\[IndentingNewLine]", RowBox[{"LCL", "=", RowBox[{"Max", "[", RowBox[{"0", ",", RowBox[{ RowBox[{"n", "\[Times]", SubscriptBox["p", "0"]}], "-", RowBox[{"3", "\[Times]", SqrtBox[ RowBox[{"n", "\[Times]", SubscriptBox["p", "0"], "\[Times]", RowBox[{"(", RowBox[{"1", "-", SubscriptBox["p", "0"]}], ")"}]}]]}]}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"CL", "=", RowBox[{"n", "\[Times]", SubscriptBox["p", "0"]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"UCL", "=", RowBox[{ RowBox[{"n", "\[Times]", SubscriptBox["p", "0"]}], "+", RowBox[{"3", "\[Times]", SqrtBox[ RowBox[{"n", "\[Times]", SubscriptBox["p", "0"], "\[Times]", RowBox[{"(", RowBox[{"1", "-", SubscriptBox["p", "0"]}], ")"}]}]]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"UCL", "=", "16"}], " ", RowBox[{"(*", " ", RowBox[{ "the", " ", "UCL", " ", "value", " ", "was", " ", "incorrectly", " ", "approximated", " ", "in", " ", "the", " ", "lecture", " ", "notes"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dist", "=", RowBox[{"BinomialDistribution", "[", RowBox[{"n", ",", SubscriptBox["p", "0"]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"probfalsealarm", "=", RowBox[{"1", "-", RowBox[{"CDF", "[", RowBox[{"dist", ",", "UCL"}], "]"}]}]}], " ", StyleBox[ RowBox[{"(*", " ", RowBox[{"because", " ", "LCL", " ", "is", " ", "equal", " ", "to", " ", RowBox[{"zero", "!"}]}], " ", "*)"}], "SmallText"]}], "\[IndentingNewLine]", RowBox[{"incontrolARL", "=", RowBox[{"1", "/", "probfalsealarm"}]}]}], "Input"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.530877997470036*^9, 3.72586093070444*^9, 3.725861220333885*^9}], Cell[BoxData["7.9`"], "Output", CellChangeTimes->{3.530877997470036*^9, 3.72586093070444*^9, 3.725861220343129*^9}], Cell[BoxData["16"], "Output", CellChangeTimes->{3.530877997470036*^9, 3.72586093070444*^9, 3.725861220350081*^9}], Cell[BoxData["0.0021117399907066847`"], "Output", CellChangeTimes->{3.530877997470036*^9, 3.72586093070444*^9, 3.7258612203568153`*^9}], Cell[BoxData["473.54314659985874`"], "Output", CellChangeTimes->{3.530877997470036*^9, 3.72586093070444*^9, 3.725861220365902*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ SubscriptBox["p", "1"], "=", "0.1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dist", "=", RowBox[{"BinomialDistribution", "[", RowBox[{"n", ",", SubscriptBox["p", "1"]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"probvalidsignal", "=", RowBox[{"1", "-", RowBox[{"CDF", "[", RowBox[{"dist", ",", "UCL"}], "]"}]}]}], " ", StyleBox[ RowBox[{"(*", " ", RowBox[{"because", " ", "LCL", " ", "is", " ", "equal", " ", "to", " ", RowBox[{"zero", "!"}]}], " ", "*)"}], "SmallText"]}], "\[IndentingNewLine]", RowBox[{"outofcontrolARL", "=", RowBox[{"1", "/", "probvalidsignal"}]}]}], "Input"], Cell[BoxData["0.020598810145300073`"], "Output", CellChangeTimes->{3.530877998501316*^9, 3.7258609347696743`*^9, 3.725861222145591*^9}], Cell[BoxData["48.5464933627812`"], "Output", CellChangeTimes->{3.530877998501316*^9, 3.7258609347696743`*^9, 3.725861222155326*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ SubscriptBox["p", "2"], "=", "0.05"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dist", "=", RowBox[{"BinomialDistribution", "[", RowBox[{"n", ",", SubscriptBox["p", "2"]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"probvalidsignal", "=", RowBox[{"1", "-", RowBox[{"CDF", "[", RowBox[{"dist", ",", "UCL"}], "]"}]}]}], " ", StyleBox[ RowBox[{"(*", " ", RowBox[{"because", " ", "LCL", " ", "is", " ", "equal", " ", "to", " ", RowBox[{"zero", "!"}]}], " ", "*)"}], "SmallText"]}], "\[IndentingNewLine]", RowBox[{"outofcontrolARL", "=", RowBox[{"1", "/", "probvalidsignal"}]}]}], "Input"], Cell[BoxData["9.429030653707038`*^-6"], "Output", CellChangeTimes->{3.530877999416304*^9, 3.725860938095492*^9, 3.725861223761973*^9}], Cell[BoxData["106055.44055653785`"], "Output", CellChangeTimes->{3.530877999416304*^9, 3.725860938095492*^9, 3.725861223771096*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"\[Xi]", "[", "\[Delta]_", "]"}], "=", RowBox[{"1", "-", RowBox[{"CDF", "[", RowBox[{ RowBox[{"BinomialDistribution", "[", RowBox[{"n", ",", RowBox[{ SubscriptBox["p", "0"], "+", "\[Delta]"}]}], "]"}], ",", "UCL"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Log", "[", FractionBox["1", RowBox[{"\[Xi]", "[", "\[Delta]", "]"}]], "]"}], ",", RowBox[{"{", RowBox[{"\[Delta]", ",", RowBox[{ RowBox[{"-", SubscriptBox["p", "0"]}], "+", "0.01"}], ",", RowBox[{"1", "-", SubscriptBox["p", "0"], "-", "0.01"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Log", "[", FractionBox["1", RowBox[{"\[Xi]", "[", "\[Delta]", "]"}]], "]"}], ",", RowBox[{"{", RowBox[{"\[Delta]", ",", "0", ",", RowBox[{ SubscriptBox["p", "1"], "-", SubscriptBox["p", "0"]}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Log", "[", FractionBox["1", RowBox[{"\[Xi]", "[", "\[Delta]", "]"}]], "]"}], ",", RowBox[{"{", RowBox[{"\[Delta]", ",", RowBox[{ SubscriptBox["p", "2"], "-", SubscriptBox["p", "0"]}], ",", RowBox[{ SubscriptBox["p", "1"], "-", SubscriptBox["p", "0"]}]}], "}"}]}], "]"}]}], "Input"], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJxF13c4lf//OHCVhoqSkpZZdlRmcr+eQmWFklH2CEmJkKKEoiiUkbKirJKk kL1HiMM5jrNsWSl7ZJ3f4ff9vJ0/7nM9rud6ve77ul7XffNZOV28up6JiSmT cVn5P/F18HBFdBZczXEa/7dpHPpH9JB+URZUuA3169aMgf2Zhsc1V78CPkb0 2QGxUfDQLWhsvfcVtt2UPy7W/ReeGH/Y2xfyFYYn+UOqX/2FNOcnaUz5X0G/ Wtc6dtNfGI5V/XmS7Rt0Lixz5wyPwI2Zwt3pOd+go+D5uZH6YXiwLt00v/4b /Ms3EDANHIbg7dHJtV3f4MORyJbz6sOQwX9X/tfWbJg/1d74sXYIxrRlTLjN s+H4t2bLsz8HwSXl07vQzTmwvl3hyeU//XDHKO6Em1EudIhKvlB41Atm7NYy +xxzYZz/7tu8S72gWickX+SdCzwXuxQijvTCLsUv2MaUXEjnxW2yqO2BdJ5K tYjpXAhuONQos6sHuvqHzLJffocx41xZl5wuqI7PsLyc/B2+fl0suP+sCz4Z 3bZZyvsOJnl7yO1WXXCvbvHame7vIJWX+uf1zi7YnbHDrVUyDzhL2k8OdnaA mptM0HRDHpwvESt77kkDCYn556+78iDiY+RC1XEa7BkoDsWm8uCG3rR51CAV eozUIh8fyAdFDsv1W4yo4KVonLDHIR/kcnXM/mEUyNzgkyuzuQC0J8Zfmxwh wb6XDb1upwuhQaCSssOEADHXF9nKDQph4KvZR14eAvCeEVdgcyyErVr3T1T3 4EFwLig0ObIQZJu+Q/11PEibaWJtvwvhlMi90LePWkBbtC5SPrIIRs/dU47A 4aBlw3zZo49FYGj33PBODA7020X+4EqLILqbsKXDHgcmoU9Vrv0uAs9Sc1OZ DTi4NqM29lqpGBKZND90ezbCo/Ia9YXhYpgKD9j/PKIeNsfMup5jKgEvn7Ff dMV6CHQTehu2pwRy+HaUmf6qgxfCATNiSiVwl9/RGi9fB3HBZ9+ZRJRABqvR 9O3hWjD5ZLXcwVMKsoad7Uvu1XDnbrehUl0pfK1/wawoUg6HMRuN44RSsHSp JRH+lgGOaUCRv6MUJg4HWWzLLgPRJyN8zBOloBv5xk1LpQw6Imd/1+wrg4Pv De8u2JaC6jfWhzrXyiBCZavSWFgRjN8JdVG6XQZHH2pSPx0vgrhTHFeP3y+D Hced4rxxhTBbzqXB8aIMOJ3bThqwF8KHZoHdbd/LYEt2THlwfD7sHD2Zaral HIaCdTQlR3KhKKvwjc6ucoCk6osH3+SCgzs8VzpYDqnFv6z+qeVCxZKqC/+x crhn2bDeMy0H3LfrKvYblkP4F57vFm7ZQBOxxd1IKYd3zcGjvbJf4emfwXKz L+VwxLytt3UiC2S/XM/WKSiH2KCc7sjPWRAi7/zmeFM53Ga9K/RALAuUz3nZ TM+Uw8HCR1Ufxb9Ams3LOa+zFSDLGhmUl5QB27GblFO6FVDg6VLeL5cBt/Zo FM5froBXecYB9vWfQL563UOPGxUwEuF0y2QmHaqFnDe7hleARnLi3zTjj9A3 rMN5vacCPlX2uu2wTAW1CrE5kZEKUBl+Yb1+cyp8jN5MGZyugB7HIcW9GSng olUSa8tSCaL/2Bve0JNhXYbEEatjlTBpI3I693MScDuzSl9+UAmvm/f5VJ9+ B77qQ3u4nlQC90UjhwdzifCLr2qW+KIS8nOu7hfLTIT0Fq+CS0mVIH2X9bQR fyKckh5R1m2ohB2iKX++syeA0WzdhXP7q8Bsnf9SkXQcFDYlS206XAWGkQVM 1sWxwJvqu6fqaBWox04SE9RjYcBIgax8ugqWBxtcKDYx4J6fZoHsq4A1Q7sl 99MbCLv/xEkmpwpOvVeqPPv4FZztf321trQKJDg+nnHmfgVz2h+NjeurIOvC 5SqxvEgw4W0859NVBVteDxxTnIyAwxUcvD+3VsMf7ex32N1wIIod4bTYUw1L QQnJV7jD4Um47PZJnmrItHRq66wMg5Grl+e4ZKrhx3uNuh2cYfBtSzzOxrwa bl/ga/erfQG2zpnVs9eqAQj2neYeL4CLUlYY6FoN1yLcTL1FXoDXx77UzKfV kG22//KdkFBQ1Rb1WfxaDU+3Fd5MwQcDISz7ePiWGjA6dtNaOy0Q/BerhYQ4 akDzhkxJ8NFAkL9KOpR/qAZqjQ93EL4+hRjZBZauEzWwq2yCV7/6CdiQlXrE TGvAkCXC03R9AHAqXyQV29VAzHjg/g2R/lD7wbrxgksNzE4c3eMu5g/iXv75 dwJqYGtR7K0048cwzd3wsuJLDRzssbIKwflBakD7E4PCGmBWV5gYdPaDK2N/ HwxV18BXYvpj2m4/KC5jv76DVgNyBaR7d819wd/GUMV4Uy3k9eSz/trkA5wf eiYnrtSClTYrz2Gp+/B1qKMaZ1ML+O4HygqfvEBXhPo642YtxIzuc3go4gWB qXhw8K2Fs52cj72EPYGeXBnUnVYL9ZppQYZwF2L6S81KvtaCy66Y0p11HqAg WHQ8tqgWZISqJgsMPMA1KbvNqLkWxLW09ta73YHBd8kCuDlGv96BdOY6N3jc mzjzaf0PcFX6G/DY2g34BeJ/BG3/AQrVozKly65gkvjK6RzvD2gibo5WU3CF 5rdPCorP/YAsxaoj45UukB/roPcp8gfssYtjURa4BYbttoJBb38Av++Qet8H J5g6aP3P/sMP2MstdX6W3QkkYozjDxf/gLJzz8lbB2/Auzdav6N//QCxuqmO iqzroERRK747+gN2s91RjxC7Dh37zrww/PcDqM8c7GqSHYDrNSbHwVoHVk+R utD7a/DslYRfoHQdiNB+VTXl2YFIm6iBPaoDwe6PC/GqdlDNKSRyVq0OZPb5 GgQ028K6SJ6mdSZ1sCNBZ8/d8avgHr7zwF2/OuB+0B+3rGYD5i8msuxaGOf+ B535BB1L0LA8/GZfex2Qq6YC8WMWIHvcwKd+oA7OVeYKDoRZAFtzno7kUh00 OF2JECgxh8KdPiMzQvWw6drM311cppDalYVPPVEPEhEzYsXuJhCW2Zd/BasH kj/vhzSSMTjoqj0tvlgPW88o32ROvgJcoTsE/e/Xg3zj4oTYVSNgtjjNKv+k HpzqR7QUaIYwKnl7auhlPRQeOn1yj4EhVDcRy8+n1kM5R63ZwgUDcN0RZ74H Xw+R/2xVea5dAlyw+Ov3wg0wNfJcQWTrBSg0M3toINUAQyd1+yVSdSFFItRu C2oAU7xKqoqaLjxonJRx1GuAdOx6Yu9BHRBnK2iRetAAfM9TDWOstYCrYyTv 15MGqFXpvOlcrAkbMrgTXoU1gPq3kiP1BzWBct7XaSG1AWKqzv+p6lWHp8/V t1fgG2CQmTNoMeocuJp6Trp2NID+iAkzF9s5sDj6iSI41ACxn37OnPA/C/I/ d6YFLjeA3mjnKVHvM9C/nXTmoshPyNfZoej7UgVaaCxHmaV/Qoaal+vCIRUo Sj+1Owf9hK3igRvXpStDuFZ8z75LP+GqP7uPV9NpUH5m69394CfgBV56NJ9Q gr5b4/qWT39ClNZczd5kgAB9L/HusJ8Qzx1+KHcYQQP3S3JX6k+wct1tz/MQ A/0vRVJdLT/hhvPcRT2yAsxFqG21aP8JLC5X9hPlFeDNPXxX5wBjPUJ8b7uj T0KHytDzzsWf4JehxKTuKA/2xN2DHYKNMN3pMW4rLQtbC+KLzY43Qv7fpE2n MmTgU7xoRMepRvhD+1u7XUwGJuyVlDt0GyHgyvCva0elwWvhekz7vUZQMrsn Z653Ari7ZlxMHzfCYQlf+du9x6Gs0ke9PaQREhR1U1ndj8Om4FcztPeNcFEg 1z8+8RiE8Fbo0hobYeE8i22YpASc2KgtZEJuhD1MLPYqbkeBMERaovY2wjCL gb50iThwff37gTrXCDuk8uS8zMUg8cz+jVT+JtBUl9KVbhIGVdEk6pWjTRDQ 1PfMQ1oYBtiOZVHkmqDwkmK5TqwQiJPOmFO0miDj4mte+7uCkOPgnEd2b4JN ZlotRy8fBiOdxZDLPk1wpUifa4okAAtSAbbkoCZw31pummcsAEpLMRzkt03w IoGduHSNH36E1N4g1TWBREvTwMcUXnB01VM1am0Ci8MDnEkYL7Bd7thP6mRY yuMW4+UZLvJP1bRNNYHTr6j1ZQe54SZlx4vrO3Cw3a/L8YjMAZD5XjesuxsH nf0TQHqxHxYjHqvK7sMB+VLMPcmJffD0wsIskwAOIn82ctwv4oL3tf1mkbI4 eE3sdQvw4oTryQnfPU/hoO/aCdPzU3vgxCOTXZZKOCipmRY44rQHSqClSkwD B5XnsKKaG7uBklMkXmaKg/SrYLXv+S5ICPfwT7bCQa2JGG/6gV1g7yLVFWSH g/VyOwfw6ewwfTQtzMAZB7TKxN9pxJ2wMyl8/vcjHKhn2An1P2eDNl+dS81P cXDvWvBLs2ZWiLPYmpETjIPflQSc+D5WEDv40NInCgfOuC9vHLK3wdmw67Wc 6Tg43O197tchFmB1FuRfzMTB3Na2aF+fLUDQ7vbszsaB8lRcftngZrDcaiiZ XoIDoUiLTnzZJsZ7sXLkaTwOlF76FByOYQYV86VRQRIOmr9tPPdhPzNsxb6r b2/HwdmXXqdOxmyAV3NHl4j9OHjK99VHInU9ZDnts3Gcx4HxMc3Lqd1McPc8 oegCHQd332+xTHVnAiWxkL1yzM2A2WzkOc7GBD/7mevXsTXDmdRx7TNPl9Gg 6djxV3zNUOR7JJIpegF9PvUxyEuwGew4T2l5Dc8j9322vyzFmuHycwOfY2ge MbdSo8RlmoGQcfVt1/gc4tGqoZepNQP7SJMwLmAGbZ+IsWbXboZZ5QTjK8PT aP6VS42FXjMEFI+Prb8wjYi9h0Lops1wW+MS7qzoFAr2dOXGbjeD2AamA10s E8iLT8P3mUczDNgaR8UHjiOHGp5+6n3GPANifwHbODrLUf/p3pNmeHygs+Ab 7xha/sCHfY9l5FeFDDe1jKAR3dm3m981w1D79x8RG0cQZaaB2TC1GTgctBdb sd8oR9mjYTqrGTxTpPXkiofQTUqjsVRtMyx0eRbXzfcjk4fvS3x/NoNwfmVv mn4/0hC8J9DS0gxW36WTFr/9QoIuR37fam8Gv7N/tJ487EMdLF73Miaa4YWp dYKEWg9q+HyhY2m2GfRvTlCjK7pRvr6Q8vmlZshiT9+VpNyNIhNaWEY2t8AM 5x+8mGYX0j4p8lrkUAtsPvAm6sDmdqTYubzowd8CT327HL6eoCHRxwSLWqEW uOYky8NvQ0Wbmr2F7U60QF4IV8tAGxkV2RNz359rgU+ibN820InoA1v6gSmt FjgWa5ujoE9EUd98vFUuMvpP75ATzmxFrkxHz/WYtIDC0H6JlNsEJB7lR+Rx aYH5uZnvfUdb0H50WcHpTgsULt70uZvcjLb0ScQVe7VAwe2Rn2T+ZtQnSblq GtACe/u3SkUI4lBMzbHpNzEt8Nv4ylRgRgNiInvWhCS0QPyreoror3pkPVz9 +lEyY71XBk4c4qtHoqym6GZmC4gL61GdUn+g7xefBpyubAG+QqRycrwaHbQh XJb90QIdlr3NLdrVyNuNR1yssQVKFbR/lGZWobNR2bjdpBZ4dkFXQMSnEhHa u/cN/m4BYgkL7tSFciQ/Kj5CG2sBpVa/Dr/GMhTN5FHcPN0CcpXLXTo6ZchK gM26gN4CkKCqvde4FI3ZK6QHc+CBd8ry4NzxInTp3uMHflx4cCsveT1qXohy g3C6HofwYHSiL+p1WAF6kGE7bSmEhy2BM703tuWj7VMvkcwpPLD0928XOZmL bm3s2CmqhAfNxOqNJaE5CM8p0st9Bg97oxIfjY1kozcnSwK26OCBS+tZ2oes b0jY+zeOaoUHvWv8N8/eykLPQmXf4ezwgBN6n39/6AsaTfBxq3LEg+rp4G03 bL+gnMq9+z+74+F3sofMjuuZSHWrqrVvIB4C7d+4BZ78hFIPhMjcCcGDZfCd TXJW6WjbUcpmx3A8rItO0e8O/YhadG6l68fhgdZ79UcQPQ1ZRMRMC2fh4YpV Nf3foRRUmTxQcygXD7bkoWJtl2Qk9P3Em12FeLDToPu51iehv5RatFiFhyFu o1cZQe/Rfd7pgCYyHs7wfXdzVEpEW+av2Eh04kFtSggi0hPQS3yp0vM+PLCa V4+qHkpAqf7P/mmM4iH2kjL7l21v0QmLida0KTxUfHzRbrgrHhWdNMraMo+H kFrz5Ut74lDLiMD1amYCVLw5JHb7RAwyrX567shWAmwwpFryaEWjwfhRgUc7 CPBELefUkOMbtHSxgHZ6PwGG7h7gXi6PQsJ5F7WLJAlwo2v6SnRBBPr68rvo QRkCZJJcxl9tiUDIkXuzpwIB3A5L9wobhyM9nuES+TME2Hi4ZZ/pzjDUMacT 80qDAHceuXFkuLxE9i3ZHjM6BFCMEi37S36BHjz2Of7tCgEy9u5xTckJRSzm A6wcFgRAOU2GRLFQFC5/ftj5KgG29jfIV2mEoLTfXO8kbxFAms1qlEvjOSJc yNz98TEBzjpaFhkmP0XmYpzjLEEE+Njhn/e06QkaZvb6aR9KAE2TdZQgegCi 557zF4wmwFWWhyLit/1R4ItPVo/fEmDXfhZ2m5zHaPd1DuhLIsD5pTH3ePoj JMrdOZuQSQC841Unm3d+KHtWlcCUQ4CkMjf9sCVfpNT8IdO8gAAz9x21dpr6 Iv1H7tcOVRNg6nHY8/NiPujhMCs1ikqAM4vt9F3rHqBtlbdzZ7sIsI0pOy5l 3X0UGUsOM+gnQHLyDZl7W73QR90krd3jBNjiGpSBl7qHZEW3idyeIYDdgalU mt5dVLrBeWPLAgFuO5z5IuTpgYg5isUhm1oZ3xcpD2M63JFFaOKbv9taoTKr 4I/Bfnf0+9qWO+fZW6EhuijG1cQNMR0iSG472ApqoqGirJO3kZjf9QT/463g yfoM3bJxRrsG7rs1yLYCz2ZR7VTcLTSnEaq+S7EVfFqL2t6dvoUqd2WPx55t Bf/pl+oxVjfRB/eaql7NVpBbeHTR3vwGCqWQX4tcaIUCEzuRKBtHZJK4fDrb uBUe8Kz7uTfAASlvYudcsGiFZp388f5315Cwg8Cwkm0r7PGyc+CqtUfTx9Ve NtxqhZnGt/TsI3YouOxFT+/jVkikJ/jUSNog1yPvc0SCWkGKnQ0X4GONrjzN CXQKbQUX9ttjSyQrJHiBemLhTSvIpomc0YuyRNuz/2w6/bYVNHZ7/STTLdAE FxPVP6kVtnP+KLJxtEAlXYf9dmW2ArqfqlSXYoaSVeUMjbJbgWmn4BeuWFP0 LFVdLC6fcT+No3/JRpsgo1s38SJVreCs6PSyIvMKGqPnCpymtILCkR9yJScN EdG6bta/sxVe1bAfO3jTABXW0Oob+lohKVI/9XSaPnoSss7VaLQVbP41KW2W uoRuTnKoxU21QjTPZn1FHz10yVDwYN+/VjgZpfDJuvUi4uPRrHRiJoKD6yvW quALaIufaVQ2CxH2qJW1vp3URX/7nRwX2IiM96RB/SxTXZSfEb47YB8RasxN K8N8tNFF1GETJ8HIv6FcVeClgeQTx+T7pIigb+WS1Bmqjrg3bWAVPUkEiQPx j+npamj4p1B2tgoR4jNHi4QXzyLccYWnC2pE+DXGMfNF4izKidAyPa1NhOeF Msuy9meQn6nzxp9GRNCLdhHUGFVBDmV+5F1mRDCYf95op6iCdI9EfjKyJkKv Vwp6G6KMDv7J1++7QQRTh9bisHOn0Tcv5uQFXyI44uDvwzEM7dR6NtgfQITt /SYZ7ycVkeOB3WItz4jwlttjeWD5FBLIF8hMjSSCtVNacb24Anrw9ONEWDTD xSVsY9onEcVISsb7LRGE4ggdpzzk0ctZ5Xz9D4z7cX2+8WqnLPpbXbeo9JkI U37bzIkHZZF65EUQ/0aEfJ8D9JcWMohJxqpyfTFjva7ydMF5KeTk4tP4uZkI A3/sOp/dOo7qTrOwRxOJ0DfqTD9MPYYE2V/o+VOJYKLpqROjcQx1fH5LMvlF hARnLm9OJwmk4C18QG2YCOaFQiU3rx1FEdqZplKjRKjcLAuGjuJI609JD8s/ Ipzp1vGuCBRFqYXnjkwvEUHyuTGUJ4kg5mdNdl3r2+Cxm2382VphVCDaOZKz vQ2kj97jGeEXQqL2yzPWvG3g5fDG3Eb4MPKX8z+pc6QNho4ngOJdAdSzic1L QbQN/vin0Dub+NHrpEPr2KXbYOdsVmfDcz405ZqksijfBh95vtPzp3iRrupR /wGsDQbHCr2LLXjRll7FbcXn2sD3XBAUBXMjm6zK82labWDNEwYGfodQqY9W aPiFNphxfkMnPTyI7vCa7Llu3AZv0lJK3CL2o35TTx4upzbolSkq8T20Fykf 3WC1wbUNGvLLvBsvcKK4xcD3fz3awGSiij72bA/Sj34jUuXbxvgu/+ndxrkb ZTrwO2YGMObN47wlrnKg7QofMqKftYG9OAF883ahSlKelEtkG2iNkksMb7Mj 3tTT7qbRbSAXQCu5S9qJPO/8+K72tg1uTnSUkJR3ohOcZIznQxuMxFR7nzrP hhL05s41FLUB2w8C/bnmVnT495twvoo28F5qo/OfZ0HJvli3e20b1E9TvPcb bUHpX3zv8eHbYK9Klzf5ySYkqX6kxp3UBt3xPfSlTxtRVlcNR0N7G4jh+uiK VGb0fQfrJ/fBNpjNHfTu1tqATqV8/lf/pw2U3Ya980LXo2J08SzfZBuksY/Q Q6jrUOWNV531S21wavwvXe4xE8LV8+3i4yBB85YBeq3KIqZnXWnmzkWC9qFB +hGJBYw4b/ux/hAJuFOG6UP88xhNJF3VXZgEL0r/0A+LzmHmZdov6o+SwINv lN57ahbrMRpv55UiwUb7MforgxlsIED2Tj1GgvRPE/SIpCnMgYdcwatCAuXM SToiT2IjOZ473dVI4BY/RY/fPYlN/CpN49UjgYH6DP1qwji2rKJJc7MnAStl nG6+9y/mQ/0jXH+DBNl/J+h6v0cw5tuhbry3GfP/TtK/1P3Gtia2stXfJ8HN 7Gn6UtoQ9vykhzGvHwmuec/QedIGsZ3N+1PdnpBgt8IsnT1rANvDZHGaN4wE 84/n6OOdv7CoV+uD3aJIoLTvH12S+Re2XzKJUhdLgosJ/+jkY30Yr9nwbbdU EgiGzdNlEnsw8ULX5LoiEozwz9GpeZ3YZ729kzwVJJgpnqMXeHRgJ37ngVst Cbbo/KNvVm3H5PfTSTx4ElC15+mzSxSs4EvCETcSCeRK5+klv8kYUld1qWsn AUV4gS7UR8JUPZ5ucxskQUjPAl1zkojV7BA3qvvDeF7Si3RgIWIaKY3veSZJ 8P3hIl1PuBXTJXKguiUSmG5eot9+iMeMpeNu8XCQwZ26RH8XgsMuyeWI7eci Q9bmRbpQdxOmpdDYv/sQGaIuLtI/ZzRiikrLJluFyGBLWqTvvd6ASatwcm0U JwP77iW65OV67OhZCTz9GBnMNZfo5hfqMG4tM/VpBTIczliiB5jVYpw67sxj QAZRyhK9zaUG23ExuGRYlQwz65fpbSHVGJNRsUyXNhl+aC7TS3oqsR5rbv56 KzKMlizTR3vLMIqtbHuVHRnwbcv0zzJlGP6adlSpIxkm/zDiz0uxSqcHbDnu ZGgVXaZ3JhRjhS6RPzI9yTB3fpnu7V6EZbtlPPr4kAw+N5fpOgaFWLJnx/zb QDL4pjLyZfKxuAcz2dEhZLhYvkxvks7DXvmwOUeGk0Geskw3x75jTwLQQFAc GX4y0+k7HHIwh7A4vHsWGbzV6HQd4a+YVWROsHMuGSwN6HSe61mY8etGdcdC MihYM/Kzv2Ba8cslltVk2HePTjc3zcRUEzk9TerJ8GQLw+6fMSxJQtYQRwb9 AwyjDEzio1m6FoUxT5Hh8Y+YYIa73blOMnzUpNO9qR8wni/B/Mp9ZLh+mU4H XBq2M7c4Su4vGbqd6fSSthRsvJz7Mf96CryPYsT132PDVbJKhzZT4OVbOj3+ 6Tusp1Z7Ye92CvxKodM7qxKxlsYHzqycFPj9jdH/UgJW1xwpvuUABbLyGfOT 32IVhIyB9bwU2PWQ0X8pHvtG6TCdE6HA1jBGf/9YLL19hmtSggKu0Yx6kxgs qYuN8EeKAvLvGEbRWCTjk7wXo8CmL4x6/teYx0ScbOMFCrRUM+qtI7AGb+uh zwYUkKxnODgc42UVjnlhzKhvYrgsDKsV+rJO/yoFbIiMevQSO5jt9k3WgQJh ZEb/Jy+wW8oKdlxOFHhEY+STQ7G9phUNVA8KeFfQ6fSDIZjDcIB30X0KHKll uO85VnxH60S8LwVuNTD8/Rlm+7L1ldUzCuwkMPr5BWI5NQNWQ/EU4OtixMP9 sa366Xvq31MgqofhzMeYWc+t2vQ0CnT0Mdz6CNu09O/ora8UGBxkWN4PuxJY 3HXhOwW+DjPs5otl7PULkyqiwJURhvN9MP0T2//NVFNAfZQx78pDLLUE95FU T4Gj3Yy4nTe2qBVhlo9j7K+XYeEH2Hs77sr7FAq0DjDc6IlNxRwLYf5LgWd/ GU64g6mJTp/un6DAMKMf/bM7FpObN1Uzy+g3znCNG6baonwlaB0Vrk0yzO6K RZlvZr2xiQp2Uwyr3MZGRupLtLdRQXea4fsuWNhm/SO79lDhzwzDLM5Yf/g+ 0uQ+KiTNMnz5FqbA3xHYyk2F6DGGrZ2wHkW7sShhKkxMMDzgiJ1wuVvAo0iF 2JV6H3vMn47dXHeaCiYr9X52GOXZer7eM1TYPsdwiC3mmxLkn6xDBeV/DFfZ YERp3ZNPLlGhfsV/rDHR8t0j1y5TQWOe4UPWWAst9sJRayqILjD8yhITdLBi 3mFPhecr7rTA7s0K5o45UmFwxZIWGP+uzIPf3Kmwa6VfjSnmfK58QCGQCttW 45exkZiE9/4hVPBYMYcRZj/x0LIlnAodK6YbYGaxQL0WT4XgxRVfwsgT3FHZ 76lAXfGOS9glteVL6z5QgW+JYTE9TGOysDHqG2P/K/a8gFWpxQT15VGhZcVf dTGlOE+1YyVU2LRSP6CDyaorlNf8oELminnOY1/i9nlzNFFhfsVNmpj41Nwp cwIV0Ep9iAbGH5+bPdNBhewVy6lhsVORLsp9VBhaMc85jEvDXTJ4iApcywzv PYuxTUunHZmiwvUV86hiTzV22zr/o0LIiuVUMOa3k/xFy4z5KzZUxhY0smIu sdBgcMW5Spj72xeX37LRYP2KRwGbmL7FOcJBA8kVeyNs8K1kqB83DbxXXHIK s55hO98kQIOE1bgC1qH5l+WACA1KV6xzEiPMpPtlSdFgbsV0WUxH65nSsjwN 2FZIl8HqEq4vqSMaHF61NHZmViM/QoUG8quWwkq1RO90q9FAY4U7pLBTiSzS R7VpYLxiyRNYzuzgmIceDa6t2Pw49ikxxWGnGQ02rTheEhOe8xcysabBoRXz SGDvz9v2pdjT4PiKS8SxN3OHzeA2DfRX46LYHm3mA0EeNLBZnS+Mhb7rbSPe p4HzCjuFsG3/ysP5/Rj7X60XxPy1Ey/cfEKDoNV5R7B1733Y8p/TIHLVhzGv fxb1G8NoELeaL4DNais9uRBFg9RV82Mu73nOxMbSIHO1Px/259/yuqFEGuSu rocPs9fpKJZOpUHxioEX631f5PnwEw2erK6PGzObj5FvyKJB2Aq9D2FkHa/p vd9pELOafxC7lGScZV1Eg6TV/P2Yhu5+8YUaGmSv5nNhcsmveETbafBzNX83 Jmw3onGghwYtq+bAuIRPu28foEHrav4ujGUoImHpNw0oq2bH5tOGG/6O0aB9 dT87sWEHmOucZjz/1Xk7MKpYuEDzPA0qV82GNYwMapfTaVC3Ws+KFX7C7n1l boem1fg27NPNl0nvWdr//3z6VixOcgAXwdYObav5LFjw2KlFf472/5u/BfP+ EirkwdX+/+d7b8Zuufy6eO1QO3StehNmIaXw4Ap/O/SueiN2YSo4TVOoHfpX zYwpZ/cSFMXbYXDVGzABuediPLLtMLI6fx3GnCfru06pHUZX40zY9N2gTxOq 7dCzGl9W7FfoIvWqt0PfqpcUiQvSzK3a/9ePvqBYU/hUslqvHYZWPa+YiqT8 U03/139OMbCURgu0+7/+9BnF68r+Ujec22Fi1VOKWpWSgTqe7TC96gnFo2fJ Xccft8PsqscU2Wp95XaHtMPYqkcVx9TFg2ei2mFq1b8Vm+tb+0iJ/6sfUsw6 732qIP1/9QOK4U3CL2Nz2mFu1b8U3S60DHqXtsP8qnsVDfCeYFXXDqvHI71b 8Ww4zkGvac1y+kciVQn/q+9U5GprHBHsWPO8kYcKy+D/+lEVqRS+N7/H22H1 eKW3KcZ1uJ7L3NgBS6vGK1r01Ey57uv4v3iTYuhUsrnY4TWXbvKv65ZYM4+Y 6ltt1Q5YPV7oNYqy3762pqmvWRsT2LZRZ80PdNa7F1z+n0sUO26Xago7rZnN Pz6n4+6asagHfBGP1hxTqDi77k0HrJL+WdF4Y14itXLN+7VltLNH10yK/PIv eH/nfzYQ/qCrfKsTmP7v9+NU9f1HbmtW1On5UH1vzQLu+zdqPl7zWEVgnt6b NQeZX+e/WrlmC03OeZXtXf853Let3tZizZ/NN6MrS2vOPB06GZzS/Z+tX1bf cT7b858fSQSPn+hZc1BTRoZMUO9/Vu30UugX7vvPvZPvWEj4NUvf8Ui5c/vX f54806Ews6P/P0fti2XPyVvzqDFLroDRwH8Wf9cY37Jh8D+3yRx5YJG+Zmk5 EbEY9aH/fAfzP7Bvas2OWaEUlbDh/9zkIh5yXvL3f+aS5wuIIq2Zw7Hi/Av3 kbXnUaKacfHumm13VbPt9lpz/vfapkifNVtubLwQ82zNn+NI+imJa9Zs/mNa 1Lhm18NOxQ+a1xx3Z4xbibDmiUOTneXkNb92mLOs7VvzwIYNtvj5Ne80fFQd vrRmhQ8bhQyY/vznYN0tg6SNa5aJZXXo2Llms7HguniONT9R2Slmyblm2tCu kd4Da96EhWslca/5WOieT7Z8a77SG8kqfHjNfrJcN4cE1/z/ABez7ZA= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None}, PlotRange->{{-0.069, 0.911}, {0., 1.0642032080753776`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.5308780009371347`*^9, 3.725860940297573*^9, 3.725861226135878*^9}], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwVxXk41HkcAOBZ00rNmu+MGeY3kuIZ0rGt2k3F8vkoZnWYSmLT9LRG6dhy H6XxlCtaR+P4uRuWUZGjyK7IWkda8dB6ULS5OpZIpkfSCrv7x/u8RjJvp2Ma DAbD8T//75WybWW4/5x12Ib3NXoqCs/LDcO1Fz21KTV7w7DIp3DaSj+rkzlm 8yBd4Xggj8KKZemrKpmzNlpXn8wl51KYxHp85hqTBYnio9XcqxSGRUxzcpjL IOiucT47lcJzcEmWxVwLbQyNDewYCgOXS2IzmFYQqri8TnSawiGqPtzPdDf4 jyg5muYUfjec2uEy6gy5u033ecwIUHNSt33F1UPAixyzkDQIcMGWPbDG1x0M 0njXTGMEKP3m1fqb3UfB79md/W5OAuweDfswFH4CwKPXSkEJcNus7dkJw9Pw sTDE3XVQD7mVPXsH5d5gkf2K6Vash/Ppgn1Nib6wqndWHBygh/lrS01YYn+4 /YxZVYd6uH3cpeeeOgCKanc2nmXroU+Ce2NLfRAM+O/K8niii+2RLtIWv7Mw znZzll7TxWppyQaRQwh85TM4leGji7kyveejfDmoDGIqdn2ri7/eO4l5DaFg VpwpmWDponTGsK8y5QK8raw6Nv6Yj0K7AdKffxGiV3/wa7vOx9ZPA48SroSB pa/QTj+AjyFtowtTQeFQZxyd12bLR9vmkcguSQRk2LfvsOfxseMWdWNoSyS8 1K5yth3iYeB9a6MTvChwKu7zfV/OQ6H6Ry3VaBSsvplQpI7iYYR2a7x25yWo W+z1OOoADzWdV5ycLIoGoUwzuMqMh3tjVcOM1BjIZvHnkmd0MK1348Nm+WXo Y1ipq1t0cHrfL4s1nX+CuD3/vPZU6qBBzannftaxEO3rPtThrYNuEr7uQUEc bOkWddyy08HUmeY7U+NxkOmgXNqor4PpyUXvarvi4f2L2B8K3nCx4vuIS4yS BBA6zgtGGrlIs+OrfNKugNl2h8KlaVx0+GC/8sutCugtU+uHneFi07sdWXKV ApI27Wg0sOeiytPz5TCVCIrWPlWRkIsK79C+qKhEMDq+vTVQzcGByWIlzCZC e4GN47ZmDpbMDQq7vJLgoVaZaHM2B6NzCBb0JUGGo+UfToEcbLrrsil+TzIY R+Q2hO3iIPtkevfte8lgG2yz0CriYE9+/7rbq1LgqVbOlGSeoIar9f4HWSkw UaJ8KikhaJmTKtLXosHkzfGQQzKCM/YhXXNLaNDP0DBnuxOsHD8cOcSioWDs lvr3IwTNLU1e3CA01JSLM0wPEzTprsjfLKAhguw8986VIIf1p/EBUxpkDjvl cY4E/w5iGSnsaFCaLYpt2UJQtfztI38xDR9TNjaEbiYoa+q86OpAQ7+p5+cb LQj+xc0cNNxNw/3xvrLMrwl2FpvlluynYUI6kXJ6PcHfhu1XtMposK93zdER EZRfXt1RepSGgSN5qQ+MCW41176Q5ElD7fjrDLkRwTuhXf0HT9FwflFA0ytD goWUh3LElwZMOlhYIyToWSeWtPnTkLwkmuFLERR5rpkvC6RhsrvUw1RAUFmh Phx8jgbxz2OOiXyCUrdu7UPnabCrXugS8wgKP7tbaxNKg5n0ixOfuAR7rmef Mb5AwzSPu7icQzBFcnG5ZhgN9V7a5ccJwX8BR4Ub4Q== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 3.8000000000000003`}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None}, PlotRange->{{0, 0.021000000000000005`}, {3.882522002253467, 6.16024297412912}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.5308780009371347`*^9, 3.725860940297573*^9, 3.725861226189005*^9}], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwV0H881HccwHHtHEL3dXd+33UO565JSUb6weedND9r69hSdhXCHua3JiGR Ijn5dV/pblc4CRsZ/cL0eZQxlV8jsTBJU1EZi5oLa3+8Hs//X6YBkcKgT1RU VHZ97H8V9l0frOrkOG+KbnCLJ4BzuGJMUCPH1NzLKVfNBJDgltZmViXHlb/a cq9wBfDlfodcw1I5XmnHWXGeLYCl46XmqvlyPBiK3I/pCsC3Nc5jKFqOMyIP TrmqCoDmY1KUaSPH0v7+baue8SEhOsp2ovYHPFw/62ZfxgfP72WHlRdkuJqR 2ZDD5kO4maqPmJRidts+NfsSC4hIa9HbXHgBh+tYprustYDQaq3e7alFeNzl +EVxDQ9upuR5tSWfx1WT4510Rx4ssYvvlAcX4pFUop3fag68cOpKhTeJbzX7 lXwrNAdZcAWN5S3BrnUMjbcvzWDVpw9p09sK8MTz6PXBiWbQLXHsdNqcj13x cvoVfTOIurYoqtqSh0cZzpbcG6agLf/8ZTQ/Fz/gWLr3fGEKMyJpUKj7x2uD RSPiWS5gZsPrCmMx5ozMqbbncMHT5rSxyXwmbo86yzKy4UJ8SUeLeD4Dp3oV 52ReNwGZwiKg7sFpPLyQIYxZ4sCh9/8mdbem4baCNz7f7OWA8eiouEySigk7 /z1fl68Gnt/EyYChZPyqT9Mg+QMb9sopf4UOJOCs7xRLx/zZEEdxsRlPisNO NO0KrWYWDNAS4zzCYrAeTVY9yGdBSJ+RpvOTMFzWVMMrKTSGdz1pyq4th/Gb 24edEheNwGjjjeZYoS8+XuXtURhtBL+5ttbzfLZi+9xJ9XUjhpBX3JPkVu2C iqstBkp3G8JR0fNWcv9+dGR3kzKywwCSXof1Bg4HofHszrVrnQ3g5tj77ovv wtEOeUFzW4s+JMtC5ItvY5B2vses0EMf7EqvvmhyOYr+zLm+btM9PaigrNia 5ZGIOlSva9p764HNdmvFZPkJ1KtZ3jTRrwtNYbaZ1cOpaFWVZbt7oC5wfzdl 1wylocA7L905c0zIVSw1zFPTkRUn3oqawoQD5oeGXLXOoJ8ZC/9M6zJhE71W fWzrWWR/FxU7KRggPC/McQ4Qo2VDuDRrx4CO+8ekPwWeQwfaVEKpvXQQ3HD1 tXbLRX713Mf9IXQoGtG9rO2Vhypdmmtq1ehguSfLpMsjHxXFOjS6VurAHWX8 JduDBah/4EXX9E4dUF9c47/aX4Lyt7HsBI8IkNbMUORBEvTLhvTblD4CrA41 lrNDJSjkD/fsJ90E7GnxfMWKlSBb97sL0nsEyDIjjhqfliDq43ZdZjMB1vrX sg0qJYhgNiCdMgL2WqNG+owEfVhXt9MphoDJJ+qivDkJ6g0WRJhHEpCU37Os syBB40/XD2mEEVAy579Th0KiKa3hkw+DCJhqOtVD0yPRUxZFI3IfASfc7k9o bSZRTBH/WS0QwFjIz8xyJNHD6lGh1JGAsh/9rLScSTSvbKee2kLAPdrraE1P ElU+Zjr4fkYAs59Y1BCRSPZ+tJOyhoDy9MFLZ/xJ1MiLEk3zCHBwKHHWCCZR XtfyhiFTAkSyjWfUI0n0yItaVs8i4G8vpWVGLImuKiN2FBsScHKppVMtnkRH RjA/W48A3VpxVHoSidhjM7sSGARc8f+KqZZKor75pVshBAH/AaUMLUA= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 3.6}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None}, PlotRange->{{-0.028999999999999998`, 0.021000000000000005`}, { 3.882522053986443, 11.571716996133349`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.5308780009371347`*^9, 3.725860940297573*^9, 3.725861226239748*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Exerc\[IAcute]cio 9.16", "Subsection", CellChangeTimes->{{3.725860894577764*^9, 3.725860896631542*^9}, { 3.725860948801703*^9, 3.725860949510277*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"data", "=", RowBox[{"{", RowBox[{ "2", ",", "4", ",", "3", ",", "1", ",", "0", ",", "2", ",", "1", ",", "8", ",", "2", ",", "1", ",", "3", ",", "4", ",", "5", ",", "4", ",", "2", ",", "3"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["\[Lambda]", "0"], "=", RowBox[{"N", "[", RowBox[{ RowBox[{"Mean", "[", "data", "]"}], ",", "5"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"LCL", "=", RowBox[{"Max", "[", RowBox[{"0", ",", RowBox[{ SubscriptBox["\[Lambda]", "0"], "-", RowBox[{"3", SqrtBox[ SubscriptBox["\[Lambda]", "0"]]}]}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"CL", "=", SubscriptBox["\[Lambda]", "0"]}], "\[IndentingNewLine]", RowBox[{"UCL", "=", RowBox[{ SubscriptBox["\[Lambda]", "0"], "+", RowBox[{"3", SqrtBox[ SubscriptBox["\[Lambda]", "0"]]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"list1", "=", RowBox[{"Table", "[", RowBox[{"LCL", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "data", "]"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"list2", "=", RowBox[{"Table", "[", RowBox[{"CL", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "data", "]"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"list3", "=", RowBox[{"Table", "[", RowBox[{"UCL", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "data", "]"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"list3", ",", "list2", ",", "data", ",", "list1"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"AxesOrigin", "->", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\<\>\""}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{"Red", ",", "Thick"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"Green", ",", "Thick"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"Blue", ",", "Thick"}], "]"}], ",", " ", RowBox[{"Directive", "[", "Red", "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"Length", "[", "data", "]"}], "+", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"Max", "[", RowBox[{ RowBox[{"Max", "[", "data", "]"}], ",", "UCL"}], "]"}], "+", "1"}]}], "}"}]}], "}"}]}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\<\!\(\*SubscriptBox[\(t\), \(N\)]\)\>\"", ",", "\"\\""}], "}"}], ",", "Right"}], "]"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.530878055090335*^9, 3.530878094806999*^9}, { 3.530878128651496*^9, 3.530878137767289*^9}, {3.530878257068349*^9, 3.530878268447451*^9}, {3.725860955632098*^9, 3.725861047326635*^9}}], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.530878006136537*^9, {3.530878078231784*^9, 3.530878096647396*^9}, 3.5308781381846313`*^9, 3.530878272329342*^9, 3.725860984901463*^9, { 3.725861022806427*^9, 3.7258610481338863`*^9}, 3.725861100297678*^9, { 3.725861230009169*^9, 3.7258612356064796`*^9}}], Cell[BoxData["2.8125`5."], "Output", CellChangeTimes->{ 3.530878006136537*^9, {3.530878078231784*^9, 3.530878096647396*^9}, 3.5308781381846313`*^9, 3.530878272329342*^9, 3.725860984901463*^9, { 3.725861022806427*^9, 3.7258610481338863`*^9}, 3.725861100297678*^9, { 3.725861230009169*^9, 3.725861235615528*^9}}], Cell[BoxData["7.84365294937452681692064075464537152974`5.1679479199060845"], \ "Output", CellChangeTimes->{ 3.530878006136537*^9, {3.530878078231784*^9, 3.530878096647396*^9}, 3.5308781381846313`*^9, 3.530878272329342*^9, 3.725860984901463*^9, { 3.725861022806427*^9, 3.7258610481338863`*^9}, 3.725861100297678*^9, { 3.725861230009169*^9, 3.725861235622669*^9}}], Cell[BoxData[ TemplateBox[{GraphicsBox[{{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[1, 0, 0], Thickness[Large]], LineBox[{{1., 7.843652949374527}, {2., 7.843652949374527}, {3., 7.843652949374527}, {4., 7.843652949374527}, {5., 7.843652949374527}, {6., 7.843652949374527}, {7., 7.843652949374527}, {8., 7.843652949374527}, {9., 7.843652949374527}, {10., 7.843652949374527}, {11., 7.843652949374527}, {12., 7.843652949374527}, {13., 7.843652949374527}, {14., 7.843652949374527}, {15., 7.843652949374527}, {16., 7.843652949374527}}]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[0, 1, 0], Thickness[Large]], LineBox[{{1., 2.8125}, {2., 2.8125}, {3., 2.8125}, {4., 2.8125}, {5., 2.8125}, {6., 2.8125}, {7., 2.8125}, {8., 2.8125}, {9., 2.8125}, { 10., 2.8125}, {11., 2.8125}, {12., 2.8125}, {13., 2.8125}, {14., 2.8125}, {15., 2.8125}, {16., 2.8125}}]}, { Hue[0.1421359549995791, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[0, 0, 1], Thickness[Large]], LineBox[{{1., 2.}, {2., 4.}, {3., 3.}, {4., 1.}, {5., 0.}, {6., 2.}, { 7., 1.}, {8., 8.}, {9., 2.}, {10., 1.}, {11., 3.}, {12., 4.}, {13., 5.}, {14., 4.}, {15., 2.}, {16., 3.}}]}, { Hue[0.37820393249936934`, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[1, 0, 0]], LineBox[{{1., 0.}, {2., 0.}, {3., 0.}, {4., 0.}, {5., 0.}, {6., 0.}, { 7., 0.}, {8., 0.}, {9., 0.}, {10., 0.}, {11., 0.}, {12., 0.}, {13., 0.}, {14., 0.}, {15., 0.}, {16., 0.}}]}}}, {}}, { DisplayFunction -> Identity, PlotRangePadding -> {{0, 0}, {0, 0}}, AxesOrigin -> {1, 0}, PlotRange -> {{0, 17}, {-1, 9}}, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> { FormBox["\"N\"", TraditionalForm], FormBox["\"\"", TraditionalForm]}, AxesOrigin -> {1, 0}, DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> {}, PlotRange -> {{0, 17}, {-1, 9}}, PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{ "\"UCL\"", "\"CL\"", "\"\\!\\(\\*SubscriptBox[\\(t\\), \\(N\\)]\\)\"", "\"LCL\""}, "PointLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.198], AbsoluteThickness[1.6], RGBColor[1, 0, 0], Thickness[Large]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.198], AbsoluteThickness[1.6], RGBColor[1, 0, 0], Thickness[Large]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.198], AbsoluteThickness[1.6], RGBColor[0, 1, 0], Thickness[Large]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.198], AbsoluteThickness[1.6], RGBColor[0, 1, 0], Thickness[Large]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.198], AbsoluteThickness[1.6], RGBColor[0, 0, 1], Thickness[Large]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.198], AbsoluteThickness[1.6], RGBColor[0, 0, 1], Thickness[Large]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.198], AbsoluteThickness[1.6], RGBColor[1, 0, 0]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.198], AbsoluteThickness[1.6], RGBColor[1, 0, 0]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[1, 0, 0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[1, 0, 0], Editable -> False, Selectable -> False], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0, 1, 0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0, 1, 0], Editable -> False, Selectable -> False], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0, 0, 1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0, 0, 1], Editable -> False, Selectable -> False], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[1, 0, 0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[1, 0, 0], Editable -> False, Selectable -> False]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{ 3.530878006136537*^9, {3.530878078231784*^9, 3.530878096647396*^9}, 3.5308781381846313`*^9, 3.530878272329342*^9, 3.725860984901463*^9, { 3.725861022806427*^9, 3.7258610481338863`*^9}, 3.725861100297678*^9, { 3.725861230009169*^9, 3.725861235762236*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"numberobsoutofcontrol", "=", RowBox[{ RowBox[{"Length", "[", "data", "]"}], "\[Times]", RowBox[{"Mean", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"data", "[", RowBox[{"[", "i", "]"}], "]"}], "<", "LCL"}], " ", "||", " ", RowBox[{ RowBox[{"data", "[", RowBox[{"[", "i", "]"}], "]"}], ">", "UCL"}]}], ",", "1", ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "data", "]"}]}], "}"}]}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"numberobsoutofcontrol", ">", "0"}], ",", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "numberobsoutofcontrol", ",", "\"\< out of control observation(s), thus we need to update the data \ and control limits.\>\""}], "]"}], ",", RowBox[{ "Print", "[", "\"\\"", "]"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"newdata", "=", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"data", "[", RowBox[{"[", "i", "]"}], "]"}], "\[GreaterEqual]", "LCL"}], " ", "&&", " ", RowBox[{ RowBox[{"data", "[", RowBox[{"[", "i", "]"}], "]"}], "\[LessEqual]", "UCL"}]}], ",", RowBox[{"newdata", "=", RowBox[{"Append", "[", RowBox[{"newdata", ",", RowBox[{"data", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "data", "]"}]}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"newdata", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["\[Lambda]", "0"], "=", RowBox[{"N", "[", RowBox[{ RowBox[{"Mean", "[", "newdata", "]"}], ",", "5"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"LCL", "=", RowBox[{"Max", "[", RowBox[{"0", ",", RowBox[{ SubscriptBox["\[Lambda]", "0"], "-", RowBox[{"3", SqrtBox[ SubscriptBox["\[Lambda]", "0"]]}]}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"CL", "=", SubscriptBox["\[Lambda]", "0"]}], "\[IndentingNewLine]", RowBox[{"UCL", "=", RowBox[{ SubscriptBox["\[Lambda]", "0"], "+", RowBox[{"3", SqrtBox[ SubscriptBox["\[Lambda]", "0"]]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"list1", "=", RowBox[{"Table", "[", RowBox[{"LCL", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "newdata", "]"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"list2", "=", RowBox[{"Table", "[", RowBox[{"CL", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "newdata", "]"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"list3", "=", RowBox[{"Table", "[", RowBox[{"UCL", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "newdata", "]"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"list3", ",", "list2", ",", "newdata", ",", "list1"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"AxesOrigin", "->", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\<\>\""}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{"Red", ",", "Thick"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"Green", ",", "Thick"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"Blue", ",", "Thick"}], "]"}], ",", " ", RowBox[{"Directive", "[", "Red", "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"Length", "[", "newdata", "]"}], "+", "1"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"Max", "[", RowBox[{ RowBox[{"Max", "[", "data", "]"}], ",", "UCL"}], "]"}], "+", "1"}]}], "}"}]}], "}"}]}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\<\!\(\*SubscriptBox[\(t\), \(N\)]\)\>\"", ",", "\"\\""}], "}"}], ",", "Right"}], "]"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.53087817035701*^9, 3.5308782286062927`*^9}, { 3.5308783019758053`*^9, 3.5308783263509703`*^9}, {3.725861058145425*^9, 3.725861109960348*^9}, {3.725861181455621*^9, 3.725861181957924*^9}, { 3.725861252117053*^9, 3.725861256635826*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"There is (are) \"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" out of control observation(s), thus we need to \ update the data and control limits.\"\>"}], SequenceForm[ "There is (are) ", 1, " out of control observation(s), thus we need to update the data and \ control limits."], Editable->False]], "Print", CellChangeTimes->{{3.530878174165987*^9, 3.53087820065197*^9}, 3.530878231210723*^9, {3.53087830283785*^9, 3.5308783269113913`*^9}, { 3.725861081794105*^9, 3.725861110620071*^9}, 3.725861182385001*^9, { 3.72586124007498*^9, 3.725861257262536*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2", ",", "4", ",", "3", ",", "1", ",", "0", ",", "2", ",", "1", ",", "2", ",", "1", ",", "3", ",", "4", ",", "5", ",", "4", ",", "2", ",", "3"}], "}"}]], "Output", CellChangeTimes->{{3.5308781742101793`*^9, 3.5308782006546373`*^9}, 3.5308782312133923`*^9, {3.530878302881782*^9, 3.530878326914116*^9}, { 3.725861081803348*^9, 3.7258611106288767`*^9}, 3.725861182393939*^9, { 3.7258612400823402`*^9, 3.725861257271538*^9}}], Cell[BoxData["0"], "Output", CellChangeTimes->{{3.5308781742101793`*^9, 3.5308782006546373`*^9}, 3.5308782312133923`*^9, {3.530878302881782*^9, 3.530878326914116*^9}, { 3.725861081803348*^9, 3.7258611106288767`*^9}, 3.725861182393939*^9, { 3.7258612400823402`*^9, 3.7258612572784357`*^9}}], Cell[BoxData["2.46666666666666666666666666666666666667`5."], "Output", CellChangeTimes->{{3.5308781742101793`*^9, 3.5308782006546373`*^9}, 3.5308782312133923`*^9, {3.530878302881782*^9, 3.530878326914116*^9}, { 3.725861081803348*^9, 3.7258611106288767`*^9}, 3.725861182393939*^9, { 3.7258612400823402`*^9, 3.725861257285529*^9}}], Cell[BoxData["7.17835426242256525191960270399456274394`5.172751708893832"], \ "Output", CellChangeTimes->{{3.5308781742101793`*^9, 3.5308782006546373`*^9}, 3.5308782312133923`*^9, {3.530878302881782*^9, 3.530878326914116*^9}, { 3.725861081803348*^9, 3.7258611106288767`*^9}, 3.725861182393939*^9, { 3.7258612400823402`*^9, 3.725861257292725*^9}}], Cell[BoxData[ TemplateBox[{GraphicsBox[{{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[1, 0, 0], Thickness[Large]], LineBox[{{1., 7.178354262422565}, {2., 7.178354262422565}, {3., 7.178354262422565}, {4., 7.178354262422565}, {5., 7.178354262422565}, {6., 7.178354262422565}, {7., 7.178354262422565}, {8., 7.178354262422565}, {9., 7.178354262422565}, {10., 7.178354262422565}, {11., 7.178354262422565}, {12., 7.178354262422565}, {13., 7.178354262422565}, {14., 7.178354262422565}, {15., 7.178354262422565}}]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[0, 1, 0], Thickness[Large]], LineBox[{{1., 2.466666666666667}, {2., 2.466666666666667}, {3., 2.466666666666667}, {4., 2.466666666666667}, {5., 2.466666666666667}, {6., 2.466666666666667}, {7., 2.466666666666667}, {8., 2.466666666666667}, {9., 2.466666666666667}, {10., 2.466666666666667}, {11., 2.466666666666667}, {12., 2.466666666666667}, {13., 2.466666666666667}, {14., 2.466666666666667}, {15., 2.466666666666667}}]}, { Hue[0.1421359549995791, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[0, 0, 1], Thickness[Large]], LineBox[{{1., 2.}, {2., 4.}, {3., 3.}, {4., 1.}, {5., 0.}, {6., 2.}, { 7., 1.}, {8., 2.}, {9., 1.}, {10., 3.}, {11., 4.}, {12., 5.}, {13., 4.}, {14., 2.}, {15., 3.}}]}, { Hue[0.37820393249936934`, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[1, 0, 0]], LineBox[{{1., 0.}, {2., 0.}, {3., 0.}, {4., 0.}, {5., 0.}, {6., 0.}, { 7., 0.}, {8., 0.}, {9., 0.}, {10., 0.}, {11., 0.}, {12., 0.}, {13., 0.}, {14., 0.}, {15., 0.}}]}}}, {}}, { DisplayFunction -> Identity, PlotRangePadding -> {{0, 0}, {0, 0}}, AxesOrigin -> {1, 0}, PlotRange -> {{0, 16}, {-1, 9}}, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> { FormBox["\"N\"", TraditionalForm], FormBox["\"\"", TraditionalForm]}, AxesOrigin -> {1, 0}, DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> {}, PlotRange -> {{0, 16}, {-1, 9}}, PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{ "\"UCL\"", "\"CL\"", "\"\\!\\(\\*SubscriptBox[\\(t\\), \\(N\\)]\\)\"", "\"LCL\""}, "PointLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.198], AbsoluteThickness[1.6], RGBColor[1, 0, 0], Thickness[Large]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.198], AbsoluteThickness[1.6], RGBColor[1, 0, 0], Thickness[Large]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.198], AbsoluteThickness[1.6], RGBColor[0, 1, 0], Thickness[Large]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.198], AbsoluteThickness[1.6], RGBColor[0, 1, 0], Thickness[Large]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.198], AbsoluteThickness[1.6], RGBColor[0, 0, 1], Thickness[Large]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.198], AbsoluteThickness[1.6], RGBColor[0, 0, 1], Thickness[Large]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.198], AbsoluteThickness[1.6], RGBColor[1, 0, 0]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.198], AbsoluteThickness[1.6], RGBColor[1, 0, 0]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[1, 0, 0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[1, 0, 0], Editable -> False, Selectable -> False], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0, 1, 0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0, 1, 0], Editable -> False, Selectable -> False], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0, 0, 1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0, 0, 1], Editable -> False, Selectable -> False], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[1, 0, 0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[1, 0, 0], Editable -> False, Selectable -> False]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{{3.5308781742101793`*^9, 3.5308782006546373`*^9}, 3.5308782312133923`*^9, {3.530878302881782*^9, 3.530878326914116*^9}, { 3.725861081803348*^9, 3.7258611106288767`*^9}, 3.725861182393939*^9, { 3.7258612400823402`*^9, 3.7258612574248753`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ SubscriptBox["\[Lambda]", "1"], "=", "5."}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dist", "=", RowBox[{"PoissonDistribution", "[", SubscriptBox["\[Lambda]", "1"], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"probvalidsignal", "=", RowBox[{"1", "-", RowBox[{"(", RowBox[{ RowBox[{"CDF", "[", RowBox[{"dist", ",", "UCL"}], "]"}], " ", "-", RowBox[{"CDF", "[", RowBox[{"dist", ",", RowBox[{ RowBox[{"Ceiling", "[", "LCL", "]"}], "-", "0.001"}]}], "]"}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"outofcontrolARL", "=", RowBox[{"1", "/", "probvalidsignal"}]}], "\[IndentingNewLine]", RowBox[{"outofcontrolSDRL", "=", FractionBox[ SqrtBox[ RowBox[{"1", "-", "probvalidsignal"}]], "probvalidsignal"]}]}], "Input"], Cell[BoxData["7.497843953545155`"], "Output", CellChangeTimes->{3.530878336739745*^9, 3.725861115319437*^9, 3.725861262581101*^9}], Cell[BoxData["6.979958452467213`"], "Output", CellChangeTimes->{3.530878336739745*^9, 3.725861115319437*^9, 3.72586126259058*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Ceiling", "[", FractionBox[ RowBox[{"Log", "[", RowBox[{"1", "-", "0.5"}], "]"}], RowBox[{"Log", "[", RowBox[{"1", "-", "probvalidsignal"}], "]"}]], "]"}], StyleBox[" ", "SmallText"], StyleBox[ RowBox[{"(*", " ", RowBox[{"median", " ", "of", " ", "ARL"}], " ", "*)"}], "SmallText"]}], "\[IndentingNewLine]", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "probvalidsignal"}], ")"}], RowBox[{"Floor", "[", "outofcontrolARL", "]"}]], " ", StyleBox[ RowBox[{"(*", " ", RowBox[{ "probability", " ", "of", " ", "more", " ", "than", " ", "outofcontrolARL", " ", "observations", " ", "until", " ", "a", " ", "valid", " ", "signal"}], "*)"}], "SmallText"]}]}], "Input"], Cell[BoxData["5"], "Output", CellChangeTimes->{3.5308783377379303`*^9, 3.725861118362747*^9, 3.725861265406662*^9}], Cell[BoxData["0.3671386947329679`"], "Output", CellChangeTimes->{3.5308783377379303`*^9, 3.725861118362747*^9, 3.725861265416054*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Exercise 9.18", "Section"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"data", "=", RowBox[{"{", RowBox[{ "0", ",", "1", ",", "1", ",", "0", ",", "2", ",", "1", ",", "1", ",", "3", ",", "2", ",", "1", ",", "0", ",", "3", ",", "2", ",", "5", ",", "1", ",", "2", ",", "1", ",", "1"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["\[Lambda]", "0"], "=", RowBox[{"N", "[", RowBox[{ RowBox[{"Mean", "[", "data", "]"}], ",", "5"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"LCL", "=", RowBox[{"Max", "[", RowBox[{"0", ",", RowBox[{ SubscriptBox["\[Lambda]", "0"], "-", RowBox[{"3", SqrtBox[ SubscriptBox["\[Lambda]", "0"]]}]}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"CL", "=", SubscriptBox["\[Lambda]", "0"]}], "\[IndentingNewLine]", RowBox[{"UCL", "=", RowBox[{ SubscriptBox["\[Lambda]", "0"], "+", RowBox[{"3", SqrtBox[ SubscriptBox["\[Lambda]", "0"]]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"list1", "=", RowBox[{"Table", "[", RowBox[{"LCL", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "data", "]"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"list2", "=", RowBox[{"Table", "[", RowBox[{"CL", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "data", "]"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"list3", "=", RowBox[{"Table", "[", RowBox[{"UCL", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "data", "]"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"list3", ",", "list2", ",", "data", ",", "list1"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"AxesOrigin", "->", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\<\>\""}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{"Red", ",", "Thick"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"Green", ",", "Thick"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"Blue", ",", "Thick"}], "]"}], ",", " ", RowBox[{"Directive", "[", "Red", "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"Length", "[", "data", "]"}], "+", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"Max", "[", RowBox[{ RowBox[{"Max", "[", "data", "]"}], ",", "UCL"}], "]"}], "+", "1"}]}], "}"}]}], "}"}]}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\<\!\(\*SubscriptBox[\(t\), \(N\)]\)\>\"", ",", "\"\\""}], "}"}], ",", "Right"}], "]"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.530878356370166*^9, 3.530878356601313*^9}, { 3.725861126376725*^9, 3.7258611362255*^9}, {3.725861174216464*^9, 3.725861174598145*^9}}], Cell[BoxData["0"], "Output", CellChangeTimes->{3.5308783585638943`*^9, 3.7258611375558147`*^9, 3.725861175030459*^9, 3.725861272948352*^9}], Cell[BoxData["1.5`5."], "Output", CellChangeTimes->{3.5308783585638943`*^9, 3.7258611375558147`*^9, 3.725861175030459*^9, 3.72586127295787*^9}], Cell[BoxData["5.17423461417476714729592611205883708795`5.190474643606515"], \ "Output", CellChangeTimes->{3.5308783585638943`*^9, 3.7258611375558147`*^9, 3.725861175030459*^9, 3.72586127296535*^9}], Cell[BoxData[ TemplateBox[{GraphicsBox[{{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[1, 0, 0], Thickness[Large]], LineBox[{{1., 5.174234614174767}, {2., 5.174234614174767}, {3., 5.174234614174767}, {4., 5.174234614174767}, {5., 5.174234614174767}, {6., 5.174234614174767}, {7., 5.174234614174767}, {8., 5.174234614174767}, {9., 5.174234614174767}, {10., 5.174234614174767}, {11., 5.174234614174767}, {12., 5.174234614174767}, {13., 5.174234614174767}, {14., 5.174234614174767}, {15., 5.174234614174767}, {16., 5.174234614174767}, {17., 5.174234614174767}, {18., 5.174234614174767}}]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[0, 1, 0], Thickness[Large]], LineBox[{{1., 1.5}, {2., 1.5}, {3., 1.5}, {4., 1.5}, {5., 1.5}, {6., 1.5}, {7., 1.5}, {8., 1.5}, {9., 1.5}, {10., 1.5}, {11., 1.5}, {12., 1.5}, {13., 1.5}, {14., 1.5}, {15., 1.5}, {16., 1.5}, {17., 1.5}, { 18., 1.5}}]}, { Hue[0.1421359549995791, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[0, 0, 1], Thickness[Large]], LineBox[{{1., 0.}, {2., 1.}, {3., 1.}, {4., 0.}, {5., 2.}, {6., 1.}, { 7., 1.}, {8., 3.}, {9., 2.}, {10., 1.}, {11., 0.}, {12., 3.}, {13., 2.}, {14., 5.}, {15., 1.}, {16., 2.}, {17., 1.}, {18., 1.}}]}, { Hue[0.37820393249936934`, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[1, 0, 0]], LineBox[{{1., 0.}, {2., 0.}, {3., 0.}, {4., 0.}, {5., 0.}, {6., 0.}, { 7., 0.}, {8., 0.}, {9., 0.}, {10., 0.}, {11., 0.}, {12., 0.}, {13., 0.}, {14., 0.}, {15., 0.}, {16., 0.}, {17., 0.}, {18., 0.}}]}}}, {}}, { DisplayFunction -> Identity, PlotRangePadding -> {{0, 0}, {0, 0}}, AxesOrigin -> {1, 0}, PlotRange -> {{0, 19}, {-1, 6.174234614174767}}, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> { FormBox["\"N\"", TraditionalForm], FormBox["\"\"", TraditionalForm]}, AxesOrigin -> {1, 0}, DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> {}, PlotRange -> {{0, 19}, {-1, 6.174234614174767}}, PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{ "\"UCL\"", "\"CL\"", "\"\\!\\(\\*SubscriptBox[\\(t\\), \\(N\\)]\\)\"", "\"LCL\""}, "PointLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.198], AbsoluteThickness[1.6], RGBColor[1, 0, 0], Thickness[Large]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.198], AbsoluteThickness[1.6], RGBColor[1, 0, 0], Thickness[Large]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.198], AbsoluteThickness[1.6], RGBColor[0, 1, 0], Thickness[Large]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.198], AbsoluteThickness[1.6], RGBColor[0, 1, 0], Thickness[Large]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.198], AbsoluteThickness[1.6], RGBColor[0, 0, 1], Thickness[Large]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.198], AbsoluteThickness[1.6], RGBColor[0, 0, 1], Thickness[Large]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.198], AbsoluteThickness[1.6], RGBColor[1, 0, 0]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.198], AbsoluteThickness[1.6], RGBColor[1, 0, 0]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[1, 0, 0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[1, 0, 0], Editable -> False, Selectable -> False], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0, 1, 0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0, 1, 0], Editable -> False, Selectable -> False], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0, 0, 1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0, 0, 1], Editable -> False, Selectable -> False], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[1, 0, 0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[1, 0, 0], Editable -> False, Selectable -> False]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{3.5308783585638943`*^9, 3.7258611375558147`*^9, 3.725861175030459*^9, 3.725861273099423*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"numberobsoutofcontrol", "=", RowBox[{ RowBox[{"Length", "[", "data", "]"}], "\[Times]", RowBox[{"Mean", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"data", "[", RowBox[{"[", "i", "]"}], "]"}], "<", "LCL"}], " ", "||", " ", RowBox[{ RowBox[{"data", "[", RowBox[{"[", "i", "]"}], "]"}], ">", "UCL"}]}], ",", "1", ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "data", "]"}]}], "}"}]}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"numberobsoutofcontrol", ">", "0"}], ",", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "numberobsoutofcontrol", ",", "\"\< out of control observation(s), thus we need to update the data \ and control limits.\>\""}], "]"}], ",", RowBox[{ "Print", "[", "\"\\"", "]"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"newdata", "=", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"data", "[", RowBox[{"[", "i", "]"}], "]"}], "\[GreaterEqual]", "LCL"}], " ", "&&", " ", RowBox[{ RowBox[{"data", "[", RowBox[{"[", "i", "]"}], "]"}], "\[LessEqual]", "UCL"}]}], ",", RowBox[{"newdata", "=", RowBox[{"Append", "[", RowBox[{"newdata", ",", RowBox[{"data", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "data", "]"}]}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"newdata", ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["\[Lambda]", "0"], "=", RowBox[{"N", "[", RowBox[{ RowBox[{"Mean", "[", "newdata", "]"}], ",", "5"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"LCL", "=", RowBox[{"Max", "[", RowBox[{"0", ",", RowBox[{ SubscriptBox["\[Lambda]", "0"], "-", RowBox[{"3", SqrtBox[ SubscriptBox["\[Lambda]", "0"]]}]}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"CL", "=", SubscriptBox["\[Lambda]", "0"]}], "\[IndentingNewLine]", RowBox[{"UCL", "=", RowBox[{ SubscriptBox["\[Lambda]", "0"], "+", RowBox[{"3", SqrtBox[ SubscriptBox["\[Lambda]", "0"]]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"list1", "=", RowBox[{"Table", "[", RowBox[{"LCL", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "newdata", "]"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"list2", "=", RowBox[{"Table", "[", RowBox[{"CL", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "newdata", "]"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"list3", "=", RowBox[{"Table", "[", RowBox[{"UCL", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "newdata", "]"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"list3", ",", "list2", ",", "newdata", ",", "list1"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"AxesOrigin", "->", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\<\>\""}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{"Red", ",", "Thick"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"Green", ",", "Thick"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"Blue", ",", "Thick"}], "]"}], ",", " ", RowBox[{"Directive", "[", "Red", "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"Length", "[", "newdata", "]"}], "+", "1"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"Max", "[", RowBox[{ RowBox[{"Max", "[", "data", "]"}], ",", "UCL"}], "]"}], "+", "1"}]}], "}"}]}], "}"}]}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\<\!\(\*SubscriptBox[\(t\), \(N\)]\)\>\"", ",", "\"\\""}], "}"}], ",", "Right"}], "]"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.530878382042419*^9, 3.530878383379333*^9}, { 3.7258611418721943`*^9, 3.7258611661028423`*^9}}], Cell[BoxData["\<\"There are no out of control observations.\"\>"], "Print", CellChangeTimes->{ 3.530878386344459*^9, {3.72586116048911*^9, 3.7258611665203543`*^9}, 3.72586128624578*^9}], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.5308783863854237`*^9, {3.725861160497756*^9, 3.725861166530765*^9}, 3.725861286254094*^9}], Cell[BoxData["1.5`5."], "Output", CellChangeTimes->{ 3.5308783863854237`*^9, {3.725861160497756*^9, 3.725861166530765*^9}, 3.7258612862619953`*^9}], Cell[BoxData["5.17423461417476714729592611205883708795`5.190474643606515"], \ "Output", CellChangeTimes->{ 3.5308783863854237`*^9, {3.725861160497756*^9, 3.725861166530765*^9}, 3.725861286269403*^9}], Cell[BoxData[ TemplateBox[{GraphicsBox[{{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[1, 0, 0], Thickness[Large]], LineBox[{{1., 5.174234614174767}, {2., 5.174234614174767}, {3., 5.174234614174767}, {4., 5.174234614174767}, {5., 5.174234614174767}, {6., 5.174234614174767}, {7., 5.174234614174767}, {8., 5.174234614174767}, {9., 5.174234614174767}, {10., 5.174234614174767}, {11., 5.174234614174767}, {12., 5.174234614174767}, {13., 5.174234614174767}, {14., 5.174234614174767}, {15., 5.174234614174767}, {16., 5.174234614174767}, {17., 5.174234614174767}, {18., 5.174234614174767}}]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[0, 1, 0], Thickness[Large]], LineBox[{{1., 1.5}, {2., 1.5}, {3., 1.5}, {4., 1.5}, {5., 1.5}, {6., 1.5}, {7., 1.5}, {8., 1.5}, {9., 1.5}, {10., 1.5}, {11., 1.5}, {12., 1.5}, {13., 1.5}, {14., 1.5}, {15., 1.5}, {16., 1.5}, {17., 1.5}, { 18., 1.5}}]}, { Hue[0.1421359549995791, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[0, 0, 1], Thickness[Large]], LineBox[{{1., 0.}, {2., 1.}, {3., 1.}, {4., 0.}, {5., 2.}, {6., 1.}, { 7., 1.}, {8., 3.}, {9., 2.}, {10., 1.}, {11., 0.}, {12., 3.}, {13., 2.}, {14., 5.}, {15., 1.}, {16., 2.}, {17., 1.}, {18., 1.}}]}, { Hue[0.37820393249936934`, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[1, 0, 0]], LineBox[{{1., 0.}, {2., 0.}, {3., 0.}, {4., 0.}, {5., 0.}, {6., 0.}, { 7., 0.}, {8., 0.}, {9., 0.}, {10., 0.}, {11., 0.}, {12., 0.}, {13., 0.}, {14., 0.}, {15., 0.}, {16., 0.}, {17., 0.}, {18., 0.}}]}}}, {}}, { DisplayFunction -> Identity, PlotRangePadding -> {{0, 0}, {0, 0}}, AxesOrigin -> {1, 0}, PlotRange -> {{0, 19}, {-1, 6.174234614174767}}, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> { FormBox["\"N\"", TraditionalForm], FormBox["\"\"", TraditionalForm]}, AxesOrigin -> {1, 0}, DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> {}, PlotRange -> {{0, 19}, {-1, 6.174234614174767}}, PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{ "\"UCL\"", "\"CL\"", "\"\\!\\(\\*SubscriptBox[\\(t\\), \\(N\\)]\\)\"", "\"LCL\""}, "PointLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.198], AbsoluteThickness[1.6], RGBColor[1, 0, 0], Thickness[Large]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.198], AbsoluteThickness[1.6], RGBColor[1, 0, 0], Thickness[Large]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.198], AbsoluteThickness[1.6], RGBColor[0, 1, 0], Thickness[Large]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.198], AbsoluteThickness[1.6], RGBColor[0, 1, 0], Thickness[Large]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.198], AbsoluteThickness[1.6], RGBColor[0, 0, 1], Thickness[Large]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.198], AbsoluteThickness[1.6], RGBColor[0, 0, 1], Thickness[Large]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.198], AbsoluteThickness[1.6], RGBColor[1, 0, 0]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.198], AbsoluteThickness[1.6], RGBColor[1, 0, 0]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[1, 0, 0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[1, 0, 0], Editable -> False, Selectable -> False], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0, 1, 0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0, 1, 0], Editable -> False, Selectable -> False], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0, 0, 1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0, 0, 1], Editable -> False, Selectable -> False], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[1, 0, 0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[1, 0, 0], Editable -> False, Selectable -> False]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{ 3.5308783863854237`*^9, {3.725861160497756*^9, 3.725861166530765*^9}, 3.725861286397387*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Exercise 9.22", "Section"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"dist", "=", RowBox[{"NormalDistribution", "[", RowBox[{"0", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Xi]", "[", "\[Delta]_", "]"}], "=", RowBox[{"1", "-", RowBox[{"(", RowBox[{ RowBox[{"CDF", "[", RowBox[{"dist", ",", RowBox[{"3", "-", "\[Delta]"}]}], "]"}], "-", RowBox[{"CDF", "[", RowBox[{"dist", ",", RowBox[{ RowBox[{"-", "3"}], "-", "\[Delta]"}]}], "]"}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ARL", "[", "\[Delta]_", "]"}], "=", FractionBox["1", RowBox[{"\[Xi]", "[", "\[Delta]", "]"}]]}], ";"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"ARL", "[", "\[Delta]", "]"}], ",", RowBox[{"{", RowBox[{"\[Delta]", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.530878749737143*^9, 3.530878825489481*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJw1mnk01k/0x5/H8jyklKUs2cmWLXuSuUKhKEuir2wtQtYs2UKKkpBKluxL qBCFJPMJFVkqS5HKGiH7Yw8/v3N+v39mzvu87rlzZ87ce+aeM8IO7qbn6Ugk kuHm8L/z2eK4qY0NKjFoXMqzKYGI5Rc/8I9KHArpnGakkIDPo9Dad4lKpF/l N9mxlQRfFeob/05TCVE1nWpFbhLoly5md/dTiej3Hx4XKZBA7qWNZVkdlTid xakW4UCCpSqZtxciqcQ9ib7dnxtJEP2+Ib6FlUoMa14Nev2YDN8ltLMqtlCJ F9xBpMxiMkjeevU8k0Ilpg4W7L5TQYZ3Rws/+6xTCLEFfQX/D2RY/3ybVWCS Qjje4AvLHCGDZ49xlFsLhbDyCjyqLkUHFtMdYdujKcSls2f0nz6nAyHefg8T Zgrhm82erNxNDwUDDp9DGSnE6R2CLscH6EHxyZB8CZlCuLiyRniO04Oe5p9J 1hVGQiSY/UXTGj0420xdah5jJG6zpD7pEmGAF1lrF480MxLHhI4tnnZjAP29 vPYHYxmJR24ls/tYGMFD08xEaicjUSiljT6eoQDfR6luFzZG4so54SOVFynQ cIpkX7SNkeB6+kOo+DIFBC8/81CiMBKHVpycK25RoLWAGndwkYGoF3M6oFRO ARmu6laTbgaidZDG37uDCn9mxI4FpDIQKu91GXVbqGD3eOFw0x4GYv+Iftqh c8yw/rLycbUwAxGV//p0qxczpNQHMBXxMxArU3rKjmHM8LV/vTFuJwPxfrXf m0hjhmN8VCMLRgYiLyr0Cft3ZlC7y2XWP0RPnPzCJXDIbAuwBqrbLmbTE2ms q8yKJ1ig2jjAT1SEnsjVjrCv9NsG9+v1JE8L0BNF+dHSDTe3gasGW3ccLz1x NCKjaThpGwiI52uss9MTEdVmX05Ub4OQtc61Lnp6Ij7dOKabzAqHnu67HvOb jriYQxFpimWFBubRuOV8OoLy0Xf8UcV2yAh5oa2QS0eI5cjW5X7cDv7zIbMX MumIfzefu+Of20G6f5d5RxIdoa/S9I6dbgfcrtTlKo6iIzTc5K16JXeAsWNG 6rlLdESG2PpW3is7oL3+VOEneTrC3tsaneRng7TXrMov99IRat+ryn9IssHF 0ndvkiXoiDjXLc7uymzwL13py3lBOoIlo6u8/CgbiAVuX1plpSN28sgbtQaw gfe+D3qSk2RieJr2VqaHDTjTVPtDn5KJt/EVwwy57PDr/oTzhXwy4ZZRfmVb KTvk386hHc0hE5T1oGURzA6a/uxMXI/IRL6pPZ1PNzucM5+Ue3abTKzfrWor Z+WAF1vygrqdyYT8jtTymkAOOOm3k1tRikycnY8ZN7LjhENKwh+l95CJKZdC wxY3TpCbkgkSFSYT3zV0t/4XzAlMjrp9nDxkAh+6sZSZzAlVFpfzF5nIxF/J r7q9nZwgoPpF/c0fEkG3P9td/PhOGKZFW+nnk4jHKRlF9ka7oK0kkUU7h0R4 6D193XpmF+BLOW/2Z5CIigPj9sfcdkHi0GvhvYkkQvnW6nv/2F1g2DE2uu0m ibh7qZAjvW0XFJfpB7Q7kgiHfatb91hzwRUvhhQbCRKxfsT4QVEQN2Q84El9 JEoiJh8lu3HGcMOHSrn074IkIkpPfzUqnRt2bVhmW3CTCO2/mlcKa7nhxe1n T4yZSYTNgVLqS2Ye6DN4diX46wZezT5LZk7hgU9FJq8P2mzgeqloB5UmXhCY D8SvLDYwT63jwtdfvHDpQF6dyvENfCLtevntWV7Y0rDSJAsbmPe4HJs87244 3J/9g19kA3tdar1j67wbajgW1tZ+r+OZvY2jAax8UHQlGWpc13F4XD7vgQv8 0EekLDw8v46vHmIXM77KD+zMqU89z6zjrv8oQoEJ/OCXlM69x2gd8ywau4t+ 4Aeoypm+LbOO7/VozZVICUD7alGG1fga1jn/x/7HnAAsXa0jzV9cw59JNR6l xkIg/aG+vNVuDfsS4dWB1kJgvf39pXzLNXw7NEvG3FkI3qY3dP2nv4bPi715 pxghBFFES0mtxBom8Nhcfo0Q8NN12cUN/8P3P3laRykKw6Ebf4m95/5ha5/+ xWJxERhLIXHFWf/DIvRPq3xVRCC+lNOVZv4Pv5e/MHFMVwQGezV53uj9w8tD DH8lHETgusYdT2OJf5hIfWGenCYC76ZkRTzHVjGfSsvpMF5R0D/tHl7usYqD 9c0L+gXEYNojvJvXaRUrSJxrei0vBomRD+VD7Fexn1Nl12MQg9EXuOeI6Sqm +eWzlDuIQdT2HcrdSqtYljBWffZYDJrqS4ZWF1ZwQbcJH6/KHjCWn9XTDl7B esZfzONsxOHA5+K/TT4ruMT5IOHlKQ6Snq73LNxWcL6BgbLTdXGgL/vT52K7 gnsLgxLiC8WhUrU3MEF7BR8NmBnvXhQHYa3m5+OMK9hAIiLqRIIE0I7l8SfE LOO6/NPzdwcloX/ibL1Q5DIOsDlxTXxZElpjhF2ehCxjju91Vm2sUlDw+VEl 4bGMHVRKrTw0pMDG/J7ZuOky/uUxSDTES0HDf6G3gGsZd1veeMegLw0pzqfn x9KX8Pk7w4VX3+2FS9umjNofLuGTi8sPTfr2gmZJeN7r2CUs8UYsUHd1L/ya f3oqOmQJ35Sw/xS1TwaEwjZeydou4Y8XS9zS0mUg52HOVQ+BJUwxErBguiYL z+onqQuPFjGLYd2MtL08XHUMt/t1fxGr32dPNw+VB+Mt3K/eRy9iud0igjnp 8jB9XNv5YdAiXu9vPv/ylzwo9txrVrdexGvzPPZm8gpQPqN+N3D3Ila6Nl+8 XKoAWCCcl5y8gM/InOX62bgPKHHSHN7xC5ht70ub5u/74Bi5jWUkagFTmN1k P43vg65BobXmwAW84D/3bjurIszm1/QmnlnAqleln4WYKYK40kqOgvACDg7t 4tk3oAjRRzzl7fLn8W/BV/qJ25WhrZJbsj1jHret6bLJiCoDjzQhdDhpHi+W Pfz0VVUZ8rZuZ5eJmsetck25njbKQHx5Slt0mccZt8xZiCJlmPvvz6tY+Xmc MkrX/91MBU572Orichp+YG8tMV6iCtcHf07GFtGw70m37dcbVaHIwjrJLo+G w9XM6zUHVIF80GqSnEDDfx/fOsrKqQb5zGaJuj40bK+U16vqrwYLWYf/NirR cGRJY/QHA3WI75S931Eyhx1b6nu1GTWgWv+pVm7+HDZbMbusKKIBw6+lR30y 5vB3ySe8BkgD9mdJaHHFzWEVlH5t1F8D+tyE/1i5z+FIDs4f/6Y1QI5pp2av 7BwWjFhcSR8+AE0a/wZHC2dxC/XkZNDMQdBQF+vty5rFzVIFA2QOLchXOfb9 W/IsPriHq69UWQsiFB59fhc1iy1kxOaTrmjBIXHNN5nOs/iWV86DcDoElWxB CVbSs9iz44RiyHaAnD+r+o0FM1jW3P62hpY2cAyL6hKZM9iok41jw0Qbrg0e RRVJM1jc1Gnt53ltsP2VopJ7awbvv696f/yONvB2HBAJc5rBQsknWA17teEu DlxVl5rBHEVPedQiD8HVhNVn+fnTmMRT5zP/VwccHFQNpDOncerrswff0unC ETnPoSdJ0/jah2/R+dy6sOP9MG9x1DT+ayxx+qOuLmTPf4l8eWka3wkP/m6T pgsN5vn2tQrTOCC4NnzCQg/ExQulKz2n8JygnsubX4dh+o2g/WuHKfx6gsHs yNJheHXywcMasymsrdQyOMN2BI7dCGV4pzKFOS/1lxXoHQHPIYtfX5YnsYqm H31B0RGozqKPHw+bxNRsxi7WSH0wETyzLBA/gWMUFZUbTA1hoCr03s+wCXzS VHTI6LIheFnkyD7ynMASX1tlyPcNIf7OuD2PyQSeuiTycKbTENpW/T9y7JjA Z/a4HiNbHwXTroQUppi/OJXy1obH8xiY3v18cPbWOHYs0n0i9dYYBmRo30r8 x/HNsvS+vyPG4NXA5eXuNI4rQhUGhlmPQ/yGTd5f/XH8lonnduiZ49DmOsE6 Qh3Ho9IzpmZrx8HUcEtfz40xLJjscKM3+wSY0eteexc2ii0rw1PpGU2h9cAd 6ySvUXyV45xyIq8pGHp/VXU9O4oPtBSeMVAwhUO/L45z6o3ii9d1NsjWpqD4 4Y75OaZRLHdhZ9HnF6aw4/Y3cfrYP7jhTvILxktm0Mzu0gSPRrCKQczE7xlz 0D/6IpfzzghWyHCUsWI5CfXhayF/gkcw2P2gnxQ7Ca9pscpxtiP4VmaEeLDl SSj8+iK1V2QEd1vIj6i8PQk3k9fdrxYMY+be+zxqSRagKxLPWV3+Gwfcq2p8 cs4SImxumR7N+43NxL5lS92whMbk0LjvD35jOdpNl85cSzDmcN+67P0bWzoa FVaMWIIlwzEGVaXf+EzcPdVnrlbgMsxIKy4ewo7S67Kx105DfKF/e3b+IJ5Y jdtd98UaOoY92JQSB7GjQWi425I1cIlePF4bOYgHzAnqccEz8CjFoqnvwiB+ 43FCt8T1DORFK9Xx7xnEweOCKctbbaDKbaL0YeYAZpuUOvHtpC30K9rH307u x8V49hEnsz0UhT/xdIzqx0eqHrpfF7SHgI75EzoB/Vilyub3DlV74PCN2r5q 1Y+rau8yh561B71XZdHOPP04nEY+9grbQwGiRBok9mG9xRz1x8EOMJBoscgq 04vDbZwsOrefA/rmsUaKaA/umC97lR3jCN6PPzKNMvTgkqoQzfBCRxi6Vnik afg7lu7PWwh87wjv9ju/iy38jsUXmV9UrjtC5ONRglvxO+6quxVr7XERWML/ VEhrd2NV7U/7lC2dgENjONfY9htGjsxPefa7gGh+f1hCSjuej7FbJSu5g9Bt /ptTAe24/UlapJeFOwi4WcXon27H3FHXqyb83YFX+UvyCnc7fhbk9Ir81h3Y CaLMJqEN24/V3Pgg4QHkrvTf4ne/4Dk7159fyz0Ab6+Od9v2CR/K0nri2eEJ VZ1K6ULNrdjmZBST1LAnlKc8edIW1Yp7Zm1x96InFEmk1KsyteILbL/s9+z2 gjQUsLBO14IvrHgaW9p7QZC7+unYpY+47EDlNTzuBeqfXgiXDL7H+fQDwjO0 yzDIVCdXkfcey6QERTfTe0PMoS8HapzeY33B4YR77N4w+HLiZPPUO5x+u/3J gPwmfyQe9We1HktpCBb6OW1yp8RZIc46LPSrdIK9a5Nn521IfKvFH1lXnrv/ 9gb1ny+2yifXYspwanjJ7CY/8UX8oFAt1oRFpx9bfWC/2pb/rGTe4tlCza2f kQ/wMy9FiN6qwRbd/qw16T7gFcSZuW97DV6ol/QTfeIDDVMKr9GDN3igwDL8 fPkm/+o09V9mNSZdTMXBzZs8u+fU/VdV+GUdx83ZBR8Q4FryzEJVmF9btEGB 7AuXozijS969wtLzpir6LL4g4GlENH+pxP4VjyZJgr7grYUlGcfKsaQI3bUY XV/4+LznEIdHOa65T26MMvIFwT1L1sILL3EZx2GWMxabnGXf3YN0L7FBiS35 muMm785a9uEtw4ndb8LrIjf9HcMc1zNKcaGEvcv52E173CMbL16Kgzmavb8n bPI8Tocixed4feRemmauL9wf2fqg5UERds2vi+rCvtC3y+9XWd4zPGZ4gfT3 nS/sPdwvkVzxFBsG3SG3NflCbc7LqgvdhdhK3DSL85svsHYIMhiNFWDnE5fr PX74wmn6KCOl1XwcWSzrl9bvCzP2Nn0bfI9xqTpHvuu4L2jebZAals3DyXJ9 FazTvnCTULzcrJWLBxoeBIbSfEFIkEpJssvGYZ65pzr/+cIlY8/jIZ5Z+MT5 ILZKkh9UBPcknr+WiecpUOvM4AeplbanzumnY8S60wGx+IEyl/KYgnMqfq0l Qm/P6gfNPkzBa7dT8PGDfBsmbH5wtuPH9o/PkrDky6PK7Jx+sKL4PCvh00P8 SVggPHOXH8TfvaFyduYBvnVEqnWD2w+kpq0a5DnuY/MAuRWZ3X5AGMv99085 Hgen8k9K8vuB5TO6yQaLOFwyxnVvTsAPfnEVkffOROPQQK+OaCE/2NZpIVGv fAsHJlam04T9QDN+49iZKzfwnbpnQ9KifuB8PN9r4XUY/hFx/IG8mB/s48lS ENwIxNHUb7l0e/wg5t5coEmEN54wqdqas6m/7o6Koe52xpKuz2o5xP1ASPi0 YZepBW6Syq412dRPO0OEA7S1UMiLFmabTb3KeOfZx1cOSGgg7aH6ps5g8mEp 6/RAO3UaXPs3/enEiBKhxlcQ07xGnOWmHuZo8zb+EIJEpSUY0zbjqT9GcLJm hKPW0NWO55vxJsRyTXlbR6Lubee23BfxA8c2t8Ye7ttoQ9agVHdzf+o732cf 6oxBv9hae+oE/YDxKSvu0L+LXnAcT2TbPB83Iw0ZJol7aMs721VZvs39TJ5P OsD4AM28beDl4fUDFHeX4j6YgIQP32Bt5/KD/H1vLme9TUSF14np/3b6gb83 pzHz1Ufog4wW7ft2PxjYCa81rdPQetQT8y9b/SC3R4VTnT8DnXowLPyQ2Q9Y g+3DXFYz0fV90Yl36fyg1mhR7cZYFmL054l/v+4LvgJ3JtO6sxGZ7Xli04ov 9OLK/9oqcpFA9kr44dnN/IgzZv+bl4dq5jQaqyd8Qd9+qIEx4THqbHr4g37U F0rodqju9y5A3EVJuoy9vnBNz3FHhsIzlBahdqGnwReau/mi6ZWLEDVuSO50 rS/sdGujOqoVoyoHvsfZr33BvCltY1d6CVpka2VMfOYLw3PMiz9zSxGfqWra js383VIz9CJWogyNd5fPTUb4gvxN7KVdUIYkDmrSkq/6whU+n8mcpy+QwEZN 6hnXTXu9vt8uZeVoUh4lJOn7gtz219n8KhWovyxYfUbLF8y6H9h/Kq9AYjkz FF4VX3jkevSnYlUleldyhKVfaNN/QnnHMlGFqGX0Wqab9cx8JLousrUGxTk9 NFFM8oErzx3D9p/AaPf0mFFXtA+kBh5C418wWhV+nHkq1AfmqEFnHjsTqDvI JnTogg9oPtrXvcXtLSo8lpl8WNEHPtU/+vzFuw41ehlzF9Z6A23nZWx77QPa f5OExlougyX1Y+pgzQcUcFLwwnDNZXi9JBTkuPoBfT8tdv9z8WW41tOq7u7d gHyqkz953L0M2zOlS69eaERao0OKE2aXQVpmICfVsAntbVfUVPvqBXaHTKJ6 2D8hndD995baPOFCxcPCJybtaHmvyOmj4e4QJenY5uvVjm4cExHNs3WHoiTV Fe177ahMyzWcRdMdFgM7Dbo62tG2/Y62SzQ3uAkcowyWHShux/Ujzo5u8KQx RsLGphNJpRBOYsddYbrnRs4Ol29Ic+GeEJ+sC3AanWzuuf0NqXBdOvuaxQXU a8RoeU+/oVwdRfnLY84QllGnc3DyGxJh0bkpm+8M7OfJg06eXYgED/o6xJxB eTJIuM6vG0nLDo6LiTqBP8k7zed6D9p6qspXTMURovRTwx/n9KAjIauRzVyO kBz3/mJ3fQ86PBYyeHflAlQJ8SgdZPyB/kqebPImLsAK1HxgiPiBZLz1rVON LkBQGNPMvcifSCBwy58brufhKl2qTmlULyo2nSD9rjsLMYbvJYcKe5HawQrC sPAspMdPbdvV1Iu+prOGtMadBTs24b/VjH1oPaGyS97mLIRmXi4XOtyHtLL3 Uq1WHIB4y330z/s+5BlRX3RA3QEO0Z319mvoR4elV871NNqBDXObeOC3flR5 /NQJ+5d2ELhDu/vqcD9yKJN+tpFhBy8EBLUiGAaQ8aqlz40rdrDnQA/1AQyg GL/So2WSdsDkbZZSWjmAVgZJxdt320Lrb53aifxBRDfJW7xz87059rfUe6Zi EBVH3tqYe2YNVJqwxPz7QWTrEqe9HmUNQEeK/jc0iELiIycf6FnDc4HqkyzC Q+jWk17Flur/4P4p5VHJpCHUn5l5QqXsNFg1iu04d+s30i2WcqussYSi5t82 T5N+oxs7leQ10iyB4XPeM1rBbzRNNZIcDbaEkq+SR298/I222LYNtBy0BMqQ TEQeyzD6U//kzFN8Cl6sK//7c2cYlUlmtUU3WQCrst4f1/gRlFglGWtNdxLO qVHUyrNGUFkTXS7viDlUaXy4sV46gpL5/cU3mszhvLaBaGz7CHqex/pII8Ec qo2NbEo4/6AWu2OFPjLm4OR0smM24Q/6SBp+8snWDOrTzhN+KaMogE2sp6LP BOQYyZ8KC0cR3yeBjvNNJpDo8ujnz1ej6CJNa1K+3AQuqbev6HSNIlnNkGmu aBPgbAOVHTvHUGD7M0Gl/SZwlpGvMD9mDJ13Wtb2TTwBdJfa7nWHjaMO4TB9 zw5juNTmmrX17jgaMuEuMiwxhq/qzM9RxjiSVDVLNIs2hkJGaM2tGUd0uvRL s7rGYJr+jMlrdRzppHwasKs0gsy2m8FbfP6i+sbv1rWPjwHsR44HLk4g23ed UXN5hpvv4cgOYb8JRJme1+27aQikn5+0mSImUO3I+OU5Z0MgQu34OrMn0JZj JXbR8oaAGsK+uPVOoMevnn+9VmUAWqfqD2RZTKJZyWtcFt/0QdPHYAez3hQK 2Q1Wh/YeAb4Pd4OnzKYQ6WrNTOpmf/uP+/tYp8MUym5tXePZ7H+rq53fZYVO oaeh7YTXu8NwgCE6QLN6CvW8eqqQZX8YUg0cZyt4ppEfLcepPV0PHnUVWI/H TaO6veHBdoq6kL/h209KmkbqV4pqUnl14aW47oVdmZs6N2n/6mb/3ur9y137 +TT6av9ccFeHDpDZOMIffplGAS897r7304ELBkEFOuwzqPXODMdY/SGQrzJe SLk3gyxkfQqYfbRBs3934POUGbSczZWzaKcN+kyjG++zZ9B/xTs8SUba4GAR zjxbtqknX/+236MN92cr+PQ7ZlDVlyGS3TeAJWlhHRrnLIphHqVJAEBtylzs sYRZVGp4d1fHES2woj3z/pY6i+4WrcjtltSC6WMXrRxyZ9Fen1i1W0xawL/+ Q+TKi1l0tMDrSHfjQbhi9/5ldtssovOcfaljfBDk9iT1rLDOIW7X59Y7bTQh qUhLoiByDj1OfNBokagBCtRlFuXYOaTrDEm7gzXgvW3ZdE3CHOLPHjEhO2gA bYdkVUfuHFo5XN0qJ6MBxpfZjEj1c+jmUzb1bbX7gUF9yOsUiYa40sLTSufU wePtrRpGfxr6Qt0adM1VDcS4XWcUw2jIi6N5jM9cDb65nRCzu0VDdc+7dnZp qIEWH1dUVRIN+W8s/y5mUgMWv5yT7lU0xHZywr4vVxXyZPDfrlUa+qX+w5B/ WAV+PKTxPr06j8yZPeu7gpQhbvKbUXfEPNKpvWSo4qgMOnqvQymx88hdMUT1 mYkyFM6GDdulzyOWpYK8SXFl8DPaXrqTmEeVTbLVZW1KwE4vbRBCXkAfmMuF xOWVQN/N1s/0+gIi0s/rla7sg4gF+S3ztxdQc609dh3dB3VXSakP7y2gxK/L hw927QOt2MzaH1kLSK6Xg4u7fB8olwxuc3y7gFq2Xht/5bUPhGYdcwLXF1Cy iaJt4pQCLPl4fMm5sojiU8fz5SblQXUdzh0JXURyLm8jDT7Lw+UItsXRyEVk Q1uOiCiVh8mEUj75h4voxOx+9Qt+8jBUQXN89XIRmVrjogo6efi8fGW9ZXYR Nb9boQULykFBcNjexUtLiFf45mSghwxkBea7XvZeQoGHq1O2npKBZP9PxVOB S+jmTQedVwdlIMqHX/lP1BLi6fi9eJ5FBi65vtLszl9CuU4c+5nz94LCmRmj 10NLaDyUs9lqWBoqNe09QqyXkUba0BttXyko0bhZunp2GVV9jRVit5OCAvVi mp/LMrLJ6ghdMZCCZOW1Kx4By6hzyeMdu4AUBMkkhdknLqOaL6dVbT5IAvB9 idfpWEbrJMmpIwKS0LAKL6nHVtAF3sYt+T/E4edinJ64+QoK3Zr2Mu2DOMzO 9XXqWq8gw25qxrNSceD7G7oQdmkFXfsc/ZLjljh4/iDU/kWvoAyvTwFrquLA +waqpltWUGGwfJXMwz1w6Srg7uOraEBQWED2ohiEBcQdXzq1ii6f//Bj5qQY JPj29e6yW0X7jR8eaNIRA8ItlGTusYqqTqh4vBYUg522hHZr3CrqT9vaE9Ml CjUI6mu/rCJmi8v/jRuJAhsZGp+Y/UPaFU6Wnw6LQIlc8Cv03z/E8T31PqO6 CJywripod/iH0oKSxI5KiUBMhXLUquc/ZO0yski/VQS2ukkdPRr3D3WeXbgi 3SYMlB72lrHmf8jftSjxgL0wrLz4/Vnq8BqqvV7ts3RLCJIGRN6+MVpDuvfv zS0GCYH6DrvnJifXUAaPazGDhxD4uXy/639uDf3HMpKtZyEENOFPpo3X1hC3 n/+3s6JCMBlT2XERr6ExrYsNTKGCMHDxdtdj9XUU9ZL7yiCDAKTdn9n1C9aR lWdB/va//HCaOHWS02AdRWuxv7No54c2LrG2UKt1NCX8SFMlix9q31c3WQWs I53TjTHy2vyQKTZZw1K9jt657bm3Fs4Hdn0nct3RBjL8GXRdnG838G2tGMw9 soG63Lo5LlN2Q5cav8iP4xuIkh1Q9XWaF07Ejqbp222gpdbbPwfe8QJoXUsU DttADrXSl1k8eUHwUdnt9toN1HfuMVdEEw9M7WV5tVuUBMXUBg/nOG4oDBot FpUggVpJ00BNMDdcaPmQt3cvCXjsWfzFXbjhh9v1+weUSEA0Z1XKHeaGj8/X 3P/TIQFlrxGX8BoX5KlNi6ecJcFEopVBgBsX2Oh03ufNIcGl28yDLja7oPl0 ugfPHjJoG3/tZnHnhGO63lw/JMlAvdTy65o9J7TIGtSkyZDhirmBLcWcE1pJ cyxiymTwn+BNU9zPCZ/zDj+W0yGDm11KrgADJ3TMTvzUsSfDlydTmfsfccCP KM2jbqlk6GvdfUuskx0mqrr31O2kgzW74Yd6jmwQJFo395WHDv6RHSPu/8cG W6Kfvh3jp4OKSIa6yeNsIHkm5Ay7OB00iAbS6tXZ4NyG2AN7VTrgvkj+ubCF Db7reDCQTtFB5gIL34XnO6ChmTKomUgH0/UCPEKUHZD9SymjnJceWGL0Xh5I 2gYLvRwCNwTogVtBUY9ycxsY9s+lmInQw3QodPb6boPZwbKH01L0kMDV/gqb b4NDo0qx0vvpIXt+iabAtg0G5pSupp2iB2VLKZfm6K0gxKxsHXGfHuLY+S9c j2GBVCVlbgtWBngyyELmeMUMre7YlY2dAVpy0nX8njAD6alhXfNOBjBVpzQN pzKDg5i9mw4/AxjcTg4eucYMkjtj6hVkGGCs5paBmxEzvFgY8WAxZIADMlM2 N4eY4OOrlEbiBgNUCp7ueMzLBAuIPnDvGgOY5xJZoTkUUF3NWlQjM4LwYadV v0QK+JYf8tZlZIT4muB2/2gKzMtccz2zjRE0HeS7HnlTgMZDtovlZwTRLAV2 Wz3KZn1a1507yAipbLUOTX8YYeLxCuvrq4wQyXM5cV2VEYa2z2YZkijwOyTE qmmSHkbP3vzExrC5TtkPhTe/6WGyQuBfF5UCzurJCuU/6GHR9uhJx+0UiHqU HPvmIz1sKcmhXhegwAGhPh7hx/SgcOLUpTeaFKhSOjSsYk8PwXHVKgr+FGCX /d7r8p0OdrFFNuycpcDFp8RaQy8ZYtVEPY0WKKCcT6H4fyMDkw3mubFCgW/8 0ioKn8iwWrjoTKOjwsFGr79lNZv3TvfitnYOKpxtSN7YnkaGgisGpnEqVODq S+jktCGDZh/Ljy3+VEheOv5UdJAELyn51w8FU+Gh1VbiSQ8J5GR1ZQPCqBC/ PL9Xo4MEwgFBV0dvUaHkpzHN6d1mnnFOCDUkU2GE2T+DM58En4+0nr9RTYXe j6Qjd91IYODmzPqGoELmlUbeIEcS1N6nVNDqqaAaljN6yW5zvX4tpnMtVAg0 k3CwMyVBcmBx4aFfVCBtaxGJUSUBR9ZRs4ABKljbOCvly5MgumFk9fkwFe6s DrA3SJLg6k4hI+EpKnQdrJbk2U2CxQPV85ZzVLAtsDA35CSBh4NlWtwiFQ70 ov1h20gwdpN2uGGVCnkWom1vKCT4v/9I8P//kf4Hazpg2A== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None}, PlotRange->{{-3, 3}, {0., 370.3979585681299}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.53087882592546*^9, 3.725861298237617*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Exercise 9.24", "Section"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"n", "=", "4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["\[Mu]", "0"], "=", "200"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Sigma]", "=", "6."}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"LCL", "=", "191"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"UCL", "=", "209"}], ";"}], " ", StyleBox[ RowBox[{"(*", " ", RowBox[{ RowBox[{"these", " ", "are", " ", "the", " ", "3"}], "-", RowBox[{"sigma", " ", "control", " ", "limits"}]}], " ", "*)"}], "Text"]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dist", "=", RowBox[{"NormalDistribution", "[", RowBox[{"0", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["\[Mu]", "1"], "=", "188"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"probvalidsignal", "=", RowBox[{"1", "-", RowBox[{"(", RowBox[{ RowBox[{"CDF", "[", RowBox[{"dist", ",", FractionBox[ RowBox[{"UCL", "-", SubscriptBox["\[Mu]", "1"]}], FractionBox["\[Sigma]", SqrtBox["n"]]]}], "]"}], "-", RowBox[{"CDF", "[", RowBox[{"dist", ",", FractionBox[ RowBox[{"LCL", "-", SubscriptBox["\[Mu]", "1"]}], FractionBox["\[Sigma]", SqrtBox["n"]]]}], "]"}]}], ")"}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["\[Mu]", "1"], "=", "212"}], ";"}], "\[IndentingNewLine]", RowBox[{"probvalidsignal", "=", RowBox[{"1", "-", RowBox[{"(", RowBox[{ RowBox[{"CDF", "[", RowBox[{"dist", ",", FractionBox[ RowBox[{"UCL", "-", SubscriptBox["\[Mu]", "1"]}], FractionBox["\[Sigma]", SqrtBox["n"]]]}], "]"}], "-", RowBox[{"CDF", "[", RowBox[{"dist", ",", FractionBox[ RowBox[{"LCL", "-", SubscriptBox["\[Mu]", "1"]}], FractionBox["\[Sigma]", SqrtBox["n"]]]}], "]"}]}], ")"}]}]}]}], "Input", CellChangeTimes->{{3.530878749737143*^9, 3.530878825489481*^9}, { 3.530878879203471*^9, 3.530879070852257*^9}}], Cell[BoxData["0.8413447460698228`"], "Output", CellChangeTimes->{{3.530879054424436*^9, 3.530879071590617*^9}, 3.725861306740901*^9}], Cell[BoxData["0.8413447460698227`"], "Output", CellChangeTimes->{{3.530879054424436*^9, 3.530879071590617*^9}, 3.725861306750239*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Exercise 9.25", "Section"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"dist", "=", RowBox[{"NormalDistribution", "[", RowBox[{"0", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Gamma]", "=", RowBox[{"Quantile", "[", RowBox[{"dist", ",", RowBox[{"1", "-", FractionBox["1", "500"]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Xi]", "[", "\[Delta]_", "]"}], "=", RowBox[{"1", "-", RowBox[{"CDF", "[", RowBox[{"dist", ",", RowBox[{"\[Gamma]", "-", "\[Delta]"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ARLU", "[", "\[Delta]_", "]"}], "=", FractionBox["1", RowBox[{"\[Xi]", "[", "\[Delta]", "]"}]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"g1", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Log", "[", RowBox[{"ARLU", "[", "\[Delta]", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"\[Delta]", ",", RowBox[{"-", "1"}], ",", "3"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Beta]", "=", RowBox[{"Quantile", "[", RowBox[{"dist", ",", RowBox[{"1", "-", FractionBox[ FractionBox["1", "500"], "2"]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Zeta]", "[", "\[Delta]_", "]"}], "=", RowBox[{"1", "-", RowBox[{"(", RowBox[{ RowBox[{"CDF", "[", RowBox[{"dist", ",", RowBox[{"\[Beta]", "-", "\[Delta]"}]}], "]"}], "-", RowBox[{"CDF", "[", RowBox[{"dist", ",", RowBox[{ RowBox[{"-", "\[Beta]"}], "-", "\[Delta]"}]}], "]"}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ARLS", "[", "\[Delta]_", "]"}], "=", FractionBox["1", RowBox[{"\[Zeta]", "[", "\[Delta]", "]"}]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"g2", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Log", "[", RowBox[{"ARLS", "[", "\[Delta]", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"\[Delta]", ",", RowBox[{"-", "1"}], ",", "3"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"g1", ",", "g2"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.53087912387004*^9, 3.530879212800345*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwB4QQe+yFib1JlAgAAAE0AAAACAAAAXH4s1P//77/cB8O3ZLQjQKjUThDz 9e+/fnCW/8+xI0D1KnFM5uvvv5kLcXc7ryNAjte1xMzX77/IuDr3EqojQL8w P7WZr++/7VoXN8SfI0Ai41GWM1/vvxHEsbcviyNA6Ed3WGe+7r9w20e6KmIj QHQRwtzOfO2/KJ6zs7AQI0D/mq3Xg8PqvyaWNVGaYiJA00szLm446L+uv5Xk OcMhQFS+kRIeuuW/tVm2QvIpIUBJJ0bpswXjvxPIR4H+hiBAh7eUG39/4L9r OQ2ZDeQfQHF8coBghtu/q6ICnfCnHkAuDW3lTSfWv2ljkypseB1AfuybAaYk 0b/29MgDZGMcQGlx7QSUa8e/wZa/hZw9G0D7TRfqYo26vyX0lEiOMRpALxpn 5Cinmr97NniBkjAZQJUaaMo91a0/SI9dLTggGEBpU1iTrobBP1hpyMUmKBdA YMa+6nVwzD9zf8df1yEWQFIZYYWTk9M/8Q8bafgmFUDggC5egZLYPzwNGGvq QhRAiPtPUqP93T/eYV94/VETQM6TnkcthuE/yAYGox93EkBkM7/zokPkP95E +1B8kBFAThEHElP05j9ZGEpRnbQQQO7HtNTNduk/pyvyfavaD0AbiAylYi/s PwEEOpM4Nw5A/yDKGcK57j84k8Zsb7sMQBt8VwCum/A/PPcByyRSC0B87J76 h/XxP6di/Nd61glAOEkZR0c48z/wQwl1o38IQLuqaJoTlvQ/k+3TSngYB0Bn q8smfe31P9/77I1SxAVAbphhBcwt9z9aX7fTGpIEQDyKzOonifg//Toi9PlR A0BlaGoiac35Px9jMw1EMgJAt+Ubk0cL+z9O5qyYjSIBQNBnogozZPw/kMEk PC0HAEBE1lvUA6b9P87YejjaEv4/fknqpOEC/z+UI9FxpAP8P4rU1WNSJABA 4oE4cKUs+j/qU8CRAsQAQIUSmNmYcvg/rVUVQzlxAUBF8hgs4Kj2P57Ng53i EgJAC9A5gtIR9T/yx1x7EsICQFqegvxQbvM/25G/9RBuA0DPd2s78efxP/HR OxmCDgRAXW2r1qCO8D9rlCLAebwEQGpaXpWzWO4/Es0iEOReBUCQbqzEQejr P07VrPwc/gVANW1OtQ+m6T/tX6Fs3KoGQDpbtn7lV+c/umCvhQ5MB0Ctw4sh MFPlP7bPbEveTgdAObf5GXZK5T+xPioRrlEHQA9qtI6+QeU/qBylnE1XB0AI ANTrVjDlP5bYmrOMYgdAem0UbKUN5T9xUIbhCnkHQKhhLz+5yOQ/KEBdPQem B0CQDYgBukDkPySvGgPXqAdArFBp6U445D8fHtjIpqsHQJmpm0PmL+Q/FvxS VEaxB0Dra7BNHB/kPwS4SGuFvAdAFL/Ar6X94z/gLzSZA9MHQCJagmQtu+M/ 3J7xXtPVB0DMy3dL6bLjP9cNrySj2AdAJh6rn6eq4z/O6ymwQt4HQIemhI4r muM/vKcfx4HpB0DL9xB9UHnjP7gW3YxR7AdA6YMDxR9x4z+zhZpSIe8HQIwD pXfxaOM/qmMV3sD0B0CsWawbnFjjP6XS0qOQ9wdA9sptDHVQ4z+gQZBpYPoH QFpllWZQSOM/nLBNLzD9B0Dh0tApLkDjP5cfC/X//wdAea/NVQ444z+8FUga "]]}}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwV1nk8lGsbB3ANmiIa6zziJEukE2U5pVPcFyJlCZV0FIreSCnZCtmyVVos qciWjC1LhZDcyL6XsZR0EBpjmZCIMu9z/ng+z+f773X/7t91y52+aHWGwsPD 009+//1PBGxjcrkc7KHb1xPCXQ9ZTHPa3DwHB9lt5GdSaDC/1d10bIKDjZH1 3Bg/De70Fte29nLwuOf2NqF1NMA7UPGjAg6+t9HNy56ggfwXy3hNew6W01++ I6pOA9Z+H5uzldO4lPn6wavTNPAUqfnU7j+Fb4vc2LJUTwNuQl7v9bdsvO2j rEXOUxHoMtFUc9NmYfeD87seXhGFI5XRohvLR3H0e7FzB0zF4ICy0fhL/i94 +siI7qyWOES8ipMODBzE5yQzvd8KS4C7/+Ugh/B+XKjR5Bm2IAFqQhdGzZR7 cLTeo1nR95KQ2zhgaCDWg229O6cVuiVhS6g5Q5vbjSN2om7NPklQWN5+VqG3 G0/ol1lbfJYEYnyWtRjejUuCN436sSWBUndlMn2MiTk/vk8mUOjQ4x869zOj C0eO7BobVadDwGTiKobiO9xqcH9IOIoOBcdSotnC73BaX8x67h06DNY8kdv+ sxOz/B1kpqLpoP8oW6+0rRM/jnxeXfOADvxGr4KbvTuxaq153eF0OtBRBu/n 6A4sYZLyY005HTQyRPkufWzFzhdOxqaN0iHOT0rxZ34rVlcSMjRk0eGH5aZ9 Iddb8fUTMwfG2HQoW1ENjdvWistbYc+mb3QAmwN8ZQEt2OwFRcdjiQ7mgkF8 FIVm/I9CSVW0MAEu7lN8ca4N+KvusVf3tAgAdp4vj0ED5tcSvlywkwBJR7dv 5zc04FnzNJsWbQJqjnD6DZvq8ZK2X8LSXgJktGdeLCjV4y0t627sNCSgfeW7 g+1wLe7IX+jedJSApz7FPQ1ltXiryLkY2jECfL95mWpF12KL62/RbxsClId/ 7BKCWuxblmnXdoKAoLpFYZz0Fm/+Jm5s7ESAZtSvCvnjNVgjISor4zIBAvxv NO7uqMFWYZza054EDF67lrVMrcF315k9kvEmIOriSiyzpBrP+iieCL9KwJgV j2u4eDVu3mvAVg8iYIfmGg1mCsYcXKs1FkXAshmdffp2OV6sZrQ+Syfg87HD EUydcnx/jfSvuacEVJ26q2g0XYb5x1fSdjEICPWi2qscKsMvNa2NirIIEEpa 6OLQSrE6n0VmSB4BspO9b/zjivE9o/477iUEUH6I2U7vK8Z/yjpwAl4RMMI9 tGg/X4T5N29KjiwlIEusUcPAuggHXFQZuFdOgPqe0sy1xEvsca7ziWclAQY3 H0bHJxZiTkb+xYg6AjbHMdXWmBbicjFaoU09Aev3yj2cWyzAUoo2fyg1EPDQ UUSovDwfO09a+hQ3EpDzYuaHke4zrFHAWMhoIcCt3kV9a0ou3pBZdcGmlZzv xyFXIZ5c7B3MpVDbCKhY9X6wqzobJ7Vkhtq0E9Bh8aLZwTATjwamlrd2EhDn tJV/H4OB5SUyuPbvCLC58gQpUxn4laiiDYf0UEpM0VTjU7zbzUGX0kUA46UA p1PlKS49m9gURvpcQ4hK0c10rC1h6sjPJGBu+nKyr+kTvCfO9c0i6VLKRN/J vDR88FiK3/luAvwlHcX0hNPwtrr3Bp9IC/gzaOtTUzCDR2m6oIeA2PT4sO5T ybh6/+F2sV4yjy3hS4kKSXhkb2KRB+ntG86ObMlMwGyp5bvKfQTM7g2xGjZ7 hHXW7vYJIV1kn1SV+P0BnjNRfdZH2iekVO1oYjxuyfmquvUDAX9ndD0W1r+P LQdDl71J/2qYFmhkxeLXaWrimDRmr70afDcGJzOkfSgfCYh0CMphld3FbYn9 hB9pIUZJuC31Nv7X4qR1IemYicnT7Udu4j+GA/sHSdPVFZDekwhsGfY6c10/ AY+9j0sXcUJxTuL9ck3SchV3F5R0QnBbSaqYNWkz3qhMTYlAbJjs/8KDtM2d RXupwqtYyLInPor0aakzBPegJ54ScK5KJf3BOD2tqeUCfmX0U62Q9LSdv+j9 VY7YospuuJw0PztndbWbBZb39v1YRdo485ZdarwWOp67h15DOvvNt79Eyv9B RV+TH1aSrjKW3aqj7IxWLebZlZC2lkr/VHrFHclMBbpkkza5s1Oxa8Abmcrs LntAGnibXaf0/dF1GUHzYNLSFfkfeJlBSLZOa8v/SMd7X/l9L/w6+rSVYmxE WkRdX27j7nBkltSaJ0c6akLQMHciEm1PXzq+SM5rNaPbWTv5FjozzzVtJh3s kBJVZ3EHTfmdjHhAOuC2lk128D1E7E9b60C64pwUm/MxGrnf+h9TgfTP/St+ O7ViUc6jo6xh8vx2bv4idO12HHL/oGCURNqT0pjyduw+squOnbYi/fzfZ+oC 8AD5dXgO85Keroh+a/HoIRoJSpcvJPPi4mP7dcAkEYlGPL61ROaNcQSuKmY8 RvqBDiUPSY+obxZ0XUlCJWZn1DX+y6O3D93fJhVd7n0uc4zMb84OvT1rBdOR zrU0tjOZ/wMpmqHPXqWj4pUTZUPkfWEJKbUdcnqKRP5OHz5KevOEgH38mwzk 8Hj44I73BKRmMEMULmWhwCb7lLwOAnTFG1rqZbLR8dumF1eRHggpEz/XlI0M O5UyLcj7vMEhmVEon4vsnu22HiLv//0Nzs063XlodVjIeEsTmR+uR8Vh73x0 2H7KZC1ptZHAfBd6AepUCqnQJ/vkS49JU/O2QuRF8+3IJvvHL9Ux74fbc5Rq nz9j/JaAZ5qxXuZzL5Ham0vs1tcEiCo9cvtgUIQG3XhlWsl+u0KknHWKK0LS PsX+DWUE7Pudc9z3r2LUKF3PfEH240B9jQ7DpwStfntc/sRLAoT/meVfWS5F 1msjHZazyfMxXVyJNC1D94bX5VSS/ftRd2VBLKkMDYtLmwRkkvNXEGCr6Jaj vuTu5Fmyv9GUXPvRoNfIi7u5vyCFgEtBlvF5fJVIhWajGhhHnt9hm9j88Grk yWwJCPcjQGuquPDoi2qkJ3LRoYTcHzwRYu2/BqqR07eLLsM+ZL+Wt68x+asG nbnFoGwn90+jnGHA1y81KME5vznhPAFK39RdNunVoi8b94dVkftsJEoQxSzX o9Z/5H45/k1AoZLLid3KDQjvemwrR+5T/6r6q4NWDejcn2su9/9FgPj34CK1 nAZ0SEenx1Cd7H/bRZUWm0a0V1B8ZU6ZgCcqo+J8JU3onbrUQJk4AQ71lWyv S63I5/M+p3WTdBBh6hZYJLYi36DcFa9xOtQMVXr8Wd+Kbsfb/f40RgfF35W/ BqXb0LTdT+30ITqwNLGwaUMb8uM0yIn00sE9DWvIb+xALDePq97VdNDTddD5 OtqJIkJe1oTG0cFK6lRYbGwXShXnl4jRIt83QWp2wTF9yEpsj+Bld0mIXD5k lf57AN3foHbkzF0JaI9N3q8aPoTQgoHukRJxcNLEc08MRtD4GzGPD01iYC5C FT38fQz13FjPl/VFFKYbipht3uOIYv2BdZYmCtKR6zJOb59EWjXqlgY7RIC7 qVmqpmwaMVe3c5WdaCDtf4wnP/Ebihv/cuSs/nrwn0xeipifQYFdidMHMoVA +4DU/v3ac2hKtXvTvMY6eJ3jnCAW/x25O1ps6MkVgLO5LUrXpubRUnjblQva a8Ht4Sn+VtUF1N7+1FRrnAp7b7aylW8sIl2e8OmuG6vhjPM5eZe2n8ii7WLQ n2b88GpUOna/4DKa2XxA+pAcH3SefSKg6fQLpXapeeZ8pcC+HlsmL+M3UpDd K/e9bRUEHGA/HaJwUeabY//aZvHATWa3o5UiD0ga6xnY6nMR+3BVNKWWB3xW C/2RY/Ub5R2VMNjtvgpyKlFeyKFllNx2PWlYlAJ1cRGiCdd/otmGE36iNRTw mkT9eZkLqD8az9PceEHxqgW1hz2PZt7tkQoR5oO4dWWsWPvvyDVOvupqBR/s ktymodg4i0Tb5GkjdvzwvM5Q0Mh+Bpl3P/sls8IPly8wPTzXf0NT9mnnP+Ws BuFIkfb0C1Oo3KEgTNiUCvsuNccUCk+gko7zJp/NqZAV85nhzDeBnutuFcm3 pIJ01EEnhSU2ypLJeGx2jAqqgbSPqaNsFN+X8DLqNBWUspOzX1ewkbtF+JDA VSpsu/814ZIrG22BkzpUBhXyCDtmd/M4UizYwNubRQUJL76bw1XjSHZjXyMj lwqnXKUHZ0rGkeQvqyNGz6kgEup7nkgfR3ylxq5hFVQQ/ySxEuo3jga3az3i 7aKCMsW6rn/bOPqUPGPX1U2FsWAJB1GFcdQrVKCY3kcFx6SKeBOpcdQ+oVKo /5kKyx5JPXX846giU7YhmMxBh0T2ww+fWahUciDKcpIKDLMMgc3dLPQyLMFK jkOFXUZI0qOFhXIcJT5XfaeCir/ST8lSFsp4/z793gIVZB4MdpzPZ6FUvXsu DktUGFIVRXVPWehxodn2Hb+p4HbL3WhTIgs9kBWc53Kp4DtZNHotmoX+D9oe jC4= "]]}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None}, PlotRange->{{-1, 3}, {0., 9.852330915982684}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.530879206556471*^9, 3.530879213483778*^9}, 3.7258613141020947`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Exercise 9.26", "Section"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"n", "=", "5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Sigma]", "=", SqrtBox["49"]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"data", "=", RowBox[{"{", RowBox[{ "34.5", ",", "34.2", ",", "31.6", ",", "31.5", ",", "35.0", ",", "34.1", ",", "32.6", ",", "33.8", ",", "34.8", ",", "33.6", ",", "31.9", ",", "38.6", ",", "35.4", ",", "34.0", ",", "37.1", ",", "34.9", ",", "33.5", ",", "31.7", ",", "34.0", ",", "35.1", ",", "33.7", ",", "32.8", ",", "33.5", ",", "34.2"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["\[Mu]", "0"], "=", RowBox[{"N", "[", RowBox[{ RowBox[{"Mean", "[", "data", "]"}], ",", "5"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"LCL", "=", RowBox[{ SubscriptBox["\[Mu]", "0"], "-", RowBox[{"3", "\[Times]", FractionBox["\[Sigma]", SqrtBox["n"]]}]}]}], "\[IndentingNewLine]", RowBox[{"CL", "=", SubscriptBox["\[Mu]", "0"]}], "\[IndentingNewLine]", RowBox[{"UCL", "=", RowBox[{ SubscriptBox["\[Mu]", "0"], "+", RowBox[{"3", "\[Times]", FractionBox["\[Sigma]", SqrtBox["n"]]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"list1", "=", RowBox[{"Table", "[", RowBox[{"LCL", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "data", "]"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"list2", "=", RowBox[{"Table", "[", RowBox[{"CL", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "data", "]"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"list3", "=", RowBox[{"Table", "[", RowBox[{"UCL", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "data", "]"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"list3", ",", "list2", ",", "data", ",", "list1"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"AxesOrigin", "->", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\<\>\""}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{"Red", ",", "Thick"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"Green", ",", "Thick"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"Blue", ",", "Thick"}], "]"}], ",", " ", RowBox[{"Directive", "[", "Red", "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"Length", "[", "data", "]"}], "+", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Min", "[", RowBox[{ RowBox[{"Min", "[", "data", "]"}], ",", "LCL"}], "]"}], "-", "1"}], ",", RowBox[{ RowBox[{"Max", "[", RowBox[{ RowBox[{"Max", "[", "data", "]"}], ",", "UCL"}], "]"}], "+", "1"}]}], "}"}]}], "}"}]}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\<\!\(\*SubscriptBox[OverscriptBox[\(x\), \(_\)], \(N\)]\)\>\"", ",", "\"\\""}], "}"}], ",", "Right"}], "]"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.530878749737143*^9, 3.530878825489481*^9}, { 3.530879365027543*^9, 3.530879656794348*^9}, {3.530879699046585*^9, 3.530879714835343*^9}, 3.530879758109538*^9, {3.7258613228424597`*^9, 3.725861337106097*^9}}], Cell[BoxData["24.612681161167554`"], "Output", CellChangeTimes->{{3.5308796129916973`*^9, 3.530879657808633*^9}, 3.530879699662088*^9, 3.530879735976753*^9, 3.7258613378644*^9}], Cell[BoxData["34.00416666666667`"], "Output", CellChangeTimes->{{3.5308796129916973`*^9, 3.530879657808633*^9}, 3.530879699662088*^9, 3.530879735976753*^9, 3.7258613378739023`*^9}], Cell[BoxData["43.39565217216578`"], "Output", CellChangeTimes->{{3.5308796129916973`*^9, 3.530879657808633*^9}, 3.530879699662088*^9, 3.530879735976753*^9, 3.725861337881579*^9}], Cell[BoxData[ TemplateBox[{GraphicsBox[{{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[1, 0, 0], Thickness[Large]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGCQAGIQDQEf7PtYf+1assnVASrggMrnQOMLoPFF0PgSaHwZ NL4CGl8Jja+CxldD42ug8bXQ+DpofD00vgEa3xCNb4TGN0bjm6DxTdH4Zmh8 czS+BZwPAL20b1E= "]]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[0, 1, 0], Thickness[Large]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGCQAGIQDQEf7Ds7gIDB0QEq4IDK50DjC6DxRdD4Emh8GTS+ AhpfCY2vgsZXQ+NroPG10Pg6aHw9NL4BGt8QjW+ExjdG45ug8U3R+GZofHM0 vgWcDwDEDVgR "]]}, { Hue[0.1421359549995791, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[0, 0, 1], Thickness[Large]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGCQAGIQDQEf7MGUg6MDVMBh1kwgkITxOSD8mfZQvgCEboDx RaB8mHoJh7NngIAHxpeB8H0coHwFhzQQeAbjK0H4aTD1KhD1Z2DyalD1MPs0 oOY5Q/laDsYgsBmmXwdKw/h6EPU9TlC+AUR9MUzeEEIfgNlnBDUPZp8xmnkm UPNgfFNI+NyE6TeD+gfGN0cz3wIevgCwtlJl "]]}, { Hue[0.37820393249936934`, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[1, 0, 0]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGCQAGIQDQEf7NnF9dbcmGPhABVwQOVzoPEF0PgiaHwJNL4M Gl8Bja+ExldB46uh8TXQ+FpofB00vh4a3wCNb4jGN0LjG6PxTdD4pmh8MzS+ ORrfAs4HAIcKUYE= "]]}}}, {}}, { DisplayFunction -> Identity, PlotRangePadding -> {{0, 0}, {0, 0}}, AxesOrigin -> {1, 0}, PlotRange -> {{0, 25}, {23.612681161167554`, 44.39565217216578}}, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> { FormBox["\"N\"", TraditionalForm], FormBox["\"\"", TraditionalForm]}, AxesOrigin -> {1, 0}, DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> {}, PlotRange -> {{0, 25}, {23.612681161167554`, 44.39565217216578}}, PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{ "\"UCL\"", "\"CL\"", "\"\\!\\(\\*SubscriptBox[OverscriptBox[\\(x\\), \\(_\\)], \ \\(N\\)]\\)\"", "\"LCL\""}, "PointLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.198], AbsoluteThickness[1.6], RGBColor[1, 0, 0], Thickness[Large]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.198], AbsoluteThickness[1.6], RGBColor[1, 0, 0], Thickness[Large]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.198], AbsoluteThickness[1.6], RGBColor[0, 1, 0], Thickness[Large]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.198], AbsoluteThickness[1.6], RGBColor[0, 1, 0], Thickness[Large]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.198], AbsoluteThickness[1.6], RGBColor[0, 0, 1], Thickness[Large]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.198], AbsoluteThickness[1.6], RGBColor[0, 0, 1], Thickness[Large]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.198], AbsoluteThickness[1.6], RGBColor[1, 0, 0]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.198], AbsoluteThickness[1.6], RGBColor[1, 0, 0]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[1, 0, 0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[1, 0, 0], Editable -> False, Selectable -> False], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0, 1, 0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0, 1, 0], Editable -> False, Selectable -> False], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0, 0, 1]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 0, 1]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0, 0, 1], Editable -> False, Selectable -> False], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[1, 0, 0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[1, 0, 0], Editable -> False, Selectable -> False]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{{3.5308796129916973`*^9, 3.530879657808633*^9}, 3.530879699662088*^9, 3.530879735976753*^9, 3.72586133801495*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"numberobsoutofcontrol", "=", RowBox[{ RowBox[{"Length", "[", "data", "]"}], "\[Times]", RowBox[{"Mean", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"data", "[", RowBox[{"[", "i", "]"}], "]"}], "<", "LCL"}], " ", "||", " ", RowBox[{ RowBox[{"data", "[", RowBox[{"[", "i", "]"}], "]"}], ">", "UCL"}]}], ",", "1", ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "data", "]"}]}], "}"}]}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"numberobsoutofcontrol", ">", "0"}], ",", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "numberobsoutofcontrol", ",", "\"\< out of control observation(s), thus we need to update the data and \ control limits.\>\""}], "]"}], ",", RowBox[{ "Print", "[", "\"\\"", "]"}]}], "]"}]}], "Input", CellChangeTimes->{3.53087978734709*^9}], Cell[BoxData["\<\"There are no out of control observations.\"\>"], "Print", CellChangeTimes->{3.530879787809065*^9, 3.725861344935534*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"dist", "=", RowBox[{"NormalDistribution", "[", RowBox[{"0", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Xi]", "[", "\[Delta]_", "]"}], "=", RowBox[{"1", "-", RowBox[{"(", RowBox[{ RowBox[{"CDF", "[", RowBox[{"dist", ",", RowBox[{"3", "-", "\[Delta]"}]}], "]"}], "-", RowBox[{"CDF", "[", RowBox[{"dist", ",", RowBox[{ RowBox[{"-", "3"}], "-", "\[Delta]"}]}], "]"}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"\[Xi]", "[", "0.", "]"}]}], "Input", CellChangeTimes->{{3.53087979758672*^9, 3.5308798243707237`*^9}, 3.53088000792912*^9}], Cell[BoxData["0.002699796063260318`"], "Output", CellChangeTimes->{{3.530879819881805*^9, 3.53087982480449*^9}, 3.530880008405723*^9, 3.530880039479411*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ SubscriptBox["\[Mu]", "1"], "=", "45"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"shift", "=", FractionBox[ RowBox[{ SubscriptBox["\[Mu]", "1"], "-", SubscriptBox["\[Mu]", "0"]}], FractionBox["\[Sigma]", SqrtBox["n"]]]}], ";"}], "\[IndentingNewLine]", RowBox[{"probvalidsignal", "=", RowBox[{"\[Xi]", "[", "shift", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dist", "=", RowBox[{"GeometricDistribution", "[", "probvalidsignal", "]"}]}], " ", ";"}], StyleBox[ RowBox[{"(*", " ", RowBox[{ StyleBox[ RowBox[{ "geometric", " ", "distribution", " ", "for", " ", "the", " ", "number", " ", "of", " ", "trials", " ", "before", " ", "the", " ", "first", " ", "success"}], GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[",", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[" ", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], RowBox[{ StyleBox["where", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[" ", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox["the", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[" ", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox["probability", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[" ", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox["of", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[" ", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox["success", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[" ", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox["in", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[" ", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox["a", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[" ", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox["trial", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[" ", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox["is", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[" ", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], FormBox[ StyleBox["p", "TI"], TraditionalForm]}]}], StyleBox[" ", GridBoxOptions->{GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], "*)"}], "SmallText"]}], "\[IndentingNewLine]", RowBox[{"PDF", "[", RowBox[{"dist", ",", RowBox[{"5", "-", "1"}]}], "]"}]}], "Input", CellChangeTimes->{{3.530879882060525*^9, 3.530879947451573*^9}, { 3.530879978282406*^9, 3.530879997410048*^9}}], Cell[BoxData["0.7370667290419908`"], "Output", CellChangeTimes->{3.5308800140614433`*^9, 3.725861354453442*^9}], Cell[BoxData["0.0035228080856118484`"], "Output", CellChangeTimes->{3.5308800140614433`*^9, 3.725861354465015*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"dist", "=", RowBox[{"NormalDistribution", "[", RowBox[{"0", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"fractiondefective", "=", RowBox[{"1", "-", RowBox[{"(", RowBox[{ RowBox[{"CDF", "[", RowBox[{"dist", ",", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"30", "+", "1"}], ")"}], "-", SubscriptBox["\[Mu]", "0"]}], FractionBox["\[Sigma]", SqrtBox["n"]]]}], "]"}], "-", " ", RowBox[{"CDF", "[", RowBox[{"dist", ",", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"30", "-", "1"}], ")"}], "-", SubscriptBox["\[Mu]", "0"]}], FractionBox["\[Sigma]", SqrtBox["n"]]]}], "]"}]}], ")"}]}]}]}], "Input", CellChangeTimes->{{3.53087979758672*^9, 3.5308798243707237`*^9}, 3.53088000792912*^9, {3.530880053955204*^9, 3.530880128692165*^9}, { 3.5308801622034397`*^9, 3.530880164985877*^9}}], Cell[BoxData["0.8863466366721651`"], "Output", CellChangeTimes->{3.530880129591185*^9, 3.5308801659720993`*^9, 3.725861357802989*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Exercise 9.27", "Section"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"n", "=", "5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["\[Sigma]", "0"], "=", SqrtBox["4"]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"incontrolARL", "=", "200"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"probfalsealarm", "=", FractionBox["1", "incontrolARL"]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dist", "=", RowBox[{"ChiSquareDistribution", "[", RowBox[{"n", "-", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Gamma]", "=", RowBox[{"Quantile", "[", RowBox[{"dist", ",", FractionBox["probfalsealarm", "2."]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Beta]", "=", RowBox[{"Quantile", "[", RowBox[{"dist", ",", RowBox[{"1", "-", FractionBox["probfalsealarm", "2."]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"LCL", "=", RowBox[{ FractionBox[ SuperscriptBox[ SubscriptBox["\[Sigma]", "0"], "2"], RowBox[{"n", "-", "1"}]], "\[Times]", "\[Gamma]"}]}], "\[IndentingNewLine]", RowBox[{"CL", "=", SuperscriptBox[ SubscriptBox["\[Sigma]", "0"], "2"]}], "\[IndentingNewLine]", RowBox[{"UCL", "=", RowBox[{ FractionBox[ SuperscriptBox[ SubscriptBox["\[Sigma]", "0"], "2"], RowBox[{"n", "-", "1"}]], "\[Times]", "\[Beta]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Xi]", "[", "\[Theta]_", "]"}], "=", RowBox[{"1", "-", RowBox[{"(", RowBox[{ RowBox[{"CDF", "[", RowBox[{"dist", ",", FractionBox["\[Beta]", SuperscriptBox["\[Theta]", "2"]]}], "]"}], "-", RowBox[{"CDF", "[", RowBox[{"dist", ",", FractionBox["\[Gamma]", SuperscriptBox["\[Theta]", "2"]]}], "]"}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"1", "/", RowBox[{"\[Xi]", "[", "1", "]"}]}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.5308802121339817`*^9, 3.53088042872644*^9}, { 3.53088046515215*^9, 3.530880520344952*^9}}], Cell[BoxData["0.14486686537940643`"], "Output", CellChangeTimes->{{3.530880507456492*^9, 3.530880521261485*^9}, 3.725861364894615*^9}], Cell[BoxData["4"], "Output", CellChangeTimes->{{3.530880507456492*^9, 3.530880521261485*^9}, 3.725861364904504*^9}], Cell[BoxData["16.423936124136556`"], "Output", CellChangeTimes->{{3.530880507456492*^9, 3.530880521261485*^9}, 3.725861364911614*^9}], Cell[BoxData["200.00000000000426`"], "Output", CellChangeTimes->{{3.530880507456492*^9, 3.530880521261485*^9}, 3.7258613649195147`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ SubscriptBox["\[Sigma]", "1"], "=", SqrtBox["6"]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"shiftinsigma", "=", FractionBox[ SubscriptBox["\[Sigma]", "1"], SubscriptBox["\[Sigma]", "0"]]}], ";"}], "\[IndentingNewLine]", RowBox[{"probvalidsignal", "=", RowBox[{"\[Xi]", "[", "shift", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dist", "=", RowBox[{"GeometricDistribution", "[", "probvalidsignal", "]"}]}], " ", ";"}], StyleBox[ RowBox[{"(*", " ", RowBox[{ StyleBox[ RowBox[{ "geometric", " ", "distribution", " ", "for", " ", "the", " ", "number", " ", "of", " ", "trials", " ", "before", " ", "the", " ", "first", " ", "success"}], GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[",", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[" ", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], RowBox[{ StyleBox["where", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[" ", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox["the", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[" ", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox["probability", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[" ", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox["of", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[" ", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox["success", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[" ", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox["in", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[" ", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox["a", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[" ", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox["trial", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[" ", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox["is", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[" ", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], FormBox[ StyleBox["p", "TI"], TraditionalForm]}]}], StyleBox[" ", GridBoxOptions->{GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], "*)"}], "SmallText"]}], "\[IndentingNewLine]", RowBox[{"PDF", "[", RowBox[{"dist", ",", RowBox[{"1", "-", "1"}]}], "]"}]}], "Input", CellChangeTimes->{{3.530880536359784*^9, 3.5308805935309134`*^9}, { 3.530881642920546*^9, 3.5308816499031553`*^9}}], Cell[BoxData["0.8560754154292058`"], "Output", CellChangeTimes->{3.530880596617798*^9, 3.53088165077393*^9, 3.725861366676227*^9}], Cell[BoxData["0.8560754154292058`"], "Output", CellChangeTimes->{3.530880596617798*^9, 3.53088165077393*^9, 3.725861366685848*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Example 9.28", "Section", CellChangeTimes->{{3.5308804802790194`*^9, 3.5308804839745417`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ SubscriptBox["\[Sigma]", "0"], "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"probfalsealarm", "=", "0.002"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Theta]", "=", RowBox[{"{", RowBox[{ "0.5", ",", "0.75", ",", "0.8", ",", "0.9", ",", "0.95", ",", "1", ",", "1.1", ",", "1.2"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", RowBox[{"{", RowBox[{"4", ",", "5", ",", "7", ",", "10", ",", "15", ",", "100"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", "\[Theta]", "]"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", RowBox[{"Length", "[", "n", "]"}]}], ",", RowBox[{"j", "++"}], ",", RowBox[{ RowBox[{"\[Xi]", "[", RowBox[{"i", ",", "j"}], "]"}], "=", RowBox[{"1", "-", RowBox[{"(", RowBox[{ RowBox[{"CDF", "[", RowBox[{ RowBox[{"ChiSquareDistribution", "[", RowBox[{ RowBox[{"n", "[", RowBox[{"[", "j", "]"}], "]"}], "-", "1"}], "]"}], ",", FractionBox[ RowBox[{"Quantile", "[", RowBox[{ RowBox[{"ChiSquareDistribution", "[", RowBox[{ RowBox[{"n", "[", RowBox[{"[", "j", "]"}], "]"}], "-", "1"}], "]"}], ",", RowBox[{"1", "-", FractionBox["probfalsealarm", "2."]}]}], "]"}], SuperscriptBox[ RowBox[{"\[Theta]", "[", RowBox[{"[", "i", "]"}], "]"}], "2"]]}], "]"}], "-", RowBox[{"CDF", "[", RowBox[{ RowBox[{"ChiSquareDistribution", "[", RowBox[{ RowBox[{"n", "[", RowBox[{"[", "j", "]"}], "]"}], "-", "1"}], "]"}], ",", FractionBox[ RowBox[{"Quantile", "[", RowBox[{ RowBox[{"ChiSquareDistribution", "[", RowBox[{ RowBox[{"n", "[", RowBox[{"[", "j", "]"}], "]"}], "-", "1"}], "]"}], ",", FractionBox["probfalsealarm", "2."]}], "]"}], SuperscriptBox[ RowBox[{"\[Theta]", "[", RowBox[{"[", "i", "]"}], "]"}], "2"]]}], "]"}]}], ")"}]}]}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"\[Xi]", "[", RowBox[{"i", ",", "j"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "\[Theta]", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{"Length", "[", "n", "]"}]}], "}"}]}], "]"}], "]"}]}], "Input", CellChangeTimes->{{3.5308802121339817`*^9, 3.53088042872644*^9}, { 3.53088046515215*^9, 3.5308804663770313`*^9}, {3.530881691053543*^9, 3.530881734187139*^9}, {3.5308817911003838`*^9, 3.530881805210607*^9}, { 3.530881879276634*^9, 3.530882336624875*^9}, {3.5308823770569153`*^9, 3.5308825917094803`*^9}, {3.530882661487102*^9, 3.530882705196788*^9}, { 3.530882785103175*^9, 3.53088280881597*^9}, {3.530882851890491*^9, 3.530882865423545*^9}, {3.530882997696899*^9, 3.530883004400045*^9}, { 3.5308830502413673`*^9, 3.5308831657164516`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.007827551340826355`", "0.014623806345066104`", "0.04213368200272605`", "0.1329290981712743`", "0.4067607286269601`", "0.9999999999999742`"}, {"0.0023593258550314022`", "0.003088636853224136`", "0.0050356644326569056`", "0.009313043284838618`", "0.020671629361440735`", "0.7624502313776136`"}, {"0.0019577847536373927`", "0.002408758363418473`", "0.0035277334293150053`", "0.005750804040594026`", "0.011016004000434898`", "0.4198373733741725`"}, {"0.001532648189773722`", "0.0016523368865185573`", "0.0019261356109215866`", "0.0023914096636078463`", "0.0032739112156130457`", "0.037723776039249035`"}, {"0.0016003958398371765`", "0.0016284888674693576`", "0.0016985152540807125`", "0.001818604594633677`", "0.002035254255059238`", "0.006949088568656947`"}, {"0.0020000000000000018`", "0.0020000000000000018`", "0.0020000000000000018`", "0.0020000000000000018`", "0.0020000000000000018`", "0.0020000000000000018`"}, {"0.004522226453924416`", "0.0048744429338766215`", "0.005553289069737843`", "0.006569029242652902`", "0.00832324270062379`", "0.05476061971091617`"}, {"0.010808387531091146`", "0.012654303876444728`", "0.016446620454121152`", "0.022529932797436425`", "0.033847620119081046`", "0.37317237933202596`"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.530882592297711*^9, 3.530882685405939*^9, {3.530882771827598*^9, 3.5308828007866077`*^9}, 3.530882892045642*^9, 3.530882940558157*^9, 3.5308830065775642`*^9, {3.5308830579155188`*^9, 3.530883166729724*^9}, 3.725861370132428*^9, 3.7258615051010513`*^9, 3.7258615614667797`*^9, 3.725861599828054*^9, 3.725861637878669*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", "\[Theta]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", "5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["\[Sigma]", "0"], "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"probfalsealarm", "=", "0.002"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dist", "=", RowBox[{"ChiSquareDistribution", "[", RowBox[{"n", "-", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Gamma]", "=", RowBox[{"Quantile", "[", RowBox[{"dist", ",", FractionBox["probfalsealarm", "2."]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Beta]", "=", RowBox[{"Quantile", "[", RowBox[{"dist", ",", RowBox[{"1", "-", FractionBox["probfalsealarm", "2."]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Xi]", "[", "\[Theta]_", "]"}], "=", RowBox[{"1", "-", RowBox[{"(", RowBox[{ RowBox[{"CDF", "[", RowBox[{"dist", ",", FractionBox["\[Beta]", SuperscriptBox["\[Theta]", "2"]]}], "]"}], "-", RowBox[{"CDF", "[", RowBox[{"dist", ",", FractionBox["\[Gamma]", SuperscriptBox["\[Theta]", "2"]]}], "]"}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ARL", "[", "\[Theta]_", "]"}], "=", FractionBox["1", RowBox[{"\[Xi]", "[", "\[Theta]", "]"}]]}], ";"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"ARL", "[", "\[Theta]", "]"}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "0.01", ",", "2"}], "}"}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"ARL", "[", "1", "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.530883199343261*^9, 3.530883200837599*^9}, { 3.530883233566918*^9, 3.530883308877755*^9}, {3.530883355653111*^9, 3.530883363513069*^9}, {3.725861577447275*^9, 3.7258615801410637`*^9}, { 3.725861626821555*^9, 3.7258616336278553`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJw913k0Vt8XMHAJITKLSBJCEUKG2LsMmUnGEqIQUgpR5keUaKCEkBQiklmm DBkyZUqRIYTMj8c85X2+v/dd7/3j3vVZd91z9j773LPOOWh73egKJQUFxQXy 7b/nuihP6didYKD430WEZanwveeVn/1/E1vD2lE58f+7cI/63rjE10D1/7xU 8KU2iu8trJ//v372gCrhiVUKcEzR/s8yF9XcIxJToSGO8D/zGrFnhM+mwthL 4v9MdebP4EOVNLDhydrxn6eV8jkePkqDS75TlP+5UzJYJ2wgDSod1qj+c4mQ ceADiXcQsqFD+5+T9wkW3fd7BzmXnjD+5zCmxenQ1nfAW1XF8Z9vUn0RCOVL h99d6gL/uY/+DAk90mGodOeJ/6zB0li13pQOSzeTTf/zx716T/MFMiDTY+3e f+bma7Nx9c4ADe2Upv8cJHhOUqQtAzjzQyV3/BevWPf2kPB7MHO2qfzPplIW 3176voc8xoAwSrIrT/QlmnS9h9pb0ck7yRZTsXZlOpIJJQvxB6n/Gy+1YeWv gZkwd6FPeBfZ/7SvMBJ+ZkLba8YeOrIdz/7tO3ksCzbsoxwYye4wc85cvpcF FC+/7mYl+6TV7N2PfVkgk+FAz0V26mU3HafjH0BnhJh/gGwm58V9gmEfIJJR wlmUbC+325P9vz/A+RcZ8bJkD99e//TiRDYYmRxrVCNb18/3wdlH2VARLBNq 9l+9gyksdo9mg3SK2l1Xsp/Unno2vP8jDDRr2YWRXau50we0PkKV0WfWTLLX m77Yxbt/hEr6avcuso8ZhOisvfoIWl1r4VQ7iHC548xx06aPcG7IzEuZ7BgT Op685Y9A25tyLYDslp+NlMwCOTDWNVzeSjalZfiki14OZG84d4lSEuHEoF7H V68cuJQwJxdFtostU4nw2xywMRW7x7CTCK9H214TvuXA9V+uXi/I7naMfPB7 PQeMW9aGZamIsHv6nJuycC58/MKWPUE2XuewiDubC1d9qAbyqYngQerGFZ9c 4HrdGxJLQ4QMjxgR43e5UHeO4XvsLiIMrlow53TmQvKvRZpiWiKw+/CsMm7n QpyJjMsyHRE0t/sGncTyoMZx2c5sNxF8gxLr603yQENI6EI/AxFyqW2yBQPz IFYhojFsDxHG7h98EZiZB5yxqzK2zETgYRjxG/iRB/phakL2rEQwfPzWXmln Ppzru300lp0I91jt9WMk8mG+tH9wi5P8Pzw/LLdkkQ8r+qI/ormJIBifQZ39 MR9CVjznrx8ggsUBl5ndffnQcHsKCgSI8ChZ/LvjrgIYFBgTUhAmQo3QXFmt dAEQei+K/xMlwuq7j28FrArgzsmVnzQSRBA/ejPc/0EB2KwVJ5tIE8E2+7h7 X34BKP78tT4tR4TmgkLV6N2FcLa8YfAfEmGHgteRBblCYOz7xeqnQQS5MgU2 Q9tCaKLROmCgS4Sk6rJhuk+FMJyRfGfOnAjf1f0a7f8UwjXTtu1qayLQf4Xc GqYi0I/kbCTaE+HWt+pAX/siYO97TLT1JELZ3KG69UdFEOD+J4THj7x+MN+j 9yoqAq8dd+VEQ4gQbXgm6iZtMYhrfHLSekGEgRvvfsxJFoMt3aVoqyQiHH5K x3vNohhuh0aLtqYTobi96a1DRjFwhDWYVJUTgYJ0dOJPRzFc+h2reKaBCFqs j8RtN4pBilP0wNFOIvQaGRZa6n6CcxEsu/dOEmGzs6v+7OwnaBboVQ/nnQe1 RVmGb5wlwPcwTUdIbB4i2F8Y6kIJWLO4pwjKzwOfiUWPxpMSuB7ga21hMg+n uvsnlaRLgU+hIPfDs3kIW1Y59ul8KTw4UGLyKGUeOjiTbskRSkH0377insJ5 uGxmuynZVQq6/vI0hb3zEPJzjFHYswzCwl/9jTpMgtbVM0ZvEsvg8l3lpt9K JNjLnR7NX18GTiszCQmGJHhn4XyAh6sczp74NOd4lwSNvXOSzCXlMKBG6jTq JgHrhqFHxHA5pKQ+6DkyS4ILPLmf6HdXgPpHHjMvmgWYvuB+mtqyAj758V25 Jr8ATP2r59a3KsDS7KBF5+sFMN+yiLkt/Bl6kuVzz5UvQNL+0r5F/c/QVJnf qt2zANJWvlfmXn0GnejZ5UTWRciYC1Ai8VfCop/b68mwRWi+Qa03Xl0JEsMb +a6RS1Dt+Vi9srsS/ppPOvblL0GRD7dK7GQlWL4smaj+sQTJ98WP6bBWQYz+ MNcm3zJ4J5mwZF+qgriIsL9H8pZBuC3luydFNfhJOrVOkVaAt/tYqwF7NcQM mRP49q8Ca9+nOhGRanCT66ptP7MKW+MtRb0G1fB+1JarLHEVuraXYlVeVUP9 JyX9bKM1CDymYUWjUgNEtVMrjzvXwVO2zXTwbA10LYxxMdFsgIvSeYPiKzVg cfIrC5fCBpifcUWniBqY6lNhbUzaAAnraIHWvhr47B5kW+m5CX2Pxsae3/0C 1cmPeh4q/wO52ZDrQp9qgVvYYq5p/w4ML/bdk9VaCxyDrgLqqjtwOMg9S+ZP LZhrvWXYf3UHPtprO6XKVAeUf29zTxXswHFUdrC9Ugd3O0Sb9xhTYkzUgtUr lnqQe8hwfCZ5J85enNwSPlwPska8409bd6KayFD8h5P14JBNS5W4vhPny1p7 yx3qwf5ycvXsOSrUHks37Suvh4bIX6FBu6lxQ95Gn9upAfiYav1WHtGg0U6z mST/BrjrdoDPoooG37XohYs8bwCxZaHMI4s0aGyr1HiisgFele5hEb6wCzMf cmqYcn4Fx+9ZkYEStGg10KwcVf0VwqLXw22n6LCSoCDOyNMEOU7XA5yrGTGJ N2Bd8FgTrHX3tdduM2JAQV39SVWyLfQpnyvvQRw/Z+vi3ATscrcMn5XswUpt 1xdNpU1gHidBFC5hwkqWNzvCLJtBmv7PMea/zPj5FUM3TWILSKUxdH0TZ8NE +XNv+HJbwLk3TMzamA392mNvyNW1ANGULUv6Lhuq7Dy82362BUjJt/3SvrJh hf0prFVphbOiCRbtV9mxQtwzgzDYCvGtJkuuRRw42H8dApjb4L3KhQDhMC4M CNfytuNpgz0P1JSGyrmQX+lQnoZwG0h1HEhZnedCm5huYcaTbWC1j6APF7hx yEh5T5xDG3AlbYTKS+/DkXr6/ryKNtirWieIJB4cz0m5M+7SDvUGPy2Gyg/g fRv//Mbb7bD8r9aA498BFGGymM0KaocGLSaX8wf40dGFwdY9ph30NGc04234 cUL4ltaOL+1Ak91/5OMoP069RC4eng6w0hDuMlg/iHP3fhXof+2AIsbiAUkD QfSaG9q33dkBCcWSXvUegkhh8dc/e6AD7lXq5sTGCyLr0SUt5sUOODS+TEGa FES5jj0D7XydsDdmgs07TAj9+E7TmLh3wuH8+Bvc34WRseid6YUDXRBz5P3A tThRjObPLt0t1gX2zrw3lxtEkS+sgL9Mpgtsnf4NVq+IouTF6kle7S5yPnst RUzF0Hhnn9+AexccNSszFuc8gvEGTGmXGruA7X3IpwtvjuKRvx4rDh7f4QTL bwfZxWO4Kv/2lo3/d2h88HvfDnZJrHvQMWf+4DtwXb/QQyshibZHjv3VSvgO vgvCnT62khjn+vfnkdrvYLn/5epasyTSLp0vmWPvBubO5KN276RwbAf63s7v BhuF+P213scx38h17XpFNwT5rJczxxzHoDfxHo4N3VCk9y8wsPA48qmvXbPo 64baVS5Sx8JxNLmfa6VE9QMG1p8Myd+QwS97hHD73A+w9IpOPnpDFl/z0O8M XfgBHA22GVERJzCp1bXD9N8PoDkxu1qSdwITAztfC9P9hPfy8h9Ye09g3Hg8 1vH9BH01l6Vzh+UxMu+YH7X2T1DwUnku8EUeg3RM1ghJP2HfzauGHLsU8fLd pLkAvR64tW2h65d3Em0lqD8bmvdAMr+dM/Xvk2gzdPURv10P8K+/Nq9mUEbL M8fFK716YA9FpsGAvTKasNU5bb/pgRNpD56+2a+CGu+nRn3XeyDH7m122HPA w7/k+u6k9cKa/OEmKvNT6ORRUx2Z0wtaZgVa3DdOYRaTYXpGaS/QiSoVnLl/ Co+rXfXs/dYLQixOr0jFpxCyXjIrrvZC1ItHP4J4TqOZP4X6muYvWDG9+S5h 9DSGHmrMuj35C4gNlZ1qj9Swsdz02ePFXzB1utu+LF0NGc1H7qT9+wVPqu+b GtaqYVT45pkfrH1AIZPwsmVTDV8tSQzLKfWBXAnlzIFr6lhUH8W5/LAPZtqu aMqe08Bx54v+7uL9sEc6RiFHVhNZqzifWpzohwgDNRMVY01U4WxLVjnVDzUO 9kITNzUxuvJ0Ha1JP0S5vpeK+aiJahwijAk+/eCoSSNgJa6FyRWkuNqmfpgJ OlMYd1QbrVjuF3I6DcDlfRRZtqd1Mcz+VMPGrQHI8IbJ5su6WFi63vPbdwBE VV9dNAvVRUb7a1sZTwfALz9PvqVZF8tKjNTg0wD43NDfVrHQQ+7L+zscaAch T4C7X9dLH7sKc2eKUwdBvDz8R7uDIUq6Jht55AxC5yTpRI2PIYYLRRZJlQ2C SFcC19enhqj2zC0wo30QGO4rPWUtM8R8N0mO+M1BMEmd7k9gOYvanGaJIPob rtBujL2uPIui7V21Av6/QVg+q7hS4hz+1WhjnxAbgs1ng8E39E1RnrPPaOrY EISXtbmKOpjig9HxJzMyQ6B5JfTMir8pigVvM5BUhqD2mNpSe44pulRJUG8Y DYG8RHFkMKcZzilFLDHcHQLGzjH7iREzXJbU7pZsGgILv7ZCmscWSMXz5YWX 8zCMLr0IUBe9iC48zv5jN4ahaith9LD2RfzOw+pg7DkMrwsqwoSdL2Iqr42c ZOAw2JmNd3tlXURNvs2u8ehhKOWnVr113AojDsqwmlUPQ7fo518tatbIKfI2 XJZ7BDwjDujUV9igiGxwIKluBFq3Atm8heyQOqrqn0bzCCzRjgaaKNjhMPHf 3ZftIyCr8jfmlJ4dxmd6e6r1jcDU2t5hTQ87ZBK87hw9PwJHeKMa2evscJn1 vIki7x+4FJqjke50GWuJx0SD3P4ACwc9cfvzFbTN/NXGwjsKS8PdlacTHHF4 K9OC/uAo/OTwmszMc8RLBn7DlMKjwPdr5JFwoyPakPgXF46NwmOG2MuaK454 Ud5+b7fqKHQr8O4+Y3QVzb8QL8Y5j8LcJ95gud1OqN9HPSVQOgqHYkqB+YEz KjBIUsucH4PD7PQEKHRFrlzDJMwbh2ixqa+56rfwGbryGy79hYlUORH1h7eR i8N8l7bRJFhHOlexN/ngAHdY8FuzSbjg00r16rcPpvCV7di2nIR9vfPO4ss+ KC3Cv5nnMAlUUqPDJgd9UUfpL3G/7yTQx3FOfLvti36XvHrn0ybJ5yqPJ/JC fjiaFZMVuzUJm77FqgIB/piZ2yi2SDkFOvPuOyue++PNos00fdopYPV/n2by 3h//Vdok72Sbgldz2nC72x+5ukReXBOZgqmHzCMnOQNQd7044NS5KZAP+cP0 zDkAczV6zk28mwKBa2pveFgDkQde9Y1nTUHlPmutaJ5ADD5x5cpY7hRQMHHw 0gkFoqnIvOdI2RQ8WBKw7z4RiGt0dHH9bVMg6H0N6S4GIrbI/25fnQKFEMUn L1MCMb32n2Pb1hS45Tlq+n4IRNaKL/OtlNPAdvaU1bmiQPzzwXBnM8M0HHQ4 FvurIRBDnzgK1/FPA5Ne0ajxVCC2notxKdGchqLEhOIs8SA8oWu1VKw3DRmk 6Ol82SBMUhP0KzKahp8/AtgylYPwpuzHx/mW05AG9gxX9YKQY29D7ocb07Cc KW3A4RKElr0rq8kx0xDO8uIrKSUIazvKA18nTINVksDvrswglGgi0CclT8Mn VyWK5Lwg3C5l4k3InIZDsaKcm5VBmJxwGF5UToN6TXpcam8QTtiY3Xv4dxoM mRm9wukI6BRWXLQ0Mw1VBwT5XJgIOJnHPWm9MA2CfHLbRzkIOE3Tpy/zbxp6 f5EaDPkJSMy04epnm4GBu6bD7LIEdOuu0j7DPQOMKsH1JAUCkrYFfHP4ZuBn k2ncBxUCLhqNDt0TnYG4ZHSsOEPA1dWr7yVgBpzpJS2PmxPQW6CpP0ZtBr7P 0totXSDgus5R5p3aMxB4wkEw0pqAm4mz7j+MZ+BNW5/WeXsC+jYYpJ06PwO+ IkkTwVcJ+G/+Y8976xkoSbQove9CQAr1WyoBTjNQ4H3Gc99NAga6dt2YvD4D X1/3Jae5E5AyRvaNsccMBHScvs9wm4CEqujvFXdmoEVmtVHTm4BUUyu7RANm oII5h9nyLgHvsVsoRt2bAe/qyxQavgSkUSlx2QqbgeDE86dp/AkY6sDzyuHJ DOwZlQuIDyAg7VOf9vbnM/Atd9cV2iACPijp33nyJbn/1bMJWgQC0v9RkUtN moHbLnw/rIMJ+JAxyZE5dQbYb9JUa98jIMOJHS/vvJ+BD3tOMdGHEDDCxrbl z8cZeF6Q7ZZA9p6wmm39QvJ47Z9KoAol4OM8QelPpTMgRmuoDWQz99+7fKhq BhJ+7D6mR/ZTmvHoiLoZsFESpZEgm1VS8+tK0wyspsY/HCK3F2WRvnGpfQaI 7wx9HchmJ9BLNHfPwI2T0i8/k+N5nulsI9c3A45/TqZNkOPl7G6OTBqaAfFX IVdGyfm82BavpR+fgawmnfhccr5coo9X3KdngLdmne1sIAFjjYiig/MzQGVF nobk8drnc9ZSa2UGdknvWaDwI+DLlNxHeZsz0JyfvcziQ0Deb2xV+yln4e7u plsL5HokrLovhO6aBZGyGyop5HrxCXQLkRhmoZxSSPywBwH5PWLC6vbOAm2B Vn/cdQK+Tlwrk9w/C3Fa1ubh5Pkg0HB+Lk5gFso+/3bSI88XQZ79xtfFZ+Go tuKYsi0BU9T8QnqkZ8FDvXP/NSsCCrsOFqvKz8LpC05hzucJKFL1ej+X6iy8 LTao+H6WgLoD0ReENWfhS7J93hM9Al7feBgrozcL2kfmiPxaBCyU9eQ4azYL 1U45UlVAQLUMbcYw51nIHrtbRnGEgI71oBNzYxaodZx/XhEi1/+PzINUj1nI L79jkHSAgB18B6hr/GeBjqROeM5GQOuohc2NqFnQ7Edi0FoQBn38q0gfOwtO zX9rnpGCMLWl34srcRaqPh144TMVhNO7GhZl3s3C71Ldkta+ILzjEz99rYwc v92R8YDyIIy+ot43+GcW+txqFlVvB2FJkOK+2YlZEGcC1a/XgrD/1THzzdlZ +JEk9vTw5SAU7OXu4lqbhTttgfI3DIMwV3+26SzjHOR/5wlROByErSdelNbI zkFH0Mjx+ZZAJBmHr7UrzkG9drC0WHUgctwMPPEb5mBJokH7VGEgWmY6521q zcHIUW393YmBOMmP72Wt5sCZOPmG2yUQqekn4tJC5mBNI9PKhzIQ44PdXeMf zgE/lewYw1IAymxvn3r6ZA4E3joaEsYD8PIi58SduDmgOX4y7FBzAH4ZUDuh /2EO4g9azSk/C8CgvKTOxe9zYLyoHA/8AegvcZTmNSsRnmS+knU28cPNHyMq s5eIMPeMVs1S4w52id/2TbxMhDPThBPNAncwk0Bfpu9ABJvFPfSntr3R8piU QrYLEdLTPGZPFntjWYjf8Ru3idDLFHQ9WswbfWS5RUjhRHg3etriIYsXbkTq sywXEYGKPZ3qzYwHdvwdMkgtIQLlM54b0s0emKHi8ci0nAgnmz/a92d44PnJ l7uLqokgGBH2N9TRA0tOTVB7tRAh4WCv5MlRd7xDJKyvDROh2esDnf+fW7iu 92lki3EeFEOvOJduuuGbBE6RAOZ5eMezPuww5Ia6M7dcKNnmofo2aVOmzg1f hUss0XDNgx51ZrjUEzdUa3pDwywwD1IR1rOFQm4YoflIVEBuHrgWKAWpzG4g v6rddQ2reaC9eIu+I+Uafo2szGuwmYfN8Ib5h7ev4c3h/avadvPgUpSzeF/r GtYG/gwwcJyHw3c6pnRmXdCpUi/S/Cb5PQhEkhRdME9ZvsApZB76LSyX3v52 Qg15xo1HH+Yh92mMjb2lI97ll2c/kzMP/xrTr+867ogfae3Et/PmwdVRM4JI 54g8PcXW1z/Nw/vo0o+xxQ5I9L78xeDLPDSa0EaocDtgXGlpBHPvPIyM/kwO Hb+CsypO/JHUJGD44fouqcAODx1+rqBNS4ITL9iaYp/ZoTlTpRHlbhLYSl4r /nbLDmsGOe7dZCZBrUK+J1HaDmMCqiaMeEhwXInItZFni6erufLYpEgQqZfU PlR5CaPV69WfW5JgUhHZ7HbaYIhleTpak0AurUHardMaPW7lMU5fIoGr+/La nSRrNH796vtpBxJkWF3d+07JGlm3bl8hupHb1/XXMvUk72fzRe7phJKA9+jj 4publhh8KOzLjlwSvNip7Gty5jy6KwaIZOWTwCtKMvoV33m0O+sZbl5Ebt82 /ZvMsgWe9rc1zi4jwfwbHkeVVAvc7lX8Y1lPguf3eEor6CzwTuTUzuI+Etyt 4RXc6DdDtx16qq67FiDlYJx9Y5EJSrMyZk3RLYBmQ+VKYqwJkgRaOK8yLEDF lnlL6l0TdFfTm7RjWYDeM/db9dEEPUP1nlrwLMCTNyG0y03G6MOoP6h2bAHe v+mxMpo+hyHcBnd5zBbgTNKGwaS+EWqIMY3GWCzAvk5qQV85I9yl9E2f03IB Stoy0+T5jPC+pYEAy6UF+M6c/FRk9iw+fGXwlcZ5AXL6qXpGHp/FJ0KGe0l+ C+Rj5n35B72GGCd1Nq8hdQH+yZcLXeYwwPHegfm76Qtw8oOauv6kPsoEu0ge y1wA9bdxasGf9bGlOzTrec4CGLOVhLQ76SOFT0WabdkCyNce6fn9RQ/t647E b7YvgDj91yTjEF2UukBzT3JrAWQaM5J/KWqjH9WzmpHtBYgXEjlwnEsbG7MO Ur6gXASF4KW62iUtvEyh7L+1axFKh0Qa4nK0MDrllncj6yKE9dWwrRzRws25 39cuiywCW68gce8RTWwILjWNObcIFbsNNw4aauDYYbaX+00XYfFB/MspWQ2k anIaTDZfBJ8xYnI/jwYiyz7HrIuLsKIc80XhrzoWJ3h5Vzssgmq+SnBjkDqm FcrGT99dhFOtq8osn9Uw5G/2EL5dBCcz62lHI1V8+3CXcF3qIjzWkP5ddlIV qyWsnXTSF+G6k6aw1GFV/Oe+Z8HkwyIoqV6v8948jZ47rlE5Fy/Co98MSvfe nUb7fWKHnzcvgrfibS8TmtOorvvWZWJxEaTjjDXdfyDy8dVvXFpZBMlTqTT1 tYjLcxNhvWuLEE0QrpLOR0yNOpbe9G8RXH7vJxg/RaT5VTKaRbsEQ5WURWW6 iHVX261u8i5B7HNfj7XHgJqh/ww3VJegKoCfxTZRGfktDv6+pbEEWkl9Z7ID lHFVTO36tOYSuJc8ZxeyU8Z3rQ8i+vWWQMrur/0DEWWk4+Ro/Gy2BC/MBBrF C05i49sjqsHOSzB8bnIi67sS6labyzJGLQF3kUX9qJQifjyqFVv6fAnUC2Jr MjkVkf2FwtbVmCWgvuNYHbehgP3O+2rrEpZAtfFPyWStArpy9BkHvFuCba3b 589ZKuBjR2v3hfIlkLmaxsz0RB479tjn9fxdAraSEeFQlhMo52269/7UEhTp H79VsC6HcSMad+VmlyDn56zqzj9yaFd8WDVqYQmAjzlps1AOFy9NdOj+W4KZ gqpoGys55ChwIX1mWwb7Yr6LVbmyaH7hllSqyjKwLH6xiLkhg48+i78UPrUM 5h3m919byWDNob9UaarLcLhTnq5KVwYlpi1/pmkuw0Tc5J3TojK401fDP91o GU7fU72jM3IcPyRyt2TaLwP7+f57FheOI/XwZ8e8R8tgGJ8/GXFeGhU17nQc f7oM4qMgKKgjjTcyZE7mRy3DY66e381K0th7M52pIGYZimLveZrsl8aPO6MK C5OXYXWSXgiHpNBSyJ6qpHAZ5FasMy+7SGGuI0NS5cAy/HpldODkY0l0v/Js wHNoGdwbVrc7AyRR1pZ3v/ifZcjuM6H0uymJxReOxsVOLIOdrNTmLlNJrNDX fXZzcRkiPmt+Ju6XxEaZ8PuC9Cvgy666uHHpGA5RMLjdl10BYds2xvQ6cUze ispWkV8BJoP91RtZ4nh5nWd2UXEFRDeeObs8F8exhSPOl3AFym8WTqZeFsfp MZ0rijorMCr/oeYulTiuNj+0mLZZAZV2f1F/raPIHLv7tGH4CjD/jJhrGRfD N48vhvx8tAIRdXrOS51iKBeS3WjzdAV6KewTpSvF8MKtc+fcolfg4+fl/JkY MUzVe3k5MmkFCFqinnY6YqhEeSS0K38FdjUH35TJF0V7Z+1m8/4VeF1/9PGH ZyK4dimeeWhwBSS70tCMIILh5rPGV4dXwIz6lgHrTRHMUY/s9x5fASt6E8HP BiK4eaB3Nm5+BfJnJ/bM7xbByK6rLP3Uq8CpMHD3dehhLFd+YHpJYhXy9mQE xjwURnq71NE+yVVg2Bs8lukjjKb3a9zNj6+C+/sQnbZrwkjs2Io0kF+F6ej2 RlVDYRR0vPlN+fQqzN3jj/7FIYxhkRc095muwi/WFx4Vb4TQfFxcsdN3FbY+ P73446sgpjDofNUPWIW3+4oM0ssEkSTlaN4YRP4+av+++9mCGO6T7FkVugpC h5jWnJ8L4meWvXnZT1fBRnyvRNMlQRQ+SXE0PGWVvJ4ESvVuHsLFJx371VtW IeW3b2+X0iFs0S8PXP62CiwfOY6LHDuEqQzvRtM6VmHXResH9wUOofl93yz6 n6twYVBp+jrdISzzF1FuG16FthsM5T9+CCDB1c/ywuoqBK7POW95CiCrrthL t0NrUJoSNipTcRAldwVxJXqvgaC87jmla/zYWyEXdNBnDWg+bgftuMyPwZ5T U2/91mDjdt3qt/P82DNq/Pk9YQ1yWLmf3tPkx6Avh+0/RaxBUL+1m5EgP3YG tuR1vV6Dinev17+XHEDPTS6D3Y1rcKPISTo/gw9L57Pvee1bh9cs5+O783mR dEr6i9T+dTDksflT85YXRSLzKacOrENVzIfxz8948Zn0J/+LQuvQduntrxF3 XnS5Ve19WnIdCHKJiT2yvMi31HWNQWMd4qIt6F1LeDBodc0kyW0dqPgnextb 9qHWtqpwQ8M6eG+G3OTZx42Kfk+z3ZvWgW+zEe4wcqPY1oD8wdZ1EE6zqBih 4Eb6DW+dO53rIDl69HX3OBc2L2ffODqwDo8Y68oVC7nQcJan9MnCOvQVPyKQ jLnQtH/BwIJvA1692JHZFbsXbUvfeE/e2gC/5MwBKeBEQZlS2queGzBeay71 UpYTRzM7Xox7bcCRUNWM3Uc50TFxR+Ef3w2IkL63sIObE68HWpMGQjdAO/SU sOoCB/qc4XHufLkBGHtQkTWdA6M7Iy3Lajbgw9b0nkJuDmycCoRHbJugbin5 r5qRHbm27N+c5tyEOLala1zU7Gi/R3fXCtcmSNmeD3bfZMMdUpzfrPnI/lAf hlNsKO+ZYSUlugljOYc1D39lwxSKTt8ulU1oSVuYEQ1hwwAOwbJ9TpvQW2GW +5OKDeWgTj6tchP6+zXOxLKxoom2R7J4zSZsbGWcHmFgRXcTQYb82k3Iu3Os WYqGFXOdgwYrGzeB9ccb775VFpSIUQnp7doErzjXbw4DLCg0X9jJOLEJ7MOd W0YZLMj+Js3VnWULnDNICzbqLDhP8+DtKdstOPCrSPpZKDPK+e6t+UDxDwyn FP2HvfdgACcDx9PMf9B4hv+vKAcDcgn69yzqboOC9Zfna6L0eCB8hrrKYBve ObcPUQrQo/DiBekIo20QTgoTYtlHjzJf5B8KmW9D9OMewkl6ejS8TDpparcN Y+a5R1on6TD07ZWkIu9tyP/6MK8nkw6XBXUd7qRuw5yHVb2nDB1uhZdEaaRv w7ddh/z3itMh1ZJIJWvmNjCxp+eXCdEhay019/ucbTjfnhPGvpcOJa58bvxV tg3rhED/tTVatE+RllDu3IYR3Q++zytp8Rrj6/N03dtQ/1XRxecTLbp7MIV+ /7kNd+mXkhxyaTFIfXrw2sA2KLoEfdN+S4uJoylPEye2gf1Z8ojqfVpM0WOv cJrehoEjIqm6gbSYWRA0KTe3DQYn9J9Z3KHFknvWqt8Wt4F01m3M34UWq2Za rr9c2YYr1POqsVdoscHkZLzD+jbscOWsLLSixdbyjIbjW9uwOzHD7KcZLX4X 4l7a3ib3V+q9658hLf4f7gEUuQ== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{1., 0.}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None}, PlotRange->{{0.01, 2}, {0., 624.9126873898673}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.530883313460622*^9, 3.5308833640309973`*^9, 3.725861508384522*^9, { 3.725861565224215*^9, 3.725861581066627*^9}, {3.7258616134683332`*^9, 3.725861640535828*^9}}], Cell[BoxData["500.0000000000273`"], "Output", CellChangeTimes->{ 3.530883313460622*^9, 3.5308833640309973`*^9, 3.725861508384522*^9, { 3.725861565224215*^9, 3.725861581066627*^9}, {3.7258616134683332`*^9, 3.7258616405483923`*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Exercise 9.29", "Section"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ SubscriptBox["\[Sigma]", "0"], "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"probfalsealarm", "=", "0.002"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Theta]", "=", RowBox[{"{", RowBox[{ "0.5", ",", "0.75", ",", "0.8", ",", "0.9", ",", "0.95", ",", "1", ",", "1.1", ",", "1.2"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", RowBox[{"{", RowBox[{"4", ",", "5", ",", "7", ",", "10", ",", "15", ",", "100"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", "\[Theta]", "]"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", RowBox[{"Length", "[", "n", "]"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"r", "=", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"1", "-", RowBox[{"(", RowBox[{ RowBox[{"CDF", "[", RowBox[{ RowBox[{"ChiSquareDistribution", "[", RowBox[{ RowBox[{"n", "[", RowBox[{"[", "j", "]"}], "]"}], "-", "1"}], "]"}], ",", "b"}], "]"}], "-", RowBox[{"CDF", "[", RowBox[{ RowBox[{"ChiSquareDistribution", "[", RowBox[{ RowBox[{"n", "[", RowBox[{"[", "j", "]"}], "]"}], "-", "1"}], "]"}], ",", "a"}], "]"}]}], ")"}]}], "==", "probfalsealarm"}], ",", RowBox[{ RowBox[{ RowBox[{"a", "\[Times]", RowBox[{"PDF", "[", RowBox[{ RowBox[{"ChiSquareDistribution", "[", RowBox[{ RowBox[{"n", "[", RowBox[{"[", "j", "]"}], "]"}], "-", "1"}], "]"}], ",", "a"}], "]"}]}], "-", RowBox[{"b", "\[Times]", RowBox[{"PDF", "[", RowBox[{ RowBox[{"ChiSquareDistribution", "[", RowBox[{ RowBox[{"n", "[", RowBox[{"[", "j", "]"}], "]"}], "-", "1"}], "]"}], ",", "b"}], "]"}]}]}], "\[Equal]", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"Quantile", "[", RowBox[{ RowBox[{"ChiSquareDistribution", "[", RowBox[{ RowBox[{"n", "[", RowBox[{"[", "j", "]"}], "]"}], "-", "1"}], "]"}], ",", FractionBox["probfalsealarm", "2."]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{"Quantile", "[", RowBox[{ RowBox[{"ChiSquareDistribution", "[", RowBox[{ RowBox[{"n", "[", RowBox[{"[", "j", "]"}], "]"}], "-", "1"}], "]"}], ",", RowBox[{"1", "-", FractionBox["probfalsealarm", "2."]}]}], "]"}]}], "}"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"NQ", "=", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], "/.", RowBox[{"Dispatch", "[", RowBox[{"Flatten", "[", "r", "]"}], "]"}]}]}], ";", RowBox[{"(*", " ", RowBox[{"Non", " ", "balanced", " ", "quantiles"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Gamma]", "[", "j", "]"}], "=", RowBox[{"NQ", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Beta]", "[", "j", "]"}], "=", RowBox[{"NQ", "[", RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"LCL", "[", "j", "]"}], "=", FractionBox[ RowBox[{ SuperscriptBox[ SubscriptBox["\[Sigma]", "0"], "2"], "\[Times]", RowBox[{"\[Gamma]", "[", "j", "]"}]}], RowBox[{ RowBox[{"n", "[", RowBox[{"[", "j", "]"}], "]"}], "-", "1"}]]}], ";", RowBox[{"(*", " ", RowBox[{"New", " ", "lower", " ", "control", " ", "limits"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"UCL", "[", "j", "]"}], "=", FractionBox[ RowBox[{ SuperscriptBox[ SubscriptBox["\[Sigma]", "0"], "2"], "\[Times]", RowBox[{"\[Beta]", "[", "j", "]"}]}], RowBox[{ RowBox[{"n", "[", RowBox[{"[", "j", "]"}], "]"}], "-", "1"}]]}], ";", " ", RowBox[{"(*", " ", RowBox[{"New", " ", "upper", " ", "control", " ", "limits"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Xi]", "[", RowBox[{"i", ",", "j"}], "]"}], "=", RowBox[{"1", "-", RowBox[{"(", RowBox[{ RowBox[{"CDF", "[", RowBox[{ RowBox[{"ChiSquareDistribution", "[", RowBox[{ RowBox[{"n", "[", RowBox[{"[", "j", "]"}], "]"}], "-", "1"}], "]"}], ",", FractionBox[ RowBox[{"\[Beta]", "[", "j", "]"}], SuperscriptBox[ RowBox[{"\[Theta]", "[", RowBox[{"[", "i", "]"}], "]"}], "2"]]}], "]"}], "-", RowBox[{"CDF", "[", RowBox[{ RowBox[{"ChiSquareDistribution", "[", RowBox[{ RowBox[{"n", "[", RowBox[{"[", "j", "]"}], "]"}], "-", "1"}], "]"}], ",", FractionBox[ RowBox[{"\[Gamma]", "[", "j", "]"}], SuperscriptBox[ RowBox[{"\[Theta]", "[", RowBox[{"[", "i", "]"}], "]"}], "2"]]}], "]"}]}], ")"}]}]}]}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"LCL", "[", "j", "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{"Length", "[", "n", "]"}]}], "}"}]}], "]"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{"New", " ", "lower", " ", "control", " ", "limits"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"UCL", "[", "j", "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{"Length", "[", "n", "]"}]}], "}"}]}], "]"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{"New", " ", "upper", " ", "control", " ", "limits"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"\[Xi]", "[", RowBox[{"i", ",", "j"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "\[Theta]", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{"Length", "[", "n", "]"}]}], "}"}]}], "]"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{"New", " ", RowBox[{"prob", ".", " ", "signal"}]}], " ", "*)"}]}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmViYGAQA2IQPcWzZdY8v1eO/+2mbwXRWfdUdoHoJQI+YHrBtsTg +UCa++/RCBAdYfY4HkR7712WCKINbr3IAtG//gkvAdEOlxRXgmiBLd8Og+jw aevPgGgxH7VLINrMV/kOiM6VkboPop/X1TwB0et6dZ+B6P8+276BaO2zPd9B tMdO978gWuftNu4FQPqdhJseiA4XeQmmzZZONAbRDi8N/EB0n/yixSBar201 mN5Zq7sGRN+wzlwP1ue//DCIZjxgchREqzyMvAyiF7kuvgGi/3QuvAOibdZu /QCii96yfQPRIbNO/gbRCzRahRYC6Q9L/oHpL9nCUiC6ofk8mPaZElMDomd8 524C0QCTfbn2 "]], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0.011634172078548003`"}, {"0.02935894151285856`"}, {"0.07444058703604228`"}, {"0.1412877512021906`"}, {"0.2305508926517562`"}, {"0.6220521380552348`"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "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], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.530884491615757*^9, 3.530884578548657*^9, 3.530884650303626*^9, 3.5308849984301243`*^9, {3.5308850834525146`*^9, 3.530885088271192*^9}, 3.530885273919454*^9, 3.530885347703466*^9, 3.5308861632546043`*^9, 3.5308862621295567`*^9, 3.530886306573901*^9, {3.725861650054207*^9, 3.725861661237749*^9}, 3.725861714877007*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"6.307122339601985`"}, {"5.2076447619150175`"}, {"4.077736636867477`"}, {"3.2887528509787325`"}, {"2.685820992331353`"}, {"1.5067158589792904`"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "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], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.530884491615757*^9, 3.530884578548657*^9, 3.530884650303626*^9, 3.5308849984301243`*^9, {3.5308850834525146`*^9, 3.530885088271192*^9}, 3.530885273919454*^9, 3.530885347703466*^9, 3.5308861632546043`*^9, 3.5308862621295567`*^9, 3.530886306573901*^9, {3.725861650054207*^9, 3.725861661237749*^9}, 3.725861714886477*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.013306904495525518`", "0.023621138400677144`", "0.061756116912573766`", "0.17328394743625597`", "0.46644485799387514`", "0.999999999999985`"}, {"0.0040352982816965755`", "0.00508381470847985`", "0.007767384862274351`", "0.013355387888199566`", "0.027334233476546843`", "0.7784853732721372`"}, {"0.003333970495745686`", "0.003961425473750557`", "0.0054643199864770065`", "0.008326830844180066`", "0.014799296579603438`", "0.4397249162060817`"}, {"0.002382362792823889`", "0.0025399843795813615`", "0.0028804666449757654`", "0.0034372347120849023`", "0.004467169992764974`", "0.0417414991273094`"}, {"0.0021064286018203093`", "0.0021488866473318158`", "0.0022380578295478903`", "0.002377440598896885`", "0.0026183821803981155`", "0.007864299358488425`"}, {"0.0020000000000000018`", "0.0020000000000000018`", "0.0020000000000000018`", "0.0020000000000000018`", "0.0020000000000000018`", "0.002000000000000113`"}, {"0.0026372217774977003`", "0.0028953369420384734`", "0.003443144130896636`", "0.0043169671856909675`", "0.005879106415997537`", "0.04968979082740366`"}, {"0.005340085146453788`", "0.006757044230844`", "0.0098716190474738`", "0.015118212626480498`", "0.02521654812541929`", "0.3563315243764744`"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.530884491615757*^9, 3.530884578548657*^9, 3.530884650303626*^9, 3.5308849984301243`*^9, {3.5308850834525146`*^9, 3.530885088271192*^9}, 3.530885273919454*^9, 3.530885347703466*^9, 3.5308861632546043`*^9, 3.5308862621295567`*^9, 3.530886306573901*^9, {3.725861650054207*^9, 3.725861661237749*^9}, 3.72586171489391*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"Table", "[", RowBox[{ FractionBox["1", RowBox[{"\[Xi]", "[", RowBox[{"i", ",", "j"}], "]"}]], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "\[Theta]", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{"Length", "[", "n", "]"}]}], "}"}]}], "]"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{ RowBox[{"ARL", " ", RowBox[{"values", ":", " ", RowBox[{"all", " ", "\[LessEqual]", " ", "incontrolARL"}]}]}], "=", "500"}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.530884710687613*^9, 3.5308847522429123`*^9}, { 3.530885097329216*^9, 3.530885104806447*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"75.14895747063133`", "42.3349621443873`", "16.192727943301055`", "5.770874999069714`", "2.1438761364009524`", "1.000000000000015`"}, {"247.81315535850953`", "196.70268437045723`", "128.74345970120916`", "74.87614799144629`", "36.58416106154994`", "1.2845456502243457`"}, {"299.94266634214375`", "252.4343841948465`", "183.00538813151147`", "120.0937089647903`", "67.57077909893444`", "2.2741490489734715`"}, {"419.7513506390304`", "393.70320858619584`", "347.1659710916088`", "290.931543453847`", "223.85537188412337`", "23.956973776865368`"}, {"474.73719220097536`", "465.35725895158726`", "446.81597892491`", "420.6203934028857`", "381.91521752869306`", "127.15690927007225`"}, {"499.99999999999955`", "499.99999999999955`", "499.99999999999955`", "499.99999999999955`", "499.99999999999955`", "499.9999999999718`"}, {"379.1869187993887`", "345.38294506612624`", "290.4322218249946`", "231.64410498986487`", "170.09387638892144`", "20.124858312917375`"}, {"187.26293169015742`", "147.99370343548767`", "101.30050553925146`", "66.14538535120462`", "39.65649838456517`", "2.8063753319323816`"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.5308847171659*^9, 3.530885105742961*^9, 3.530885368657487*^9, 3.5308861668202763`*^9, 3.530886265915326*^9, 3.530886309581191*^9, 3.725861664802635*^9, 3.7258617171740303`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"n", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "-", RowBox[{"(", RowBox[{ RowBox[{"CDF", "[", RowBox[{ RowBox[{"ChiSquareDistribution", "[", RowBox[{ RowBox[{"n", "[", RowBox[{"[", "j", "]"}], "]"}], "-", "1"}], "]"}], ",", FractionBox[ RowBox[{"\[Beta]", "[", "j", "]"}], SuperscriptBox["\[Delta]", "2"]]}], "]"}], "-", RowBox[{"CDF", "[", RowBox[{ RowBox[{"ChiSquareDistribution", "[", RowBox[{ RowBox[{"n", "[", RowBox[{"[", "j", "]"}], "]"}], "-", "1"}], "]"}], ",", FractionBox[ RowBox[{"\[Gamma]", "[", "j", "]"}], SuperscriptBox["\[Delta]", "2"]]}], "]"}]}], ")"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"\[Delta]", ",", "0.9", ",", "1.1"}], "}"}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", FractionBox["1", "probfalsealarm"]}], "}"}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{"Length", "[", "n", "]"}]}], "}"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.53088605044453*^9, 3.530886074345624*^9}, { 3.53088619556388*^9, 3.5308862849925947`*^9}, {3.5308863266508636`*^9, 3.530886328744277*^9}, {3.5308863632353783`*^9, 3.53088642085679*^9}, { 3.5308864554744263`*^9, 3.530886599390892*^9}, {3.53088664582932*^9, 3.530886721121566*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"4", GraphicsBox[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwV13k4VWsXAHBJgyRDyUUlY1QiynBPWm9dN2QuKVd8SimKNDmG42ypJFel kIwhSV1Tx5AiQyRRqExpUEQy7X0oU4Zv+Ws/v2c/5zx7r7XetdZWOHhi12FB AQGBBXMEBGavnKqpulev+sF8sfeVeVv8iNPZg6csXveD47WwKD1DP7JN+YVU HXqAWRnlttWPzA8K319f1w/fK2/4vSZ+JNxQqfdNQz/sDRj8FPm3H7mbZzKv pbEf7GryZhSs/EhdSgTr68d+aOfp+m4+6EcUKPX0X/398M15ZSiE+JF7q4QE 34kNwI2TO08ot/mRucLS35y1BmDgtNyDChV/0rmi3czMegC41knZI57+JFXa blPvqQEImcnOV3rqT1iO8+4aRAyAl3Ci6HMhDuFddrlpWDAAd83kuoqtOSSz 3Vs0sXUABH3y7d1jOIQb+Gxx9tgAWLAvaZt94BCthU/DzsgNgmWbRODh1QGk sI2O7GUNgnXMuSX+TgGksrlF8anDIPxlJpjWfCuAPHzsudGIOwh6j/9NkGoK IGe+G1b7Jw5CrNqcVWqLuER6sqj9SPkg3I0ebvkFXLL1T5qT0zkIT+Uv8HO9 uIRV8U/K/bk01MZv5RvGcomMzlmTvao0pJZGjhQ845LXAy+883fQoOvAL+vp 5BLbn+fLtxnTcOiSjK/nNy5pm4DFdejs7VOtw+juBYXJ3SY07NZKuTbVxSUC iumvpM1o+D0m2ry4h0u07UIU/axoyDn4Lk+2n0uiS0zqtu6jQSTqvsrwMJcc uPZSpdqNhk6ZAb0bghS56h7fYeNOQ5j4gM4M+snfJ25/QOs8f950bC5FJCeX ydDHaNj0hbfISIgilUedFy/3pOFqhp0eM48iattHh1xO0aB/7U6onjBFBn8q l8340eAo2xx+Towisg2jnMv+NNyRl1LsRBv/V2OwlEPDmayndkbiFEk64JWr GkDDrh3T9+dJUMSmrijNgqIh6ZvCyHlJiuTd23Ul7jw+31yFZSekKOL3T+A/ emEYzyCpr9OyFHm7/Mz7R+ip0rIJSzmKrH13ZJ/+FRrexFSWJ6Lfm1nZGVyl obT61l7DFRTRN1y1ixVOw5ctVUneKykyIl9sCpE08KmWuPfyFDnZNapvHE9D 6M7TNc7KFKlO7nv0Am2xI+tkGnq1U7uuSQINzZb7K/vQDc1Vm0wTaRiKaTp2 VoUiG6qjtMySMN4yseUXVCnS/0BHzSoV75fv949Qo8hRrxPSezNoUBifKPVa TxGHnsNHO9BhAnIZOWhL5/2PPTJp8B1J12bQm61NHS5k0XDBvHKJpwZFBLWU bj/MQY8yAoc3UCSeblZdnE+DXsVwMWhR5NqR1+xo9MInRsa+6KD2imrFAhrM tD+689Bu9TnuBo9ocDseFaC0kSK62aFZro9psErcWC+gje/juVW3/CkNXFHV pek6FKno3nTJvATrqc9W/QO6wGldawtagnevRXQTRRIs//AbLKWhaMpr8iTa fcPQU7lnNPROxB3avJkiQoN3//auomFra/btdF2K6HmI7llXT4Nn7QsjYkAR uyrlo5loqxJ2kQv6jPwWf80GGiZFeU3BaN4b92SdNzTYuF/5WYter1s9wHqH 8bHZ02bzJ+ZjJijYvIWGjTt6DcxZFNm6LzamDm2ZkdnhhnZ8+DDDupUGuU65 DZfQsS5f3tq+pyEwsDyjDC1VbSjv+IEGU49sY80tFFl0feyRRzsNP2SkeibQ ar1itTTaJnhZvqQh1u9faz6f/IL1kduptBZ94dceIe+vNBRoFHXvRU/b51pz O2lQKWicyUKvyK1xEfhGw86Vre8r0KzFHd5B6F0c2NOK9ikRTwjuoqH7ipCW wFaKDCt6/rj6nYZxq6HTZmhJzsVJ8R4aGoNv73VEazXFi0Wg02V2fPREe16q 3Rz9g4aLbjurw9E9fWpBt/tooFaUqDeg5/9NohT6aeDFVC5tR6sk7k2/g64U c0gcQB+0Dq67N0DDYPzcKGGgyMe8TtkcmgbN+c3zDdFJHRJJmgwNE/e7C03Q h8WJSja6OOr9Elv04LF4zSw+DfvCNqe5oXNjavI0hmjwMQ3+fhrt82LMIBOt 8zDkVQB6jtIeo4xhGs6KnDoXjq6yPv9y3U8aZpqJTQw6lPvQ8j+0/3h4ZTJ6 WZuo/YNf+PsVF6MeolsXbPmsPkJDiqzEcCE6YbO7y310vuvgcCla9XqVR/oo DVJSHu2v0L0lP4fWjGH+40ZevkVn9yv63EMf5yXvbUWfkbWZUh2noYNzMOQT Wt+ECkpD68po7O9AT53NXKA6Mduvfr3tRj+78yHsLnru8Zz+XnTwG2FJld80 aHFt7g+izWb0olPRjvKvFw6hxTVcVyhP0vDzgrTIL3TjP5HJd9AHfyrnjKJj Qp6pKk3RsCLrx+g42qmA+S8F3Tdp3/Ebrfht1UbFaRpMNrifmEJ/l7AoSEYL xi65PY3OAH+Wwgz2/xuskzNoL4/7ZUloR5+urlnHvu5TFBdgYDhTYGrWnG9B XVboA7fOFcza6bdM+jV0Ztp+yVlvk3zoXo9O3hksPvv/yuomGmJzGHgzNpQz iZ5P2mlLtM2G6OEJdI+dN+8qWs7tSOsYusZD9Gwd+qHmvv+NzD7fhVS9JYIM WIo6hQyjr8WxJizQzREeuxn0Kd7b4ivoP+z8y/rRti/dqNfoGwP+9T1o3S8C 20XnMmA76RL4Df3HaLSQBZpSUnvXjv6kXHX5FbrBVdqpCV3GcjRfLMRAWfe6 m/XolF0/l5ij64zoEy/RroGKkbXolpg9C4vRJtGP7UTmMWAq11GVh16XZS1j ho6LYFQz0cwHbmINeke+a208+u2Q1IFF8xmolyoUi0TnCWcq7Zx1i9OvULSv 3of0l+g8xcBUNlowQi+3egEDPZc+hpujeQsaPosuZKB8u85HQB/kHF20G11p +eiR9mx9HY458Ak9cktMXhodpP9bbEiYAVc9TmYbnlftzAiW3iIG3t8o9KlB dyisP8JBd/vmvnuM3i7iWDJfhIHbUln60ei5n0uOyy1moNBL/6k5Om/X3lvO aPu3vUIG6EMv6Iq7aNn2wQ/K6Mqc1XJaogx8XV6g93u2v50Pemm0hIHI4Jep KWgh9R2qnuIMeDgeNP2I/TEv4bNNLjpMkabK0Yck2QFj6ISIcaM0dOXve41B EpifiN1+nugLdcLnoyUZuLubFz6O/XfemdftZcsY6Nv53XkC+3lBz2GR+VIM ZNSY+raiXR2ndc3QaT2O8gXoqh2aV5vQRtJuy7zQwTLXt/QuZ+BERnbSZ5wP 80ttY5bKMJBju0UvTZ8i5qlTKrborK6+bgp943IaLxI9z8RV2x690nasVkqW gV0JkfGL0Jt+xE1LyzHw7kF18VE9zM/STpcVKxko0tBQlsT5lT72L7MfzQpc GNaF823w06aABPQVoeXXCtG+6cE3V61i4Ni+FFdHdLjh2per5Rng1XL+ScH5 WHLk5AYVBQY0JHQsZHCeClnIFh1G5yz/6tKN83endoVxGtqHpSmVi26aXHZg jSID+iTE2Azdf70wQl2JgdgLm3u9cX7LFs+MaagwoN3fKF+kSZGz4lcrdNUZ EFC3FB9dR5GQ3fqPOWjBn/1iPHT8zY6sZ2hJDb3o4+iKFXqxlmsZmE+nbvmy liIS6l+8XNdhPZ98+bVcnSKZ27RX3dRg4M/E02GeayjSdarZ59dGBt6+MJT3 UKTIWH6gJ0sb62lYa44MevH42kPn0MdHY90qFSiiQ1FWojoMkCvZr2XQ5/5V U1XZxMDEra9fS3DfWpnq985WlwFILNUewv1sT9OqDXl/MvBoajNrajlFioMa P46hFUQ6M+LQilqh/xqyGLhOuacboJnQXz1V6ILrfVvO4H4YSl7deb+Fge/P +ts6l2K8//OVmdnKQK9w2bcM3DdVgxqFdv6F9fDNQaAb99XRDaEf2s2wH/67 ZXpogkt+mlv3yZtjfDdmG3PQjPvy3/9DL1cRVp+H7klLkf2CrstyyZUa55LW VUX2XywYGHpu2r1xlEueLOlv+WKF9V+bXm6H+zZ30KLxK3Y6zeUNurv6uEQo S+J1pwPmo/ect1gbl9Spv/9bfT+eT6V451PvueTW3aQST/TqRWfrG1u5ZH2C Zs44emW7PetWC34fhFlEiDnheRTJNZNp4pI77pftWc5YP+u7zIUauGT7mjnd Nw4xoGpS+jzgOZecS2Kmt3lgvJ59cpjO4hK3wr4zPgEMTLEknjRSXLL0cLmG 4xUGrOpWbZcx4xKNi4Oq8YkM5Gv+vvofft/wavQO5WZhPn4rb+16EUDSz7d+ VS5jYHRc5OIRnwAifDDqjmcDA35u8ODhmgCyvml9uusXBkxiJDp5bzmktEhu oJDPgFDx3dW6Xhzy9IWqd+ccPkyWVcRlLOGQdcaX4ehSPly91n1U97Y/cXCo MotT5oNH8RzVfev9yUikfHzaJj7siIw4n1/sRwS3N6xfvIMPJ7UNBDaBH/Fd ljBnpx0fko31xkmVL+H5G8nouvJB+vsfoyHmvsTB7q+THDYfuMfSpV2f+5AT dk6icZf4wGs6Hd9o5ENCvoYu6EQrqoc8vb7dh6QcfzRnXQgfPsnaPLIkPqQx SHzkCTpU78rmapYP+TP72ee2y3xYr3PB+bG2DxFauCZHNowPLGGpa5GrfUjM Y3pXbDgfSgpD/tKcZBOe0QqLDrS5kUDp93E2eVVvYrz2Oh80i0Olk0bZZLor mfUEfeKGi7P4MBv7p61y2w0+fFw5ZEv/YJMNxwp/yUTx4fzNzu9pLWxiPPKN PoD2antj5NjEJs7nJHrvo2H7dODSd2wSEe3+2eAmxvNDXDRVxyZjFSte2Efz IdCBt83uOZtIWpmWJ6Nt2+3jRSrYZF3b2aIf6O6Z3S1lZWzixNRl+97iQ8ey msG1xWzC9v99vxzdOBNa2/6YTcLnq6UKx+D7eatdjnzEJg+u2ybaoCf7KteY 5rOxn5y7FYN2qw+6N8Vjk/8DvdcH+w== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{1., 0.}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None}, PlotRange->{{0.9000000040816327, 1.0999999959183675`}, {0, 500.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks->{Automatic, Automatic}]}, {"5", GraphicsBox[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwV13k8VWkYB3B0UbKFaqiIEFmTLFmelyFKQqG0mEqWTKmMa73uiVLRJopI RUlKsk4oGdvYypKkUvYI4ZzbJIqYp7/u5/v53M8573vO+/ye5ygeOLrNU4CP j0+Yn4/v1y+n5mfTixejUBBt6E6uBxN39gF/+8ZR6Dd2kK5MCSYWyrWLm9AC 7Vtqfr8ZTIQiY/c0N41Cq3mrik1aMIk1WzXysmUUzmkx9fb3gsndQlvBN22j 0BNWdmNXQTBpuh1v0vthFLa6iGr5Pw8mipR65sToKGyOm85MmA4m9+RZAq8k xkCm0jsxzyOEzFuw9OM+3TEQqv170KM6hPQv77azcxwD94mn+ieVQkn6Ulf9 Ef8xoNPa3FLOhBKTvYJ3jePHoHxv8paaj6EkP9ojwezxGJx10klQtg0j2d2B YjffjsHp1S7/VtwLI9wTlaI5U2MQd8U+a2A2jOjOf3Y+YNk4/Gv/X1DDLg4p 7qCvjJiMQ8fV1qS6bA6pbn+j9Gz3OJSX99loznBIXonfWivuOMxPXzDGsQ8n AZ/M6sJujoP+K9Gmv66Gk6UzT7u9K8YB9Czqn3SFE/MNNCe3fxxWZvOf9VTk EpOqXbfvz6OBPKsdPryLS2TXsW13qNKw0HL4unYclzSO1Qb+vZGGzLfO38TK ucT568kKCxsaRr+fZNWiO36AaBPa8q/0ZKqCSwaFi9MGbWlgKa5zpyu5hE8p 88VSOxrczn4wr/+XS/RczyqFOtCwvld6k9dzLkkss20y30nD992RiVbtXLL/ Ur1K3SEaOu+XdMaMcMlF35Q+J18a1NYVL1b6zCVPrI/eeo82/VuotRgtNSMj S/9Jg8an3958HOWSap99okv8aBipLZIwpLlEzXLyi4c/DW23FVZW/8cl41+V y+dCadjUXjxEzXCJXMskJzqMhsWPMo4K/+QSm6wGY2kODVZDvwVdRKfuP1ag Gk5D6zkp4euzXOLU9DTDnqJB11dG7REfRQrvbbtw/SQN+lIGzqUsioTuOrHL 8DwNFlf3RQWJUqR1ScC7InRpIWtgEL3mlfdOows0LNWmWl3EKPLOzsHV+CIN HtxrrnriFDEyk99mEkuD8o8avkEJinxTKN0EV2gYTw2uM5SmyPGBSSObFBqK VkZEnJKlSF3a56JadN9Pjt8AeqV7t4HtDRoOBx8ctJajSEt7jf6mmzTYRiUH Ci6jiHbdVV27VBrU8xSXUMspMvpgnZpDOg389zPM9ihQxOfY0aU7HuL+5DRj nylTZPeQp08fuv2ER/wSFYps3ben5Eg2DSuYjAVH0esdN+0+9YiGvbK9W+VV KSKgu+pWXi4NuQXixoGrKZJCt6uK/k3Dmy/Nfy1cQ5FL3o1BiejhU7eTd6Mj u6vqlB7TIKxYqZeFPtSc62tcREOgcOhjWw2KGOTEPPIqwfPSVz8/XBP342du UPGMhg1dE+UN2hSpGtQ/s6WMhtPpz+hFOhR57K7x9g3a7M8VF3eib2z9LXT8 HxoOrTGW/Yj21f7ybFklDV3djOdXXYqwxu9aB9bQIMqbq/iuRxHDI2IuGs00 VJ9reZ5gQBHXGmWfbLTA2fcmdegABdMwnRYaTMTUNL6j81/6pq17ScMeb70z boYU0TSoGzN5RcOd4Fo9GSN8H3ORp7e8oeGdyLD1cWOKmO9MTmr65dk9qcno vXl5Dx3f0vBbWH1wFTrZo6fV+R0NMYImd6Q3UGRxnZnC3vc0NHjbfchGi1ye KjrSTUNNc2JjvQlF1EYkntPoKkf12RG0ze+ru4730PDh0l9ZC00pcmrChRXY S8O22/1hduhZtwJHbj8Ng+liX6rRywsaPPg+0jC0nwj1oU1E+wIjf/ncpYRZ dHCZ5I3TAzT4FK/XMDCjyH9KfsMXP9EQeiJK6RZaihM1IzlEg3kItbgYrfs6 RSIeLcM3c7IF7Xfm+frEYRoMonRfzaGHPqtF3vpMw9oNAUY7zSkiZE2uKo5i vWgeFTyCVrm5I/MO+pmdi30E+oDj6aZ7Y1jPq67ZZ6I/FPbL5dI08MbGxBh0 at+iVB0G86Kydy8fUMRTkqjkoLmz7lqS6PE/U3Qe8WjYbZa7WRtdkNRQqPWF huLM/ddM0cG1U8bZ6DTY4bkZzb/KxerhfzRc0GngHETXOJ6s1/hKQ4qhSu0x dAw3b2sWur+ViuWgZTrE3B5M0Niv6Ftx6LfCpl3q32gwvt83kIK+sd7X4z76 4s7LDzLQqpdrjmRO4vlp68wpRo+Uff2yegr3O+7GlKNzRpWC76FdDLfm1KED 5Jx+qn6nIXb0/mgz2siWisxAn9+xJ7Md/ZOdLaz6A99no3PfB3Tlnffn76Ll H0Qm96FPv1wgpTJNw+TO1y2f0HZzhonpaCdb06hRtKSW13LlGRpKmIwiBt22 60raHfREF8vnKzrpbKXqqp80rLlhnTCJdn/MZN1Gv63dafkDrfRRfq3SLA3R fNqHZ9CfFtk/TkNv/F4oPYt+CGEminM0/O7daTSHPnbkfnkq+rBo4vtfTm78 rCTJx8COkpfTv8z5GDnggB6B8KRfdp+WzbyETo+MLvx1PQupPN9mtOCRwS0/ 0crqtloS/Azsmzx5YBotRLrprWiXFdsmptBDroH5F9HyY0TwG7rhiBi7Ce0V SOK+/FrfqXRDcQEGPDpJyjj60nWTH/boTmu9VSNo//zW0gvozYOs1QNo5/pD VCPaZjbzXjfaoIfPUmweA4/bxO++Q/82mciyR3OeqSq8Qncq10S/QL+x0I6u Rpeb7N0iymJArmQ2uBR9e9tX8S1ovSnLgQK01wmlK8/R8rwhvTS0bWKJ60JB Bs53aMgkojUeOcraodWG04+fRzPvuTcb0LnWM6lsdOuXxftFhBjIky31P4Qu XJC9ajN64zJ2+R50iOH7zHq0mEJCswVaIN6woE4Yn68E/UQQnS/c0iU2H6/f 84fA11/1x/ER2Y7WW96T3Yuu9Eza34nmbavSfYqONJqW+LKAgdks4Y9eaL3s eBNDEQZSrAc3OaL7FDW9OWi1d+bSxmjLhXvLhBYykOMk0zIfPa+r7PAyUQa+ NzsyqZgPhdt2XNuHTuebOxqFPlhLV91F/zx/ddshdHXuymW6YgxoL9InOuhT JyPrrcQZ+BZn9bQA84qlvlHVT5IB6csuircwDwtvdDkVoBvNrGpD0AelgsKn 0CG185q3o6un77VFLsL/F+XNE0KfalpwMlGKAcj4MncA81YwoLG7XIaBdfdj 1s9hnj8e8lwotJgBDc8SphnttXfWwA7NisoTTUXXbNS5+BodsanMyxx9Wvay 6cgSBmbEY9P+wv4g9I9zkrQsA4MJHOXy9RTZkv5TxRmdKvi9NAYdF52RfwXt eGCq3hm9wnnq+WI5BkZPO1h80qeI/vD12aXLGGjll0wXRB+Q7vdYvoKB5Ktn dNSwf2VOnWP2oPl23REZWYv516kffgN96dJptyx0SObpBHl5BuLVArdpomPN 1tSvVGDA8nBFzmrsh2Xex7VVFBkQjjoizsL+yrKXe+qJdmlvXflMiyKb9aps MtAF650y2OjXMzL7VysxMO17VGQA+/Po5eJ49VUMXF0rafAM+7dc6dyUlgoD p3axpLarU4QtebHKQJ2BXZnnrsngfHF2u1EJB10myH+mcBXOCwl9jyrRs0Vn m7ajq5YbJm9dg/WYf9snVokii9R7jnlpMLA3qqmWX5Ei2RZ68glaDBy0yFP7 dwVFBvzbgyfWMuBfzdJuWkKRqb9P+JnoMRCZVLjGDS36fc3BCPTDcSOqfzFF 1lGUg9g6BjpSUnS+yVAk4pyaqoo+no+4vofSOG+tSA995WzAgIwDkdLBeczl tbx24QZcb7ja9k9CFCmNbPswhVZMXFT5B1pJN+acmQkDvu/mLrwRxPqMmRiq QXt3tJn+i/NhDHlx550pA9yXVRPXBPB5Z4XIzpkzUJgg1qKI86VqZBtr8+8M BKaKC5Z85ZJJ7Zj33XYMtPjb3pvp5pKvWxw/K2xhwOiPQLmdaMZ3yfQf6MFS hbn8Li4Zyrgt14NuX9O33LuTS97KP3XrsWfgR96SB3UdOD+Lj77pcWBAtm1S 5PhrLuGO27f1bmeA3z32k2sDl7AeLWrs34352F66MSifS5rU31mr72Ggt9Ne 52Yel1y7m1rmh17bmHqsOpdLNG/o5H5Ha0+m/BTPwe+D8/bxEu64fnlvi5Qs LrnjG+1msg/r+R+HgMR0LrFczT8YdxDvn7DzoWQCl0SkMrMWRxhQ3hrXJhHE JYeKPwcEhzPwX1IEY23AJdKeFVp7LzDQbbBeRH08nGhFjaum3GTg8hOVgVMJ 4SS/wfBgwSMGGu5q5xibhpPMk297lcsZsObY+Pi/5JAFB67e8Wth4M65689b PDlE87VmplcPA4usfC47TYSRf54uGyvm4f77xIQWBoThZ5BqYD8/DwIF3J1U JkKJhk00+EjzYIrVzKI8Q8nu3TV215V5YJjuJvWtNYR8u6KQkqHPAztHTc05 6xAiYNmiKbqRB+6bRAb07geTEJkb/JtdeeC768/ICulgkh9mJWvgxYPelNbe GW4Q2e36+3FOEA9E6sOCCt8HkqOu7mLXz/Bg5OeEg6ZlIDnbGyPcj14Z4CMR DoHk9uEifo2zPCitulLVaBpI2iIlvz1B73Z6LXLUMJBsyKns6ojmwZy/qFye ZiBhzV+dK3eeB36R3R7rlgaSpBJ6W3IsD2piV35aO8om+VbL7fvQevzmiRHD bPKi2dZmzWUeOB1rtXg5yCazA2kmT9BTrTJnjvWyMT+dlTvieGA6Mdr+qJ1N tP8snpC9yoN5MloFayrYxObbR3o/OlOwQSG0jE32RSwauY/WyXsQXf+UTeIT fbuME3ggXzTk4vOYTaaqlte6JfLgs5vO67tZbCLlsKkiDe2/uVJ3IpNNNDrY T4fRnUU/Yqwy2MSdacoJucaDth8LTftT2SQobPp+Bbo+yzRe7yabxAqppS9I 4gF1qXI44jqbPLjsfNMJfTygHl5eY2OeRFxLQr9aFn51ZQKb/A+EMfrn "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{1., 0.}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None}, PlotRange->{{0.9000000040816327, 1.0999999959183675`}, {0, 500.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks->{Automatic, Automatic}]}, {"7", GraphicsBox[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwV13k4lN0bB3BKpJCUV/bshkjZ0uAcpVKyJi2i7KWXtyaDLM8jRHqFoqQo e7SQJVtR0c9SQqJC9pSE5xlaiMbvfv+a63PNNWfO3Oc+3/sZBbd/7D2X8PDw CPDy8Pz3Gtrwp7WlZQLVagx23ylhYxe2G8vq9QQScn8jc7uMjc2UG8VbwbKZ laevlbMxf0TikbbWCXRkzMjufDUbJ5oojb9pn0DhAo9H3evYOLfMYtn7zgm0 8rrxYeUONm7NSmIOfZxA2Yzf0iUcNlYgGfk/JiYQ47K2GVcnAN+R41vydtUk 0vx1aYZbHYCXCkp8OqYzidYsmVBINg7EIzIDlpa2k2jqyePdy58E4hwJR71x 1iQa6VgMPrEzCDOdl+UaJU2i5MPhWbaNQbgk1v2aSfkkett/NsHS/ix+MBAg fOvDJKKtzK0jus9iIrxOqGh2EsXwDd9f7hiMdZbXxPlLT6E6EfODFT3BuLKH Sh5nTiF2GmXSsC8Ev3j3XrHGaQotFm8L128MwcVVfpvMiSm0J6l6SAKHYv8v Jk0ht6aQa/GOM6L3Q7HEwuMB7+dT6Obo0eI5qTBsupUKfTgyhXTxNo2n4WGY WX84q2AphbZUoYNBH8KwpC7b4oAqhR67uN57p03g15ONAY92Umi0osTkUACB Hb5HPjfbRSFGV0dicCCBe34joVawZuKM9s0gAn8WqMz8bEGhB9ObLHuCCcyj mN8iYUkhb/a5BRuSwJsdLygG21CoI4AUlLxA4JRai1bTgxTqTvIWWJ9KYNeE ZpWmExQ6vVkkZqaSwPE+acN2PhTSlmsyHKoicPWOf273gp3r0zRaqwkstrBW kjpJoU1BBV25Twj84vgxob/8KJQ+0r117zMCq2/7Ne3OotCHOSERdiOBp74r P1sMplAxNjLV7yKwVPuv0NgQCn0/mPJsxTsC77r30mhNKIW0vteHDYAzXE+V qobBfqey7kR/ILBd6+M8K5JCwQd1S1/1Erjsjv2lm5EUWj18P1BnmMDBh8MP G8ZRKPvvDwz3KQJ3/OXfXQF2L3oyJ0YRWOOt98EtlygU8c+QRB2429LG0Sie QmLVW0zlOATeYiJnz0yk0MkqQ+3WGQL/lH+yGyVTyHzJKX+hOQKfHv21ZVca hXwSYj14l5K4KfNbRSO4lYrMuwFe7zJgYJFOoU4+k026fCRuf9egt/sWhVxF 0Xq3ZSTWbrqqY5kBDms/WiFA4om7uuo2ORTi/fIKISESHz/1j8SB+xSSy8px ql9LYqcxz+PDYAvdR1a24iS2PnakyvcBhbyk1N0+gvVtdztFFcL7ph4czl8k XqKjdLv4IYWYztHZYpIkTqPeqQo9olBNpwVDQ5bECd6vA1PAxzpMGAXgiIH6 JsVyChk0O1uoyZH4RNtDH6MKChH2DiPr5UlsUHSx0KuKQvSh1GhBBfg9fqYG z2vg80qNjg+VSVz/WS9mby2FhrdNblJQIXG5i+aH92BVAwXGZXC69brgqacU 2sFL+fipkthHe7pGuo5CZifaDOTUScw3lbsjoIFCy/xO/M9ek8SGvsL7Ndso lPJNkiWyicSODcrHH4Dd1kp8OQL2lzcO2dhOIfk+k8S74JI3Ppm6byjUxsMm tm8m8QaDpknmWwpduxrTcFIXzmMxInrvewr9MAkdvapPYtODN1JbwbNOvHHv wc7FxfdtP1BousDXY50BiW+4D3Y4dMP5BvvdTQGLN5nIO/dSqFTaKCbOkMQr Ls9W+A5Q6IZqlKeNEYnVx1e9osBz0fJSUeBd29X6Tw9SqIgniFsBjvqxny9g iEIcRvd+2a0k5h4qtSVGKLTR9CGzHyxT+tKd5xOFZPNjfISYJGYKDQdEgJ2v izYZgYNqRdOjRykULVMqcgU8o+j3Nf4Lhboscxu2GJNYLPT8gugYhSYzWd7H wDpdaauSwNJOE/oxYL+YV/opXylk4+Xh1AEe+6Yecfsb9LvT2AsXExLz78BX FSagPwpT20iwyq0D+dlgpaFZ/gywm210651JCnEzt8/3gT+WjUg9pChUdSn7 p40piTOGV2dspOG+JiYMngB7imKVIrB82RluBHjqZNrGQg6FXkUVd5WAS1Nf lmlNU6iPryO+GRzUOGv0AOy+OyhkAMyrtN/8/gyF4gY+TS1HJG6wjWzW/E6h mVYWWwZ8kSi2vgcOrBXfuBG8tkf40N0fFGItaDDtwR8EjPsZPynUW+Z5yQ2c ru/jXgDeuX2nGAusernBN/8X9NvoxdJ48Hjt92m1Wcg3ncq2m+CiCcWgO+B7 L2Xl8sH+UnZ/VOcgb65k3CoFb7EgI/LAu8+p2NWC/7AfCKj+plDY/cv6TeC6 7N64XHCOyUvLN+DoN4JiKvMUekeWJXWDLRcNU3LApzr0hYfAolpeMsoLFEoo 0638Au48nJyZDQ6pSUqeBKdeqFNV+kOhyjRm1jTYpZy+lwUuU1g99BOs+Elu kyIX7qPOb9vf4C+rrcozwcUtHzkL4PsohKmwSCHhNbfrueBTvgXPMsBoq1rD IvjG62+Kojw0Op/kNPefQz9FjNqA/eIVnf+zy7xkfgJ4R7Eb5w/YTKzYpw18 L2tJ+TxYmWGhtYqXRjtlvt6dBfPjAcoavPr3Qtt38JhjQEk8eF5bRYUGv/QV ZreCQ1ot7o7/t7+oHEORJTQyW7Q++gmccJP52wp8RkjevA/MKul4cgmcbZ9x sAvs0HyCfA2esq9OawEbDPJsE15Ko9JcB9F68LpfKXxW4FNcx9JKcJ9yQ2wL GMvrxmSCnzGd9wrx0Ui552NFMjjL/rvIXnB1eLxEDNgrXDH5FXj87l33E2CL lCrHlctoZL4wanMIrFloK2kJxsMvfSzAdC9x6yVYlaG3QRncMS3uuoKfRkVm FztEwWWCD5T2gOUste4sQH+fNezNbwbveMXteQNekmRY2iRAo7M9+31Y4BKB 9n7h5TR6eVzA3BHsFnp8xT5wqp6EqhG4zjPVtQ/M9RlasgD3MWLL/KppQRod CV8nEwDe/CCJabiCRnncEn178LDCBu9QcFdqm6MWeNtK51r+lTQ6tk65aBDy YGl/7d/SQjT6sX//Iya4zP7A9WNg1z6p5aJgj0aqPhesfibRdQTy58XD9dI6 wjSyLFNRjwFHRUY0m4vQSM3VkLce8oyPsVPVT5RGWbr+r1dC/pWl99uVgl9c uUG2b4H1xALDZsFS578ZJINfzN/pjFhNo32ni8vWgaNaBSNTxGh0/L7DuDjk 7TL/1wPP1tLoSlyNxpAezJcxz5X84jTq8VRRuQb2cuYaWII71Y4o7QE37NwY 3wV+bzGqUQT5Hy152Xj8LxotVht6+MJ84H/qkLpGkkY3PGb9qjeSeG/OHxUH cL/S1nJP8JXYvJJk8H3pzvWiYFmH2VfiUlDfkPdH3bRJrPf1JldCmkZxjKTI hQ1wPmtG3GVkaeQ+zucooEHi/Nl/6SPgBwpHWnIYkH99emHp4EeCBp5m4LP5 0dfk5Gj0dIMZNxDmX6KJRvN6eXCRV0sPzMda79PaKgo0mt4+1RqgBPW0knrs CR55tujND96zuX5XHth5+6DiVUUSdy2sdVVTpBH/+s9/imA+T1yuTGIo0UhI ZmZXL8xvqSeLs1pw8+RGp5WWy5CYLRpfb8CgkUBN6fPqNSS+sG9LVSi4pTm4 UhGcdm24sA685454QawYzHcZwxvWGtCfcwWBDqtJvJoxeMpLk0YeHZea+0RI /MBss9w1LRp5Z37d+lSQxKOsd0E/NtEo44q1bg2XwLOPwv2Ym2kkqWd0mA8s NKfhcQ5cvuAXvOcPgXVJ0kZYl0bp0xV5b+cJfO5fdVUVPRr9T7qwsHuWwLI5 wW8dDGgUfGBHaNk0gfd3yWmXbaXR8sN7JHNHCfwkovPjLNiBK+Dd9onAijoX /zVhwv73tFXMjhCYvvhjrAF8bDrezQKeDy/iluxuYxpNRJ7o6+0ncO29s5KL pjTa+nzA9+17AqtGdPLt2Q71GdqsvayZwL+0L/YOWNJIy1X1b3Y+gb/vtf0m v5dGgjfKvc7cgfV9/po/ClbrSYg5lUfgsbwsqUHwhdMOxsdzCPxB7vGhQSsa HfhaeMYqA56fRSbeD9rQSCncW5VKITAxZdU5tI9GM+d3CyZGE5ivcPXrESca JcdG5lm6EriV0b2DcYRGhYwoh7mjBL6em1HrB54ueSuQ50LgDekbH86B+x69 JRac4P9BnFXSKhcasXoTitMdCZztE3uIeYxGSQLO5sWWBN6mxvv5igf0v0Ho gqw+1DuD5pr50qjy/AQSX0bgE5Xf/IPCaHT1ktD+Q5lheI3ncy3nSzQKOnVm k5NuGNY6P6Wadgv6a+6TmlRRKC55aehRWgj5f42f668eivMjPwwpP6NRbrXS jPW/IVjQ7Wq2XzuNriva7lahgvGGrg35XoNQ/516gxbWwfjpY+nJSg70g7/x 08PXz+KaRtWAEV4OCs3bUfZ0LAhr7opFx9dw0JFdl/hOqwRhJ6cGy5vKHFR1 yj10yjUQ/0yWT8vT4yCzWtsq24IAvGRb+wahnRykk6eIewbY+OzadN49jhwk YqdpkaDExiUh5pIGXhzUrRKqn3XSHzs5bj8dGshBn13t7Upzz+B/HF2Eb8Zw kCkR8BRTLHxh6KLACDj2gNLSdRMsnPV3Ba/mBQ56MTNOUGMs3Bkh+rMavPZc svztYRbeWlTX3xPLQcVG7St437Ew33K1h1JxHJS+PKys7QkLp1ZR9jcS4fvm W+6mXmThEnMZq2HwuwuH7YJiWLilzWKXxmUOOi8sYXAgioW5o5nMavBHu/fV 4gQL8tNBuecKB1lrRZdfPc3C2icrf0he5aDHR+tuZR5k4V0/P1Gu4My4TpOo /Sx87Nzq8QLwskFa1tuehZNSfPqNrsH6Mb8ztfay8Gy9TOOhFA5i/N5QW4NY WMxm9/NMsNy+v32yjFlYs4f9+Cu4/ZXEoRgjFnahW4vOXuegT+2uXDtdFg4M mS94Dpb1OfDIUIeFE/nVcwRTOajV2LtIVouF7152uGUHdo18MrFUgwV5cu56 KnjtwQjfcVUW/j+pb+yH "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{1., 0.}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None}, PlotRange->{{0.9000000040816327, 1.0999999959183675`}, {0, 500.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks->{Automatic, Automatic}]}, {"10", GraphicsBox[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwV1nk0ldsbB3AkIlOGjIVjqkQqGTLsTYVCVIbKcIuUcFRCMrwvhyQpuSoZ UjI2mFUkMv1MRcYMFUI3Fd73dImIfs/966zPOmvttfd+nuf7bkW3Mwc9uDg4 ODg5OTj++w1tXGp/82YSfWl1zPqi6YddA9z8rNsmkUXi4St4qx82UW6SaAfH INvM5O1+mId1w/lt+ySqOcwZaKXnh28YKX3r7JhEj8X8b5WZ+OHsMouVfT2T 6P1iY9l1Oz/c/iDR4NOHSXQn3VPbK9gPK5Ib82YnYb3SFOGXjX44dz03V7fw FMpZl2g27nser+CTHD+mNYXcpPQEeYT98ZjcsKWl7RRKOd9xOL/AH2dJOmh/ 85tCEi6OVSGuAdjAZWW2fuIUkpJumUrlDsQlV9xvGz2bQrxPxt3sXgTi/OFA wfT+KeTwVSKkmXkBE+F1AoXzU+ho0No0H4kgrLWqKs5fdhotF1b2pbUG4fJB 6uY3g2lUNbDwbJ/fRdzwro9R5TSN+G20nO3Fg3Fxhe/W3cQ0Evh4LcKuJhj7 fzFqDkmfRgcO8HguO4Vgyd+Vw6dqp1HWL9+SH0sh2HgnFVo0No3OJHfZM2+G YoP6ow8erqDQpX0pOEUyDEtvD7BwVKVQ6JAAlk0Jw21TTYFPzSj0siazZysv ge1mImtNzClk4sutMrWKwIMLSKAdnBaccSaXn8D/8JZn/GNBoR8v49lSQgTm YOS9kbSk0MNPeimUOIG3OcQwgm0otFvqtZA3g8BJ1RbtxocpxC9MrEoyJPDx +BaV5tMUkiz+dDuXSeDrXmmjB7wo9DXPuW7tGQK/2HPm3nswb7pad9RZAov+ FpemvCnUEvf+gct5Ajd4HhNY60uhQhnuac6LBN5gOvfD3Y9Ct/vn2sSjCDw9 o1zzJ5hCmQPn4o8lE1imYy70SgiFzNVcLj1OIbD541Z9sVAKicmbHJxNJfD9 42dLVcMoFBCodeZSOoEPtFfmWJMUck13e5iUSeCy3IPXUiMpFP9Jryoyn8DB R8OP6sZRaPBIgNOFGgJ3rfUfeA7umBV6EVNL4E3dpw7rXaPQL8FN/Ml1BB6w tHHQv06h2vDosGcNBNYzWn/Q4AaFlH2scsebCfxT/uVedJNCwVVSlYKdBD73 eU7PPI1CRf/KXr0xQuDmjO/Pm8DtQv/zIz8RWMF1WMfiLoV6w5AJc5TAHe8a tfemw332OSXsGSewZvMtLcv7sL/XjNmJLwSefLR9g00WhRQ6JlkL0wT2PHtG 0vEJhU7zVJFmvwnsNOHhOQre5axTzFgi8P5jzhXMfArZzprELYF32O51iiqg 0I59LKPCPwTm0lK6V1xEoWPRvRFcK0icRr1TFXhKIb7nHIaefCSOP9V2IQl8 bCaqX5OfxKzh+mbGMwp5rIqQmgGfflvkpf+cQl41bhHBAiTWKYwtOFlBIRfJ 05OBwiTu8DXWqa2CermjXg0JEtf/o33ZqhrqxcEbNgR+5qre3wfmL/Spu7aW xHf3SwVPv6LQe+5s5QlJEntp/qiSrYP7dvtgGCdDYu7p7D2BjRSKjRtlJsiT WJcpaK/+lkL6UZM+1zaQ2KFR2TMfLOze7r1qI4n95Q1DtnRQSC7WajMLXNLp lbG9k0JtEqLsc5tIvFmnecqgG+ojSbBMN5NY4Q8r2qoP7pMZejV3C4mND6ck t4PF400vCWmR2KW4+IltP4WaihMM/cEp7iNddgMUUgtqHzXYSmKJZiN5l/cU kq35wvNyG4n5E+afM4cphNwTL5A7SLzhm/BrCtyztWtzF9h8l9rQuREKdTIa UpV0SBw1a88d+AnmO7Ynuw68fKTUlhiD+/5kcIKtS2K50lZ3jnHoF9OcEX09 EhsIjAaywJ4ltHgEOKha5G70Zwq9WcRZq/VJ/C/D9+v1LxTSe5LmuGYniUVD L/0WmYD6CnXH2YC1etOEE8En61WD4sC+l1/vSPpKodGKvWe5DEg88X0D6953 CvkTl0aGwDx78C3FSQpZHXhSI2pIYpV0x7xM8GlfY/s9YDfb6PbcKQo9vtqR kgP+UDYmU0RBPQ5RCUeMSHx/dM39LTSF2MO2piywhwhWKQSjZb+Sh+Bp77Qt BWwK6erod86AS5NbyzR+UEhdjiCljOF8TfP6+eAPjP9N7gRzKtnvfvIvhR7R d1eEghttI1vUZ6BfIrqepIBjieL9j8FOnfvFy8Hig4JHHs1SKFH41DoK3M9r OLTxJ4W6u3OrVyHovx1e7g/B2hzB6xTBqgmNzLw5CpXLyovtB3+rnvmhNk+h 4sk7D93AhZOMoFxwIMX+HQD2lzmwpPqLQgP6ywIxYD0LkpUDzlf7e+AOeCkg n1d1Ada3Z7nlgesy38dlg5mpmbnPwNGdfKIqi3C/Sq/z6sGWf3STssAC1u0e b8EiGifllH9TKPkVa2gA3HP0ZkYmmHarFh0DJ8fUqSotwXlOO3J9B7s+ox8/ AHcaK+ezwYzx9VsZy9APdxdF58Bf1lg/ywDf8i/bvgh+gkIMFP9A3vOpCi+D zzIf1twHq/SoZf8Bp7R9Z4hw0CgmNWH2P4eOsz7bgAdPGXD8Z9dF6bx4cHPk UsNvsIlosddbsGZ40a5fYOWNFhrCnDTy1tIInQHz4GFqP1i6xMp3GjzhEFhy HTz814T0F3ArUzCgHdw6MkAM/be/qCxdIS4abZFeTOsBx6caLFiDGXqq/i1g v5Kul9fAQ8U7uKvAdi2nyTawpCG3dSFYZ4TDVHAFjZ72+uy/D5aaS+K2BivV 71t1A/xRufHKG/DMUk+WN7jGwMVKgBvOs03/siP4wcEZISvwepKlaAo+Gc64 +RqsZKAbJga2SKpwWL2SRqwqZ+MF6C/1AltpS3BM9Ptnw2D6PZHeClZRcm7L AXf9kDjOz0Ojlj0y3jHgMr58pX3g0V2PXnmCL+q+z2sBL0VVxqmAuRJ1S5t5 aTRmKF4aD/NRwtsxJLiKRhd6PoS7g91CPfkPgXXD+Vp3gOs8ko9/BBuXs9t6 YR5ZeovCP/hoZHq6MWkFeFt+ooEuP416IwMMX8N8jypuPhUKHjI+7JQANl3t Us2zmkbBXWq80uAVQ9U+sgI0+nJORGwt5EXZQcc7x8DdNcGXOiFvTjRR9dng eBbnuavghiIFWS1BGkV4jZQsQD5FRbJadgvR6L6c61Aj5Bn3RjNVXxEanRQl KyQgD8vuDh0oBa+cECws14b1RC+EzYOZ832yR8ENi7k9rDU0WlVSevTOdliv nS8ySZRG68YrvLggb1f6tw3XiNMoSHWoOk4Tvi8THqt5JGjUIBEnJwk+6bKs YwneUfqbuqcBeWG25XoveNr53dwTyP9o6QTDb2tp1BZmf6UMvg88r+ySxaRp 9Ffp9qyLqiS2ylpSsQOHTKaNzaiQ+O8rOSU3wU65za2+4HV2868lZGhkkWN4 w1WZxNpfU5clZWl0Yk3oTw0G1EdszF1uHY10HidsiFtH4rz5q7QzuHeoYZgt B/n3UTvsLlhTU9vYAXwxL/r2+vU0chssomVkSXgvb2pRkIf+XZmsflOKxNWn zmmqKML8fPs+u0cM7tNaptIDnJH/Y/1tURLv21ZvngOWj+GixteQuPe3+HE1 Bo14txhGESIknkwoT9yoBPv5qRCZIUhimZd/5jVUaFQbKNqTw0viAJHr9Tob aXS2nW+4YIHAMYf0KkLBzLLYS7W/CJx2e7SgDlxddzmpa57A9XK6Kfs30chR RH2Z+kngNRtHzp5Up9E1+4w+yX8JnG+ybf1tDRrFeau1yH4n8Ge/d0GzW2kk crtYY3aAwPNPw30NtkG99ix49PYTWODXphMR4JMHzQTK+gi8nSRtBLfT6InX 4UyfXgJHXN2gqqJNI//ia8utHQRelxXcbadDo99y/FGGTQS2712vWbaTRofv zFf8W0Lgl6yeD/NgpYOt8nnFBGZoxV41MqDR27rjPE5FBKZjZycawaV+kQ4v 4X0Yi99kDhjSSKFfgpeZR+Dqxxel/xjTKPH2Qnv0XQKrsnq49+2iUZ6iuuHd aALPaca+H7akkdwWLc7jdgSesbL9Lm9FI1v1prbug7C+19rFv8CbXqQd3nOA wBM5D2RGwC4+Hx8q7ydw//rKIyPWNLI6Vol7zOH9LDTZN2JDo6M75M7N7SQw MW3d8+kQjVDgfICNAoG5C9a0jTnBvNZ49B36EoYj7tPLJkwa3n/9PiynMHy6 /Lt/UBjsd2WkqVpjKBbzqNVwuUajhRmfpmylUKxxaVo1LR3yiO5X3OMegkta dU+UFtDIWcBdofJBMM6L7P+kXEMjqczwOZXGi5jP7Vambwfsh0E/MKGC8Obe zXknR2g07sFhabY2CL+qlJ0qZ9NIpvZ0h7jqBVzVpBo4xslG2d5e3g67ArG6 +RXkKcZGK5SdlYasArCTU6NlqjIbOaqZsZac/PHPm/JpOdps1Pn843R12HnM ZdqxWcCMjQZ31Pt13/DDF8Xvcu5zYKN7a496Xi4/h0tCdkvrnGSjANughn++ nsVODrvOhV5go+PiWQIxImfxGQdXwdTLbFRRr2NkkuyLYz7F8o6BR7VmTl39 2xc/8HnOqR7DRpaqB/LfXfXFPSyRny/Axy3qYs4SvnhnYd3Q4BX4P+BITLG7 L+ZepVYkE8dGZ+a+9nlq+uLkCupgyg02qjTSEi1oYOKS3XLWo2CztsUfstVM /OathfmmBDaSHwydiX3OxMufMwxegM8/3nfU5xET8s1OefBvNrrGLnpqeIOJ Nb3LZ6VvsdFeYa+3Ys5MbP5znDoOTn3xvT3RnomPRaz59hAs1pDHFrdh4sQk ryH922xE13hlyJgy8Xy9XNORJDZyeCBesH0DE4va7K3NAHd1X3z9UpGJ1QcD Kr+C14QbCZrLMrEr3V548Q4b8WR7L7sKMfGFkMWHteANnLIFk7xMfINnQxZf Mhu1pZWwQjiZ+FGCXfoBcLWsXejqRR+Y94g7yWCvToXUtBkf/H9smr4E "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{1., 0.}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None}, PlotRange->{{0.9000000040816327, 1.0999999959183675`}, {0, 500.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks->{Automatic, Automatic}]}, {"15", GraphicsBox[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwV1nc8VnscB3ArUWRfGRmPERlZGRm/X0MUiozKqNAjCSEj4zmnHt1uuTcl JLOMREXWVRSVyioilBZCJeucJymy7vf+9bzer9dzfuP8ft/P+Sr7HNvN5OHi 4uLm5uL6/zeucaH9xYtx5NMwvePA3FG8P8InzKFtHNUqhemFcgXiTapNUu3g 8SvbPsUvC8T87IueL9vHkdWg/PVbIoH4oqXKaGfHOKJ5iWo+1UB8vcp22Zvu cdS92Lr8o30gbs9LNv/0YRyVm+jlqF8NxMqkZtH0+DiKautWVtwWhG8o8PF0 iUwgi8yP2Rr3gzGvoPTwQb0JVIclk8+Kh+Ah+X47O8cJNGZN/o1aQ3CBtJvR aNgEcpSwUg+9EorNvZZdN0ueQOU+vQfXHAjDFed8L1tWT6BFJ8ENLy2O45L+ SOGc3glUqJdiuUc+HBMnG4TuzEyg+gittf6ccKwnUPdPuNwkUvm3mBH6IQLf e0eljJpPIspU90RsbSR++voNo85jEh2Ysty1OzUKl9cE628lJpHM8QC2K/sE Dv9q2RybM4mUYg8Ha3lFY+n5+/2HH0+iRq6dAR7WMdhqIxVXNjSJ5kl+/b3K sdj8iXteMS+Fvi077ZA4HItlDCNs96hTyK/sArHyZhxum2iK/HcbhdLX7rtZ 6cTCLj/iH2+yodC2kP1j3i4s/O43EmoHCwo8r1+1h4W/LL+X+8WWQhZy1asP ebIwF6PohbQdhVpm38Qu+LGwgdtZRswuCvlIE9KjsSycVm/bbrWXQs5+k4fz C1jY+0KLWvMRCtU+3NrkyWHhxICsQacACp36mtibNcXCtdbHrr4H+wTK7Xg/ zcLi85Iy1FEKKbpr7HD+zcJP/Q8K/RFMoU8NrvnreQmssfnXd98wCll1PBq+ IkngyR+qj5Zi4Hn8m2+tMYFlO37FnYul0KX90rb6pgS2udVqJhFHoeqZLW1m Gwl8zTukUp1FIYlgqQxrKwI7td8vdCAplJRYomK7jcBVN3afz4yn0BbSWmPG lcAx7ifdTf6h0JfPVckLxwn86o/wt3fBTTVmBnciCLyu6/Be0/MUmqt3NzwQ ReC3drvczBIp1KFwwb02hsCmlgq7zS9SKHwpV8PrFIF/Kj7YjlIoJNl5RMUl kcChn3+Z2mRRaLYG5fPcIHBz7tjdJvAupscGsojASvv7jW2zKVT5NVXidzGB O143Gm3PoVBqYUn56G0C6zan6tldo9D2PYe971YQePymocauAjj/EO2ZhToC +4cck95zm0J84l8OmHcR2GOE6T8IXipIPpbZTeCdBz1rgkoo1GbJ5zfbQ+AN jts9TpdSaHfwD947vQTm0VO5Wl5GIYG3GRNcfQTOol6rC/1Lodgi60arEQJf ONwWlQY2Y14YjPtGYHb/k2ZGNYXWac723hsl8JGXZQFmd2H9yTJO6yYIbHwn odSvhkJDG7X2TXFgP8FWxo/rKFSjlqW4Zo7AT74Y/WVfT6FS63m26TyBq/dr 9b4Bpy/EVDktEDh75+qYyYcUonXHCNYSgQN0v9fJNVCofskru5aXxHyT160j Gyl0IUHCu3UliU2ChF21XlLIeDJHx1yWxG6Nqv4l4BmbskUuORKHK1rEru+g ELvt06un4IrOgFzDTgpZaySzt60hsbZx84R5F4W4TTppfSUSKy2xz9i/oVDd s8a0IjUSW+3NSG8Hx6IZr53qJPYqL7/t2Av14mij+B2c4TvwyuUthaQZzkmG GiSWarZU9HpPoXyzN2o560i8ImnmblA/hQgX1yKx9STWGBV5ToEXDFVHLoNt tqztCx2g0EG7UjlZPRKfnnbli/xEoU59A09ZfRIv7qt0JIYodOZ0hzGPIYnl K1t9uYYpFMWwF4gCmwsNRrLBMUzR1m/gE/Wi2Wc+UyhlY6N8ixGJpxjB3xK/ UoiLdpkKNiaxeNyf86IjFHpVTZh3gfV6skSSwcFpxSEbTEgc/NfzDWnfKGT5 6ei1KfDImAb76hiFxJ8Vr9hjRmJ+a5yqPE6hvua+OzfBajl7ivLBvz1mrebB Po5n2m9MUOhY4X6Z9I0k/lA1JFtGUUj9wfmqGnMSXxsUu7aeppCms6vzHJgp itXugOdXz0xstCDx5NGs9aUcCnlox0hVgSvTW6t0vlNI6VpZ7gT4RNOMWQk4 PzVEQ82SxNwqrltvT1EoLW+zaiK40TG+ResH1I9Z+ZWH4ASifOctcLi9Dz8F lnwnvO/mNLzf7fYvbKxI3Lvcok/zJ+SD1FeVUHD2hgDfYnCu/NnjV8DqSY1B Rb8o5ChbNDsAHq3/8X3tDNxH78T1PIjEd8YZJ26AjcntnsrgcFmnBfVZCoX1 JJJWYFNbkl0IpgMl0/eBFyJKlqv/ptBZ3qSiMHBD/vt/roO38z4oOQc+0yko rjZHoaMJDkU5YLslk7QCsNChxbRysKiOn7zqPIW0Rc/GNYC73VNy88H29QWu neD0sw3qKgsUIp1FVPrA+6vpW3lgM+/44REwY1hBn7FIIb31dekc8Fcxh+pc 8POa6M0z4Nso1lx5iUI3SiP75sEhQcWProEnA8OClsAZbWMMUS4aMVdqU/87 bpj9eRdYwNnXd/H/+eZkii6ApZ71tvwGbxIvD3gJfpfkwJgGq2ra6ohw0yiq ID5wAsyP+6md4IuZlkVD4BG3yIpE8L0mq5434NYg4Yh2sJGJ3VTL/+s7XWCy iodGD2+v5akFX8g0/+0A/pWdzl0EDqt49eA82NfsMCcZ7NJyhGwDpwTs6WSB jQe4Ngvz0kj3uX4uE7z6VxqfA9jkXv1BO/BH1cZzL8C9SlKlouBH5l72Qnzw /29h5jScf97uH6vswZdf3LrbBvY7yUh5DnaJ7o9lg23TatxWLqPRF7fwJ/vA WqWOMnZgFfbqWV0w/Z7IaQUTI606XXAfX32X8l7BT6MliWjtPHCVYInKDvDU ocjVx8DRJu+LWsB/+RXe5QHzJJtUNi+nEePPeWExqIeK5R19wgIwf0dmcwvU k0+c/wpncOF7QbGT4AZmuvdHcCP9547PUI9s0zmR74Lwvody3S9BvRqUJJub rKAR+c6ZMAEPKmsfjgMzB9x035mSePNKr3r+lTT6c6LAYDWYt68+UE6IRk6H oNGA/KjavefKQbBW1+3tAuBDTdST62AZNbZb2gYSPy1TktMTptGbp8OipZBH p+PZLVtX0YjDzb2s3gDyXHOberAorCfnWedhXRgvu8+pEpz8kfrZqQPjiUex ZsDrXsVfNwM/nbvRzRaj0ahofg63NozXLhifJk6j2mqxpeOaJF4W3tb/SJJG qyeeBw+qkLh6hLmSXwruk0KGqhrYz2vR2A78l6SJL5MBebFtfWIPONnyQ0wf 5P8ZmSSL0T9oFD4gIFkJ3wf+hy7pEjI0KipTnfr8B4ntCxbUXMCvlb2SRcGX zhVWpPxvS6dVZlIkXuMy81xKlkamufkp8RIkNvqWuSgtRyNP8bzhRRE4H4kh X/k1NOqv25KXKEDiopm/aU/w8+/Mn5eXQ/59NGJlg6vun1TP5ofzLzpzWUGB Rj1mQnL5fCT0y+talBRpxOa7ujeVi8T1h0N11ZRh/3bnN0nMEJjPQfY+Exxg eNV39ieBdxg8sSkEJ/fU+n6cJnDPvKT3WgaNyjLKFnOmoJ9IupesqUKjf3p1 CgQo6K8eLM3oqNGIJ3m4O+IzgSNEE58Ya9JIKMXTqKaDwGedTWviwBEHMoSs XkK/cHmwtAG8vtn56KM2+L7Lm2TsXEejY7/P19W1ElhMcyDETwvq8XRpfcZT ApdsMlC4rAPrFWmO77tL4M9hr09M69Mo9MaJngtZBJ7592SwuQGN9sY4mTRm EFhodt2hU2DPr4Hav68Q2JAkdwkb0iikfucr91QCn/pbQ13NiEbRRgayS+cJ vKYgpsvFmEab/G8KdhMEdu1R0K3aSKOnmsUylfsJ/IDd/WEGrMgdVlToSWCG XsLfluYw/4doTpo7gemE6ZFGcH9EUtVxNwIn4Bf5by1odMuQISK6k8D1t6Jl lqxolLqbK/ODBYHV2d18O7bA/qX0jrSsJvAv3YT3/XY0snELb5BuZeEf9o5j ivY0Gq/NfHariYXpgD/mDoAbutt/WD5j4ZHCPNkBsJwp9dbzEQv3KtzfN+AA 9dbr2Xm6GvrnVeNvBnbRKHu1mCCRx8LEpEP3J2fIP9UKT9loFuYrFWsb8qDR 2bo7JxnKLHzqGr24KQjqMao+Td8+Dh+5NxZ+gkWjuncD3/SDYrEE87GO13ka fXLj9r5FxmCdPyfVs3JoNM9IMdQMisYVrSaHKktp9PFMT3qo9wlcFN/7SfUR rN9EPl3MJAoL+qTmB3fQqPu1Uv51+Uis3aNd5DdAo5dc+edDl0fgh/flJu5x IB8Lw1sufTyO65rUI4e4OWjVuddBNS/CsJbNOeQvwUFdJ8N+zd4OxR4ejXaZ qhwUopJ1wykrBP9MUcwqNOKgtZuahn7tOoZ5NndoC23joEuFCv6NrkE4WjKb e4cbB22NHwuPSzmKK2K3yhj7caCfsCvw+n4Ee7htCY2L4qB7RR3Leq398TG3 /cKZf3GQ8Hv9esc2P3z2U8LyIfCO2nMznEY/nBd4l1vrLAfFDEePpjzyw91s 0Z+1YN9jjj/6K/3wxjsNfe/OcZCqCF9GQoYf5hNYWyb7DweZOa1Y1Pf3w+k1 1O6MixxUGVic08Tnhyu2yjsMgueYHw9eXWTiFy9tbdYlcdAjMqnrxAwTL37O Na8FL0qeadEbZ0K+uai+uwTjnfxKV3Uxse7Re9MyqRx0qn7hp3A+E9v8HKa8 wXkDigVc2Ux88JTYaDE42OLNwo/LTJycFtBndpmD+FbwVg8mMPHME/mmfWkc pHNbz+BVGBOL79r+OBcc/6Hf4lUgE2u9i7j/DXyNlPne5cfE++n2O9FXOMiy guHxwZ2Jo2Lnih+DXQWDVg25MPFFfo0CQegU/vYxOTq2k4lvJrnkOIGts61C p22ZUO+nrqSDz/khJe4tTPwfSi/Kag== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{1., 0.}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None}, PlotRange->{{0.9000000040816327, 1.0999999959183675`}, {0, 500.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks->{Automatic, Automatic}]}, {"100", GraphicsBox[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwV1Xk4VVsbAHBkiDKmqETmmeQYD9arJCIdQyJRhEZCqDj2jrqqe2WIQoaM GUoilQYVSqhEJeJmds32PoqU5FvfH/vZz+959l7DO6wl73PCyY+Hi4trED// f7MbFlvevp1EE7n8gb+/G4FXmE/IzneTSOy5jFMslzFYKr1e3YKdbzZGrFlp DPwxifvet0yim8q7a20VjSHRXHG8rXUSVXa+Yv12NIbCKhu+jk+TqPblZHfK XWNoyUtm9v87iXwW32jeCTEBeVK9eHZyEvW9NW/yXMGEIlleno+iU+iA70Yt 01ELWCYoNXRg0xQaMXh/fPaSJQzK9NrZsaZQVkZlpvrQViiQcmWMh0yhezER XQ6d1sD05Cs0SZ5CK5Q9Q0qEdkDlpYPXzB9MIaNnr8sTxB2grDdcOLtzCplO dL2zcXME4mzdyvL5KaTRvDB78oszbFpeExe6fhoVhnHuf+HZA9VdVMo4cxqt Mf1X0+rkXnj5uUOhxmMalcs5py25e0HFo0A9K2IalZgnNLrkeUPoiHljZPY0 knCwzdli5wtSv5/0HqqdRlkO4Ucu5BwCC1OKfXdwGgUUyXtK+x8DZv3evJJl FIqwWTKr8DkBa/XDbPaoUMg0O8uhYV0IvJt6HX7fmkK/KopNpeNDwTuhSbnx CIX6fzIjfu0+BRF7z+41iqNQeIUfU1UgAj6sCf3yELtd6eN8u1gEaHw85GZ8 mUJ5vyRrz66LgC92u1xN4ik0dUTesFk7AozNZZ2YiRRqLh9foekSAXNyT21R CoXSmBeEpHIiIHj4h/H2TApd1ymT12REQmPuxMPX2ILWEo7m5pGw0avX0CaL QvsnuK/ZWkdC6+cGhm02ha5scJBjuUWCTuPVTXY5FDrcnuC3ih0Jk6X6arsK KOSxvNTdty4SDgedkNpzG3//1fvsE1s2eIz6HR7A3pJS3Z/jxAaHA/seBZRR SFxpfzfbgw0GLFuP83coJKFTbSkdwAaeTYo3Ku5S6ML5XdFdCWzIpD6rrLxP ofs+o7wRH9nQGmhhWFtDIRu7s5kJTlFQ/x/jgv0z/H+Oerrs3ih44KXZ2YEN Pdf/yvWOgiwH6Yjp5xQyS/jaFRMUBUd1ZmrW11Eo1U7coOJyFPBOF24Lb6DQ gPO95tJXUWAUILxb8z2Fnr/iMY3VJMC1QelwGfbu45nkcj0CQuXMInVbcbwz lDYQhgRUth3N1W+jUHx3rdJWSwK0DBunmB8pZJVh8nazKwEbl2Ji7Tso1OZu +yMjigALt+vpLdheooo/7WMI8KyouM3qpJD+Z68gOpaA6wf7Prh8odBiVM0l kUQCVjeay3l2U+hIgc3PwlwChJLmHwb04vrpMK0wrCNAbVz0DYUdpHecT7CB gO1bVXuC+/D+etv43zURcH52N294P4VOhlkPqrcR8Mf9HosYpFCBvUajQS8B MveaD3INUSgBRexIGSCAuXIgPAbbsX+//NAwAaefiWXFDlPowBqJ/D2TBHxT CByLH8H1YZDZGTdPgAT7r99ioxQqkjfpD10gYFN7pmgytt9u5vTOPwQEXnhj kDpGIaH8OerDMhJGJ9RibkxQiH+YTlYVIYF/G1yVn6SQ2g3/F9fESFDO3lOc j63XKlg6J0GCDyu2pWgKrzeaJ+WiFAn/Vg2uu0tRSFRk2/A3ORJyBsRzdGmc jxSloB55EvzEQLkcW2FkVPKxIgnTxzJ173Ao9D3iRZKVKgn30purtGdwvvW5 PL+pkXD69bxJGXa0AKGWrEECt+Juq9vfKOQbolJcqE1CA+tck+Z3CrluKWZJ 65LwN1HhcAt7bnzNQOQmEiS7hN1LZyl0ZotQ6Wp9EjoFzHrU5yhkvm3NZzsG CVkGRw+WYKeulv0cYkCCSlJDQPEPChW+6LBINiJh/Nn3GdV5CtXPb8uOMyah fFLhdBF25nL15+EmJISuc1xU+Ukh4gtkOZqSYGxDxtzEziwMZWxgkrAYViag 8gv3x5qPZ79g1+V3xxVi65+4QsSakRDbJiihvEAhRq6YhpI5CXZLRqkF2NuP fiQrscW0/WWUflPo1pmLbD0LEj7tTcnNx/Y9z7chFzv9Yp2K4iKFZvbbeHEj Erwe0LfysMVlTpk7YSsMyeop/KGQunzfw2TsEfGdD3KxTa1+Nb/Cvo0imfJL FOrp8A0dxQ4KKHmRg53TNFKxgH393YSCGBeNaqtORi9hs4dihndht/6Q7//2 //kW1hYnYN96znjfiW0pUXH0PXa7rNSOO9hK6jbaotw0mpXzZIVi80Mv5YBd 8L6+TwN71DW8Mh67iKX3qw3vpzlAOKwFu76/KuMI9u3zBUYiPDR6yYl9ycHx SMhg/tqJ3aUhGHoUO6Tyw9PL2CeDG0o+4ni6NB0h32HX/A7x08Y27OPaIryM RgedJ2+ewvGX/pHKuxP7kJtJYCXO11elhktvsQX6jRN+4vy+YHrar+Sl0cqN jWN82HlO30XssUX+GXrDg+vB/6xCyhvshyutNVpw/dikPnJdwUcjt633ijNx fWneYa21w749tVjpsZkEupvIbsbOObc1+Bauzw8zq72F+Gm0rbdCzUyHhCrB MsUd2NnEUEiNFglnjLqLm7Bzt1s1JqmTwJNsdK9RgEaeiVVPoxVIqBRo7RFe TiNSgPp9fCPuP/ZhIWdsanRBx1oW15dfuvdX7Bx9x4i6tSTEGC+IzgjSaFVz oeGgKAmby5KZRkJ4f3a5cRbCJAzIax1iY+sqVi5eECJhywrPZ/wraGTh22M7 zEvCsp5nx9evpNEdKWGrZnyeVDntSTuAPerdoZE6S4Dva6q+EPuR+NhBpxkC Xt7duH6TMI14k+Mmkyfw+XYupslKhEYB+2wsrb4SwKturRIohm3zbca7Bo+X 1eN4D/sT30MF6Ud4PIlTUfPYrFenmDVVeLyFok8x4jRSTb/r8ukWHq9F8Fyq BI1+rVc7apROAF/ou94XkjQy9bk50B1EwINRvxX8q2n0PtbZOvYYAf6efwzt sJ+58e7b6E9Ag7VufDt2ka30Z0UPAmLXJpmNr6FRQpVDxhErAvifu6SvWkuj YP2wksVVBNgXLCq7YOt15bWvESHgyqWblSnYOqIqBQrLCdjgMv9m9Toa+edl eUn8jgLGWMYfqfV4PvfSt86DUeCzavCgzAYaHdZp5jlWHgXPDgXrKMvTSF4m t8HZAt9vO9c98cNe2n/9ylfDKNixuX77TezUhcBhD90oaP8t6a2qQKMwfgEf w41RMJlUnayuSKOnm4/948sdBeueLs1rK9Poj7BSRFUtG8LE4usN1WlkKelT kGnKhovOxo/Y2KGB8dIyevi+vjZwpw57jF+xMFGVDfUyRtcdNGhkfNXA112S DeLqfUH+mjT6yP8f7/GpSCiz3Cx7TZtGQUcDLEuzImE45PPpWT0a+fn2aev+ iIDd7bI6VaY0WmQMHWMnn4EfOn9399rRiIjNdd12Mxx474i/G/TA9RzTtBQz eBKic+g/lgE0ivyWVrpMJBiOVE+Eno6iUYy1HXvSMQBW+dVqe16mUZLUdmpW 8who/zWtkpmN+++Bwn0rWz+obDbyvXeHRhtmhIeU9X2g+Fxnv9ILGu0StuCx f+EFgj5X8wNbcX+qt21ZctoLWu1axf59NOJqT1FrLXaF50/WT1VzaCRWo2Uv 4eQMNa9Vwge5Ocj1cku0YxULHjvaX1Ln4eD70yp1vIQF1d3BmSewk5qfbfrn BguqqKd1C9jLRcnOgb9ZUCrlLCrJy0EyNdbuE94sSDtEFlvxc9C0MY/cPnEW hAp0dhUKcdD9a4lqmhMOoLn9Ejq8ioPs9PR1zxTYA5v5eEUZ9mdOtvjhZHt4 qzvRwcEO/VIw4BNjD4HSO4MiJTnIXUdbi33AHirGxHLjV3PQc7czB8w22INR XBrPfSkOylPlISfS7GBrW9ErbhkO+uB6Nfp12g7w8Giwy1DiIP32kbL8ahuY S5HLvMngoBUnCgXmbmwDni2tWiutOehJx3rhioYtcEYyi3uHKwclknbnFs8B VEZarTX056AEvmyzfBNz8HDdGsw+xUGmFVwMVrkJnHD1Es64wEF0cLBfR6ch XOz/W2AQO5ouWyf5zhDyjj/k1rzIQdc0ePa41RrCpxixucfYx0J+OPwoMQTT 8rqerkscdCJVPz8+0hB4l6veXRfHQX9WGynJbjSE9EeU0/VEDooR4cnPCDSA SiuZnQPYp3zPjjw7aABv39ts10jiIJXMYyvG3Azgz3Au8zF2ymzRV8etBvg8 cVHqusJBfDzB8mHSBqBzrHp27VW8fuZI32I9A7bPDVHe2OFXuFrjHjHgQLT4 eAm2cl4TS6GcAcmpR3tMrnFQv2zM9wPXGTBfL/PaPZWD5My5LbWCGSCxy7Y2 F/s/9owJ5c8Aza6wJ2PY6bKKN6r3McCLbik/k8ZBA29aM7xsGHAqcqGkFptb UVaDacGARH61AsF0DmoMsJOQZTCgNMkl2xE7fLRpl4AGA/dndFo69kioSM+c HAP+B4Zgugo= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{1., 0.}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None}, PlotRange->{{0.9000000040816327, 1.0999999959183675`}, {0, 500.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks->{Automatic, Automatic}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.530886509881748*^9, {3.530886552738118*^9, 3.530886601374721*^9}, { 3.530886674769186*^9, 3.530886721784007*^9}, {3.725861695442171*^9, 3.725861722081572*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Exercise 9.34", "Section"], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{ "We", " ", "should", " ", "have", " ", "replaced", " ", "\[Sigma]"}], ",", " ", RowBox[{ RowBox[{ "in", " ", "the", " ", "expressions", " ", "of", " ", "the", " ", "control", " ", "limits", " ", "of", " ", "the", " ", "standard", " ", OverscriptBox["X", "_"]}], "-", RowBox[{"chart", " ", RowBox[{"(", RowBox[{"check", " ", "Table", " ", "9.12"}], ")"}], " ", "and", " ", "standard", " ", "S"}], "-", RowBox[{"chart", " ", RowBox[{"(", RowBox[{"check", " ", "Exercise", " ", "9.31"}], ")"}]}]}], ",", " ", RowBox[{ RowBox[{"by", " ", "its", " ", "unbiased", " ", "estimate", " ", FractionBox[ OverscriptBox["s", "_"], FractionBox[ RowBox[{"E", RowBox[{"(", "S", ")"}]}], "\[Sigma]"]]}], "=", " ", RowBox[{ RowBox[{ FractionBox[ OverscriptBox["s", "_"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox["2", RowBox[{"n", "-", "1"}]], ")"}], FractionBox["1", "2"]], "\[Times]", FractionBox[ RowBox[{"\[CapitalGamma]", RowBox[{"(", FractionBox["n", "2"], ")"}]}], RowBox[{"\[CapitalGamma]", RowBox[{"(", FractionBox[ RowBox[{"n", "-", "1"}], "2"], ")"}]}]]}]], ".", " ", "Check"}], " ", RowBox[{ RowBox[{"(", "9.11", ")"}], "."}]}]}]}], " ", "*)"}]], "Input", CellChangeTimes->{{3.530885659955805*^9, 3.530886010015168*^9}, { 3.530886742232875*^9, 3.530886785870514*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"n", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"numberofsamples", "=", "50"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sumofsamplemeans", "=", "1000"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sumofsamplestandarddeviations", "=", "75"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"estimateofmu", "=", FractionBox["sumofsamplemeans", "numberofsamples"]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"unbiasedestimateofsigma", "=", RowBox[{"N", "[", RowBox[{ FractionBox[ FractionBox["sumofsamplestandarddeviations", "numberofsamples"], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox["2", RowBox[{"n", "-", "1"}]], ")"}], FractionBox["1", "2"]], "\[Times]", FractionBox[ RowBox[{"Gamma", "[", FractionBox["n", "2"], "]"}], RowBox[{"Gamma", "[", FractionBox[ RowBox[{"n", "-", "1"}], "2"], "]"}]]}]], ",", "5"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{ "estimates", " ", "of", " ", "control", " ", "limits", " ", "for", " ", "the", " ", OverscriptBox["X", "_"]}], "-", "chart"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"LCL", "=", RowBox[{"estimateofmu", "-", RowBox[{"3", "\[Times]", FractionBox["unbiasedestimateofsigma", SqrtBox["n"]]}]}]}], " "}], "\[IndentingNewLine]", RowBox[{"UCL", "=", RowBox[{"estimateofmu", "+", RowBox[{"3", "\[Times]", FractionBox["unbiasedestimateofsigma", SqrtBox["n"]]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dist", "=", RowBox[{"NormalDistribution", "[", RowBox[{"0", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"probfalsealarm", "=", RowBox[{"1", "-", RowBox[{"(", RowBox[{ RowBox[{"CDF", "[", RowBox[{"dist", ",", FractionBox[ RowBox[{"UCL", "-", "estimateofmu"}], FractionBox["unbiasedestimateofsigma", SqrtBox["n"]]]}], "]"}], "-", RowBox[{"CDF", "[", RowBox[{"dist", ",", FractionBox[ RowBox[{"LCL", "-", "estimateofmu"}], FractionBox["unbiasedestimateofsigma", SqrtBox["n"]]]}], "]"}]}], ")"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["\[Mu]", "1"], "=", "25"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["\[Sigma]", "1"], "=", "2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"probvalidsignal", "=", RowBox[{"1", "-", RowBox[{"(", RowBox[{ RowBox[{"CDF", "[", RowBox[{"dist", ",", FractionBox[ RowBox[{"UCL", "-", SubscriptBox["\[Mu]", "1"]}], FractionBox[ SubscriptBox["\[Sigma]", "1"], SqrtBox["n"]]]}], "]"}], "-", RowBox[{"CDF", "[", RowBox[{"dist", ",", FractionBox[ RowBox[{"LCL", "-", SubscriptBox["\[Mu]", "1"]}], FractionBox[ SubscriptBox["\[Sigma]", "1"], SqrtBox["n"]]]}], "]"}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dist", "=", RowBox[{"GeometricDistribution", "[", "probvalidsignal", "]"}]}], " ", ";"}], StyleBox[ RowBox[{"(*", " ", RowBox[{ StyleBox[ RowBox[{ "geometric", " ", "distribution", " ", "for", " ", "the", " ", "number", " ", "of", " ", "trials", " ", "before", " ", "the", " ", "first", " ", "success"}], GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[",", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[" ", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], RowBox[{ StyleBox["where", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[" ", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox["the", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[" ", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox["probability", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[" ", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox["of", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[" ", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox["success", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[" ", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox["in", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[" ", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox["a", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[" ", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox["trial", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[" ", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox["is", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], StyleBox[" ", GridBoxOptions->{ GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], FormBox[ StyleBox["p", "TI"], TraditionalForm]}]}], StyleBox[" ", GridBoxOptions->{GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.16]}, Offset[0.2]}, "RowsIndexed" -> {}}}], "*)"}], "SmallText"]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"CDF", "[", RowBox[{"dist", ",", RowBox[{"5", "-", "1"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "estimates", " ", "of", " ", "control", " ", "limits", " ", "for", " ", "the", " ", "S"}], "-", "chart"}], " ", "*)"}], RowBox[{"LCL", "=", RowBox[{ RowBox[{"unbiasedestimateofsigma", "\[Times]", SuperscriptBox[ RowBox[{"(", FractionBox["2", RowBox[{"n", "-", "1"}]], ")"}], FractionBox["1", "2"]], "\[Times]", FractionBox[ RowBox[{"Gamma", "[", FractionBox["n", "2"], "]"}], RowBox[{"Gamma", "[", FractionBox[ RowBox[{"n", "-", "1"}], "2"], "]"}]]}], "-", RowBox[{"3", "\[Times]", "unbiasedestimateofsigma", " ", "\[Times]", SqrtBox[ RowBox[{"1", "-", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox["2", RowBox[{"n", "-", "1"}]], ")"}], FractionBox["1", "2"]], "\[Times]", FractionBox[ RowBox[{"Gamma", "[", FractionBox["n", "2"], "]"}], RowBox[{"Gamma", "[", FractionBox[ RowBox[{"n", "-", "1"}], "2"], "]"}]]}], ")"}], "2"]}]]}]}]}]}], "\[IndentingNewLine]", RowBox[{"UCL", "=", RowBox[{ RowBox[{"unbiasedestimateofsigma", "\[Times]", SuperscriptBox[ RowBox[{"(", FractionBox["2", RowBox[{"n", "-", "1"}]], ")"}], FractionBox["1", "2"]], "\[Times]", FractionBox[ RowBox[{"Gamma", "[", FractionBox["n", "2"], "]"}], RowBox[{"Gamma", "[", FractionBox[ RowBox[{"n", "-", "1"}], "2"], "]"}]]}], "+", RowBox[{"3", "\[Times]", "unbiasedestimateofsigma", " ", "\[Times]", SqrtBox[ RowBox[{"1", "-", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox["2", RowBox[{"n", "-", "1"}]], ")"}], FractionBox["1", "2"]], "\[Times]", FractionBox[ RowBox[{"Gamma", "[", FractionBox["n", "2"], "]"}], RowBox[{"Gamma", "[", FractionBox[ RowBox[{"n", "-", "1"}], "2"], "]"}]]}], ")"}], "2"]}]]}]}]}]}], "Input", CellChangeTimes->{{3.530886823306229*^9, 3.5308871438053713`*^9}, { 3.5308872026133823`*^9, 3.530887214423397*^9}, {3.530887277628601*^9, 3.530887319953299*^9}, {3.530887373761236*^9, 3.530887706608612*^9}}], Cell[BoxData["18.06930755567798727964792805435641782188`5.971228413036991"], \ "Output", CellChangeTimes->{{3.530886974267185*^9, 3.530886987921357*^9}, 3.530887121717423*^9, 3.530887384019434*^9, {3.530887419468059*^9, 3.530887429083346*^9}, 3.530887522239789*^9, 3.530887709134802*^9, 3.725861731251491*^9}], Cell[BoxData["21.93069244432201272035207194564358217812`6.055339247405516"], \ "Output", CellChangeTimes->{{3.530886974267185*^9, 3.530886987921357*^9}, 3.530887121717423*^9, 3.530887384019434*^9, {3.530887419468059*^9, 3.530887429083346*^9}, 3.530887522239789*^9, 3.530887709134802*^9, 3.725861731256592*^9}], Cell[BoxData["0.0026998051561074244589578446973252628`3.920818753952377"], \ "Output", CellChangeTimes->{{3.530886974267185*^9, 3.530886987921357*^9}, 3.530887121717423*^9, 3.530887384019434*^9, {3.530887419468059*^9, 3.530887429083346*^9}, 3.530887522239789*^9, 3.530887709134802*^9, 3.725861731259482*^9}], Cell[BoxData["0.9999999999999999999954955965530236739698709032882951423836`24.\ 070568774627684"], "Output", CellChangeTimes->{{3.530886974267185*^9, 3.530886987921357*^9}, 3.530887121717423*^9, 3.530887384019434*^9, {3.530887419468059*^9, 3.530887429083346*^9}, 3.530887522239789*^9, 3.530887709134802*^9, 3.725861731262416*^9}], Cell[BoxData["0.04554481424395576900565892115378924057`3.1879615283002094"], \ "Output", CellChangeTimes->{{3.530886974267185*^9, 3.530886987921357*^9}, 3.530887121717423*^9, 3.530887384019434*^9, {3.530887419468059*^9, 3.530887429083346*^9}, 3.530887522239789*^9, 3.530887709134802*^9, 3.72586173126514*^9}], Cell[BoxData["2.95445518575604423099434107884621138766`5."], "Output", CellChangeTimes->{{3.530886974267185*^9, 3.530886987921357*^9}, 3.530887121717423*^9, 3.530887384019434*^9, {3.530887419468059*^9, 3.530887429083346*^9}, 3.530887522239789*^9, 3.530887709134802*^9, 3.7258617312680407`*^9}] }, Open ]] }, Open ]] }, WindowSize->{850, 1078}, WindowMargins->{{-5, Automatic}, {Automatic, 1}}, PrintingCopies->1, PrintingPageRange->{1, Automatic}, Magnification->1, FrontEndVersion->"10.3 for Mac OS X x86 (32-bit, 64-bit Kernel) (October 9, \ 2015)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 118, 2, 64, "Section"], Cell[CellGroupData[{ Cell[710, 28, 109, 1, 44, "Subsection"], Cell[CellGroupData[{ Cell[844, 33, 846, 24, 114, "Input"], Cell[1693, 59, 138, 2, 28, "Output"], Cell[1834, 63, 134, 2, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2005, 70, 590, 16, 63, "Input"], Cell[2598, 88, 137, 2, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2772, 95, 11167, 280, 80, "Input"], Cell[13942, 377, 136, 2, 28, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[14127, 385, 110, 1, 44, "Subsection"], Cell[CellGroupData[{ Cell[14262, 390, 12923, 335, 259, "Input"], Cell[27188, 727, 117, 2, 28, "Output"], Cell[27308, 731, 119, 2, 28, "Output"], Cell[27430, 735, 132, 2, 28, "Output"], Cell[27565, 739, 135, 2, 28, "Output"], Cell[27703, 743, 137, 2, 28, "Output"], Cell[27843, 747, 138, 2, 28, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[28030, 755, 110, 1, 44, "Subsection"], Cell[CellGroupData[{ Cell[28165, 760, 1927, 59, 191, "Input"], Cell[30095, 821, 116, 2, 28, "Output"], Cell[30214, 825, 119, 2, 28, "Output"], Cell[30336, 829, 117, 2, 28, "Output"], Cell[30456, 833, 139, 2, 28, "Output"], Cell[30598, 837, 134, 2, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[30769, 844, 708, 20, 80, "Input"], Cell[31480, 866, 139, 2, 28, "Output"], Cell[31622, 870, 135, 2, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[31794, 877, 709, 20, 80, "Input"], Cell[32506, 899, 138, 2, 32, "Output"], Cell[32647, 903, 135, 2, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[32819, 910, 1453, 47, 151, "Input"], Cell[34275, 959, 14307, 246, 243, "Output"], Cell[48585, 1207, 2751, 57, 244, "Output"], Cell[51339, 1266, 2770, 57, 249, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[54158, 1329, 159, 2, 44, "Subsection"], Cell[CellGroupData[{ Cell[54342, 1335, 3648, 108, 310, "Input"], Cell[57993, 1445, 317, 5, 28, "Output"], Cell[58313, 1452, 323, 5, 28, "Output"], Cell[58639, 1459, 375, 6, 28, "Output"], Cell[59017, 1467, 19142, 388, 248, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[78196, 1860, 5545, 163, 531, "Input"], Cell[83744, 2025, 643, 13, 22, "Print"], Cell[84390, 2040, 483, 9, 28, "Output"], Cell[84876, 2051, 300, 4, 28, "Output"], Cell[85179, 2057, 340, 4, 28, "Output"], Cell[85522, 2063, 357, 5, 28, "Output"], Cell[85882, 2070, 19269, 391, 248, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[105188, 2466, 883, 26, 125, "Input"], Cell[106074, 2494, 134, 2, 28, "Output"], Cell[106211, 2498, 133, 2, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[106381, 2505, 792, 23, 91, "Input"], Cell[107176, 2530, 119, 2, 28, "Output"], Cell[107298, 2534, 137, 2, 28, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[107496, 2543, 32, 0, 64, "Section"], Cell[CellGroupData[{ Cell[107553, 2547, 3662, 109, 327, "Input"], Cell[111218, 2658, 143, 2, 28, "Output"], Cell[111364, 2662, 147, 2, 28, "Output"], Cell[111514, 2666, 201, 3, 28, "Output"], Cell[111718, 2671, 19106, 389, 254, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[130861, 3065, 5418, 162, 497, "Input"], Cell[136282, 3229, 192, 3, 21, "Print"], Cell[136477, 3234, 147, 3, 28, "Output"], Cell[136627, 3239, 154, 3, 28, "Output"], Cell[136784, 3244, 206, 4, 28, "Output"], Cell[136993, 3250, 19110, 390, 254, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[156152, 3646, 32, 0, 64, "Section"], Cell[CellGroupData[{ Cell[156209, 3650, 1002, 31, 104, "Input"], Cell[157214, 3683, 13285, 229, 243, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[170548, 3918, 32, 0, 64, "Section"], Cell[CellGroupData[{ Cell[170605, 3922, 2246, 70, 296, "Input"], Cell[172854, 3994, 138, 2, 28, "Output"], Cell[172995, 3998, 138, 2, 28, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[173182, 4006, 32, 0, 64, "Section"], Cell[CellGroupData[{ Cell[173239, 4010, 2422, 77, 333, "Input"], Cell[175664, 4089, 7438, 136, 243, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[183151, 4231, 32, 0, 64, "Section"], Cell[CellGroupData[{ Cell[183208, 4235, 4149, 118, 424, "Input"], Cell[187360, 4355, 182, 2, 28, "Output"], Cell[187545, 4359, 185, 2, 28, "Output"], Cell[187733, 4363, 183, 2, 28, "Output"], Cell[187919, 4367, 18743, 392, 259, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[206699, 4764, 1178, 33, 97, "Input"], Cell[207880, 4799, 139, 1, 21, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[208056, 4805, 709, 21, 63, "Input"], Cell[208768, 4828, 161, 2, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[208966, 4835, 11700, 295, 161, "Input"], Cell[220669, 5132, 112, 1, 28, "Output"], Cell[220784, 5135, 115, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[220936, 5141, 1008, 29, 84, "Input"], Cell[221947, 5172, 137, 2, 28, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[222133, 5180, 32, 0, 64, "Section"], Cell[CellGroupData[{ Cell[222190, 5184, 2086, 64, 375, "Input"], Cell[224279, 5250, 139, 2, 28, "Output"], Cell[224421, 5254, 120, 2, 28, "Output"], Cell[224544, 5258, 138, 2, 28, "Output"], Cell[224685, 5262, 140, 2, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[224862, 5269, 11660, 293, 159, "Input"], Cell[236525, 5564, 134, 2, 28, "Output"], Cell[236662, 5568, 134, 2, 28, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[236845, 5576, 101, 1, 64, "Section"], Cell[CellGroupData[{ Cell[236971, 5581, 3527, 89, 381, "Input"], Cell[240501, 5672, 2284, 45, 160, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[242822, 5722, 2131, 60, 305, "Input"], Cell[244956, 5784, 13582, 235, 242, "Output"], Cell[258541, 6021, 240, 4, 28, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[258830, 6031, 32, 0, 64, "Section"], Cell[CellGroupData[{ Cell[258887, 6035, 7955, 211, 636, "Input"], Cell[266845, 6248, 1150, 29, 126, "Output"], Cell[267998, 6279, 1143, 29, 126, "Output"], Cell[269144, 6310, 2266, 44, 160, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[271447, 6359, 758, 21, 71, "Input"], Cell[272208, 6382, 1948, 34, 160, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[274193, 6421, 1991, 51, 281, "Input"], Cell[276187, 6474, 36904, 665, 816, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[313140, 7145, 32, 0, 64, "Section"], Cell[313175, 7147, 1631, 47, 122, "Input"], Cell[CellGroupData[{ Cell[314831, 7198, 16923, 454, 878, "Input"], Cell[331757, 7654, 322, 5, 28, "Output"], Cell[332082, 7661, 322, 5, 28, "Output"], Cell[332407, 7668, 320, 5, 28, "Output"], Cell[332730, 7675, 342, 5, 28, "Output"], Cell[333075, 7682, 321, 5, 28, "Output"], Cell[333399, 7689, 306, 4, 28, "Output"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)