(* 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[ 125837, 3140] NotebookOptionsPosition[ 119391, 2935] NotebookOutlinePosition[ 119823, 2952] CellTagsIndexPosition[ 119780, 2949] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Exam", "Title", CellChangeTimes->{{3.728978072142015*^9, 3.728978078436468*^9}, { 3.7289787758916683`*^9, 3.728978777915042*^9}, {3.728979117073182*^9, 3.728979124168069*^9}, {3.72897937739428*^9, 3.7289793834544497`*^9}, { 3.728980621199177*^9, 3.728980659270624*^9}, {3.72898742841497*^9, 3.728987435586033*^9}, {3.887203586315774*^9, 3.8872035919214087`*^9}, { 3.918652331601612*^9, 3.9186523327264338`*^9}, {3.9274722481849413`*^9, 3.927472248733904*^9}}], Cell["Question 1", "Subtitle", CellChangeTimes->{{3.927472308216601*^9, 3.927472327030428*^9}}], Cell["(Reliability block) diagram", "Subsubtitle", CellChangeTimes->{{3.927472340814023*^9, 3.927472349853125*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"Graphics", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", "1"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "4"}], "}"}], ",", "1"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", RowBox[{"-", "4"}]}], "}"}], ",", "1"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{"12", ",", "6"}], "}"}], ",", "1"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{"12", ",", "2"}], "}"}], ",", "1"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{"12", ",", RowBox[{"-", "4"}]}], "}"}], ",", "1"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Text", "[", RowBox[{"\"\<\!\(\* StyleBox[\"1\", FontSize->18]\)\>\"", ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Text", "[", RowBox[{"\"\<\!\(\* StyleBox[\"2\", FontSize->18]\)\>\"", ",", RowBox[{"{", RowBox[{"6", ",", "4"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Text", "[", RowBox[{"\"\<\!\(\* StyleBox[\"3\", FontSize->18]\)\>\"", ",", RowBox[{"{", RowBox[{"6", ",", RowBox[{"-", "4"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Text", "[", RowBox[{"\"\<\!\(\* StyleBox[\"4\", FontSize->18]\)\>\"", ",", RowBox[{"{", RowBox[{"12", ",", "6"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Text", "[", RowBox[{"\"\<\!\(\* StyleBox[\"5\", FontSize->18]\)\>\"", ",", RowBox[{"{", RowBox[{"12", ",", "2"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Text", "[", RowBox[{"\"\<\!\(\* StyleBox[\"6\", FontSize->18]\)\>\"", ",", RowBox[{"{", RowBox[{"12", ",", RowBox[{"-", "4"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "0"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "4"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", RowBox[{"-", "4"}]}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", RowBox[{"-", "4"}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "4"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"7", ",", RowBox[{"-", "4"}]}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", RowBox[{"-", "4"}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"9", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "6"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"13", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "6"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"9", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "2"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"13", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "2"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"13", ",", RowBox[{"-", "4"}]}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", RowBox[{"-", "4"}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"15", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "2"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", RowBox[{"-", "4"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"9", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "6"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"15", ",", RowBox[{"-", "4"}]}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "6"}], "}"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}], "]"}]}], "Input", CellChangeTimes->{ 3.6881241656293583`*^9, {3.688124332129684*^9, 3.688124553865082*^9}, { 3.688124663753605*^9, 3.688124890627358*^9}, {3.688124975916493*^9, 3.688125190116311*^9}, {3.6881254533153343`*^9, 3.6881255113396263`*^9}, { 3.688125565079371*^9, 3.6881257179668016`*^9}, {3.688125770229147*^9, 3.688126035728828*^9}, {3.688126092078721*^9, 3.6881261405896597`*^9}, { 3.7096214265397787`*^9, 3.709621551653284*^9}, {3.709621687898786*^9, 3.709621755113494*^9}, {3.709622094014765*^9, 3.709622107396861*^9}, { 3.709622137784461*^9, 3.709622657880479*^9}, 3.927474302591007*^9}], Cell[BoxData[ GraphicsBox[{CircleBox[{0, 0}], CircleBox[{6, 4}], CircleBox[{6, -4}], CircleBox[{12, 6}], CircleBox[{12, 2}], CircleBox[{12, -4}], InsetBox["\<\"\\!\\(\\*\\nStyleBox[\\\"1\\\",\\nFontSize->18]\\)\"\>", \ {0, 0}], InsetBox["\<\"\\!\\(\\*\\nStyleBox[\\\"2\\\",\\nFontSize->18]\\)\"\>\ ", {6, 4}], InsetBox["\<\"\\!\\(\\*\\nStyleBox[\\\"3\\\",\\nFontSize->18]\\)\"\>", \ {6, -4}], InsetBox["\<\"\\!\\(\\*\\nStyleBox[\\\"4\\\",\\nFontSize->18]\\)\"\>", \ {12, 6}], InsetBox["\<\"\\!\\(\\*\\nStyleBox[\\\"5\\\",\\nFontSize->18]\\)\"\>", \ {12, 2}], InsetBox["\<\"\\!\\(\\*\\nStyleBox[\\\"6\\\",\\nFontSize->18]\\)\"\>", \ {12, -4}], LineBox[{{-3, 0}, {-1, 0}}], LineBox[{{1, 0}, {3, 0}}], LineBox[{{3, 4}, {5, 4}}], LineBox[{{3, -4}, {5, -4}}], LineBox[{{7, 4}, {9, 4}}], LineBox[{{7, -4}, {11, -4}}], LineBox[{{9, 6}, {11, 6}}], LineBox[{{13, 6}, {15, 6}}], LineBox[{{9, 2}, {11, 2}}], LineBox[{{13, 2}, {15, 2}}], LineBox[{{13, -4}, {15, -4}}], LineBox[{{15, 2}, {17, 2}}], LineBox[{{3, -4}, {3, 4}}], LineBox[{{9, 2}, {9, 6}}], LineBox[{{15, -4}, {15, 6}}]}]], "Output", CellChangeTimes->{ 3.688124167002377*^9, 3.688124376638199*^9, {3.688124429914239*^9, 3.688124516316331*^9}, 3.6881245541920023`*^9, {3.6881248164355097`*^9, 3.688124856434857*^9}, {3.688125000580966*^9, 3.6881250295351543`*^9}, { 3.68812507602282*^9, 3.688125144561706*^9}, 3.688125512456266*^9, 3.688125574740718*^9, 3.68812561675387*^9, 3.6881256627549143`*^9, { 3.688125718769059*^9, 3.6881257421344223`*^9}, {3.6881258163877983`*^9, 3.688125919196865*^9}, {3.688125958283309*^9, 3.68812596902356*^9}, { 3.68812600267454*^9, 3.688126030138208*^9}, {3.68812610192651*^9, 3.6881261411263227`*^9}, {3.70962146354736*^9, 3.709621485935069*^9}, { 3.7096215251822233`*^9, 3.709621552317711*^9}, {3.709621708383016*^9, 3.709621755596148*^9}, 3.709622231178124*^9, {3.709622264639161*^9, 3.709622282270051*^9}, {3.709622388048517*^9, 3.7096224376855583`*^9}, { 3.709622469937611*^9, 3.709622522925404*^9}, {3.7096225793805227`*^9, 3.7096226588868732`*^9}, 3.927472361587331*^9}] }, Open ]], Cell[CellGroupData[{ Cell["1(b)", "Subsubtitle", CellChangeTimes->{{3.927472340814023*^9, 3.927472349853125*^9}, { 3.927472384073505*^9, 3.927472391897768*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"p", "=", ".99"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[ScriptCapitalR]", "=", RowBox[{"ReliabilityDistribution", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1", "\[IndentingNewLine]", "\[And]", "\[IndentingNewLine]", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"x2", "\[And]", RowBox[{"(", RowBox[{"x4", "\[Or]", "x5"}], ")"}]}], ")"}], "\[IndentingNewLine]", "\[Or]", RowBox[{"(", RowBox[{"x3", "\[And]", "x6"}], ")"}]}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x1", ",", RowBox[{"BernoulliDistribution", "[", "p", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x2", ",", RowBox[{"BernoulliDistribution", "[", "p", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x3", ",", RowBox[{"BernoulliDistribution", "[", "p", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x4", ",", RowBox[{"BernoulliDistribution", "[", "p", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x5", ",", RowBox[{"BernoulliDistribution", "[", "p", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x6", ",", RowBox[{"BernoulliDistribution", "[", "p", "]"}]}], "}"}]}], "\[IndentingNewLine]", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"InputForm", "[", RowBox[{"Mean", "[", "\[ScriptCapitalR]", "]"}], "]"}]}], "Input", CellChangeTimes->{{3.688132549213379*^9, 3.688132586773991*^9}, { 3.709647581177763*^9, 3.7096475912430277`*^9}}], Cell["0.989801039601", "Output", CellChangeTimes->{ 3.6881313955367737`*^9, 3.6881325509971933`*^9, 3.688132587840485*^9, { 3.709647593491259*^9, 3.70964762332139*^9}, 3.927472403330122*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"p", "=", ".99"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"(", RowBox[{"1", "-", "p"}], ")"}]}], ")"}], "\[Times]", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "p"}], ")"}], "2"]}], ")"}], "2"], "\[Times]", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "p"}], ")"}], "3"]}], ")"}], "2"]}], "\[IndentingNewLine]", SuperscriptBox["p", "3"]}], "Input", CellChangeTimes->{{3.688131502270067*^9, 3.688131507874614*^9}, { 3.688131984049398*^9, 3.6881320495365257`*^9}, {3.6881325988872557`*^9, 3.688132607224177*^9}, {3.709647636434762*^9, 3.709647648400304*^9}, { 3.7096477232330637`*^9, 3.7096477388219852`*^9}, 3.9274724556755867`*^9}], Cell[BoxData["0.9898000302969701`"], "Output", CellChangeTimes->{3.688131509533432*^9, 3.688131990387114*^9, 3.688132051171503*^9, 3.68813260789474*^9, 3.688134481421322*^9, 3.7096476491600323`*^9, 3.709647739759294*^9, 3.9274724129324417`*^9, 3.9274724567070627`*^9}], Cell[BoxData["0.9702989999999999`"], "Output", CellChangeTimes->{3.688131509533432*^9, 3.688131990387114*^9, 3.688132051171503*^9, 3.68813260789474*^9, 3.688134481421322*^9, 3.7096476491600323`*^9, 3.709647739759294*^9, 3.9274724129324417`*^9, 3.927472456709682*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Question 2\ \>", "Subtitle", CellChangeTimes->{{3.927472308216601*^9, 3.927472327030428*^9}, { 3.92747247091156*^9, 3.927472494198606*^9}}], Cell["2(a)", "Subsubtitle", CellChangeTimes->{{3.927472340814023*^9, 3.927472349853125*^9}, { 3.927472384073505*^9, 3.927472391897768*^9}, {3.927472489373966*^9, 3.927472492748459*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Lambda]", "[", "t_", "]"}], "=", SuperscriptBox[ RowBox[{"(", FractionBox["t", "4"], ")"}], "3"]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"R", "[", "t_", "]"}], "=", RowBox[{"Exp", "[", RowBox[{"-", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "t"], RowBox[{ RowBox[{"\[Lambda]", "[", "s", "]"}], RowBox[{"\[DifferentialD]", "s"}]}]}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"R", "[", "t", "]"}], RowBox[{"\[DifferentialD]", "t"}]}]}], "\[IndentingNewLine]", RowBox[{"Round", "[", RowBox[{"%", ",", "0.001"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dist", "=", RowBox[{"WeibullDistribution", "[", RowBox[{"4", ",", "4."}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Mean", "[", "dist", "]"}], "\[IndentingNewLine]", RowBox[{"R", "[", "%", "]"}]}], "Input", CellChangeTimes->{{3.7097110248747177`*^9, 3.7097110361044807`*^9}, { 3.709711081092042*^9, 3.709711146310198*^9}, {3.709711257436676*^9, 3.709711290722691*^9}, {3.709711767660163*^9, 3.709711771243762*^9}, { 3.709713863586138*^9, 3.7097138835605383`*^9}, 3.709713935290576*^9, { 3.709714573328253*^9, 3.709714573965538*^9}, 3.92747331919468*^9, 3.927474307365485*^9, {3.927528701615713*^9, 3.927528718647809*^9}}], Cell[BoxData[ SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ SuperscriptBox["t", "4"], "256"]}]]], "Output", CellChangeTimes->{{3.709711117492763*^9, 3.709711146929677*^9}, { 3.709711259502788*^9, 3.709711291310747*^9}, 3.709711772088471*^9, { 3.709713864533143*^9, 3.7097138841007137`*^9}, 3.709713935893148*^9, 3.7097145777598133`*^9, 3.7097925574343147`*^9, 3.7097928851171618`*^9, 3.709795913179647*^9, 3.709796912575186*^9, 3.7097969964656878`*^9, 3.709804547731474*^9, 3.9274724998995523`*^9, 3.927472945855165*^9, 3.927473211288426*^9, 3.92747331967941*^9, 3.927474311675284*^9, { 3.927528702527817*^9, 3.927528719233438*^9}}], Cell[BoxData[ RowBox[{"Gamma", "[", FractionBox["1", "4"], "]"}]], "Output", CellChangeTimes->{{3.709711117492763*^9, 3.709711146929677*^9}, { 3.709711259502788*^9, 3.709711291310747*^9}, 3.709711772088471*^9, { 3.709713864533143*^9, 3.7097138841007137`*^9}, 3.709713935893148*^9, 3.7097145777598133`*^9, 3.7097925574343147`*^9, 3.7097928851171618`*^9, 3.709795913179647*^9, 3.709796912575186*^9, 3.7097969964656878`*^9, 3.709804547731474*^9, 3.9274724998995523`*^9, 3.927472945855165*^9, 3.927473211288426*^9, 3.92747331967941*^9, 3.927474311675284*^9, { 3.927528702527817*^9, 3.927528719264536*^9}}], Cell[BoxData["3.626`"], "Output", CellChangeTimes->{{3.709711117492763*^9, 3.709711146929677*^9}, { 3.709711259502788*^9, 3.709711291310747*^9}, 3.709711772088471*^9, { 3.709713864533143*^9, 3.7097138841007137`*^9}, 3.709713935893148*^9, 3.7097145777598133`*^9, 3.7097925574343147`*^9, 3.7097928851171618`*^9, 3.709795913179647*^9, 3.709796912575186*^9, 3.7097969964656878`*^9, 3.709804547731474*^9, 3.9274724998995523`*^9, 3.927472945855165*^9, 3.927473211288426*^9, 3.92747331967941*^9, 3.927474311675284*^9, { 3.927528702527817*^9, 3.927528719266509*^9}}], Cell[BoxData["3.625609908221908`"], "Output", CellChangeTimes->{{3.709711117492763*^9, 3.709711146929677*^9}, { 3.709711259502788*^9, 3.709711291310747*^9}, 3.709711772088471*^9, { 3.709713864533143*^9, 3.7097138841007137`*^9}, 3.709713935893148*^9, 3.7097145777598133`*^9, 3.7097925574343147`*^9, 3.7097928851171618`*^9, 3.709795913179647*^9, 3.709796912575186*^9, 3.7097969964656878`*^9, 3.709804547731474*^9, 3.9274724998995523`*^9, 3.927472945855165*^9, 3.927473211288426*^9, 3.92747331967941*^9, 3.927474311675284*^9, { 3.927528702527817*^9, 3.9275287192683372`*^9}}], Cell[BoxData["0.5091718028060886`"], "Output", CellChangeTimes->{{3.709711117492763*^9, 3.709711146929677*^9}, { 3.709711259502788*^9, 3.709711291310747*^9}, 3.709711772088471*^9, { 3.709713864533143*^9, 3.7097138841007137`*^9}, 3.709713935893148*^9, 3.7097145777598133`*^9, 3.7097925574343147`*^9, 3.7097928851171618`*^9, 3.709795913179647*^9, 3.709796912575186*^9, 3.7097969964656878`*^9, 3.709804547731474*^9, 3.9274724998995523`*^9, 3.927472945855165*^9, 3.927473211288426*^9, 3.92747331967941*^9, 3.927474311675284*^9, { 3.927528702527817*^9, 3.927528719270301*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["2(b)", "Subsubtitle", CellChangeTimes->{{3.927472340814023*^9, 3.927472349853125*^9}, { 3.927472384073505*^9, 3.927472391897768*^9}, {3.927472489373966*^9, 3.927472492748459*^9}, {3.927472911152019*^9, 3.9274729113145113`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"\[ScriptCapitalD]", "=", "dist"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dists", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "\[ScriptCapitalD]"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", "\[ScriptCapitalD]"}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "\[ScriptCapitalD]"}], "}"}], ",", RowBox[{"{", RowBox[{"w", ",", "\[ScriptCapitalD]"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[ScriptCapitalR]", "=", RowBox[{"ReliabilityDistribution", "[", RowBox[{ RowBox[{"BooleanCountingFunction", "[", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z", ",", "w"}], "}"}]}], "]"}], ",", "dists"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"FullSimplify", "[", RowBox[{"SurvivalFunction", "[", RowBox[{"\[ScriptCapitalR]", ",", "t"}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"4.", SuperscriptBox[ RowBox[{"R", "[", "t", "]"}], "3"]}], "-", RowBox[{"3", SuperscriptBox[ RowBox[{"R", "[", "t", "]"}], "4"]}]}]}], "Input", CellChangeTimes->{{3.927472858015501*^9, 3.9274729299655952`*^9}, { 3.927472998429261*^9, 3.927473008553091*^9}, {3.9274732062689123`*^9, 3.927473249705861*^9}, {3.927473280506002*^9, 3.9274732917804127`*^9}}], Cell[BoxData[ TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ {"1", RowBox[{"t", "\[LessEqual]", "0"}]}, { RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.015625`"}], " ", SuperscriptBox["t", "4"]}]]}], "+", RowBox[{"4", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.01171875`"}], " ", SuperscriptBox["t", "4"]}]]}]}], TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}, Selectable->True]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{{3.927473216857445*^9, 3.9274732501842403`*^9}, { 3.927473292591188*^9, 3.927473322006093*^9}, 3.927474313578496*^9, 3.927528734549402*^9}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ SuperscriptBox["t", "4"], "64"]}]]}], "+", RowBox[{"4.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ RowBox[{"3", " ", SuperscriptBox["t", "4"]}], "256"]}]]}]}]], "Output", CellChangeTimes->{{3.927473216857445*^9, 3.9274732501842403`*^9}, { 3.927473292591188*^9, 3.927473322006093*^9}, 3.927474313578496*^9, 3.927528734552389*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["2(c)", "Subsubtitle", CellChangeTimes->{{3.927472340814023*^9, 3.927472349853125*^9}, { 3.927472384073505*^9, 3.927472391897768*^9}, {3.927472489373966*^9, 3.927472492748459*^9}, {3.927472911152019*^9, 3.9274729113145113`*^9}, 3.927473025740485*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"h", "[", "t_", "]"}], "=", RowBox[{"HazardFunction", "[", RowBox[{"\[ScriptCapitalR]", ",", "t"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"h", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", ".001", ",", "8"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.6238294176745167`*^9, 3.623829456939942*^9}, { 3.623829494525279*^9, 3.623829495811116*^9}, {3.6239078442693367`*^9, 3.623907883377182*^9}, {3.623907984723239*^9, 3.623907988160659*^9}, { 3.623908479706286*^9, 3.623908498231825*^9}, {3.6239085439156303`*^9, 3.623908544954487*^9}, {3.6882178977860527`*^9, 3.688217942808485*^9}, { 3.688221147141494*^9, 3.688221197941729*^9}, {3.688221321757041*^9, 3.688221324619549*^9}, {3.688221370107503*^9, 3.6882215377845793`*^9}, { 3.6882216098739777`*^9, 3.688221618997138*^9}, {3.6882217191239567`*^9, 3.688221742836515*^9}, {3.688272823287395*^9, 3.688272857345606*^9}, 3.688273330049487*^9, {3.709695759832984*^9, 3.709695822697967*^9}, { 3.7097110156857767`*^9, 3.709711015914006*^9}, {3.70971122778957*^9, 3.709711256148753*^9}, 3.70971523668004*^9, {3.709715275045519*^9, 3.709715339598733*^9}, {3.709715407466537*^9, 3.709715471750897*^9}, { 3.709792566960033*^9, 3.709792591420857*^9}, {3.709792624277327*^9, 3.709792811569388*^9}, {3.709794807271392*^9, 3.70979484760353*^9}, { 3.7097951057534924`*^9, 3.70979510874993*^9}, {3.709795844709711*^9, 3.709795844997127*^9}, {3.709795878164033*^9, 3.709795892465518*^9}, 3.70979775618703*^9, {3.927473062904948*^9, 3.927473143729206*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwd13c4198XAPCPXVayNazIyogi8nmfG4qsMkOJr7JKCIlIRoSUkZGRPSuy t7KJ7Jm9R/be/Or3172v55z7nHP+uM9zL4eRlboxIQ6H+0mAw/1b7dnvnT4w ug3/9rjyOakLHu2x/ylawN8wzlUm9yq1055u/EWH/8dpzlJIH23658twe8G/ dN+LT6RL6XSdnATe/t/BPu+lpZlPsvcxB/zfP46nSUckP3PfjAz6v9VvVEhv X+qboGUL+efbLBud0tpVmLxwfNg/G5ITTUvnqiWkKXFH/KuP1rS2pGlHyCjN UqP+uVxckBRvbWlh+Vog5p87o7bo8KYuZma3e2L/mZxDkAMfWhMRPsQc/6/f UrXHF/A1lE0NFnoJQITDZaQXi+PXNY72diMT/7lGKPka/lzkRUGfwSQgw+HU 5HMV8epjD+4zsaXA8b/jvCvTwLvxhfonGaYCPQ4X9zT0Hj7Tur5cLD4NGHG4 UFe1h/jhgt2VivHPIIDDLVmZWOCpjy6cu8399a9drSn9bPH4GwaaQybpoIbD /er1foG3eBfoaZGaASo43NPNOjd8ZGdV/u7sN/DD4d6ovXuDn6Tas60OyYQd HPLf6H+Pd74Y7PdWPAt6cOxSVUTBeHotwST1niywJsDxphWG47861JaxOGTD ZQJXCyejWLxslEH3CHMOHBGMlJfkJuL7fmwvphTlwDWi8hDR7TS8zXggmZVe LkQQZnaEC2TiyckE2MX3coGF2PDbDC4XH8dffeUgMg8ekIoMiIcV4q+o6qtV S+dDy/HYi/xU3/GtTzfN3w7mgy0ZTViYTCXeLMTfXd2lAIQprLunaWvxR4W8 kSxshfCJhkad7F0DPnSgImfkRyFYMMd6T9S34IVwd3+lGBbBz5PsVG+W2/G1 59YnLAmKIZXlo7qdYzdeX/7dweX4Ysjlas2z9e/Drz86z3ggUwI0lxwWH8gN 4/3e/xCqHi+BWK4oonWtMTxXto7829elwCdmTV39ZBJf0rVioM5dBvM3FDrN N2bw6ju+Diy1ZZDyX3lG5c48/s8ZrsARk+9QJ+PN96h6Ge+OytJSyH7Adz3i i8s6a3iWh9qVlqk/wP8FjXmpzCa+t+r5QgRXOQQmboc3+O7gE7WqHQ/tyiGz 39miU+oAbz1NQ2pUUw4DgS+eZ2TgMGlH/aAahgpILrdTGDokxI5RfGblM6kA oQPRBsZgEqwjavOzX34FMCodOM/bHcOihWQllkkrYSXj99rTVArsUbl/lcad StAXMqnDxE9g4uoDtwpSKoHb7MnDqx9OYoQTvAOntishpnm2eKacDmt+9szM RaEKWm419LTyMmIRZJXrox+r4OTqvb7FFmbMJJza7fpsFbCWyWZ+KDmNXRS4 S5UmWQ2axQ13Hq2wYg0+mwktAdWgffzHnagHHJjRTKDU5nQ1mI39Kq92O4ft 3RBsOwM1QLZmVRLQw40FJ9WbyobWgJgCAUeGOS8mSPzw0HyhBmJXXp04hRfA ao2OggPkakGd0Kie644QZlARIVAQWQvBCoE9xUMi2DabeOXgai20DlDnkpWI YoEubTrEinWg2XyC8nPVJYx/0GKJP64OmkQ8x4j3xbGqq8e81Lbr4OtpsPhm Kondi0g443CrHpo+Sxo9J5fGNraxnOjkerhyZGD8YAbD3t/pu1lzUA+E7DNF fYTXsHL6k89pv/6E9AT9QWNvOUzX9iuVJFEDEMtELvK9voGttsknGug1wPFm r0TTNAXsrci4lFdWA3iu8dPP7CpiXP4ubV+PNYLvJAdHhJMKVrbAYtZh0Agt VvH7N5luY9rKeYc7+Y3gQcej4vtWDfM+Pi8gb/wLyOyl2/GNmhiH2ZvKJ6W/ 4IausIB+hDZWXMupG0zXBEdPpPrC3+pgGtzfl4ofNcGkU9Irkjg9bN5D12u0 ognsu+pYGwfuYZ5j62eOsTSDm+4Ascg1A4z1WkCOkHUzGBRH6ynOGGK3D2tH nFhbwFTqWqx42QNs9p7R8/hnLaBDUmzMomKMuZccUP381QL3W46VN2+ZYNTv lNu3TrYCeeVDufbvZpiedMTZt/hWMOk6z5mZ8AhLnps2YzVvhaLAT19JUi2w tYjLuVnBreCvNjrt1mSJ+e20KvbOtYKZxF0Bj4qnWG8qa+hjpjaY3s49aUxh i3HrWIweyrRBpNyKa6i5HfY9n8yBO6INeD3P9tOaPsfITbSqCmvaYEqFh/79 MUfsDkMCtfJKG6xQ8jAWV77Alm2xJBuFdijo0JAh9HLBpM/5LZPYtUNbsXpZ l4Ir5tP++2p4TDtIVftyBei7YZwXn7X/2GwHQqeIlz75HpjlSOVZDc4OuPal aVBm/zVW4k9jPqXSATKHa3I9Gl6Y5uKXI8qkDrDNMhHvvOqDxX7aUYxt7QB3 MbfjK02+2IKyfKjYfgf4xmv3qz3zw7y+jF3Q0+iEVYdy+xaiAKxdT8RhwaUT SsuI+mA3AGMld6ly/dwJ3d3eOzcOArECMxa9FIIuEAhyJ8cEgrHzTNqmd/i7 IFiF8MeGTAgWXBNkR6bRBa12x+YCTEMxa05Kf9PELsCqPihZ/P6IDbUqRDE1 dcE1PT/THJ4ITOWVZ1rdxt98dcLNudeRGP/AYRWPfDcwT39UeGwZjX30vdrW Y9UNCc8u2f7ei8HIJB2G3nzshob/dknkmmKxiZCV7enZbvBeovlG+yYei741 IZjq1wPSat7PnlgnY5SH7Fd18npAnDNKU9MzBXP6qq9wbKgHIupv/ghLSsV0 jvcYmQn3gvinsJGK41+w2gI6a2adXrgQp8Rhr/oVu2xy+2W9ay9YCqOznLHp GG3VzzDe9l5Aim89qcQzMdenpEm9u73wk1CJJnktE1tik832Pvcb2ngrP0cX ZmG/nEt/zdj9BsMCk9pE3RzMS/wbQRpTH8zyEWtRH+Vj6xNz1LqoDxoEBhKT DwuwBx94zxw374NSTXe/bLIiDC3HiZsX98Gd9V7pWxIlWEb0kCzLeB+MzLhH Ot4vxc6qnFb7SdEPR5pZzYoBZdhuWvBjPv1+YPCZqQ4mL8fMdNocfnv2Q4X3 4IJVbjnWQ0rt5ZPRD+H8XRryDyuw3AdvYmeP+kG3kC8/ursSszz7oistfgDS RP7bYaCoxQYa88d0GwdAtbJceHW2FlN6sbZ0fH0A7oXWaKu21mG8PRbkj64P Age/U6Z+7k8s1DON6ZTlX5dfcXqV3YCRXJriaggdhJ3OEuvDwkZsLMAA+GcG ocH6WNjhcBN2G6KU+2iGIE5aT2Mb14L9WOjV9ZUcAuPNXcFYhlYsSlHd7o/v ECwfu2Khr9qGaRFfT/ssOAzTqNBQ7aADS+YTevheaxjytjq6N7M7sW1VJjab l8Nw4wm/42nLLiwqfDZYsmkY7jWm0FpvdGM2TPLoofgINPpfEL+l3Ied/lxy VltxBPa0zKdWLvZj1dIie/L3R4AqzwIvwzqAMRqx5At4jYBmUbNVIMUQVvx1 TmCtawSyTfqamllHsQdgeHxydgQE+8gW0zNGMcr2zqnugxGQrd8jCJYZw+5v lcUVc49C6J9J5i77cYxQJoDJ/dkoqAW+9Z2gm8K+dBJv2PqMgj1lfFtW7RSm aerYbvxpFLQOxQ7UXKaxZD+jdzdrRqFt79e04/4MpthziegkwxikqHKw+knM Y2vmaSOEfGPAWyJ84yT9Aha1f/b7uvQYxJVZSGhuLmCLHGSOvQ/HgGCQsTXo 1xIWZPF7MSZ3DFRWON/Vjq5gV49UfgXWj4H2dbxfo9kqNhFYmeYxMAaEZGTk 4murmHjBl4emxOPwCvuo8Jp2HesjcOkT0hwHShF1afqXm5hH8GoBu9k4sMic CVDj2MIu8JiG0DqPQz5J7uK7n1uYi/Lt25sJ43CpIjhC+/wOxhnGWVu2Ng6d yrj9l3T7WCNfWMI3sgkoHGzMJevbx+xKKdziTk/AqztTg1jSAVY7un7VU3YC nAUZNOgUj7BHF+qylD9MwMObRYf7pgRww6ZFbSl1AsS1Pt7xnCUAzsKelcDv E3DqrWGQrCUh9MvOXOyZnQAC9yWTJDciUL57PPs/NAksKv0cM20kwBt3Up1Y exI0h/8gMitSIJlmWU1+PAl+ooaEcyfI4LsNv+h86CQUlXWqqugfA2FfpWz7 hUl4k3LieiovBVC2aqizEE0BP4lOLMMUBcww3FstYf7r0qvGsymUEBtnIUog NwX35beYTktSA23Ru+y3EVOAK5Q6RdVAA4uHIepCmVNQKjnWE3L1JDTIRa+2 1kzBR31apvRvJ8GjNUOUcWUKGgQ/UhTG0ML6dEt2rPw0DFqNvouNpYdWwV51 Wf1pMNs5M7TPwwBfbUdWJ22moT58945qNgMYHy2LCkRPw3/q9tlkrYzQzUib k7f+N07ea2lwkQWy753S0CGfgUA1D86lNhbwj+dc22WbAbwrjnD62SlQEBIT Q0oz4OWbnKZcfxqKrmvmNMTNwFP/I420j6wQ+vaexpOCGcitdfsiqs0GNm0P 1040zUDJIKtSOwU78Os/E9PanoFB+zB52Q52iLILzRlWnQWsUcWKyYkTXBJ6 c9b3ZiHhi354pPh5mDPrzeWm+QPqlWof2TLPg45Qb5421x/wpQrd/y3AA2JF PQWFyn9gTLH/ND0/L8w0d5c4f/oDZ/nOWQfJ8IN2cHdpetYfcB/0Tihr5ocq 3e6yoZo/EPSGTdREXwCiJ7p+oMU/0OrA0KvpfgE0djuriGEOZGbJw3LnhKD8 R2f1ZY05uGQ8Id7tJwxCnp01JqZzsKMs5fQfswgco+msq/efA0W7d48+lIvA d+6ORr+ROZg8Q1gVzSkKvGptHfTu8xChuVlzSvQyhDC2dV4PnYeYDvoc38jL QDjQ2mX/eR5uHyjTFpGKw6BJa09v+zzYHbL4mI+JQ5BzS3/UuQXg81lKq/t2 BY6utQw0SSzA5uM6st88kmBB1jJ4qLQA05t/bvXHSYJ8UPOwod0CVJ08xd4U KQX7KU3jXDULQJWVyHEuVRrMnzRNaP1egEbzgmIHETx0izZNei0sAK9HL9Vm MR6yyn5NzzAswtvlzbjX3RiYdDTOfTVZBLny0+YGwQjaDn+uXTq2BDX1Xed4 2WXB5rl+ASPrErwr3D73zUUWaJeXX2yLLUHt+1c8VUOyoDnKRFhqsASkPhVJ KQly0F1lTCNbsARn04sj9tANsJfe6eBqWoIfNMlWHl9vAFOeXxjp+BLcfRPx sZpFHi506J4wJluGjQvF3L478vCk2jWUV2wZLvpbiNU334TvrooOLNgydH4p kC9XUARqPL0e+c1l0NLyKIqrVoSMvJSz8/eXwfCB6ohkpRIsJzcnfvNdBqtd q2GbLhWw8TmTIz62DNwfKY/mRdSg8vpUMM/CMiTzE/B/d1EDWsJMe+btZaDk vH68uEkNcl7ISu1SrUBHrIcfslKH9cePKsokV0DXbOz8SrkGPFctbJELXIEJ d7m9a/Haf++Ve9blqBX4cuOJozfxHWCuU/pwPmUFsnamdK+Y3YFCGNY+VrYC XHpaIpNiOrArQjrUOLMCQvXQNjegC850mvPqaBXMc+wbAx31wXPBu4hGaRUW ua7lSq/qw/u6Mq9mrVW4FC5t4mNxH+KceDgUH6+C/3dGj1MmBlA7vqt1LXQV VH4vcbXkG8KJ3LgfwvOrMOWaUCYyawTM77v9FjZXYe2kB1W22APgNKPQ+0Kw BnqLquICrx7ApTPP1s8zrUHAy75XJ1gegs5rBT5WmTXgSFc5+UfHGOI1l4Io P66BU33M/ZsUZvBFiMuwIX4NNL8dDb81MYPcY7qC3ulrkMa2qLZaaQZ1pZV1 RFVrUBiV+1P8lTnMc4Xu7y6swUTq7rsVksdweUPaZFZ2HfL4PWcHVC0Ba3kq lqK6DsMJ9yoayixBIS0ZZ6y7DriF4DPUQlagp08TOWK5DgkxnXJqx63BpWa8 pSd8HcgdXw0Jb1pDfYivZO3SOiiyp1qErNpAhPBVicaddSix19A9FLEFi59z l1qJNmBxn7qLztoWThwoi/QxbcDAcxILxWVb0H54gmcRNuAS1i1Js2MH46LB 9IwBGzA0nUd1R/A55P6Soz0dsQEuM2Pn0PPn4GWycYI9cQMO9D7FLVY8B/4I bQr+wg1wdC64F6/rANYELITYyAacK9xj/BDkCIctn5aMRTahT3g2n+6CM7Sa qy48ktqEs/PSGmc8nCGe6OiPldwmqF6Z+EDS7wzXJQynHHU2QYpk+bzbu5fg F805+M51E67aNbLdOnABlicpDXmtmyAazPZ0hdgNLpFnJZE83QJB7yfpvDav IfblF+Jxpy3gznKNCMp+DRQrSQ/KvbaAnO7b6aS11zDWE8HhFLUF7lHJ4j+f e4J/0utPy3VbEKe0XCDm7QV/kE5IP+s25FywP6ht8AatXPX1Qr5teEpNn3yf 0QfKeVQ0Qi9tA8QKcOQZ+UAYtcxJNcVtsHe8fy/xwAfkBgTe1T7bBt3r52dz pd9CzPOj11m/tkElIwo/P/IOyOd2xt/3bMNSen4Lp+R7sL+/LmMxtg13A0Yk RILeg/L1WRzP9jaciaH82XXDH3ZpO5yjzu1Ah9UAkbR+AGhmJNu9ebEDBB8Y vsNUIJBPqjzU592ForbEhmCNEMCYq9fcRHdh24/I/odvCNgoSXkkS++CM/e9 mfuVIfA763z80u1doM58TXIkGgqpLkfDbo67oO9V+7KXJQzkmbPuJjfswrzR lEbI4Ud4ocQz19D593wsnfFDfDhkuHx6sTS0CznedXS5zuHAOOkTfmVtF8Tn ZzV798NhKsuop+H0HkhW9HTdJIqE10r0GksWe2DAeiDrwvcJCl18x+ie70HU R4nCHOtPMJ+Fs7nitgfrVmZX7Qs/gSbzQoBbyB68eWEUk3QzGs5N1jTTfd+D Lzrq6tU2MVDp8lzxyol9MLh8z/LuciwcZfVdc8vah8FA99tRHxNgnrC01KZk H6hJh60XqxOgV+OTxMOafci7/JQlcCUBsjcMBOV/7wOpg3PCT6VEeCg5yUxF cAAOaug4HXESNJQvLX28fQD0OcrYg9fJENpCHJ25dACmYkUEk7Vp4ME+xRy/ cwA+FGQ5DIdpYP207sMHokOok7JXS7z8GW7S+frYMx3CqkE69WDSZ9jXPvFM Gg6h5L1CfL3vFzAaYlGuf38Ij2f6rGZN0kFwQWh3WPAIVJ5tx2flZUIuk153 2pUjSP5GvuHQlwlSMp7ZtrJHMNIFA6+OMuFGWP8jMt0jCOxJeq+imAWG17z7 hV4fQYTuxTfLY1kQFDJa+rLvCPoabE+FsOfAPmvDj3eyOPR8y+H8/ZY8gNzh 9FUFHKo1KJtN3s8D95sbkXdUcchw8oPrFf58OG7H7sChi0Pfr3NpSHjlA+NP e5E8Sxwac5vM+XKtAIRtz8UNhOOQU3XC18zaQjCqc3YXWMah2IHWvMsUpeAr 3Xrs0gYOJQ2aejpipZCVdc5feheHBpNUu4htSgEX1RCpQkyAKGXlpld/l0K0 NXOeFTMBkq8pfCSWXga/WXKncxAB6mK++fbFfz/gtsWcsnQgAWqejtz+z60C HEaxDrlQAkTlTLWdF1MBMdpBuiqRBOjyYq3Nxe8VsIgkTe4nEaCs3txbMXsV 8JbhzSvXIgLEff/0oK5DJdR+58yuHiVAaQntXQ8cqwB/Uo9JRZQQCTxuKQ2J qAFRW/XmCglCpFspeoq6ogbOdyl6iuMJkWa05Kmi6RqgDr+6xqZAiPDuGoEp l2thhP1sy6o+IcKRNV7701EL7iIjXh99CJHlo6ZY7lP1UHvLZHN8hBCpG4xQ mjU3QHHW/XSdKUKk+NU0y2GvATLo7jxsmiNEGelUKuW8jRDWI9+ev0mIspPq F9c9GsHMgC/Dh5IILUm7vNiS/gXkVvPGwleIkACXt55LUROovrfpeuFPhILG LlcVWbYC2yt2wu5gIiRX2O6k7d0Ky1bNQhcjiFDep5TIE/Gtf9+9/N7TiUTo lgWtYk9XK3TSj0lpFhMh59zRxTKsDXQj1WIFJ4lQRV176DpDOzxMFXk8IkWM ijx5/n4BO+BF5SLuxhQxsrIflBD83gPCH/pq5OaIkXZ8UPSJwR6YeFDrK7tM jJIkLr2g2u8BVZJo+mu7xEh1JTvnrlQvcCqo8EpTkyCXNR9u2cJe+Nn05Zao OAlSf30p8HrRb2D+bRbN6kWCTFM6y9Vb+yF/aezqFjcpiur40cbKPwJX0m0v GgmQouqBWP1ibASKHxHzNImQoqv2loKmGiNQNslNm3CVFJVylaeuO49Adb/Z jKoaKaraV3Yebh2B9rrF4GRnUrQe3bm85TQKizG7C1odpIjuo+NzleEx4LlN G5vrSoZk7Y48UP8kpKUV0elUH0OPy79h14XnwVA8KpPsHDm6+OWI6Q3jKoi+ GCvWdKJAbnLL0/xhm0BfENv5ppQSfcmsm2K4tQcCPBFMdczUaJ/I4+ptFxzS CKB4NK9/Aj07aPZcMiVCyjrLwXdUadBQpMe1a26k6Ji7w3HYo0FSxns/Of/W UU4t9QyPOokaSojrneqoEL9ZNOMLJVp006i3iRJ3EoURid7n26JFQvGTiZuX 6ZBfpFu6UhgdGt7Qyog1ZkCnmyxPrsvRo6Jmvqa0aSYkusf08sQ0PXpmZV0V YHgK9RDbxux4MqBrRPyY4sIZxJT6uNtclBGJ150yWOlmQ0Py7AwqHYwosOcu W6AuB0JuNmb5bkwIv5Y+L73HifgLXKuCuJhRhfPhZE4IF4qvR134ambk+TUu Xlj6PMq1jd6zfMqCzHWkoqbO8iLV04V8dHSnEPMbpfkHm3zI456VBb7yFIq5 lXPqNs0FdMOx11jc8jQ6V8Fz0fOqEAoMOjCJpz6DPHpnLgsJiiD76+XOwaVn 0Mv0VAWb/y6i8XUsYuf+WUSiGFqf8V4UDb2yshQ8PItoN6h5JyrFkF0i/s70 Z1Z0YyGOnYL9MgqqqZOnV2ZDehMcCzg7cfRfp/PmuCobGtwUNqd+IY5Exi8m 5aixoS3NsL0zruKoGRdFqHGHDQUIdz/A+4kjCmnrskAjNlS00ib3NlEcvc5m FjvhyIaEndLv3+0SR/Yx5qzkyWxIJUk+rklCAl3PYG36ncqG3uaTsRziJRB9 WYdT2hc29Oa1zGdhOQmU3Yf/rZDFhsQc/FhCb0ugJQba4DelbGg0RkjI2lwC mfkVHyfpYEMcr4Ku60ZKIIlIq8LOLjYE20WGkXESiPQzl2liLxtqjp8PHUqR QIl176tlh9hQZmKPplmuBBohfPDKfZYNqR25svg0SaBvJ5mF1OfZUG/q9xOd HRLIhb1pgGOJDblktXCw90mgM5iEVMU6G6pcbwkvmZJAc8rzMwFbbMhacuWI fEECFd+NCzPcZUPqKzfd765JIN9H2jdEDv72z7HGnr4jgXQdKTaOjtjQtyaS gaMjCfQ/HoikdQ== "]]}}, 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.001, 8}, {0., 23.99999785558401}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.6882728729872627`*^9, {3.6882729861598186`*^9, 3.6882729962487173`*^9}, 3.6882732697513113`*^9, {3.6882733147851763`*^9, 3.6882733362931843`*^9}, 3.688273447479336*^9, 3.688289368965742*^9, {3.709795882059162*^9, 3.709795893238968*^9}, 3.7097977570383244`*^9, 3.709804566646564*^9, { 3.9274731079019814`*^9, 3.927473146054241*^9}, 3.927474316908366*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["2(d)", "Subsubtitle", CellChangeTimes->{{3.927472340814023*^9, 3.927472349853125*^9}, { 3.927472384073505*^9, 3.927472391897768*^9}, {3.927472489373966*^9, 3.927472492748459*^9}, {3.927472911152019*^9, 3.9274729113145113`*^9}, 3.927473025740485*^9, {3.9274733464314003`*^9, 3.927473346567992*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Mean", "[", "\[ScriptCapitalR]", "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"4.", SuperscriptBox[ RowBox[{"R", "[", "t", "]"}], "3"]}], "-", RowBox[{"3", SuperscriptBox[ RowBox[{"R", "[", "t", "]"}], "4"]}]}], ")"}], RowBox[{"\[DifferentialD]", "t"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ FractionBox["4", SuperscriptBox["3", FractionBox["1", "4"]]], RowBox[{"Mean", "[", "dist", "]"}]}], "-", RowBox[{ FractionBox["3", SuperscriptBox["4", FractionBox["1", "4"]]], RowBox[{"Mean", "[", "dist", "]"}]}]}], "\[IndentingNewLine]", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ RowBox[{"(", SuperscriptBox[ RowBox[{"R", "[", "t", "]"}], "3"], ")"}], RowBox[{"\[DifferentialD]", "t"}]}]}], "\[IndentingNewLine]", FractionBox[ RowBox[{"Mean", "[", "dist", "]"}], SuperscriptBox["3", RowBox[{"1", "/", "4"}]]]}], "Input", CellChangeTimes->{{3.9274734022572937`*^9, 3.927473441994204*^9}, { 3.927473493345201*^9, 3.927473493620336*^9}}], Cell[BoxData["3.3283911059649607`"], "Output", CellChangeTimes->{3.9274733510829153`*^9, 3.927473405608021*^9, 3.927473442770763*^9, 3.9274734949221067`*^9, 3.927474320578412*^9}], Cell[BoxData["3.3283911059534628`"], "Output", CellChangeTimes->{3.9274733510829153`*^9, 3.927473405608021*^9, 3.927473442770763*^9, 3.9274734949221067`*^9, 3.927474320634557*^9}], Cell[BoxData["3.3283911059534628`"], "Output", CellChangeTimes->{3.9274733510829153`*^9, 3.927473405608021*^9, 3.927473442770763*^9, 3.9274734949221067`*^9, 3.9274743206371307`*^9}], Cell[BoxData["2.7548677905190013`"], "Output", CellChangeTimes->{3.9274733510829153`*^9, 3.927473405608021*^9, 3.927473442770763*^9, 3.9274734949221067`*^9, 3.92747432066833*^9}], Cell[BoxData["2.7548677905190013`"], "Output", CellChangeTimes->{3.9274733510829153`*^9, 3.927473405608021*^9, 3.927473442770763*^9, 3.9274734949221067`*^9, 3.927474320670801*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Question 3\ \>", "Subtitle", CellChangeTimes->{{3.927472308216601*^9, 3.927472327030428*^9}, { 3.92747247091156*^9, 3.927472494198606*^9}, {3.927473508657538*^9, 3.9274735088445253`*^9}}], Cell["Type I/item censoring with replacement", "Subsubtitle", CellChangeTimes->{{3.927472340814023*^9, 3.927472349853125*^9}, { 3.927472384073505*^9, 3.927472391897768*^9}, {3.927472489373966*^9, 3.927472492748459*^9}, {3.927473564658869*^9, 3.9274735677324963`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", "24"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t0", "=", "74000."}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"data", "=", RowBox[{"{", RowBox[{ "2760.", ",", "3700.", ",", "7100.", ",", "17220.", ",", "29500.", ",", "48400.", ",", "52600.", ",", "65000."}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"r", "=", RowBox[{"Length", "[", "data", "]"}]}], "\[IndentingNewLine]", RowBox[{"\[Zeta]", "=", RowBox[{"n", "*", "t0"}]}], "\[IndentingNewLine]", RowBox[{"\[Lambda]hat", "=", FractionBox["r", "\[Zeta]"]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dist", "=", RowBox[{"ExponentialDistribution", "[", "\[Lambda]hat", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"2000000", "*", RowBox[{"CDF", "[", RowBox[{"dist", ",", "24000"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Round", "[", RowBox[{ RowBox[{"2000000", "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "24000"}], "*", "\[Lambda]hat"}], "]"}]}], ")"}]}], ",", "0.001"}], "]"}]}], "Input", CellChangeTimes->{{3.7098074660343657`*^9, 3.709807565119947*^9}, { 3.709807599522828*^9, 3.709807717258689*^9}, 3.709816309128418*^9, 3.7098176354867067`*^9, {3.709818340757648*^9, 3.709818357279749*^9}, { 3.709818389683004*^9, 3.709818428960442*^9}, 3.709818649128244*^9, { 3.709819661917695*^9, 3.709819689323277*^9}, {3.70987161805551*^9, 3.709871637026535*^9}, 3.927474322702744*^9}], Cell[BoxData["8"], "Output", CellChangeTimes->{{3.709807561561192*^9, 3.709807566235497*^9}, { 3.709807708658593*^9, 3.70980771775286*^9}, 3.709816305508546*^9, 3.709817636133697*^9, {3.709818385176139*^9, 3.709818430272079*^9}, 3.709818650782349*^9, {3.7098196792710342`*^9, 3.709819690051663*^9}, 3.709871638074568*^9, 3.709871739796513*^9, 3.927474323670574*^9}], Cell[BoxData["1.776`*^6"], "Output", CellChangeTimes->{{3.709807561561192*^9, 3.709807566235497*^9}, { 3.709807708658593*^9, 3.70980771775286*^9}, 3.709816305508546*^9, 3.709817636133697*^9, {3.709818385176139*^9, 3.709818430272079*^9}, 3.709818650782349*^9, {3.7098196792710342`*^9, 3.709819690051663*^9}, 3.709871638074568*^9, 3.709871739796513*^9, 3.9274743236737337`*^9}], Cell[BoxData["4.504504504504505`*^-6"], "Output", CellChangeTimes->{{3.709807561561192*^9, 3.709807566235497*^9}, { 3.709807708658593*^9, 3.70980771775286*^9}, 3.709816305508546*^9, 3.709817636133697*^9, {3.709818385176139*^9, 3.709818430272079*^9}, 3.709818650782349*^9, {3.7098196792710342`*^9, 3.709819690051663*^9}, 3.709871638074568*^9, 3.709871739796513*^9, 3.927474323676187*^9}], Cell[BoxData["204938.87829108015`"], "Output", CellChangeTimes->{{3.709807561561192*^9, 3.709807566235497*^9}, { 3.709807708658593*^9, 3.70980771775286*^9}, 3.709816305508546*^9, 3.709817636133697*^9, {3.709818385176139*^9, 3.709818430272079*^9}, 3.709818650782349*^9, {3.7098196792710342`*^9, 3.709819690051663*^9}, 3.709871638074568*^9, 3.709871739796513*^9, 3.927474323678651*^9}], Cell[BoxData["204938.878`"], "Output", CellChangeTimes->{{3.709807561561192*^9, 3.709807566235497*^9}, { 3.709807708658593*^9, 3.70980771775286*^9}, 3.709816305508546*^9, 3.709817636133697*^9, {3.709818385176139*^9, 3.709818430272079*^9}, 3.709818650782349*^9, {3.7098196792710342`*^9, 3.709819690051663*^9}, 3.709871638074568*^9, 3.709871739796513*^9, 3.927474323681102*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Question 4\ \>", "Subtitle", CellChangeTimes->{{3.927472308216601*^9, 3.927472327030428*^9}, { 3.92747247091156*^9, 3.927472494198606*^9}, {3.927473508657538*^9, 3.9274735088445253`*^9}, {3.927473581633361*^9, 3.9274735818825397`*^9}}], Cell["4(a)", "Subsubtitle", CellChangeTimes->{{3.927472340814023*^9, 3.927472349853125*^9}, { 3.927472384073505*^9, 3.927472391897768*^9}, {3.927472489373966*^9, 3.927472492748459*^9}, {3.927472911152019*^9, 3.9274729113145113`*^9}, 3.927473025740485*^9, {3.9274733464314003`*^9, 3.927473346567992*^9}, { 3.92747390999842*^9, 3.9274739110103817`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["p", "0"], "=", "0.15"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", "125"}], ";"}], "\[IndentingNewLine]", RowBox[{ SubscriptBox["p", "0"], "-", RowBox[{"3", "\[Times]", SqrtBox[ FractionBox[ RowBox[{ SubscriptBox["p", "0"], " ", RowBox[{"(", RowBox[{"1", "-", SubscriptBox["p", "0"]}], ")"}]}], "n"]]}]}], "\[IndentingNewLine]", RowBox[{ SubscriptBox["p", "0"], "+", RowBox[{"3", "\[Times]", SqrtBox[ FractionBox[ RowBox[{ SubscriptBox["p", "0"], " ", RowBox[{"(", RowBox[{"1", "-", SubscriptBox["p", "0"]}], ")"}]}], "n"]]}]}]}], "Input", CellChangeTimes->{ 3.6881241656293583`*^9, {3.688124332129684*^9, 3.688124553865082*^9}, { 3.688124663753605*^9, 3.688124890627358*^9}, {3.688124975916493*^9, 3.688125190116311*^9}, {3.6881254533153343`*^9, 3.6881255113396263`*^9}, { 3.688125565079371*^9, 3.6881257179668016`*^9}, {3.688125770229147*^9, 3.688126035728828*^9}, {3.688126092078721*^9, 3.6881261405896597`*^9}, { 3.688143554759675*^9, 3.6881435804833517`*^9}, {3.688271424563704*^9, 3.6882714273112793`*^9}, {3.691248317202837*^9, 3.69124837539048*^9}, { 3.7091234852804537`*^9, 3.7091235211015577`*^9}, 3.7091361663274183`*^9, 3.927474326465506*^9}], Cell[BoxData["0.05418768346397211`"], "Output", CellChangeTimes->{ 3.68814358474538*^9, {3.68814468194454*^9, 3.688144698718944*^9}, 3.688271428469199*^9, 3.691248375979761*^9, 3.691248468552925*^9, 3.691500642350307*^9, 3.691675568751685*^9, {3.70912349062116*^9, 3.709123525380371*^9}, 3.709136166798408*^9, {3.709437839387492*^9, 3.7094378522159147`*^9}, 3.92747359043937*^9, 3.927473986662075*^9, 3.927474327606687*^9}], Cell[BoxData["0.24581231653602786`"], "Output", CellChangeTimes->{ 3.68814358474538*^9, {3.68814468194454*^9, 3.688144698718944*^9}, 3.688271428469199*^9, 3.691248375979761*^9, 3.691248468552925*^9, 3.691500642350307*^9, 3.691675568751685*^9, {3.70912349062116*^9, 3.709123525380371*^9}, 3.709136166798408*^9, {3.709437839387492*^9, 3.7094378522159147`*^9}, 3.92747359043937*^9, 3.927473986662075*^9, 3.9274743276092052`*^9}] }, Open ]], Cell[CellGroupData[{ Cell["4(b)", "Subsubtitle", CellChangeTimes->{{3.927472340814023*^9, 3.927472349853125*^9}, { 3.927472384073505*^9, 3.927472391897768*^9}, {3.927472489373966*^9, 3.927472492748459*^9}, {3.927472911152019*^9, 3.9274729113145113`*^9}, 3.927473025740485*^9, {3.9274733464314003`*^9, 3.927473346567992*^9}, { 3.92747390999842*^9, 3.92747391844875*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ SubscriptBox["p", "0"], "=", "0.15"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", "20"}], ";"}], "\[IndentingNewLine]", RowBox[{"n", "*", SubscriptBox["p", "0"]}], "\[IndentingNewLine]", RowBox[{"n", "*", SubscriptBox["p", "0"], RowBox[{"(", RowBox[{"1", "-", SubscriptBox["p", "0"]}], ")"}]}], "\[IndentingNewLine]", RowBox[{"LCL", "=", RowBox[{"Ceiling", "[", RowBox[{"Max", "[", RowBox[{"0", ",", " ", RowBox[{ RowBox[{"n", "*", SubscriptBox["p", "0"]}], "-", RowBox[{"3", "\[Times]", SqrtBox[ RowBox[{"n", "*", SubscriptBox["p", "0"], RowBox[{"(", RowBox[{"1", "-", SubscriptBox["p", "0"]}], ")"}]}]]}]}]}], "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"UCL", "=", RowBox[{"Floor", "[", " ", RowBox[{ RowBox[{"n", "*", SubscriptBox["p", "0"]}], "+", RowBox[{"3", "\[Times]", SqrtBox[ RowBox[{"n", "*", SubscriptBox["p", "0"], RowBox[{"(", RowBox[{"1", "-", SubscriptBox["p", "0"]}], ")"}]}]]}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Xi]", "[", "\[Delta]_", "]"}], "=", RowBox[{"1", "-", RowBox[{"(", RowBox[{ RowBox[{"CDF", "[", RowBox[{ RowBox[{"BinomialDistribution", "[", RowBox[{"n", ",", RowBox[{ SubscriptBox["p", "0"], "+", "\[Delta]"}]}], "]"}], ",", "UCL"}], "]"}], "-", RowBox[{"CDF", "[", RowBox[{ RowBox[{"BinomialDistribution", "[", RowBox[{"n", ",", RowBox[{ SubscriptBox["p", "0"], "+", "\[Delta]"}]}], "]"}], ",", RowBox[{"LCL", "-", "1"}]}], "]"}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Round", "[", RowBox[{ RowBox[{"1", "/", RowBox[{"\[Xi]", "[", "0", "]"}]}], ",", "0.001"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"with", " ", "tables"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Round", "[", RowBox[{ FractionBox["1", RowBox[{"1", "-", RowBox[{"(", RowBox[{"0.9941", "-", "0"}], ")"}]}]], ",", "0.001"}], "]"}], " "}]}], "Input", CellChangeTimes->{ 3.6881241656293583`*^9, {3.688124332129684*^9, 3.688124553865082*^9}, { 3.688124663753605*^9, 3.688124890627358*^9}, {3.688124975916493*^9, 3.688125190116311*^9}, {3.6881254533153343`*^9, 3.6881255113396263`*^9}, { 3.688125565079371*^9, 3.6881257179668016`*^9}, {3.688125770229147*^9, 3.688126035728828*^9}, {3.688126092078721*^9, 3.6881261405896597`*^9}, { 3.688143554759675*^9, 3.6881435804833517`*^9}, {3.688271424563704*^9, 3.6882714273112793`*^9}, {3.691248317202837*^9, 3.69124837539048*^9}, { 3.7091234852804537`*^9, 3.7091235211015577`*^9}, {3.709135714474572*^9, 3.709135811561446*^9}, {3.709135842437378*^9, 3.709135886274633*^9}, { 3.709136251565907*^9, 3.709136295441372*^9}, 3.709136406879475*^9, { 3.7091367948450108`*^9, 3.7091368150198507`*^9}, {3.9274739389866056`*^9, 3.927473939798238*^9}, 3.9274739963748817`*^9, {3.927474340802101*^9, 3.92747436234007*^9}}], Cell[BoxData["3.`"], "Output", CellChangeTimes->{ 3.68814358474538*^9, {3.68814468194454*^9, 3.688144698718944*^9}, 3.688271428469199*^9, 3.691248375979761*^9, 3.691248468552925*^9, 3.691500642350307*^9, 3.691675568751685*^9, {3.70912349062116*^9, 3.709123525380371*^9}, {3.709135761627212*^9, 3.709135767848302*^9}, { 3.709135806832676*^9, 3.709135812095151*^9}, 3.70913585302283*^9, 3.7091358897239103`*^9, 3.709136252232617*^9, {3.7091362867507267`*^9, 3.7091362962186613`*^9}, {3.70913639751967*^9, 3.709136407363398*^9}, 3.709136458944131*^9, {3.709136800202208*^9, 3.709136816168152*^9}, { 3.709437841863706*^9, 3.7094378572572403`*^9}, {3.927473984587619*^9, 3.92747399744623*^9}, 3.927474333641552*^9, 3.927474365053668*^9}], Cell[BoxData["2.55`"], "Output", CellChangeTimes->{ 3.68814358474538*^9, {3.68814468194454*^9, 3.688144698718944*^9}, 3.688271428469199*^9, 3.691248375979761*^9, 3.691248468552925*^9, 3.691500642350307*^9, 3.691675568751685*^9, {3.70912349062116*^9, 3.709123525380371*^9}, {3.709135761627212*^9, 3.709135767848302*^9}, { 3.709135806832676*^9, 3.709135812095151*^9}, 3.70913585302283*^9, 3.7091358897239103`*^9, 3.709136252232617*^9, {3.7091362867507267`*^9, 3.7091362962186613`*^9}, {3.70913639751967*^9, 3.709136407363398*^9}, 3.709136458944131*^9, {3.709136800202208*^9, 3.709136816168152*^9}, { 3.709437841863706*^9, 3.7094378572572403`*^9}, {3.927473984587619*^9, 3.92747399744623*^9}, 3.927474333641552*^9, 3.927474365056747*^9}], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.68814358474538*^9, {3.68814468194454*^9, 3.688144698718944*^9}, 3.688271428469199*^9, 3.691248375979761*^9, 3.691248468552925*^9, 3.691500642350307*^9, 3.691675568751685*^9, {3.70912349062116*^9, 3.709123525380371*^9}, {3.709135761627212*^9, 3.709135767848302*^9}, { 3.709135806832676*^9, 3.709135812095151*^9}, 3.70913585302283*^9, 3.7091358897239103`*^9, 3.709136252232617*^9, {3.7091362867507267`*^9, 3.7091362962186613`*^9}, {3.70913639751967*^9, 3.709136407363398*^9}, 3.709136458944131*^9, {3.709136800202208*^9, 3.709136816168152*^9}, { 3.709437841863706*^9, 3.7094378572572403`*^9}, {3.927473984587619*^9, 3.92747399744623*^9}, 3.927474333641552*^9, 3.927474365059106*^9}], Cell[BoxData["7"], "Output", CellChangeTimes->{ 3.68814358474538*^9, {3.68814468194454*^9, 3.688144698718944*^9}, 3.688271428469199*^9, 3.691248375979761*^9, 3.691248468552925*^9, 3.691500642350307*^9, 3.691675568751685*^9, {3.70912349062116*^9, 3.709123525380371*^9}, {3.709135761627212*^9, 3.709135767848302*^9}, { 3.709135806832676*^9, 3.709135812095151*^9}, 3.70913585302283*^9, 3.7091358897239103`*^9, 3.709136252232617*^9, {3.7091362867507267`*^9, 3.7091362962186613`*^9}, {3.70913639751967*^9, 3.709136407363398*^9}, 3.709136458944131*^9, {3.709136800202208*^9, 3.709136816168152*^9}, { 3.709437841863706*^9, 3.7094378572572403`*^9}, {3.927473984587619*^9, 3.92747399744623*^9}, 3.927474333641552*^9, 3.927474365061507*^9}], Cell[BoxData["168.886`"], "Output", CellChangeTimes->{ 3.68814358474538*^9, {3.68814468194454*^9, 3.688144698718944*^9}, 3.688271428469199*^9, 3.691248375979761*^9, 3.691248468552925*^9, 3.691500642350307*^9, 3.691675568751685*^9, {3.70912349062116*^9, 3.709123525380371*^9}, {3.709135761627212*^9, 3.709135767848302*^9}, { 3.709135806832676*^9, 3.709135812095151*^9}, 3.70913585302283*^9, 3.7091358897239103`*^9, 3.709136252232617*^9, {3.7091362867507267`*^9, 3.7091362962186613`*^9}, {3.70913639751967*^9, 3.709136407363398*^9}, 3.709136458944131*^9, {3.709136800202208*^9, 3.709136816168152*^9}, { 3.709437841863706*^9, 3.7094378572572403`*^9}, {3.927473984587619*^9, 3.92747399744623*^9}, 3.927474333641552*^9, 3.927474365063878*^9}], Cell[BoxData["169.492`"], "Output", CellChangeTimes->{ 3.68814358474538*^9, {3.68814468194454*^9, 3.688144698718944*^9}, 3.688271428469199*^9, 3.691248375979761*^9, 3.691248468552925*^9, 3.691500642350307*^9, 3.691675568751685*^9, {3.70912349062116*^9, 3.709123525380371*^9}, {3.709135761627212*^9, 3.709135767848302*^9}, { 3.709135806832676*^9, 3.709135812095151*^9}, 3.70913585302283*^9, 3.7091358897239103`*^9, 3.709136252232617*^9, {3.7091362867507267`*^9, 3.7091362962186613`*^9}, {3.70913639751967*^9, 3.709136407363398*^9}, 3.709136458944131*^9, {3.709136800202208*^9, 3.709136816168152*^9}, { 3.709437841863706*^9, 3.7094378572572403`*^9}, {3.927473984587619*^9, 3.92747399744623*^9}, 3.927474333641552*^9, 3.927474365066278*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Question 5\ \>", "Subtitle", CellChangeTimes->{{3.927472308216601*^9, 3.927472327030428*^9}, { 3.92747247091156*^9, 3.927472494198606*^9}, {3.927473508657538*^9, 3.9274735088445253`*^9}, {3.927473581633361*^9, 3.9274735818825397`*^9}, { 3.9274740128867893`*^9, 3.92747401316121*^9}}], Cell["5(b)", "Subsubtitle", CellChangeTimes->{{3.927472340814023*^9, 3.927472349853125*^9}, { 3.927472384073505*^9, 3.927472391897768*^9}, {3.927472489373966*^9, 3.927472492748459*^9}, {3.927472911152019*^9, 3.9274729113145113`*^9}, 3.927473025740485*^9, {3.9274733464314003`*^9, 3.927473346567992*^9}, { 3.92747390999842*^9, 3.9274739110103817`*^9}, {3.9274740171987534`*^9, 3.927474022536273*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"CDF", "[", RowBox[{ RowBox[{"GeometricDistribution", "[", "p", "]"}], ",", "x"}], "]"}]}], "Input", CellChangeTimes->{{3.709202012832479*^9, 3.7092020229062653`*^9}, 3.927474093726371*^9}], Cell[BoxData[ TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ { RowBox[{"1", "-", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "p"}], ")"}], RowBox[{"1", "+", RowBox[{"Floor", "[", "x", "]"}]}]]}], RowBox[{"x", "\[GreaterEqual]", "0"}]}, {"0", TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}, Selectable->True]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.92747402981914*^9, 3.927474094544075*^9, 3.927474374547924*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ SubscriptBox["p", "0"], "=", "0.001"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Alpha]", "=", "0.005"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"probsignalunbiased", "[", RowBox[{"p_", ",", "L_", ",", "U_", ",", "gammaLCL_", ",", "gammaUCL_"}], "]"}], "=", RowBox[{ RowBox[{"CDF", "[", RowBox[{ RowBox[{"GeometricDistribution", "[", "p", "]"}], ",", RowBox[{"L", "-", "1"}]}], "]"}], "+", "1", "-", RowBox[{"CDF", "[", RowBox[{ RowBox[{"GeometricDistribution", "[", "p", "]"}], ",", "U"}], "]"}], "+", RowBox[{"gammaLCL", "\[Times]", RowBox[{"PDF", "[", RowBox[{ RowBox[{"GeometricDistribution", "[", "p", "]"}], ",", "L"}], "]"}]}], "+", RowBox[{"gammaUCL", "\[Times]", RowBox[{"PDF", "[", RowBox[{ RowBox[{"GeometricDistribution", "[", "p", "]"}], ",", "U"}], "]"}]}]}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ARLunbiased", "[", RowBox[{"p_", ",", "L_", ",", "U_", ",", "gammaLCL_", ",", "gammaUCL_"}], "]"}], "=", RowBox[{"1", "/", RowBox[{"probsignalunbiased", "[", RowBox[{"p", ",", "L", ",", "U", ",", "gammaLCL", ",", "gammaUCL"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"LCLunbiased", "=", "4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"UCLunbiased", "=", "7428"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["\[Gamma]", "L"], "=", "0.415872"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[Gamma]", "U"], "=", "0.349557"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Round", "[", RowBox[{ RowBox[{"1", "/", RowBox[{"ARLunbiased", "[", RowBox[{ RowBox[{"0.9", "*", SubscriptBox["p", "0"]}], ",", "LCLunbiased", ",", "UCLunbiased", ",", SubscriptBox["\[Gamma]", "L"], ",", SubscriptBox["\[Gamma]", "U"]}], "]"}]}], ",", "0.000001"}], "]"}], "\[IndentingNewLine]", RowBox[{"Round", "[", RowBox[{ RowBox[{"1", "/", RowBox[{"ARLunbiased", "[", RowBox[{ SubscriptBox["p", "0"], ",", "LCLunbiased", ",", "UCLunbiased", ",", SubscriptBox["\[Gamma]", "L"], ",", SubscriptBox["\[Gamma]", "U"]}], "]"}]}], ",", "0.000001"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Round", "[", RowBox[{ RowBox[{"1", "/", RowBox[{"ARLunbiased", "[", RowBox[{ RowBox[{"1.1", "*", SubscriptBox["p", "0"]}], ",", "LCLunbiased", ",", "UCLunbiased", ",", SubscriptBox["\[Gamma]", "L"], ",", SubscriptBox["\[Gamma]", "U"]}], "]"}]}], ",", "0.000001"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Round", "[", RowBox[{ RowBox[{"ARLunbiased", "[", RowBox[{ RowBox[{"0.9", "*", SubscriptBox["p", "0"]}], ",", "LCLunbiased", ",", "UCLunbiased", ",", SubscriptBox["\[Gamma]", "L"], ",", SubscriptBox["\[Gamma]", "U"]}], "]"}], ",", "0.001"}], "]"}], "\[IndentingNewLine]", RowBox[{"Round", "[", RowBox[{ RowBox[{"ARLunbiased", "[", RowBox[{ SubscriptBox["p", "0"], ",", "LCLunbiased", ",", "UCLunbiased", ",", SubscriptBox["\[Gamma]", "L"], ",", SubscriptBox["\[Gamma]", "U"]}], "]"}], ",", "0.001"}], "]"}], "\[IndentingNewLine]", RowBox[{"Round", "[", RowBox[{ RowBox[{"ARLunbiased", "[", RowBox[{ RowBox[{"1.1", "*", SubscriptBox["p", "0"]}], ",", "LCLunbiased", ",", "UCLunbiased", ",", SubscriptBox["\[Gamma]", "L"], ",", SubscriptBox["\[Gamma]", "U"]}], "]"}], ",", "0.001"}], "]"}]}], "Input",\ CellChangeTimes->{{3.709201637149544*^9, 3.7092017885934963`*^9}, { 3.709201840389957*^9, 3.709201851676135*^9}, {3.7092019030884523`*^9, 3.709201910025156*^9}, {3.70920194148525*^9, 3.709201943147531*^9}, { 3.7094477698772573`*^9, 3.709447815866521*^9}, {3.927474136101692*^9, 3.927474136663054*^9}}], Cell[BoxData["0.005213`"], "Output", CellChangeTimes->{ 3.7092017329419518`*^9, 3.709201818549159*^9, 3.709201852173986*^9, 3.709201913715516*^9, {3.709201944020782*^9, 3.7092019602207823`*^9}, 3.709203610415739*^9, 3.70943788965683*^9, {3.709447781919054*^9, 3.7094478247108183`*^9}, 3.9274741538389883`*^9, 3.927474376094589*^9}], Cell[BoxData["0.005`"], "Output", CellChangeTimes->{ 3.7092017329419518`*^9, 3.709201818549159*^9, 3.709201852173986*^9, 3.709201913715516*^9, {3.709201944020782*^9, 3.7092019602207823`*^9}, 3.709203610415739*^9, 3.70943788965683*^9, {3.709447781919054*^9, 3.7094478247108183`*^9}, 3.9274741538389883`*^9, 3.927474376097719*^9}], Cell[BoxData["0.00513`"], "Output", CellChangeTimes->{ 3.7092017329419518`*^9, 3.709201818549159*^9, 3.709201852173986*^9, 3.709201913715516*^9, {3.709201944020782*^9, 3.7092019602207823`*^9}, 3.709203610415739*^9, 3.70943788965683*^9, {3.709447781919054*^9, 3.7094478247108183`*^9}, 3.9274741538389883`*^9, 3.927474376100192*^9}], Cell[BoxData["191.833`"], "Output", CellChangeTimes->{ 3.7092017329419518`*^9, 3.709201818549159*^9, 3.709201852173986*^9, 3.709201913715516*^9, {3.709201944020782*^9, 3.7092019602207823`*^9}, 3.709203610415739*^9, 3.70943788965683*^9, {3.709447781919054*^9, 3.7094478247108183`*^9}, 3.9274741538389883`*^9, 3.927474376102687*^9}], Cell[BoxData["200.`"], "Output", CellChangeTimes->{ 3.7092017329419518`*^9, 3.709201818549159*^9, 3.709201852173986*^9, 3.709201913715516*^9, {3.709201944020782*^9, 3.7092019602207823`*^9}, 3.709203610415739*^9, 3.70943788965683*^9, {3.709447781919054*^9, 3.7094478247108183`*^9}, 3.9274741538389883`*^9, 3.927474376105151*^9}], Cell[BoxData["194.95000000000002`"], "Output", CellChangeTimes->{ 3.7092017329419518`*^9, 3.709201818549159*^9, 3.709201852173986*^9, 3.709201913715516*^9, {3.709201944020782*^9, 3.7092019602207823`*^9}, 3.709203610415739*^9, 3.70943788965683*^9, {3.709447781919054*^9, 3.7094478247108183`*^9}, 3.9274741538389883`*^9, 3.9274743761076107`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"1", "-", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"1", " ", "0.001"}]}], ")"}], RowBox[{"1", "+", "4", "-", "1"}]], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"1", " ", "0.001"}]}], ")"}], RowBox[{"1", "+", "7428"}]], " ", "+", RowBox[{"0.415872", "*", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"1", " ", "0.001"}]}], ")"}], "4"], "*", "1", " ", "0.001"}], " ", "+", " ", RowBox[{"0.349557", "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"1", " ", "0.001"}]}], ")"}], "7428"], "*", "1", " ", "0.001"}]}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"1", "-", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"1.1", " ", "0.001"}]}], ")"}], RowBox[{"1", "+", "4", "-", "1"}]], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"1.1", " ", "0.001"}]}], ")"}], RowBox[{"1", "+", "7428"}]], " ", "+", RowBox[{"0.415872", "*", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"1.1", " ", "0.001"}]}], ")"}], "4"], "*", "1.1", " ", "0.001"}], " ", "+", " ", RowBox[{"0.349557", "*", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"1.1", " ", "0.001"}]}], ")"}], "7428"], "*", "1.1", " ", "0.001"}]}], " "}], "\[IndentingNewLine]", RowBox[{"1", "/", "%"}]}], "Input", CellChangeTimes->{{3.70944825249177*^9, 3.709448403579081*^9}, { 3.709448518299605*^9, 3.7094485184329567`*^9}, {3.709450298030892*^9, 3.709450323768447*^9}, {3.9274742683150473`*^9, 3.92747427192607*^9}}], Cell[BoxData["0.005000000023643288`"], "Output", CellChangeTimes->{3.709448404617577*^9, 3.709448519066637*^9, 3.709450327211322*^9, 3.9274741577851973`*^9, 3.927474272997512*^9, 3.927474379524064*^9}], Cell[BoxData["0.005129516361229556`"], "Output", CellChangeTimes->{3.709448404617577*^9, 3.709448519066637*^9, 3.709450327211322*^9, 3.9274741577851973`*^9, 3.927474272997512*^9, 3.927474379527254*^9}], Cell[BoxData["194.95015310961946`"], "Output", CellChangeTimes->{3.709448404617577*^9, 3.709448519066637*^9, 3.709450327211322*^9, 3.9274741577851973`*^9, 3.927474272997512*^9, 3.9274743795298023`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Question 6\ \>", "Subtitle", CellChangeTimes->{{3.927472308216601*^9, 3.927472327030428*^9}, { 3.92747247091156*^9, 3.927472494198606*^9}, {3.927473508657538*^9, 3.9274735088445253`*^9}, {3.927473581633361*^9, 3.9274735818825397`*^9}, { 3.9274740128867893`*^9, 3.92747401316121*^9}, {3.9274742860765877`*^9, 3.927474286425932*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", "9"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["\[Mu]", "0"], "=", "350."}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["\[Sigma]", "0"], "=", "2."}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "=", RowBox[{"1", "/", "370.4"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"distmu", "=", RowBox[{"NormalDistribution", "[", RowBox[{"0", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Gamma]mu", "=", RowBox[{"Quantile", "[", RowBox[{"distmu", ",", RowBox[{"1", "-", FractionBox["\[Alpha]", "2"]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Gamma]mu", "=", "3."}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Xi]mu", "[", RowBox[{"\[Delta]_", ",", "\[Theta]_"}], "]"}], "=", RowBox[{"1", "-", RowBox[{"(", RowBox[{ RowBox[{"CDF", "[", RowBox[{"distmu", ",", FractionBox[ RowBox[{"\[Gamma]mu", "-", "\[Delta]"}], "\[Theta]"]}], "]"}], "-", RowBox[{"CDF", "[", RowBox[{"distmu", ",", FractionBox[ RowBox[{ RowBox[{"-", "\[Gamma]mu"}], "-", "\[Delta]"}], "\[Theta]"]}], "]"}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Xi]mu", "[", RowBox[{"0", ",", "1"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ARLmu", "[", RowBox[{"\[Delta]_", ",", "\[Theta]_"}], "]"}], "=", FractionBox["1", RowBox[{"\[Xi]mu", "[", RowBox[{"\[Delta]", ",", "\[Theta]"}], "]"}]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ARLmu", "[", RowBox[{"0", ",", "1"}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"distsigma", "=", RowBox[{"ChiSquareDistribution", "[", RowBox[{"n", "-", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"\[Gamma]sigma", " ", "=", RowBox[{"Round", "[", RowBox[{ RowBox[{"Quantile", "[", RowBox[{"distsigma", ",", RowBox[{"1", "-", "\[Alpha]"}]}], "]"}], ",", "0.000001"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Xi]sigma", "[", "\[Theta]_", "]"}], "=", RowBox[{"1", "-", RowBox[{"CDF", "[", RowBox[{"distsigma", ",", FractionBox["\[Gamma]sigma", SuperscriptBox["\[Theta]", "2"]]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Xi]sigma", "[", "1", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ARLsigma", "[", "\[Theta]_", "]"}], "=", FractionBox["1", RowBox[{"\[Xi]sigma", "[", "\[Theta]", "]"}]]}], ";"}], "\[IndentingNewLine]", RowBox[{"ARLsigma", "[", "1", "]"}]}], "Input", CellChangeTimes->{{3.7094504679764843`*^9, 3.709450468716999*^9}, 3.7094683674381323`*^9, {3.709468888133259*^9, 3.709468897573944*^9}, { 3.7095194337903423`*^9, 3.7095194484756308`*^9}, {3.7095195622078333`*^9, 3.709519586103156*^9}, 3.70987341051127*^9, {3.927474386315815*^9, 3.927474387590294*^9}, {3.927474768818149*^9, 3.927474769631215*^9}}], Cell[BoxData["0.002699796063260096`"], "Output", CellChangeTimes->{{3.709450458270104*^9, 3.7094504695446177`*^9}, 3.709467075671455*^9, 3.709468757516506*^9, {3.7094688822001677`*^9, 3.709468889274807*^9}, 3.7094689411682158`*^9, 3.709486303760414*^9, 3.709488197689188*^9, {3.709519445002728*^9, 3.709519448957028*^9}, { 3.7095195687356787`*^9, 3.709519604711627*^9}, 3.709531399278706*^9, 3.709873411458674*^9, 3.709873898247423*^9, 3.927474473723309*^9, { 3.9274745959521427`*^9, 3.9274746012006197`*^9}, 3.927474772003866*^9}], Cell[BoxData["370.3983473449716`"], "Output", CellChangeTimes->{{3.709450458270104*^9, 3.7094504695446177`*^9}, 3.709467075671455*^9, 3.709468757516506*^9, {3.7094688822001677`*^9, 3.709468889274807*^9}, 3.7094689411682158`*^9, 3.709486303760414*^9, 3.709488197689188*^9, {3.709519445002728*^9, 3.709519448957028*^9}, { 3.7095195687356787`*^9, 3.709519604711627*^9}, 3.709531399278706*^9, 3.709873411458674*^9, 3.709873898247423*^9, 3.927474473723309*^9, { 3.9274745959521427`*^9, 3.9274746012006197`*^9}, 3.927474772007107*^9}], Cell[BoxData["23.574603`"], "Output", CellChangeTimes->{{3.709450458270104*^9, 3.7094504695446177`*^9}, 3.709467075671455*^9, 3.709468757516506*^9, {3.7094688822001677`*^9, 3.709468889274807*^9}, 3.7094689411682158`*^9, 3.709486303760414*^9, 3.709488197689188*^9, {3.709519445002728*^9, 3.709519448957028*^9}, { 3.7095195687356787`*^9, 3.709519604711627*^9}, 3.709531399278706*^9, 3.709873411458674*^9, 3.709873898247423*^9, 3.927474473723309*^9, { 3.9274745959521427`*^9, 3.9274746012006197`*^9}, 3.927474772037156*^9}], Cell[BoxData["370.4000518683244`"], "Output", CellChangeTimes->{{3.709450458270104*^9, 3.7094504695446177`*^9}, 3.709467075671455*^9, 3.709468757516506*^9, {3.7094688822001677`*^9, 3.709468889274807*^9}, 3.7094689411682158`*^9, 3.709486303760414*^9, 3.709488197689188*^9, {3.709519445002728*^9, 3.709519448957028*^9}, { 3.7095195687356787`*^9, 3.709519604711627*^9}, 3.709531399278706*^9, 3.709873411458674*^9, 3.709873898247423*^9, 3.927474473723309*^9, { 3.9274745959521427`*^9, 3.9274746012006197`*^9}, 3.927474772039894*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"shiftmu", "=", "0.25"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"shiftsigma", "=", SqrtBox[ FractionBox["\[Gamma]sigma", "21.95"]]}], ";"}], "\[IndentingNewLine]", RowBox[{"Round", "[", RowBox[{ FractionBox[ RowBox[{"\[Gamma]mu", "-", "shiftmu"}], "shiftsigma"], ",", "0.01"}], "]"}], "\[IndentingNewLine]", RowBox[{"Round", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"-", "\[Gamma]mu"}], "-", "shiftmu"}], "shiftsigma"], ",", "0.01"}], "]"}], "\[IndentingNewLine]", RowBox[{"1", "-", RowBox[{"CDF", "[", RowBox[{"distmu", ",", RowBox[{"Round", "[", RowBox[{ FractionBox[ RowBox[{"\[Gamma]mu", "-", "shiftmu"}], "shiftsigma"], ",", "0.01"}], "]"}]}], "]"}], "+", RowBox[{"CDF", "[", RowBox[{"distmu", ",", RowBox[{"Round", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"-", "\[Gamma]mu"}], "-", "shiftmu"}], "shiftsigma"], ",", "0.01"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"1", "-", RowBox[{"(", RowBox[{"0.9960", "-", RowBox[{"(", RowBox[{"1", "-", "0.999155"}], ")"}]}], ")"}]}]}], "Input", CellChangeTimes->{{3.709468743647234*^9, 3.7094688618984413`*^9}, { 3.709468953947158*^9, 3.709468959671884*^9}, {3.7094689907658167`*^9, 3.709469002440214*^9}, {3.709486292246481*^9, 3.7094862991631107`*^9}, { 3.709486335491303*^9, 3.709486373976198*^9}, {3.709486838529565*^9, 3.70948684309838*^9}, {3.7094872304777412`*^9, 3.709487263379394*^9}, { 3.709487342225481*^9, 3.709487346408166*^9}, {3.70948793818843*^9, 3.7094879423405323`*^9}, {3.709488256698779*^9, 3.7094882681141663`*^9}, { 3.709519639331188*^9, 3.709519682441225*^9}, {3.709519745830511*^9, 3.7095198798964653`*^9}, 3.7095316462561197`*^9, {3.709531688838519*^9, 3.7095317051325493`*^9}, {3.7098738474219933`*^9, 3.7098738926218367`*^9}, {3.7098739275822487`*^9, 3.709873928315731*^9}, 3.9274746431935253`*^9}], Cell[BoxData["2.65`"], "Output", CellChangeTimes->{{3.709468824087729*^9, 3.709468862871187*^9}, { 3.709468945871306*^9, 3.7094690030653687`*^9}, 3.709486312856868*^9, 3.709486375039687*^9, 3.709486843620431*^9, {3.709487236980792*^9, 3.709487264316173*^9}, 3.709487346900426*^9, 3.709487943008626*^9, 3.709488213802169*^9, 3.709488269699183*^9, 3.709519683494183*^9, { 3.709519861045867*^9, 3.709519880671524*^9}, 3.709531422763987*^9, 3.7095315722918377`*^9, 3.7095316482258863`*^9, {3.7095317061121693`*^9, 3.7095317343564787`*^9}, 3.7098734201067867`*^9, 3.709873904583239*^9, 3.7098739371306334`*^9, {3.927474598214566*^9, 3.927474603906269*^9}, 3.9274746450532217`*^9, 3.927474775507578*^9}], Cell[BoxData[ RowBox[{"-", "3.14`"}]], "Output", CellChangeTimes->{{3.709468824087729*^9, 3.709468862871187*^9}, { 3.709468945871306*^9, 3.7094690030653687`*^9}, 3.709486312856868*^9, 3.709486375039687*^9, 3.709486843620431*^9, {3.709487236980792*^9, 3.709487264316173*^9}, 3.709487346900426*^9, 3.709487943008626*^9, 3.709488213802169*^9, 3.709488269699183*^9, 3.709519683494183*^9, { 3.709519861045867*^9, 3.709519880671524*^9}, 3.709531422763987*^9, 3.7095315722918377`*^9, 3.7095316482258863`*^9, {3.7095317061121693`*^9, 3.7095317343564787`*^9}, 3.7098734201067867`*^9, 3.709873904583239*^9, 3.7098739371306334`*^9, {3.927474598214566*^9, 3.927474603906269*^9}, 3.9274746450532217`*^9, 3.92747477551086*^9}], Cell[BoxData["0.004869327716216962`"], "Output", CellChangeTimes->{{3.709468824087729*^9, 3.709468862871187*^9}, { 3.709468945871306*^9, 3.7094690030653687`*^9}, 3.709486312856868*^9, 3.709486375039687*^9, 3.709486843620431*^9, {3.709487236980792*^9, 3.709487264316173*^9}, 3.709487346900426*^9, 3.709487943008626*^9, 3.709488213802169*^9, 3.709488269699183*^9, 3.709519683494183*^9, { 3.709519861045867*^9, 3.709519880671524*^9}, 3.709531422763987*^9, 3.7095315722918377`*^9, 3.7095316482258863`*^9, {3.7095317061121693`*^9, 3.7095317343564787`*^9}, 3.7098734201067867`*^9, 3.709873904583239*^9, 3.7098739371306334`*^9, {3.927474598214566*^9, 3.927474603906269*^9}, 3.9274746450532217`*^9, 3.927474775513433*^9}], Cell[BoxData["0.004844999999999988`"], "Output", CellChangeTimes->{{3.709468824087729*^9, 3.709468862871187*^9}, { 3.709468945871306*^9, 3.7094690030653687`*^9}, 3.709486312856868*^9, 3.709486375039687*^9, 3.709486843620431*^9, {3.709487236980792*^9, 3.709487264316173*^9}, 3.709487346900426*^9, 3.709487943008626*^9, 3.709488213802169*^9, 3.709488269699183*^9, 3.709519683494183*^9, { 3.709519861045867*^9, 3.709519880671524*^9}, 3.709531422763987*^9, 3.7095315722918377`*^9, 3.7095316482258863`*^9, {3.7095317061121693`*^9, 3.7095317343564787`*^9}, 3.7098734201067867`*^9, 3.709873904583239*^9, 3.7098739371306334`*^9, {3.927474598214566*^9, 3.927474603906269*^9}, 3.9274746450532217`*^9, 3.9274747755160227`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"quantileorder", "=", RowBox[{"{", "0.25", "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Round", "[", RowBox[{ FractionBox[ RowBox[{"Log", "[", RowBox[{"1", "-", RowBox[{"quantileorder", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], RowBox[{"Log", "[", RowBox[{"1", "-", RowBox[{"\[Xi]mu", "[", RowBox[{"shiftmu", ",", "shiftsigma"}], "]"}]}], "]"}]], ",", "0.001"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "quantileorder", "]"}]}], "}"}]}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Round", "[", RowBox[{ FractionBox[ RowBox[{"Log", "[", RowBox[{"1", "-", RowBox[{"quantileorder", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], RowBox[{"Log", "[", RowBox[{"1", "-", "0.004845"}], "]"}]], ",", "0.001"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "quantileorder", "]"}]}], "}"}]}], "]"}], "]"}]}], "Input", CellChangeTimes->{ 3.7098739331554413`*^9, 3.927474469678625*^9, {3.927474789131199*^9, 3.927474828055784*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"59.31`"} }, 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.70987393443358*^9, 3.927474789775872*^9, 3.927474828828835*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"59.233000000000004`"} }, 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.70987393443358*^9, 3.927474789775872*^9, 3.927474828833016*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Question 7\ \>", "Subtitle", CellChangeTimes->{{3.927472308216601*^9, 3.927472327030428*^9}, { 3.92747247091156*^9, 3.927472494198606*^9}, {3.927473508657538*^9, 3.9274735088445253`*^9}, {3.927473581633361*^9, 3.9274735818825397`*^9}, { 3.9274740128867893`*^9, 3.92747401316121*^9}, {3.9274742860765877`*^9, 3.927474286425932*^9}, {3.927476244242783*^9, 3.9274762447794313`*^9}}], Cell["7(a)", "Subsubtitle", CellChangeTimes->{{3.927472340814023*^9, 3.927472349853125*^9}, { 3.927472384073505*^9, 3.927472391897768*^9}, {3.927472489373966*^9, 3.927472492748459*^9}, {3.927472911152019*^9, 3.9274729113145113`*^9}, 3.927473025740485*^9, {3.9274733464314003`*^9, 3.927473346567992*^9}, { 3.92747390999842*^9, 3.9274739110103817`*^9}, {3.9274740171987534`*^9, 3.927474022536273*^9}, {3.9274762618177347`*^9, 3.927476264204555*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["p", "1"], "=", "0.01"}], ";"}], " ", StyleBox[ RowBox[{"(*", " ", "AQL", " ", "*)"}], FontSize->9]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "=", "0.05"}], ";"}], " ", StyleBox[ RowBox[{"(*", " ", RowBox[{ RowBox[{"producer", "'"}], "s", " ", "risk"}], " ", "*)"}], FontSize->9]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["p", "2"], "=", "0.05"}], ";"}], " ", StyleBox[ RowBox[{"(*", " ", "LTPD", " ", "*)"}], FontSize->9]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Beta]", "=", "0.1"}], ";"}], " ", StyleBox[ RowBox[{"(*", " ", RowBox[{ RowBox[{"consumer", "'"}], "s", " ", "risk"}], " ", "*)"}], FontSize->9], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"gdist", "=", RowBox[{"NormalDistribution", "[", RowBox[{"0", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[CapitalPhi]", "[", "x_", "]"}], ":=", RowBox[{"CDF", "[", RowBox[{"gdist", ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalOmega]", "[", "x_", "]"}], ":=", RowBox[{"Quantile", "[", RowBox[{"gdist", ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{ RowBox[{"\[CapitalOmega]", "[", RowBox[{"1", "-", "\[Alpha]"}], "]"}], "-", RowBox[{"\[CapitalOmega]", "[", "\[Beta]", "]"}]}], RowBox[{ RowBox[{"\[CapitalOmega]", "[", SubscriptBox["p", "2"], "]"}], "-", RowBox[{"\[CapitalOmega]", "[", SubscriptBox["p", "1"], "]"}]}]], ")"}], "2"], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["n", "\[Sigma]"], "=", RowBox[{"Ceiling", "[", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{ RowBox[{"\[CapitalOmega]", "[", RowBox[{"1", "-", "\[Alpha]"}], "]"}], "-", RowBox[{"\[CapitalOmega]", "[", "\[Beta]", "]"}]}], RowBox[{ RowBox[{"\[CapitalOmega]", "[", SubscriptBox["p", "2"], "]"}], "-", RowBox[{"\[CapitalOmega]", "[", SubscriptBox["p", "1"], "]"}]}]], ")"}], "2"], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ SubscriptBox["k", "\[Sigma]"], "=", FractionBox[ RowBox[{ RowBox[{ RowBox[{"\[CapitalOmega]", "[", SubscriptBox["p", "2"], "]"}], "\[Times]", RowBox[{"\[CapitalOmega]", "[", RowBox[{"1", "-", "\[Alpha]"}], "]"}]}], "-", RowBox[{ RowBox[{"\[CapitalOmega]", "[", SubscriptBox["p", "1"], "]"}], "\[Times]", RowBox[{"\[CapitalOmega]", "[", "\[Beta]", "]"}]}]}], RowBox[{ RowBox[{"\[CapitalOmega]", "[", "\[Beta]", "]"}], "-", RowBox[{"\[CapitalOmega]", "[", RowBox[{"1", "-", "\[Alpha]"}], "]"}]}]]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"PVar", "[", RowBox[{"n_", ",", "p_"}], "]"}], "=", RowBox[{"\[CapitalPhi]", "[", RowBox[{ SqrtBox["n"], "\[Times]", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["k", "\[Sigma]"]}], "-", RowBox[{"\[CapitalOmega]", "[", "p", "]"}]}], ")"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"i", "=", SubscriptBox["n", "\[Sigma]"]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"While", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"PVar", "[", RowBox[{"i", ",", SubscriptBox["p", "1"]}], "]"}], "<", RowBox[{"1", "-", "\[Alpha]"}]}], " ", "||", " ", RowBox[{ RowBox[{"PVar", "[", RowBox[{"i", ",", SubscriptBox["p", "2"]}], "]"}], ">", "\[Beta]"}]}], ",", RowBox[{ RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "i", ",", "\"\< because \!\(\*SubscriptBox[\(P\), \ \(a\)]\)[\!\(\*SubscriptBox[\(p\), \(1\)]\)]=\>\"", ",", RowBox[{"PVar", "[", RowBox[{"i", ",", SubscriptBox["p", "1"]}], "]"}], ",", "\"\<<\>\"", ",", RowBox[{"1", "-", "\[Alpha]"}], " ", ",", "\"\< or \!\(\*SubscriptBox[\(P\), \(a\)]\)[\!\(\*SubscriptBox[\(p\), \ \(2\)]\)]=\>\"", ",", RowBox[{"PVar", "[", RowBox[{"i", ",", SubscriptBox["p", "2"]}], "]"}], ",", "\"\<>\>\"", ",", "\[Beta]"}], "]"}], ";", RowBox[{"i", "++"}]}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "i", ",", "\"\< and acceptance constant \>\"", ",", SubscriptBox["k", "\[Sigma]"], ",", "\"\< because \!\(\*SubscriptBox[\(P\), \(a\)]\)[\!\(\*SubscriptBox[\(p\), \ \(1\)]\)]=\>\"", ",", RowBox[{"PVar", "[", RowBox[{"i", ",", SubscriptBox["p", "1"]}], "]"}], ",", "\"\<\[GreaterEqual]\>\"", ",", RowBox[{"1", "-", "\[Alpha]"}], " ", ",", "\"\< and \!\(\*SubscriptBox[\(P\), \(a\)]\)[\!\(\*SubscriptBox[\(p\), \(2\ \)]\)]=\>\"", ",", RowBox[{"PVar", "[", RowBox[{"i", ",", SubscriptBox["p", "2"]}], "]"}], ",", "\"\<\[LessEqual]\>\"", ",", "\[Beta]"}], "]"}]}], "Input", CellChangeTimes->{ 3.532606701038724*^9, {3.579534321304598*^9, 3.5795343637293587`*^9}, { 3.579534394947639*^9, 3.579534399443844*^9}, {3.610568712647711*^9, 3.610568746136747*^9}, 3.6105688178022118`*^9, {3.6105700673195744`*^9, 3.610570079259368*^9}, {3.610570130197524*^9, 3.6105701303330793`*^9}, 3.610570284437396*^9, {3.631603644192717*^9, 3.631603650862504*^9}, { 3.7095321539739437`*^9, 3.709532154062667*^9}, {3.709532184231674*^9, 3.7095321926935587`*^9}, 3.9274762919698544`*^9}], Cell[BoxData["18.439304211980915`"], "Output", CellChangeTimes->{ 3.579534365003149*^9, 3.5795344010839367`*^9, {3.6105687368996763`*^9, 3.610568746834031*^9}, {3.610570071417405*^9, 3.610570079909696*^9}, 3.610570131156681*^9, 3.6105702862917128`*^9, {3.610709927038447*^9, 3.610709951808117*^9}, 3.631603651938156*^9, 3.631610412420342*^9, 3.6316236920340977`*^9, {3.709532193658139*^9, 3.709532212751725*^9}, 3.7095328684076443`*^9, 3.709534528997725*^9, 3.709535993299967*^9, 3.709536339540444*^9, 3.709873824412962*^9, {3.709873950012425*^9, 3.70987396938874*^9}, 3.9274762942420483`*^9, 3.927477306697644*^9}], Cell[BoxData["1.9432982926138103`"], "Output", CellChangeTimes->{ 3.579534365003149*^9, 3.5795344010839367`*^9, {3.6105687368996763`*^9, 3.610568746834031*^9}, {3.610570071417405*^9, 3.610570079909696*^9}, 3.610570131156681*^9, 3.6105702862917128`*^9, {3.610709927038447*^9, 3.610709951808117*^9}, 3.631603651938156*^9, 3.631610412420342*^9, 3.6316236920340977`*^9, {3.709532193658139*^9, 3.709532212751725*^9}, 3.7095328684076443`*^9, 3.709534528997725*^9, 3.709535993299967*^9, 3.709536339540444*^9, 3.709873824412962*^9, {3.709873950012425*^9, 3.70987396938874*^9}, 3.9274762942420483`*^9, 3.927477306700248*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Use sample size \\!\\(\\*SubscriptBox[\\(n\\), \\(\[Sigma]\\)]\ \\)=\"\>", "\[InvisibleSpace]", "19", "\[InvisibleSpace]", "\<\" and acceptance constant \"\>", "\[InvisibleSpace]", "1.9432982926138103`", "\[InvisibleSpace]", "\<\" because \\!\\(\\*SubscriptBox[\\(P\\), \\(a\\)]\ \\)[\\!\\(\\*SubscriptBox[\\(p\\), \\(1\\)]\\)]=\"\>", "\[InvisibleSpace]", "0.9525081008700653`", "\[InvisibleSpace]", "\<\"\[GreaterEqual]\"\>", "\[InvisibleSpace]", "0.95`", "\[InvisibleSpace]", "\<\" and \\!\\(\\*SubscriptBox[\\(P\\), \\(a\\)]\\)[\ \\!\\(\\*SubscriptBox[\\(p\\), \\(2\\)]\\)]=\"\>", "\[InvisibleSpace]", "0.0966480311587763`", "\[InvisibleSpace]", "\<\"\[LessEqual]\"\>", "\[InvisibleSpace]", "0.1`"}], SequenceForm[ "Use sample size \!\(\*SubscriptBox[\(n\), \(\[Sigma]\)]\)=", 19, " and acceptance constant ", 1.9432982926138103`, " because \!\(\*SubscriptBox[\(P\), \(a\)]\)[\!\(\*SubscriptBox[\(p\), \(1\ \)]\)]=", 0.9525081008700653, "\[GreaterEqual]", 0.95, " and \!\(\*SubscriptBox[\(P\), \(a\)]\)[\!\(\*SubscriptBox[\(p\), \ \(2\)]\)]=", 0.0966480311587763, "\[LessEqual]", 0.1], Editable->False]], "Print", CellChangeTimes->{{3.579534357489873*^9, 3.579534365006863*^9}, 3.579534401087343*^9, {3.610568736933363*^9, 3.6105687468379927`*^9}, { 3.610570071421447*^9, 3.6105700799127207`*^9}, 3.610570131162278*^9, 3.610570286295958*^9, {3.6107099270441027`*^9, 3.610709951861628*^9}, 3.6316036519503527`*^9, 3.631610412439509*^9, 3.63162369209184*^9, { 3.7095321936769667`*^9, 3.7095322128132067`*^9}, 3.709532868424705*^9, 3.709534529014649*^9, 3.7095359933174267`*^9, 3.7095363395573883`*^9, 3.709873824431876*^9, {3.709873950031353*^9, 3.709873969405116*^9}, 3.927476294249403*^9, 3.927477306702602*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Using tables", "Subsection", CellChangeTimes->{{3.528544419253316*^9, 3.528544422002598*^9}, { 3.5285533563574753`*^9, 3.528553367972056*^9}, {3.528553593741721*^9, 3.5285535972847424`*^9}, {3.5293340763983088`*^9, 3.529334084946261*^9}, { 3.579441979545072*^9, 3.579442000295053*^9}, {3.579510984491907*^9, 3.5795110142633*^9}, {3.57952948304319*^9, 3.579529483120823*^9}, { 3.579531044451522*^9, 3.579531084474572*^9}, {3.5795313963611383`*^9, 3.579531396465128*^9}, {3.5795314666830273`*^9, 3.579531466792997*^9}, { 3.579532076610524*^9, 3.579532076689464*^9}, {3.579532140706715*^9, 3.579532156179016*^9}, {3.579533925595467*^9, 3.579533931105175*^9}, { 3.610568944486319*^9, 3.610568959281164*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"1.6449", "-", RowBox[{"(", RowBox[{"-", "1.2816"}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{"-", "1.6449"}], ")"}], "-", RowBox[{"(", RowBox[{"-", "2.3263"}], ")"}]}]], ")"}], "2"], "\[IndentingNewLine]"}], "\[IndentingNewLine]", FractionBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"-", "1.6449"}], ")"}], "*", " ", "1.6449"}], "-", RowBox[{ RowBox[{"(", RowBox[{"-", "2.3263"}], ")"}], "*", " ", RowBox[{"(", RowBox[{"-", "1.2816"}], ")"}]}]}], RowBox[{ RowBox[{"(", RowBox[{"-", "1.2816"}], ")"}], "-", "1.6449"}]], "\[IndentingNewLine]", RowBox[{"Round", "[", RowBox[{ RowBox[{ SqrtBox["19"], "\[Times]", RowBox[{"(", RowBox[{ RowBox[{"-", "1.943305"}], "-", RowBox[{"(", RowBox[{"-", "2.3263"}], ")"}]}], ")"}]}], ",", "0.01"}], "]"}], "\[IndentingNewLine]", RowBox[{"Round", "[", RowBox[{ RowBox[{ SqrtBox["19"], "\[Times]", RowBox[{"(", RowBox[{ RowBox[{"-", "1.943305"}], "-", RowBox[{"(", RowBox[{"-", "1.6449"}], ")"}]}], ")"}]}], ",", "0.01"}], "]"}]}], "Input", CellChangeTimes->{{3.6105687702528152`*^9, 3.6105687966093483`*^9}, { 3.610568833345026*^9, 3.610568914156328*^9}, {3.6107098548309193`*^9, 3.6107098765759373`*^9}, 3.610709910607279*^9, {3.631603949185193*^9, 3.631603960373578*^9}, {3.631604000069098*^9, 3.6316042037596684`*^9}, { 3.6316042556020184`*^9, 3.631604265431847*^9}, {3.709532799559546*^9, 3.709532865724319*^9}, {3.70953305361716*^9, 3.7095330538150806`*^9}, { 3.927476462407125*^9, 3.9274764627947607`*^9}}], Cell[BoxData["18.445600504460476`"], "Output", CellChangeTimes->{3.610568915306363*^9, 3.610570134719623*^9, 3.631604111035425*^9, 3.631604157477098*^9, 3.631604260546961*^9, 3.631604350685059*^9, 3.631610418084671*^9, 3.63162369407364*^9, 3.709532871337351*^9, 3.709533054794479*^9, 3.709534532169654*^9, 3.709536342325389*^9, 3.927476312141611*^9, 3.927476463674211*^9, 3.927477312267627*^9}], Cell[BoxData["1.9433050025627887`"], "Output", CellChangeTimes->{3.610568915306363*^9, 3.610570134719623*^9, 3.631604111035425*^9, 3.631604157477098*^9, 3.631604260546961*^9, 3.631604350685059*^9, 3.631610418084671*^9, 3.63162369407364*^9, 3.709532871337351*^9, 3.709533054794479*^9, 3.709534532169654*^9, 3.709536342325389*^9, 3.927476312141611*^9, 3.927476463674211*^9, 3.92747731227037*^9}], Cell[BoxData["1.67`"], "Output", CellChangeTimes->{3.610568915306363*^9, 3.610570134719623*^9, 3.631604111035425*^9, 3.631604157477098*^9, 3.631604260546961*^9, 3.631604350685059*^9, 3.631610418084671*^9, 3.63162369407364*^9, 3.709532871337351*^9, 3.709533054794479*^9, 3.709534532169654*^9, 3.709536342325389*^9, 3.927476312141611*^9, 3.927476463674211*^9, 3.927477312272305*^9}], Cell[BoxData[ RowBox[{"-", "1.3`"}]], "Output", CellChangeTimes->{3.610568915306363*^9, 3.610570134719623*^9, 3.631604111035425*^9, 3.631604157477098*^9, 3.631604260546961*^9, 3.631604350685059*^9, 3.631610418084671*^9, 3.63162369407364*^9, 3.709532871337351*^9, 3.709533054794479*^9, 3.709534532169654*^9, 3.709536342325389*^9, 3.927476312141611*^9, 3.927476463674211*^9, 3.927477312274205*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ SubscriptBox["n", "\[Sigma]"], "=", "19"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["k", "\[Sigma]"], "=", "1.943305"}], ";"}], "\[IndentingNewLine]", RowBox[{"u", "=", RowBox[{ RowBox[{"3", "\[Times]", SubscriptBox["n", "\[Sigma]"], "\[Times]", RowBox[{"(", RowBox[{ SuperscriptBox[ SubscriptBox["k", "\[Sigma]"], "2"], "-", "2"}], ")"}]}], "+", "8"}]}], "\[IndentingNewLine]", RowBox[{"v", "=", RowBox[{"3", "\[Times]", SuperscriptBox[ SubscriptBox["n", "\[Sigma]"], "2"], "\[Times]", SuperscriptBox[ SubscriptBox["k", "\[Sigma]"], "2"]}]}], "\[IndentingNewLine]", RowBox[{ SubscriptBox["n", "s"], "=", RowBox[{ SubscriptBox["n", "\[Sigma]"], "+", FractionBox[ RowBox[{"u", "+", SqrtBox[ RowBox[{ SuperscriptBox["u", "2"], "+", RowBox[{"24", "v"}]}]]}], "12"]}]}], "\[IndentingNewLine]", RowBox[{ SubscriptBox["k", "s"], "=", RowBox[{ SqrtBox[ FractionBox[ RowBox[{ RowBox[{"3", "\[Times]", SubscriptBox["n", "s"]}], "-", "4"}], RowBox[{ RowBox[{"3", "\[Times]", SubscriptBox["n", "s"]}], "-", "3"}]]], "\[Times]", SubscriptBox["k", "\[Sigma]"]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"PVarDesc", "[", RowBox[{"n_", ",", "k_", ",", "p_"}], "]"}], "=", RowBox[{"\[CapitalPhi]", "[", FractionBox[ RowBox[{ RowBox[{"\[CapitalOmega]", "[", RowBox[{"1", "-", "p"}], "]"}], "-", RowBox[{"k", "\[Times]", SqrtBox[ FractionBox[ RowBox[{ RowBox[{"3", "\[Times]", "n"}], "-", "4"}], RowBox[{ RowBox[{"3", "\[Times]", "n"}], "-", "3"}]]]}]}], SqrtBox[ FractionBox[ RowBox[{"1", "+", FractionBox[ RowBox[{"3", "\[Times]", "n", "\[Times]", SuperscriptBox["k", "2"]}], RowBox[{ RowBox[{"6", "\[Times]", "n"}], "-", "8"}]]}], "n"]]], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{"PVarDesc", "[", RowBox[{"n_", ",", "k_", ",", "p_"}], "]"}], "=", RowBox[{"CDF", "[", RowBox[{ RowBox[{"NoncentralStudentTDistribution", "[", RowBox[{ RowBox[{"n", "-", "1"}], ",", RowBox[{ SqrtBox["n"], "\[Times]", RowBox[{"\[CapitalOmega]", "[", "p", "]"}]}]}], "]"}], ",", RowBox[{ RowBox[{"-", SqrtBox["n"]}], "\[Times]", "k"}]}], "]"}]}], ";"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"i", "=", RowBox[{"Ceiling", "[", SubscriptBox["n", "s"], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"While", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"PVarDesc", "[", RowBox[{"i", ",", RowBox[{ SqrtBox[ FractionBox[ RowBox[{ RowBox[{"3", "\[Times]", "i"}], "-", "4"}], RowBox[{ RowBox[{"3", "\[Times]", "i"}], "-", "3"}]]], "\[Times]", SubscriptBox["k", "\[Sigma]"]}], ",", SubscriptBox["p", "1"]}], "]"}], "<", RowBox[{"1", "-", "\[Alpha]"}]}], " ", "||", " ", RowBox[{ RowBox[{"PVarDesc", "[", RowBox[{"i", ",", RowBox[{ SqrtBox[ FractionBox[ RowBox[{ RowBox[{"3", "\[Times]", "i"}], "-", "4"}], RowBox[{ RowBox[{"3", "\[Times]", "i"}], "-", "3"}]]], "\[Times]", SubscriptBox["k", "\[Sigma]"]}], ",", SubscriptBox["p", "2"]}], "]"}], ">", "\[Beta]"}]}], ",", RowBox[{ RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "i", ",", "\"\< and acceptance constant \!\(\*SubscriptBox[\(k\), \(s\)]\)=\>\"", ",", RowBox[{ SqrtBox[ FractionBox[ RowBox[{ RowBox[{"3", "\[Times]", "i"}], "-", "4"}], RowBox[{ RowBox[{"3", "\[Times]", "i"}], "-", "3"}]]], "\[Times]", SubscriptBox["k", "\[Sigma]"]}], ",", "\"\< because \!\(\*SubscriptBox[\(P\), \ \(a\)]\)[\!\(\*SubscriptBox[\(p\), \(1\)]\)]=\>\"", ",", RowBox[{"PVarDesc", "[", RowBox[{"i", ",", RowBox[{ SqrtBox[ FractionBox[ RowBox[{ RowBox[{"3", "\[Times]", "i"}], "-", "4"}], RowBox[{ RowBox[{"3", "\[Times]", "i"}], "-", "3"}]]], "\[Times]", SubscriptBox["k", "\[Sigma]"]}], ",", SubscriptBox["p", "1"]}], "]"}], ",", "\"\<<\>\"", ",", RowBox[{"1", "-", "\[Alpha]"}], " ", ",", "\"\< or \!\(\*SubscriptBox[\(P\), \(a\)]\)[\!\(\*SubscriptBox[\(p\), \ \(2\)]\)]=\>\"", ",", RowBox[{"PVarDesc", "[", RowBox[{"i", ",", RowBox[{ SqrtBox[ FractionBox[ RowBox[{ RowBox[{"3", "\[Times]", "i"}], "-", "4"}], RowBox[{ RowBox[{"3", "\[Times]", "i"}], "-", "3"}]]], "\[Times]", SubscriptBox["k", "\[Sigma]"]}], ",", SubscriptBox["p", "2"]}], "]"}], ",", "\"\<>\>\"", ",", "\[Beta]"}], "]"}], ";", RowBox[{"i", "++"}]}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "i", ",", "\"\< and acceptance constant \!\(\*SubscriptBox[\(k\), \ \(s\)]\)=\>\"", ",", RowBox[{ SqrtBox[ FractionBox[ RowBox[{ RowBox[{"3", "\[Times]", "i"}], "-", "4"}], RowBox[{ RowBox[{"3", "\[Times]", "i"}], "-", "3"}]]], "\[Times]", SubscriptBox["k", "\[Sigma]"]}], ",", "\"\< because \!\(\*SubscriptBox[\(P\), \(a\)]\)[\!\(\*SubscriptBox[\(p\), \ \(1\)]\)]=\>\"", ",", RowBox[{"PVarDesc", "[", RowBox[{"i", ",", RowBox[{ SqrtBox[ FractionBox[ RowBox[{ RowBox[{"3", "\[Times]", "i"}], "-", "4"}], RowBox[{ RowBox[{"3", "\[Times]", "i"}], "-", "3"}]]], "\[Times]", SubscriptBox["k", "\[Sigma]"]}], ",", SubscriptBox["p", "1"]}], "]"}], ",", "\"\<\[GreaterEqual]\>\"", ",", RowBox[{"1", "-", "\[Alpha]"}], " ", ",", "\"\< and \!\(\*SubscriptBox[\(P\), \(a\)]\)[\!\(\*SubscriptBox[\(p\), \(2\ \)]\)]=\>\"", ",", RowBox[{"PVarDesc", "[", RowBox[{"i", ",", RowBox[{ SqrtBox[ FractionBox[ RowBox[{ RowBox[{"3", "\[Times]", "i"}], "-", "4"}], RowBox[{ RowBox[{"3", "\[Times]", "i"}], "-", "3"}]]], "\[Times]", SubscriptBox["k", "\[Sigma]"]}], ",", SubscriptBox["p", "2"]}], "]"}], ",", "\"\<\[LessEqual]\>\"", ",", "\[Beta]"}], "]"}]}], "Input", CellChangeTimes->{{3.609514366005542*^9, 3.609514369401843*^9}, { 3.609514428000174*^9, 3.609514456333029*^9}, {3.60951460552667*^9, 3.609514649614738*^9}, {3.609514768264881*^9, 3.609514792412183*^9}, { 3.6102048302922277`*^9, 3.610204831354484*^9}, {3.610569989944105*^9, 3.610570002825068*^9}, {3.610570098853944*^9, 3.61057015754451*^9}, 3.610710753769388*^9, {3.61071088692292*^9, 3.610710887764515*^9}, { 3.610711001578247*^9, 3.610711011751233*^9}, {3.631610435323244*^9, 3.631610440258955*^9}, 3.63162367207204*^9, {3.709533729154237*^9, 3.709533734020035*^9}, {3.7095345166389093`*^9, 3.709534570684247*^9}, { 3.7095346096049347`*^9, 3.7095346136665382`*^9}, {3.709536082645108*^9, 3.7095361231004677`*^9}, {3.927476496207328*^9, 3.9274764969837*^9}, 3.9274765830613823`*^9, {3.927477278068245*^9, 3.927477296801862*^9}}], Cell[BoxData["109.256756412425`"], "Output", CellChangeTimes->{ 3.610710888659357*^9, {3.610711003091531*^9, 3.610711012256956*^9}, 3.610712722746812*^9, 3.631610441198223*^9, {3.631623680658667*^9, 3.6316237044655*^9}, 3.709533736488655*^9, {3.709534520509386*^9, 3.70953457140187*^9}, {3.709534614253798*^9, 3.709534629206538*^9}, { 3.709536106290676*^9, 3.709536123903511*^9}, 3.709536209399502*^9, 3.709536242685495*^9, 3.709536347282392*^9, 3.927476509612137*^9, { 3.927477282430962*^9, 3.927477314515395*^9}}], Cell[BoxData["4089.878371836075`"], "Output", CellChangeTimes->{ 3.610710888659357*^9, {3.610711003091531*^9, 3.610711012256956*^9}, 3.610712722746812*^9, 3.631610441198223*^9, {3.631623680658667*^9, 3.6316237044655*^9}, 3.709533736488655*^9, {3.709534520509386*^9, 3.70953457140187*^9}, {3.709534614253798*^9, 3.709534629206538*^9}, { 3.709536106290676*^9, 3.709536123903511*^9}, 3.709536209399502*^9, 3.709536242685495*^9, 3.709536347282392*^9, 3.927476509612137*^9, { 3.927477282430962*^9, 3.927477314518364*^9}}], Cell[BoxData["55.75509133040527`"], "Output", CellChangeTimes->{ 3.610710888659357*^9, {3.610711003091531*^9, 3.610711012256956*^9}, 3.610712722746812*^9, 3.631610441198223*^9, {3.631623680658667*^9, 3.6316237044655*^9}, 3.709533736488655*^9, {3.709534520509386*^9, 3.70953457140187*^9}, {3.709534614253798*^9, 3.709534629206538*^9}, { 3.709536106290676*^9, 3.709536123903511*^9}, 3.709536209399502*^9, 3.709536242685495*^9, 3.709536347282392*^9, 3.927476509612137*^9, { 3.927477282430962*^9, 3.927477314520858*^9}}], Cell[BoxData["1.9373808275904176`"], "Output", CellChangeTimes->{ 3.610710888659357*^9, {3.610711003091531*^9, 3.610711012256956*^9}, 3.610712722746812*^9, 3.631610441198223*^9, {3.631623680658667*^9, 3.6316237044655*^9}, 3.709533736488655*^9, {3.709534520509386*^9, 3.70953457140187*^9}, {3.709534614253798*^9, 3.709534629206538*^9}, { 3.709536106290676*^9, 3.709536123903511*^9}, 3.709536209399502*^9, 3.709536242685495*^9, 3.709536347282392*^9, 3.927476509612137*^9, { 3.927477282430962*^9, 3.927477314523427*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Do not use sample size \\!\\(\\*SubscriptBox[\\(n\\), \\(s\\)]\ \\)=\"\>", "\[InvisibleSpace]", "56", "\[InvisibleSpace]", "\<\" and acceptance constant \ \\!\\(\\*SubscriptBox[\\(k\\), \\(s\\)]\\)=\"\>", "\[InvisibleSpace]", "1.937407247400348`", "\[InvisibleSpace]", "\<\" because \\!\\(\\*SubscriptBox[\\(P\\), \\(a\\)]\ \\)[\\!\\(\\*SubscriptBox[\\(p\\), \\(1\\)]\\)]=\"\>", "\[InvisibleSpace]", "0.9580305275251244`", "\[InvisibleSpace]", "\<\"<\"\>", "\[InvisibleSpace]", "0.95`", "\[InvisibleSpace]", "\<\" or \\!\\(\\*SubscriptBox[\\(P\\), \ \\(a\\)]\\)[\\!\\(\\*SubscriptBox[\\(p\\), \\(2\\)]\\)]=\"\>", "\[InvisibleSpace]", "0.10476173219368334`", "\[InvisibleSpace]", "\<\">\"\>", "\[InvisibleSpace]", "0.1`"}], SequenceForm[ "Do not use sample size \!\(\*SubscriptBox[\(n\), \(s\)]\)=", 56, " and acceptance constant \!\(\*SubscriptBox[\(k\), \(s\)]\)=", 1.937407247400348, " because \!\(\*SubscriptBox[\(P\), \(a\)]\)[\!\(\*SubscriptBox[\(p\), \(1\ \)]\)]=", 0.9580305275251244, "<", 0.95, " or \!\(\*SubscriptBox[\(P\), \(a\)]\)[\!\(\*SubscriptBox[\(p\), \ \(2\)]\)]=", 0.10476173219368334`, ">", 0.1], Editable->False]], "Print", CellChangeTimes->{ 3.709536132901053*^9, 3.7095362681816883`*^9, 3.709536352059654*^9, 3.927476509622285*^9, {3.927477282479844*^9, 3.9274773145254383`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Do not use sample size \\!\\(\\*SubscriptBox[\\(n\\), \\(s\\)]\ \\)=\"\>", "\[InvisibleSpace]", "57", "\[InvisibleSpace]", "\<\" and acceptance constant \ \\!\\(\\*SubscriptBox[\\(k\\), \\(s\\)]\\)=\"\>", "\[InvisibleSpace]", "1.9375127218402228`", "\[InvisibleSpace]", "\<\" because \\!\\(\\*SubscriptBox[\\(P\\), \\(a\\)]\ \\)[\\!\\(\\*SubscriptBox[\\(p\\), \\(1\\)]\\)]=\"\>", "\[InvisibleSpace]", "0.959323731443934`", "\[InvisibleSpace]", "\<\"<\"\>", "\[InvisibleSpace]", "0.95`", "\[InvisibleSpace]", "\<\" or \\!\\(\\*SubscriptBox[\\(P\\), \ \\(a\\)]\\)[\\!\\(\\*SubscriptBox[\\(p\\), \\(2\\)]\\)]=\"\>", "\[InvisibleSpace]", "0.102560973486017`", "\[InvisibleSpace]", "\<\">\"\>", "\[InvisibleSpace]", "0.1`"}], SequenceForm[ "Do not use sample size \!\(\*SubscriptBox[\(n\), \(s\)]\)=", 57, " and acceptance constant \!\(\*SubscriptBox[\(k\), \(s\)]\)=", 1.9375127218402228`, " because \!\(\*SubscriptBox[\(P\), \(a\)]\)[\!\(\*SubscriptBox[\(p\), \(1\ \)]\)]=", 0.959323731443934, "<", 0.95, " or \!\(\*SubscriptBox[\(P\), \(a\)]\)[\!\(\*SubscriptBox[\(p\), \ \(2\)]\)]=", 0.102560973486017, ">", 0.1], Editable->False]], "Print", CellChangeTimes->{ 3.709536132901053*^9, 3.7095362681816883`*^9, 3.709536352059654*^9, 3.927476509622285*^9, {3.927477282479844*^9, 3.927477314527762*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Do not use sample size \\!\\(\\*SubscriptBox[\\(n\\), \\(s\\)]\ \\)=\"\>", "\[InvisibleSpace]", "58", "\[InvisibleSpace]", "\<\" and acceptance constant \ \\!\\(\\*SubscriptBox[\\(k\\), \\(s\\)]\\)=\"\>", "\[InvisibleSpace]", "1.937614489979686`", "\[InvisibleSpace]", "\<\" because \\!\\(\\*SubscriptBox[\\(P\\), \\(a\\)]\ \\)[\\!\\(\\*SubscriptBox[\\(p\\), \\(1\\)]\\)]=\"\>", "\[InvisibleSpace]", "0.9605741082997346`", "\[InvisibleSpace]", "\<\"<\"\>", "\[InvisibleSpace]", "0.95`", "\[InvisibleSpace]", "\<\" or \\!\\(\\*SubscriptBox[\\(P\\), \ \\(a\\)]\\)[\\!\\(\\*SubscriptBox[\\(p\\), \\(2\\)]\\)]=\"\>", "\[InvisibleSpace]", "0.1004144771182471`", "\[InvisibleSpace]", "\<\">\"\>", "\[InvisibleSpace]", "0.1`"}], SequenceForm[ "Do not use sample size \!\(\*SubscriptBox[\(n\), \(s\)]\)=", 58, " and acceptance constant \!\(\*SubscriptBox[\(k\), \(s\)]\)=", 1.937614489979686, " because \!\(\*SubscriptBox[\(P\), \(a\)]\)[\!\(\*SubscriptBox[\(p\), \(1\ \)]\)]=", 0.9605741082997346, "<", 0.95, " or \!\(\*SubscriptBox[\(P\), \(a\)]\)[\!\(\*SubscriptBox[\(p\), \ \(2\)]\)]=", 0.1004144771182471, ">", 0.1], Editable->False]], "Print", CellChangeTimes->{ 3.709536132901053*^9, 3.7095362681816883`*^9, 3.709536352059654*^9, 3.927476509622285*^9, {3.927477282479844*^9, 3.9274773145308*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Use sample size \\!\\(\\*SubscriptBox[\\(n\\), \ \\(s\\)]\\)=\"\>", "\[InvisibleSpace]", "59", "\[InvisibleSpace]", "\<\" and acceptance constant \ \\!\\(\\*SubscriptBox[\\(k\\), \\(s\\)]\\)=\"\>", "\[InvisibleSpace]", "1.9377127438014061`", "\[InvisibleSpace]", "\<\" because \\!\\(\\*SubscriptBox[\\(P\\), \\(a\\)]\ \\)[\\!\\(\\*SubscriptBox[\\(p\\), \\(1\\)]\\)]=\"\>", "\[InvisibleSpace]", "0.961783237866972`", "\[InvisibleSpace]", "\<\"\[GreaterEqual]\"\>", "\[InvisibleSpace]", "0.95`", "\[InvisibleSpace]", "\<\" and \\!\\(\\*SubscriptBox[\\(P\\), \\(a\\)]\\)[\ \\!\\(\\*SubscriptBox[\\(p\\), \\(2\\)]\\)]=\"\>", "\[InvisibleSpace]", "0.09832053254247655`", "\[InvisibleSpace]", "\<\"\[LessEqual]\"\>", "\[InvisibleSpace]", "0.1`"}], SequenceForm[ "Use sample size \!\(\*SubscriptBox[\(n\), \(s\)]\)=", 59, " and acceptance constant \!\(\*SubscriptBox[\(k\), \(s\)]\)=", 1.9377127438014061`, " because \!\(\*SubscriptBox[\(P\), \(a\)]\)[\!\(\*SubscriptBox[\(p\), \(1\ \)]\)]=", 0.961783237866972, "\[GreaterEqual]", 0.95, " and \!\(\*SubscriptBox[\(P\), \(a\)]\)[\!\(\*SubscriptBox[\(p\), \ \(2\)]\)]=", 0.09832053254247655, "\[LessEqual]", 0.1], Editable->False]], "Print", CellChangeTimes->{ 3.709536132901053*^9, 3.7095362681816883`*^9, 3.709536352059654*^9, 3.927476509622285*^9, {3.927477282479844*^9, 3.927477314534*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ SubscriptBox["n", "s"], "=", "59"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["k", "s"], "=", "1.937713"}], ";"}], "\[IndentingNewLine]", RowBox[{"Round", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"\[CapitalOmega]", "[", RowBox[{"1", "-", SubscriptBox["p", "1"]}], "]"}], "-", RowBox[{ SubscriptBox["k", "s"], "\[Times]", SqrtBox[ FractionBox[ RowBox[{ RowBox[{"3", "\[Times]", SubscriptBox["n", "s"]}], "-", "4"}], RowBox[{ RowBox[{"3", "\[Times]", SubscriptBox["n", "s"]}], "-", "3"}]]]}]}], SqrtBox[ FractionBox[ RowBox[{"1", "+", FractionBox[ RowBox[{"3", "\[Times]", SubscriptBox["n", "s"], "\[Times]", SuperscriptBox[ SubscriptBox["k", "s"], "2"]}], RowBox[{ RowBox[{"6", "\[Times]", SubscriptBox["n", "s"]}], "-", "8"}]]}], SubscriptBox["n", "s"]]]], ",", "0.01"}], "]"}], "\[IndentingNewLine]", RowBox[{"CDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"0", ",", "1"}], "]"}], ",", "%"}], "]"}], "\[IndentingNewLine]", RowBox[{"Round", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"\[CapitalOmega]", "[", RowBox[{"1", "-", SubscriptBox["p", "2"]}], "]"}], "-", RowBox[{ SubscriptBox["k", "s"], "\[Times]", SqrtBox[ FractionBox[ RowBox[{ RowBox[{"3", "\[Times]", SubscriptBox["n", "s"]}], "-", "4"}], RowBox[{ RowBox[{"3", "\[Times]", SubscriptBox["n", "s"]}], "-", "3"}]]]}]}], SqrtBox[ FractionBox[ RowBox[{"1", "+", FractionBox[ RowBox[{"3", "\[Times]", SubscriptBox["n", "s"], "\[Times]", SuperscriptBox[ SubscriptBox["k", "s"], "2"]}], RowBox[{ RowBox[{"6", "\[Times]", SubscriptBox["n", "s"]}], "-", "8"}]]}], SubscriptBox["n", "s"]]]], ",", "0.01"}], "]"}], "\[IndentingNewLine]", RowBox[{"CDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"0", ",", "1"}], "]"}], ",", "%"}], "]"}]}], "Input", CellChangeTimes->{{3.610712670086217*^9, 3.610712761239393*^9}, { 3.63162399794171*^9, 3.631624012526164*^9}, {3.709533753686307*^9, 3.7095337679732933`*^9}, {3.70953380274963*^9, 3.70953381891016*^9}, { 3.709534798744567*^9, 3.709534811048921*^9}, {3.709534904137961*^9, 3.7095349180014668`*^9}, {3.709536163487693*^9, 3.709536172195784*^9}, 3.709536370856907*^9}], Cell[BoxData["1.77`"], "Output", CellChangeTimes->{ 3.61071276223855*^9, 3.63162401493174*^9, 3.709533769543936*^9, 3.709533827087884*^9, 3.7095348117170973`*^9, 3.709534918395637*^9, { 3.709536167590341*^9, 3.709536173063541*^9}, 3.709536371255932*^9, 3.927477324212604*^9}], Cell[BoxData["0.9616364296371287`"], "Output", CellChangeTimes->{ 3.61071276223855*^9, 3.63162401493174*^9, 3.709533769543936*^9, 3.709533827087884*^9, 3.7095348117170973`*^9, 3.709534918395637*^9, { 3.709536167590341*^9, 3.709536173063541*^9}, 3.709536371255932*^9, 3.927477324215564*^9}], Cell[BoxData[ RowBox[{"-", "1.29`"}]], "Output", CellChangeTimes->{ 3.61071276223855*^9, 3.63162401493174*^9, 3.709533769543936*^9, 3.709533827087884*^9, 3.7095348117170973`*^9, 3.709534918395637*^9, { 3.709536167590341*^9, 3.709536173063541*^9}, 3.709536371255932*^9, 3.927477324217518*^9}], Cell[BoxData["0.09852532904974787`"], "Output", CellChangeTimes->{ 3.61071276223855*^9, 3.63162401493174*^9, 3.709533769543936*^9, 3.709533827087884*^9, 3.7095348117170973`*^9, 3.709534918395637*^9, { 3.709536167590341*^9, 3.709536173063541*^9}, 3.709536371255932*^9, 3.927477324219446*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"59.", "/", "19"}]], "Input", CellChangeTimes->{{3.7095339474511747`*^9, 3.70953395039056*^9}}], Cell[BoxData["3.1052631578947367`"], "Output", CellChangeTimes->{3.709533951953414*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["7(b)", "Subsubtitle", CellChangeTimes->{{3.927472340814023*^9, 3.927472349853125*^9}, { 3.927472384073505*^9, 3.927472391897768*^9}, {3.927472489373966*^9, 3.927472492748459*^9}, {3.927472911152019*^9, 3.9274729113145113`*^9}, 3.927473025740485*^9, {3.9274733464314003`*^9, 3.927473346567992*^9}, { 3.92747390999842*^9, 3.9274739110103817`*^9}, {3.9274740171987534`*^9, 3.927474022536273*^9}, {3.9274762618177347`*^9, 3.927476264204555*^9}, 3.9274764732438602`*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"n", "=", "59"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dist", "=", RowBox[{"NormalDistribution", "[", RowBox[{"22.8", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"data", "=", RowBox[{"Sort", "[", RowBox[{"RandomVariate", "[", RowBox[{"dist", ",", "n"}], "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Mean", "[", "data", "]"}], "\[IndentingNewLine]", RowBox[{ SqrtBox[ RowBox[{"Variance", "[", "data", "]"}]], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"U", "=", "22.8"}], ";"}], "\[IndentingNewLine]", FractionBox[ RowBox[{"U", "-", RowBox[{"Mean", "[", "data", "]"}]}], SqrtBox[ RowBox[{"Variance", "[", "data", "]"}]]]}], "Input", CellChangeTimes->{{3.610569661612401*^9, 3.610569666512258*^9}, { 3.6105697503413897`*^9, 3.6105698651763563`*^9}, {3.610569919995222*^9, 3.610569928844089*^9}, {3.610570570499569*^9, 3.6105705708373337`*^9}, { 3.6105964731854*^9, 3.610596473612959*^9}, {3.631610325478511*^9, 3.631610354220639*^9}, {3.709533390935845*^9, 3.709533414267939*^9}, { 3.709533518967216*^9, 3.709533570847878*^9}, {3.709534008525702*^9, 3.7095340094198112`*^9}, {3.709534088121565*^9, 3.7095340889212713`*^9}, { 3.7095342087168283`*^9, 3.709534232360346*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "20.39425641691262`", ",", "20.58757320056503`", ",", "20.62080632652816`", ",", "20.875779377196768`", ",", "21.093139497149767`", ",", "21.430900330775202`", ",", "21.49591112649789`", ",", "21.54890351299944`", ",", "21.661765812465248`", ",", "21.90660239680102`", ",", "22.025028697252647`", ",", "22.033803250415303`", ",", "22.047476224264347`", ",", "22.198217888300622`", ",", "22.204451274213397`", ",", "22.237219148400534`", ",", "22.338997435621494`", ",", "22.39485042841042`", ",", "22.457726131612915`", ",", "22.492054228339388`", ",", "22.546730717396365`", ",", "22.580696776487013`", ",", "22.60879696870962`", ",", "22.623890378922948`", ",", "22.655814752534308`", ",", "22.657651303245878`", ",", "22.7478472458288`", ",", "22.75978740936125`", ",", "22.762626008914374`", ",", "22.98427788892666`", ",", "22.991280153304956`", ",", "23.044545318217722`", ",", "23.05235895307197`", ",", "23.083920285114708`", ",", "23.085527699053454`", ",", "23.100373495575504`", ",", "23.13933128704963`", ",", "23.15892117601237`", ",", "23.31158546785541`", ",", "23.341616371083536`", ",", "23.405637284138134`", ",", "23.41583472307229`", ",", "23.461739714307722`", ",", "23.479534037571106`", ",", "23.561691104954356`", ",", "23.59784675726444`", ",", "23.599583365518512`", ",", "23.705819858074605`", ",", "23.833681444811084`", ",", "23.883235218649396`", ",", "23.960358058417114`", ",", "23.961496256838885`", ",", "24.024915624064537`", ",", "24.457775944720964`", ",", "24.676566636050662`", ",", "24.83248154191859`", ",", "25.0852254346489`", ",", "25.115904814428113`", ",", "25.397206944207547`"}], "}"}]], "Output", CellChangeTimes->{ 3.610569788694401*^9, 3.6105698245098743`*^9, 3.610569934585927*^9, { 3.6105705446881523`*^9, 3.610570599048304*^9}, 3.610596476057232*^9, 3.631610362543891*^9, 3.6316244117081547`*^9, {3.709534210782189*^9, 3.709534234423461*^9}}], Cell[BoxData["22.876941985170262`"], "Output", CellChangeTimes->{ 3.610569788694401*^9, 3.6105698245098743`*^9, 3.610569934585927*^9, { 3.6105705446881523`*^9, 3.610570599048304*^9}, 3.610596476057232*^9, 3.631610362543891*^9, 3.6316244117081547`*^9, {3.709534210782189*^9, 3.709534234429532*^9}}], Cell[BoxData["1.1162762736205456`"], "Output", CellChangeTimes->{ 3.610569788694401*^9, 3.6105698245098743`*^9, 3.610569934585927*^9, { 3.6105705446881523`*^9, 3.610570599048304*^9}, 3.610596476057232*^9, 3.631610362543891*^9, 3.6316244117081547`*^9, {3.709534210782189*^9, 3.7095342344327927`*^9}}], Cell[BoxData[ RowBox[{"-", "0.068927367703254`"}]], "Output", CellChangeTimes->{ 3.610569788694401*^9, 3.6105698245098743`*^9, 3.610569934585927*^9, { 3.6105705446881523`*^9, 3.610570599048304*^9}, 3.610596476057232*^9, 3.631610362543891*^9, 3.6316244117081547`*^9, {3.709534210782189*^9, 3.709534234436083*^9}}] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{764, 1279}, WindowMargins->{{Automatic, 626}, {Automatic, 0}}, PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> True}}, FrontEndVersion->"10.2 for Mac OS X x86 (32-bit, 64-bit Kernel) (July 29, \ 2015)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 481, 7, 77, "Title"], Cell[1051, 31, 96, 1, 47, "Subtitle"], Cell[1150, 34, 116, 1, 27, "Subsubtitle"], Cell[CellGroupData[{ Cell[1291, 39, 7225, 219, 619, "Input"], Cell[8519, 260, 2161, 35, 237, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10717, 300, 142, 2, 27, "Subsubtitle"], Cell[CellGroupData[{ Cell[10884, 306, 1835, 47, 234, "Input"], Cell[12722, 355, 196, 3, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12955, 363, 902, 25, 68, "Input"], Cell[13860, 390, 278, 4, 28, "Output"], Cell[14141, 396, 276, 4, 28, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[14466, 406, 153, 5, 73, "Subtitle"], Cell[14622, 413, 191, 3, 27, "Subsubtitle"], Cell[CellGroupData[{ Cell[14838, 420, 1506, 35, 200, "Input"], Cell[16347, 457, 684, 12, 42, "Output"], Cell[17034, 471, 631, 10, 45, "Output"], Cell[17668, 483, 584, 8, 28, "Output"], Cell[18255, 493, 598, 8, 28, "Output"], Cell[18856, 503, 597, 8, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[19490, 516, 239, 3, 27, "Subsubtitle"], Cell[CellGroupData[{ Cell[19754, 523, 1457, 40, 95, "Input"], Cell[21214, 565, 2082, 59, 53, "Output"], Cell[23299, 626, 536, 16, 42, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[23884, 648, 267, 4, 27, "Subsubtitle"], Cell[CellGroupData[{ Cell[24176, 656, 1674, 29, 45, "Input"], Cell[25853, 687, 10902, 190, 238, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[36804, 883, 315, 4, 27, "Subsubtitle"], Cell[CellGroupData[{ Cell[37144, 891, 1254, 39, 199, "Input"], Cell[38401, 932, 183, 2, 28, "Output"], Cell[38587, 936, 183, 2, 28, "Output"], Cell[38773, 940, 185, 2, 28, "Output"], Cell[38961, 944, 182, 2, 28, "Output"], Cell[39146, 948, 183, 2, 28, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[39390, 957, 204, 6, 73, "Subtitle"], Cell[39597, 965, 273, 3, 27, "Subsubtitle"], Cell[CellGroupData[{ Cell[39895, 972, 1638, 40, 189, "Input"], Cell[41536, 1014, 381, 5, 28, "Output"], Cell[41920, 1021, 391, 5, 30, "Output"], Cell[42314, 1028, 402, 5, 30, "Output"], Cell[42719, 1035, 399, 5, 28, "Output"], Cell[43121, 1042, 391, 5, 28, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[43561, 1053, 252, 6, 73, "Subtitle"], Cell[43816, 1061, 366, 5, 27, "Subsubtitle"], Cell[CellGroupData[{ Cell[44207, 1070, 1434, 36, 148, "Input"], Cell[45644, 1108, 446, 7, 28, "Output"], Cell[46093, 1117, 448, 7, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[46578, 1129, 363, 5, 27, "Subsubtitle"], Cell[CellGroupData[{ Cell[46966, 1138, 3278, 91, 265, "Input"], Cell[50247, 1231, 769, 11, 28, "Output"], Cell[51019, 1244, 771, 11, 28, "Output"], Cell[51793, 1257, 767, 11, 28, "Output"], Cell[52563, 1270, 767, 11, 28, "Output"], Cell[53333, 1283, 774, 11, 28, "Output"], Cell[54110, 1296, 774, 11, 28, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[54945, 1314, 302, 7, 73, "Subtitle"], Cell[55250, 1323, 418, 6, 27, "Subsubtitle"], Cell[CellGroupData[{ Cell[55693, 1333, 304, 7, 45, "Input"], Cell[56000, 1342, 1789, 52, 49, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[57826, 1399, 4106, 114, 332, "Input"], Cell[61935, 1515, 346, 5, 28, "Output"], Cell[62284, 1522, 343, 5, 28, "Output"], Cell[62630, 1529, 345, 5, 28, "Output"], Cell[62978, 1536, 345, 5, 28, "Output"], Cell[63326, 1543, 342, 5, 28, "Output"], Cell[63671, 1550, 358, 5, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[64066, 1560, 1754, 52, 101, "Input"], Cell[65823, 1614, 208, 3, 28, "Output"], Cell[66034, 1619, 208, 3, 28, "Output"], Cell[66245, 1624, 208, 3, 28, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[66502, 1633, 353, 8, 73, "Subtitle"], Cell[CellGroupData[{ Cell[66880, 1645, 3307, 93, 447, "Input"], Cell[70190, 1740, 554, 7, 28, "Output"], Cell[70747, 1749, 551, 7, 28, "Output"], Cell[71301, 1758, 543, 7, 28, "Output"], Cell[71847, 1767, 551, 7, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[72435, 1779, 2024, 50, 221, "Input"], Cell[74462, 1831, 732, 10, 28, "Output"], Cell[75197, 1843, 748, 11, 28, "Output"], Cell[75948, 1856, 748, 10, 28, "Output"], Cell[76699, 1868, 750, 10, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[77486, 1883, 1384, 41, 131, "Input"], Cell[78873, 1926, 707, 20, 28, "Output"], Cell[79583, 1948, 720, 20, 28, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[80352, 1974, 401, 8, 73, "Subtitle"], Cell[80756, 1984, 466, 6, 27, "Subsubtitle"], Cell[CellGroupData[{ Cell[81247, 1994, 5989, 167, 447, "Input"], Cell[87239, 2163, 646, 9, 28, "Output"], Cell[87888, 2174, 646, 9, 28, "Output"], Cell[88537, 2185, 1844, 30, 38, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[90418, 2220, 732, 10, 35, "Subsection"], Cell[CellGroupData[{ Cell[91175, 2234, 1757, 53, 156, "Input"], Cell[92935, 2289, 410, 6, 28, "Output"], Cell[93348, 2297, 409, 6, 28, "Output"], Cell[93760, 2305, 396, 6, 28, "Output"], Cell[94159, 2313, 412, 7, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[94608, 2325, 7774, 218, 743, "Input"], Cell[102385, 2545, 540, 8, 28, "Output"], Cell[102928, 2555, 541, 8, 28, "Output"], Cell[103472, 2565, 541, 8, 28, "Output"], Cell[104016, 2575, 542, 8, 28, "Output"], Cell[CellGroupData[{ Cell[104583, 2587, 1412, 26, 38, "Print"], Cell[105998, 2615, 1406, 26, 38, "Print"], Cell[107407, 2643, 1405, 26, 38, "Print"], Cell[108815, 2671, 1445, 26, 38, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[110309, 2703, 2647, 81, 303, "Input"], Cell[112959, 2786, 289, 5, 28, "Output"], Cell[113251, 2793, 303, 5, 28, "Output"], Cell[113557, 2800, 306, 6, 28, "Output"], Cell[113866, 2808, 304, 5, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[114207, 2818, 119, 2, 28, "Input"], Cell[114329, 2822, 88, 1, 28, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[114466, 2829, 494, 7, 27, "Subsubtitle"], Cell[CellGroupData[{ Cell[114985, 2840, 1331, 30, 166, "Input"], Cell[116319, 2872, 2060, 35, 104, "Output"], Cell[118382, 2909, 311, 5, 28, "Output"], Cell[118696, 2916, 313, 5, 28, "Output"], Cell[119012, 2923, 327, 6, 28, "Output"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] } ] *)