(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 30754, 793] NotebookOptionsPosition[ 26126, 724] NotebookOutlinePosition[ 26512, 741] CellTagsIndexPosition[ 26469, 738] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell["\:77e9\:4f30\:8ba1", "Section", CellChangeTimes->{{3.801905598157044*^9, 3.8019056107227864`*^9}},ExpressionUUID->"3dbf70c9-8a9b-4b1e-8126-\ 1c8c75647130"], Cell["\:6781\:5927\:4f3c\:7136\:4f30\:8ba1", "Section", CellChangeTimes->{{3.801905619545849*^9, 3.8019056229050536`*^9}, { 3.8019064675237255`*^9, 3.801906471451805*^9}},ExpressionUUID->"7ece6b68-8253-4d0d-b103-\ 6d50b72f2147"], Cell["\:4e2d\:5fc3\:6781\:9650\:5b9a\:7406", "Section", CellChangeTimes->{{3.8019056342797985`*^9, 3.80190564123263*^9}, { 3.801906714660049*^9, 3.801906720694434*^9}},ExpressionUUID->"8fcb3fc4-79d7-4d74-92f0-\ 1d8462f14596"], Cell[CellGroupData[{ Cell["\:5047\:8bbe\:68c0\:9a8c", "Section", CellChangeTimes->{{3.8019056342797985`*^9, 3.80190564123263*^9}, { 3.801906714660049*^9, 3.801906720694434*^9}, 3.801906839551249*^9},ExpressionUUID->"fd53b62b-9045-41cc-97b0-\ c15f6d21058d"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"\:5047\:8bbe\:68c0\:9a8c\:5747\:503c", "[", RowBox[{"\:6837\:672c_", ",", "\:68c0\:9a8c\:76ee\:6807_", ",", RowBox[{"\:65b9\:5dee_:", "None"}]}], "]"}], ":=", RowBox[{"Block", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ "mean", ",", "\:76ee\:6807\:503c", ",", "n", ",", "Z", ",", "t", ",", "S"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"mean", "=", RowBox[{"Mean", "@", "\:6837\:672c"}]}], ";", "\[IndentingNewLine]", RowBox[{"Echo", "[", RowBox[{"mean", ",", "\"\<\:5e73\:5747\:503c==\>\""}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"\:76ee\:6807\:503c", "=", RowBox[{"Last", "@", "\:68c0\:9a8c\:76ee\:6807"}]}], ";", "\[IndentingNewLine]", RowBox[{"Echo", "[", RowBox[{"\:76ee\:6807\:503c", ",", "\"\<\:76ee\:6807\:503c==\>\""}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"n", "=", RowBox[{"Length", "@", "\:6837\:672c"}]}], ";", "\[IndentingNewLine]", RowBox[{"Echo", "[", RowBox[{"n", ",", "\"\\""}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Echo", "[", RowBox[{"\:65b9\:5dee", ",", "\"\<\:65b9\:5dee==\>\""}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Which", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"NumericQ", "[", "\:65b9\:5dee", "]"}], " ", "&&", RowBox[{ RowBox[{"Head", "@", "\:68c0\:9a8c\:76ee\:6807"}], "===", "Equal"}]}], ",", RowBox[{"(*", RowBox[{"\:53cc\:4fa7", " ", ",", "\:6709\:65b9\:5dee", ",", RowBox[{"Z", " ", "\:7edf\:8ba1\:91cf"}], "\:ff0c", "done"}], "*)"}], "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ "Echo", "[", "\"\<\:4f7f\:7528 Z \ \:7edf\:8ba1\:91cf,\:53cc\:4fa7\:68c0\:9a8c\>\"", "]"}], ";", "\[IndentingNewLine]", RowBox[{"Z", "=", FractionBox[ RowBox[{"mean", "-", "\:76ee\:6807\:503c"}], RowBox[{"\:65b9\:5dee", "/", RowBox[{"Sqrt", "[", "n", "]"}]}]]}], ";", "\[IndentingNewLine]", RowBox[{"Echo", "[", RowBox[{"Z", ",", "\"\\""}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Echo", "[", RowBox[{ RowBox[{"Hold", "[", FractionBox[ RowBox[{ RowBox[{"OverBar", "[", "X", "]"}], "-", SubscriptBox["\[Micro]", "0"]}], RowBox[{"\[Sigma]", "/", RowBox[{"Sqrt", "[", "n", "]"}]}]], "]"}], "\[Equal]", "Z"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Echo", "[", RowBox[{"Abs", "@", RowBox[{"InverseCDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", "]"}], ",", "0.025"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Abs", "@", "Z"}], "<", RowBox[{"Abs", "@", RowBox[{"InverseCDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", "]"}], ",", "0.025"}], "]"}]}]}], ",", RowBox[{ "Echo", "[", "\"\<\:5728\:62d2\:7edd\:57df\:5916\:ff0c\:53ef\:4ee5\:63a5\:53d7\ \>\"", "]"}], ",", RowBox[{ "Echo", "[", "\"\<\:5728\:62d2\:7edd\:57df\:5185\:ff0c\:4e0d\:63a5\:53d7\>\"", "]"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\:65b9\:5dee", "==", "None"}], " ", "&&", RowBox[{ RowBox[{"Head", "@", "\:68c0\:9a8c\:76ee\:6807"}], "===", "Equal"}]}], ",", RowBox[{"(*", RowBox[{"\:53cc\:4fa7", " ", ",", "\:65e0\:65b9\:5dee", ",", RowBox[{"t", " ", "\:7edf\:8ba1\:91cf"}], ",", "done"}], "*)"}], "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"S", "=", RowBox[{"Variance", "@", "\:6837\:672c"}]}], ";", "\[IndentingNewLine]", RowBox[{"Echo", "[", RowBox[{"S", ",", "\"\\""}], "]"}], ";", "\[IndentingNewLine]", " ", RowBox[{ "Echo", "[", "\"\<\:4f7f\:7528 t \ \:7edf\:8ba1\:91cf,\:53cc\:4fa7\:68c0\:9a8c\>\"", "]"}], ";", "\[IndentingNewLine]", RowBox[{"t", "=", FractionBox[ RowBox[{"mean", "-", "\:76ee\:6807\:503c"}], RowBox[{"S", "/", RowBox[{"Sqrt", "[", "n", "]"}]}]]}], ";", "\[IndentingNewLine]", RowBox[{"Echo", "[", RowBox[{ RowBox[{"Hold", "[", FractionBox[ RowBox[{ RowBox[{"OverBar", "[", "X", "]"}], "-", SubscriptBox["\[Micro]", "0"]}], RowBox[{"S", "/", RowBox[{"Sqrt", "[", "n", "]"}]}]], "]"}], "\[Equal]", "t"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Echo", "[", RowBox[{ RowBox[{"Abs", "@", RowBox[{"InverseCDF", "[", RowBox[{ RowBox[{"StudentTDistribution", "[", RowBox[{"n", "-", "1"}], "]"}], ",", "0.05"}], "]"}]}], ",", RowBox[{"\"\<\!\(\*SubscriptBox[\(t\), \(0.05\)]\)(\>\"", "<>", RowBox[{"ToString", "[", RowBox[{"n", "-", "1"}], "]"}], "<>", "\"\<)==\>\""}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Abs", "@", "t"}], "<", RowBox[{"Abs", "@", RowBox[{"InverseCDF", "[", RowBox[{ RowBox[{"StudentTDistribution", "[", RowBox[{"n", "-", "1"}], "]"}], ",", "0.025"}], "]"}]}]}], ",", RowBox[{ "Echo", "[", "\"\<\:5728\:62d2\:7edd\:57df\:5916\:ff0c\:53ef\:4ee5\:63a5\:53d7\ \>\"", "]"}], ",", RowBox[{ "Echo", "[", "\"\<\:5728\:62d2\:7edd\:57df\:5185\:ff0c\:4e0d\:63a5\:53d7\>\"", "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"NumericQ", "[", "\:65b9\:5dee", "]"}], " ", "&&", " ", RowBox[{"(", RowBox[{ RowBox[{"Head", "@", "\:68c0\:9a8c\:76ee\:6807"}], "=!=", "Equal"}], ")"}]}], ",", RowBox[{"(*", RowBox[{"\:5355\:4fa7", " ", ",", "\:6709\:65b9\:5dee", ",", RowBox[{"Z", " ", "\:7edf\:8ba1\:91cf"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{ "Echo", "[", "\"\<\:4f7f\:7528 Z \ \:7edf\:8ba1\:91cf,\:5355\:4fa7\:68c0\:9a8c\>\"", "]"}], ";", "\[IndentingNewLine]", RowBox[{"Z", "=", FractionBox[ RowBox[{"mean", "-", "\:76ee\:6807\:503c"}], RowBox[{"\:65b9\:5dee", "/", RowBox[{"Sqrt", "[", "n", "]"}]}]]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Echo", "[", RowBox[{ RowBox[{"Hold", "[", FractionBox[ RowBox[{ RowBox[{"OverBar", "[", "X", "]"}], "-", SubscriptBox["\[Micro]", "0"]}], RowBox[{"\[Sigma]", "/", RowBox[{"Sqrt", "[", "n", "]"}]}]], "]"}], "\[Equal]", "Z"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Echo", "[", RowBox[{"Abs", "@", RowBox[{"InverseCDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", "]"}], ",", "0.05"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Abs", "@", "Z"}], "<", RowBox[{"Abs", "@", RowBox[{"InverseCDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", "]"}], ",", "0.05"}], "]"}]}]}], ",", RowBox[{ "Echo", "[", "\"\<\:5728\:62d2\:7edd\:57df\:5916\:ff0c\:53ef\:4ee5\:63a5\:53d7\ \>\"", "]"}], ",", RowBox[{ "Echo", "[", "\"\<\:5728\:62d2\:7edd\:57df\:5185\:ff0c\:4e0d\:63a5\:53d7\>\"", "]"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", RowBox[{"\:65b9\:5dee", "==", "None"}], " ", ",", RowBox[{"(*", RowBox[{"\:5355\:4fa7", " ", ",", "\:65e0\:65b9\:5dee", ",", RowBox[{"t", " ", "\:7edf\:8ba1\:91cf"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"S", "=", RowBox[{"Variance", "@", "\:6837\:672c"}]}], ";", "\[IndentingNewLine]", RowBox[{"Echo", "[", RowBox[{"S", ",", "\"\\""}], "]"}], ";", "\[IndentingNewLine]", " ", RowBox[{ "Echo", "[", "\"\<\:4f7f\:7528 t \ \:7edf\:8ba1\:91cf,\:5355\:4fa7\:68c0\:9a8c\>\"", "]"}], ";", "\[IndentingNewLine]", RowBox[{"t", "=", FractionBox[ RowBox[{"mean", "-", "\:76ee\:6807\:503c"}], RowBox[{"S", "/", RowBox[{"Sqrt", "[", "n", "]"}]}]]}], ";", "\[IndentingNewLine]", RowBox[{"Echo", "[", RowBox[{ RowBox[{"Hold", "[", FractionBox[ RowBox[{ RowBox[{"OverBar", "[", "X", "]"}], "-", SubscriptBox["\[Micro]", "0"]}], RowBox[{"S", "/", RowBox[{"Sqrt", "[", "n", "]"}]}]], "]"}], "\[Equal]", "t"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Echo", "[", RowBox[{ RowBox[{"Abs", "@", RowBox[{"InverseCDF", "[", RowBox[{ RowBox[{"StudentTDistribution", "[", RowBox[{"n", "-", "1"}], "]"}], ",", "0.05"}], "]"}]}], ",", RowBox[{"\"\<\!\(\*SubscriptBox[\(t\), \(0.05\)]\)(\>\"", "<>", RowBox[{"ToString", "[", RowBox[{"n", "-", "1"}], "]"}], "<>", "\"\<)==\>\""}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Abs", "@", "t"}], "<", RowBox[{"Abs", "@", RowBox[{"InverseCDF", "[", RowBox[{ RowBox[{"StudentTDistribution", "[", RowBox[{"n", "-", "1"}], "]"}], ",", "0.05"}], "]"}]}]}], ",", RowBox[{ "Echo", "[", "\"\<\:5728\:62d2\:7edd\:57df\:5916\:ff0c\:53ef\:4ee5\:63a5\:53d7\ \>\"", "]"}], ",", RowBox[{ "Echo", "[", "\"\<\:5728\:62d2\:7edd\:57df\:5185\:ff0c\:4e0d\:63a5\:53d7\>\"", "]"}]}], "]"}]}], "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"\:5047\:8bbe\:68c0\:9a8c\:5747\:503c", "[", RowBox[{ RowBox[{"{", RowBox[{ "159", ",", "280", ",", "101", ",", "212", ",", "224", ",", "379", ",", "179", ",", "264", ",", "222", ",", "362", ",", "168", ",", "250", ",", "149", ",", "260", ",", "485", ",", "170"}], "}"}], ",", RowBox[{"\:5bff\:547d", ">=", "225"}], ",", "50"}], "]"}], "\[IndentingNewLine]", RowBox[{"\:5047\:8bbe\:68c0\:9a8c\:5747\:503c", "[", RowBox[{ RowBox[{"{", RowBox[{ "159", ",", "280", ",", "101", ",", "212", ",", "224", ",", "379", ",", "179", ",", "264", ",", "222", ",", "362", ",", "168", ",", "250", ",", "149", ",", "260", ",", "485", ",", "170"}], "}"}], ",", RowBox[{"\:5bff\:547d", "<=", "225"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"\:5047\:8bbe\:68c0\:9a8c\:5747\:503c", "[", RowBox[{ RowBox[{"{", RowBox[{ "159", ",", "280", ",", "101", ",", "212", ",", "224", ",", "379", ",", "179", ",", "264", ",", "222", ",", "362", ",", "168", ",", "250", ",", "149", ",", "260", ",", "485", ",", "170"}], "}"}], ",", RowBox[{"\:5bff\:547d", "==", "225"}], ",", "50"}], "]"}], "\[IndentingNewLine]", RowBox[{"\:5047\:8bbe\:68c0\:9a8c\:5747\:503c", "[", RowBox[{ RowBox[{"{", RowBox[{ "159", ",", "280", ",", "101", ",", "212", ",", "224", ",", "379", ",", "179", ",", "264", ",", "222", ",", "362", ",", "168", ",", "250", ",", "149", ",", "260", ",", "485", ",", "170"}], "}"}], ",", RowBox[{"\:5bff\:547d", "==", "225"}]}], "]"}]}], "Input", CellChangeTimes->{{3.801906894174257*^9, 3.8019069485857644`*^9}, { 3.801907059519185*^9, 3.801907072330688*^9}, {3.8019072273910093`*^9, 3.8019073011014004`*^9}, {3.8019074172766943`*^9, 3.801907462261256*^9}, { 3.801907724627142*^9, 3.801907788954218*^9}, {3.8019078384306793`*^9, 3.8019078900259805`*^9}, {3.801908023935047*^9, 3.801908038337905*^9}, { 3.8019080758880463`*^9, 3.8019082399473457`*^9}, {3.8019083402168407`*^9, 3.801908445431342*^9}, {3.8019084778466654`*^9, 3.801908514809562*^9}, { 3.8019085541575775`*^9, 3.8019085864799976`*^9}, 3.8019088687704797`*^9, { 3.801909023375822*^9, 3.801909093305666*^9}, {3.801909130358925*^9, 3.801909177389241*^9}, {3.8019092227891245`*^9, 3.801909314757674*^9}, { 3.8019093532957726`*^9, 3.8019093536552105`*^9}, {3.801909392883045*^9, 3.8019094785864587`*^9}, {3.8019095261257343`*^9, 3.8019095589656973`*^9}, 3.8019096941333656`*^9, {3.80190973427559*^9, 3.801909738050171*^9}, { 3.801909826765396*^9, 3.801909847087228*^9}, {3.801909891110811*^9, 3.8019098913882885`*^9}, 3.8019102019885607`*^9, {3.8019103449844975`*^9, 3.801910413120885*^9}, {3.801910473716335*^9, 3.8019105032023706`*^9}, { 3.8019106829754577`*^9, 3.801910698437912*^9}, {3.8019108772136154`*^9, 3.801910877336631*^9}, {3.8019110407274947`*^9, 3.801911064339425*^9}, { 3.801911201260742*^9, 3.801911207140912*^9}, {3.8019112427238207`*^9, 3.801911251692678*^9}, {3.8019113327795453`*^9, 3.801911405439342*^9}, { 3.8019114473003874`*^9, 3.8019114995524406`*^9}, 3.8019116249780254`*^9, { 3.801911870080143*^9, 3.8019119434453344`*^9}, {3.8019121430577717`*^9, 3.8019121588930464`*^9}, {3.801912230929784*^9, 3.801912281690502*^9}, { 3.8019123222339864`*^9, 3.801912328169757*^9}, {3.801912415557871*^9, 3.8019124496575203`*^9}, {3.8019124847573814`*^9, 3.8019124870292325`*^9}, {3.801912546071498*^9, 3.8019125657584066`*^9}, 3.8019128772184515`*^9, {3.801913421557291*^9, 3.8019134379823885`*^9}, { 3.8019135479058237`*^9, 3.801913561655942*^9}, {3.8019135962184267`*^9, 3.8019136471606936`*^9}, {3.801913757045768*^9, 3.801913823238669*^9}, { 3.8019138717885456`*^9, 3.8019139732771764`*^9}, {3.8019149352776213`*^9, 3.8019149643793945`*^9}, {3.8019150048886023`*^9, 3.801915057915757*^9}, { 3.8019151131746035`*^9, 3.801915119656041*^9}}, CellLabel->"In[7]:=",ExpressionUUID->"a733c0f0-f7f0-4aaf-94ea-05fa1d65e7c0"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ TagBox["\<\"\:5e73\:5747\:503c==\"\>", "EchoLabel"], " ", FractionBox["483", "2"]}]], "Echo", CellChangeTimes->{ 3.801915130308244*^9},ExpressionUUID->"74b7b501-8605-48e7-be85-\ 99047cb3f780"], Cell[BoxData[ RowBox[{ TagBox["\<\"\:76ee\:6807\:503c==\"\>", "EchoLabel"], " ", "225"}]], "Echo", CellChangeTimes->{ 3.8019151303253956`*^9},ExpressionUUID->"2529b9d6-317f-42f9-9c1f-\ fd52ab025add"], Cell[BoxData[ RowBox[{ TagBox["\<\"n==\"\>", "EchoLabel"], " ", "16"}]], "Echo", CellChangeTimes->{ 3.801915130358488*^9},ExpressionUUID->"e9203d4e-0f0d-486e-a4bb-\ 04f415272062"], Cell[BoxData[ RowBox[{ TagBox["\<\"\:65b9\:5dee==\"\>", "EchoLabel"], " ", "50"}]], "Echo", CellChangeTimes->{ 3.8019151303783855`*^9},ExpressionUUID->"37791dd5-81e8-419e-9346-\ 54ca1d8296a1"], Cell[BoxData["\<\"\:4f7f\:7528 Z \ \:7edf\:8ba1\:91cf,\:5355\:4fa7\:68c0\:9a8c\"\>"], "Echo", CellChangeTimes->{ 3.8019151304074616`*^9},ExpressionUUID->"6880e6e1-3876-4f1a-8276-\ 0f3a4449dbe2"], Cell[BoxData[ RowBox[{ RowBox[{"Hold", "[", FractionBox[ RowBox[{ OverscriptBox["X", "_"], "-", SubscriptBox["\[Micro]", "0"]}], FractionBox["\[Sigma]", SqrtBox["n"]]], "]"}], "\[Equal]", FractionBox["33", "25"]}]], "Echo", CellChangeTimes->{ 3.801915130435472*^9},ExpressionUUID->"c3043d3a-1ad0-47e9-9e17-\ 2a465962a225"], Cell[BoxData["1.6448536269514729`"], "Echo", CellChangeTimes->{ 3.8019151304674745`*^9},ExpressionUUID->"2cd4a40e-c9cf-44fa-8666-\ f61d1285ba9a"], Cell[BoxData["\<\"\:5728\:62d2\:7edd\:57df\:5916\:ff0c\:53ef\:4ee5\:63a5\:53d7\ \"\>"], "Echo", CellChangeTimes->{ 3.8019151304815083`*^9},ExpressionUUID->"f85ddc0a-4a25-4d2c-ad86-\ dd5e38101098"], Cell[BoxData[ RowBox[{ TagBox["\<\"\:5e73\:5747\:503c==\"\>", "EchoLabel"], " ", FractionBox["483", "2"]}]], "Echo", CellChangeTimes->{ 3.8019151305085588`*^9},ExpressionUUID->"408e9d92-374e-4267-99fe-\ 3c970cff4d3c"], Cell[BoxData[ RowBox[{ TagBox["\<\"\:76ee\:6807\:503c==\"\>", "EchoLabel"], " ", "225"}]], "Echo", CellChangeTimes->{ 3.8019151305254717`*^9},ExpressionUUID->"10a48e61-7c37-4c63-a13a-\ 1cd18f906919"], Cell[BoxData[ RowBox[{ TagBox["\<\"n==\"\>", "EchoLabel"], " ", "16"}]], "Echo", CellChangeTimes->{ 3.801915130549523*^9},ExpressionUUID->"24aaeb3a-eeed-4108-a11c-\ 9f3640f7623e"], Cell[BoxData[ RowBox[{ TagBox["\<\"\:65b9\:5dee==\"\>", "EchoLabel"], " ", "None"}]], "Echo", CellChangeTimes->{ 3.8019151305696697`*^9},ExpressionUUID->"8202daac-0570-4732-8199-\ d6c9472f7cf3"], Cell[BoxData[ RowBox[{ TagBox["\<\"S==\"\>", "EchoLabel"], " ", FractionBox["48734", "5"]}]], "Echo", CellChangeTimes->{ 3.8019151306005926`*^9},ExpressionUUID->"92a46162-ef7b-4713-bc40-\ 9fea80f41786"], Cell[BoxData["\<\"\:4f7f\:7528 t \ \:7edf\:8ba1\:91cf,\:5355\:4fa7\:68c0\:9a8c\"\>"], "Echo", CellChangeTimes->{ 3.801915130615706*^9},ExpressionUUID->"81e09cdd-5f80-4909-b9e7-\ d06b916184fd"], Cell[BoxData[ RowBox[{ RowBox[{"Hold", "[", FractionBox[ RowBox[{ OverscriptBox["X", "_"], "-", SubscriptBox["\[Micro]", "0"]}], FractionBox["S", SqrtBox["n"]]], "]"}], "\[Equal]", FractionBox["165", "24367"]}]], "Echo", CellChangeTimes->{ 3.8019151306476183`*^9},ExpressionUUID->"7dbc660c-5a6d-40c7-99bb-\ 5424851d5a54"], Cell[BoxData[ RowBox[{ TagBox["\<\"\\!\\(\\*SubscriptBox[\\(t\\), \\(0.05\\)]\\)(15)==\"\>", "EchoLabel"], " ", "1.7530503556925732`"}]], "Echo", CellChangeTimes->{ 3.8019151306794586`*^9},ExpressionUUID->"f2c13f12-5c11-4851-9e07-\ 2063b05c7ebe"], Cell[BoxData["\<\"\:5728\:62d2\:7edd\:57df\:5916\:ff0c\:53ef\:4ee5\:63a5\:53d7\ \"\>"], "Echo", CellChangeTimes->{ 3.8019151307045536`*^9},ExpressionUUID->"e8696ed3-38b9-47f6-a8d6-\ 8579e74eb93a"], Cell[BoxData[ RowBox[{ TagBox["\<\"\:5e73\:5747\:503c==\"\>", "EchoLabel"], " ", FractionBox["483", "2"]}]], "Echo", CellChangeTimes->{ 3.801915130731576*^9},ExpressionUUID->"43205e13-5a83-4010-bc12-\ 71f1c24efbf1"], Cell[BoxData[ RowBox[{ TagBox["\<\"\:76ee\:6807\:503c==\"\>", "EchoLabel"], " ", "225"}]], "Echo", CellChangeTimes->{ 3.801915130746457*^9},ExpressionUUID->"05484587-d5fa-4b3c-98c3-\ e6b5e4845e35"], Cell[BoxData[ RowBox[{ TagBox["\<\"n==\"\>", "EchoLabel"], " ", "16"}]], "Echo", CellChangeTimes->{ 3.8019151307695665`*^9},ExpressionUUID->"247494d9-a09b-4466-8660-\ 474ba51fdb6e"], Cell[BoxData[ RowBox[{ TagBox["\<\"\:65b9\:5dee==\"\>", "EchoLabel"], " ", "50"}]], "Echo", CellChangeTimes->{ 3.8019151307893925`*^9},ExpressionUUID->"147d2e31-b254-4b7a-9e23-\ 9311d29afccd"], Cell[BoxData["\<\"\:4f7f\:7528 Z \ \:7edf\:8ba1\:91cf,\:53cc\:4fa7\:68c0\:9a8c\"\>"], "Echo", CellChangeTimes->{ 3.8019151308135834`*^9},ExpressionUUID->"84b537f3-6acd-4351-aedf-\ 09f4698d8cfc"], Cell[BoxData[ RowBox[{ TagBox["\<\"Z==\"\>", "EchoLabel"], " ", FractionBox["33", "25"]}]], "Echo", CellChangeTimes->{ 3.8019151308274994`*^9},ExpressionUUID->"dd4f8df7-1787-49e8-9e01-\ f199f2caec75"], Cell[BoxData[ RowBox[{ RowBox[{"Hold", "[", FractionBox[ RowBox[{ OverscriptBox["X", "_"], "-", SubscriptBox["\[Micro]", "0"]}], FractionBox["\[Sigma]", SqrtBox["n"]]], "]"}], "\[Equal]", FractionBox["33", "25"]}]], "Echo", CellChangeTimes->{ 3.801915130858342*^9},ExpressionUUID->"9e6bb887-f495-44a8-b479-\ c05a22bc0138"], Cell[BoxData["1.9599639845400545`"], "Echo", CellChangeTimes->{ 3.801915130876343*^9},ExpressionUUID->"368ddd6d-eba5-4ba2-8a30-\ e65f7f8c90a5"], Cell[BoxData["\<\"\:5728\:62d2\:7edd\:57df\:5916\:ff0c\:53ef\:4ee5\:63a5\:53d7\ \"\>"], "Echo", CellChangeTimes->{ 3.80191513090242*^9},ExpressionUUID->"eb9e8432-98cf-4bcd-a591-4ca9ae35305d"], Cell[BoxData[ RowBox[{ TagBox["\<\"\:5e73\:5747\:503c==\"\>", "EchoLabel"], " ", FractionBox["483", "2"]}]], "Echo", CellChangeTimes->{ 3.801915130924428*^9},ExpressionUUID->"dc1dd873-82bc-4164-878c-\ e822accb4a53"], Cell[BoxData[ RowBox[{ TagBox["\<\"\:76ee\:6807\:503c==\"\>", "EchoLabel"], " ", "225"}]], "Echo", CellChangeTimes->{ 3.8019151309374237`*^9},ExpressionUUID->"b3964700-229a-439d-ae4a-\ 22ae3f2aca9d"], Cell[BoxData[ RowBox[{ TagBox["\<\"n==\"\>", "EchoLabel"], " ", "16"}]], "Echo", CellChangeTimes->{ 3.8019151309584208`*^9},ExpressionUUID->"8a67b85f-c539-4c93-bfa8-\ 70d40170cbc9"], Cell[BoxData[ RowBox[{ TagBox["\<\"\:65b9\:5dee==\"\>", "EchoLabel"], " ", "None"}]], "Echo", CellChangeTimes->{ 3.801915130970392*^9},ExpressionUUID->"dea91cb5-daf0-4461-a5f3-\ c6e0fe552337"], Cell[BoxData[ RowBox[{ TagBox["\<\"S==\"\>", "EchoLabel"], " ", FractionBox["48734", "5"]}]], "Echo", CellChangeTimes->{ 3.8019151309914775`*^9},ExpressionUUID->"5215b78b-e6d0-4e10-9820-\ 5bf75b32920b"], Cell[BoxData["\<\"\:4f7f\:7528 t \ \:7edf\:8ba1\:91cf,\:53cc\:4fa7\:68c0\:9a8c\"\>"], "Echo", CellChangeTimes->{ 3.801915131002425*^9},ExpressionUUID->"ad3659ee-c7b9-4137-9bf1-\ 042cb0212a89"], Cell[BoxData[ RowBox[{ RowBox[{"Hold", "[", FractionBox[ RowBox[{ OverscriptBox["X", "_"], "-", SubscriptBox["\[Micro]", "0"]}], FractionBox["S", SqrtBox["n"]]], "]"}], "\[Equal]", FractionBox["165", "24367"]}]], "Echo", CellChangeTimes->{ 3.801915131024393*^9},ExpressionUUID->"65c36c91-7bca-40b7-bc1f-\ afc6a67a0655"], Cell[BoxData[ RowBox[{ TagBox["\<\"\\!\\(\\*SubscriptBox[\\(t\\), \\(0.05\\)]\\)(15)==\"\>", "EchoLabel"], " ", "1.7530503556925732`"}]], "Echo", CellChangeTimes->{ 3.8019151310506797`*^9},ExpressionUUID->"8300c1d7-950d-4c53-af3e-\ 46450f69c258"], Cell[BoxData["\<\"\:5728\:62d2\:7edd\:57df\:5916\:ff0c\:53ef\:4ee5\:63a5\:53d7\ \"\>"], "Echo", CellChangeTimes->{ 3.8019151310725675`*^9},ExpressionUUID->"13131f8a-f978-4213-9283-\ b863168b0b5e"] }, Open ]] }, Open ]], Cell[BoxData[ RowBox[{"t", "\[GreaterEqual]", "7"}]], "Input", CellChangeTimes->{{3.8019136684574947`*^9, 3.8019136700243883`*^9}}, CellLabel->"In[21]:=",ExpressionUUID->"ebe11f6d-4962-4bb8-b61f-e100a7430dd1"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"t", "==", "7"}], "//", "Head"}], "//", RowBox[{ RowBox[{"#", "===", "Equal"}], "&"}]}]], "Input", CellChangeTimes->{{3.8019136729997215`*^9, 3.8019136927904844`*^9}}, CellLabel->"In[25]:=",ExpressionUUID->"1fa17920-1764-40d6-807b-55a5dd1b9b58"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.8019136760720544`*^9, 3.80191369311525*^9}}, CellLabel->"Out[25]=",ExpressionUUID->"92f005fc-5a80-4044-9acc-e81b7178f30b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InverseCDF", "[", RowBox[{ RowBox[{"[", "]"}], ",", "0.025"}], "]"}]], "Input", CellChangeTimes->{{3.8019151041549644`*^9, 3.8019151044045973`*^9}},ExpressionUUID->"a2094958-6d99-45ee-a86a-\ 32489e1088ac"], Cell[BoxData["0.025`"], "Output", CellChangeTimes->{3.8019150998786287`*^9}, CellLabel->"Out[6]=",ExpressionUUID->"91b7eab4-da2b-4b09-9ad6-50053d97f131"] }, Open ]] }, Open ]] }, WindowSize->{1920, 988}, WindowMargins->{{-9, Automatic}, {Automatic, 0}}, Magnification:>1.3 Inherited, FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (2018\:5e743\:670828\ \:65e5)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 165, 3, 84, "Section",ExpressionUUID->"3dbf70c9-8a9b-4b1e-8126-1c8c75647130"], Cell[726, 25, 234, 4, 65, "Section",ExpressionUUID->"7ece6b68-8253-4d0d-b103-6d50b72f2147"], Cell[963, 31, 231, 4, 65, "Section",ExpressionUUID->"8fcb3fc4-79d7-4d74-92f0-1d8462f14596"], Cell[CellGroupData[{ Cell[1219, 39, 243, 4, 65, "Section",ExpressionUUID->"fd53b62b-9045-41cc-97b0-c15f6d21058d"], Cell[CellGroupData[{ Cell[1487, 47, 15546, 346, 2542, "Input",ExpressionUUID->"a733c0f0-f7f0-4aaf-94ea-05fa1d65e7c0"], Cell[CellGroupData[{ Cell[17058, 397, 227, 7, 133, "Echo",ExpressionUUID->"74b7b501-8605-48e7-be85-99047cb3f780"], Cell[17288, 406, 208, 6, 87, "Echo",ExpressionUUID->"2529b9d6-317f-42f9-9c1f-fd52ab025add"], Cell[17499, 414, 188, 6, 87, "Echo",ExpressionUUID->"e9203d4e-0f0d-486e-a4bb-04f415272062"], Cell[17690, 422, 201, 6, 87, "Echo",ExpressionUUID->"37791dd5-81e8-419e-9346-54ca1d8296a1"], Cell[17894, 430, 197, 4, 87, "Echo",ExpressionUUID->"6880e6e1-3876-4f1a-8276-0f3a4449dbe2"], Cell[18094, 436, 361, 12, 187, "Echo",ExpressionUUID->"c3043d3a-1ad0-47e9-9e17-2a465962a225"], Cell[18458, 450, 148, 3, 87, "Echo",ExpressionUUID->"2cd4a40e-c9cf-44fa-8666-f61d1285ba9a"], Cell[18609, 455, 199, 4, 87, "Echo",ExpressionUUID->"f85ddc0a-4a25-4d2c-ad86-dd5e38101098"], Cell[18811, 461, 229, 7, 133, "Echo",ExpressionUUID->"408e9d92-374e-4267-99fe-3c970cff4d3c"], Cell[19043, 470, 208, 6, 87, "Echo",ExpressionUUID->"10a48e61-7c37-4c63-a13a-1cd18f906919"], Cell[19254, 478, 188, 6, 87, "Echo",ExpressionUUID->"24aaeb3a-eeed-4108-a11c-9f3640f7623e"], Cell[19445, 486, 203, 6, 87, "Echo",ExpressionUUID->"8202daac-0570-4732-8199-d6c9472f7cf3"], Cell[19651, 494, 214, 7, 133, "Echo",ExpressionUUID->"92a46162-ef7b-4713-bc40-9fea80f41786"], Cell[19868, 503, 195, 4, 87, "Echo",ExpressionUUID->"81e09cdd-5f80-4909-b9e7-d06b916184fd"], Cell[20066, 509, 360, 12, 192, "Echo",ExpressionUUID->"7dbc660c-5a6d-40c7-99bb-5424851d5a54"], Cell[20429, 523, 255, 6, 87, "Echo",ExpressionUUID->"f2c13f12-5c11-4851-9e07-2063b05c7ebe"], Cell[20687, 531, 199, 4, 87, "Echo",ExpressionUUID->"e8696ed3-38b9-47f6-a8d6-8579e74eb93a"], Cell[20889, 537, 227, 7, 133, "Echo",ExpressionUUID->"43205e13-5a83-4010-bc12-71f1c24efbf1"], Cell[21119, 546, 206, 6, 87, "Echo",ExpressionUUID->"05484587-d5fa-4b3c-98c3-e6b5e4845e35"], Cell[21328, 554, 190, 6, 87, "Echo",ExpressionUUID->"247494d9-a09b-4466-8660-474ba51fdb6e"], Cell[21521, 562, 201, 6, 87, "Echo",ExpressionUUID->"147d2e31-b254-4b7a-9e23-9311d29afccd"], Cell[21725, 570, 197, 4, 87, "Echo",ExpressionUUID->"84b537f3-6acd-4351-aedf-09f4698d8cfc"], Cell[21925, 576, 212, 7, 133, "Echo",ExpressionUUID->"dd4f8df7-1787-49e8-9e01-f199f2caec75"], Cell[22140, 585, 361, 12, 187, "Echo",ExpressionUUID->"9e6bb887-f495-44a8-b479-c05a22bc0138"], Cell[22504, 599, 146, 3, 87, "Echo",ExpressionUUID->"368ddd6d-eba5-4ba2-8a30-e65f7f8c90a5"], Cell[22653, 604, 194, 3, 87, "Echo",ExpressionUUID->"eb9e8432-98cf-4bcd-a591-4ca9ae35305d"], Cell[22850, 609, 227, 7, 133, "Echo",ExpressionUUID->"dc1dd873-82bc-4164-878c-e822accb4a53"], Cell[23080, 618, 208, 6, 87, "Echo",ExpressionUUID->"b3964700-229a-439d-ae4a-22ae3f2aca9d"], Cell[23291, 626, 190, 6, 87, "Echo",ExpressionUUID->"8a67b85f-c539-4c93-bfa8-70d40170cbc9"], Cell[23484, 634, 201, 6, 87, "Echo",ExpressionUUID->"dea91cb5-daf0-4461-a5f3-c6e0fe552337"], Cell[23688, 642, 214, 7, 133, "Echo",ExpressionUUID->"5215b78b-e6d0-4e10-9820-5bf75b32920b"], Cell[23905, 651, 195, 4, 87, "Echo",ExpressionUUID->"ad3659ee-c7b9-4137-9bf1-042cb0212a89"], Cell[24103, 657, 358, 12, 192, "Echo",ExpressionUUID->"65c36c91-7bca-40b7-bc1f-afc6a67a0655"], Cell[24464, 671, 255, 6, 87, "Echo",ExpressionUUID->"8300c1d7-950d-4c53-af3e-46450f69c258"], Cell[24722, 679, 199, 4, 87, "Echo",ExpressionUUID->"13131f8a-f978-4213-9283-b863168b0b5e"] }, Open ]] }, Open ]], Cell[24948, 687, 212, 3, 104, "Input",ExpressionUUID->"ebe11f6d-4962-4bb8-b61f-e100a7430dd1"], Cell[CellGroupData[{ Cell[25185, 694, 299, 7, 162, "Input",ExpressionUUID->"1fa17920-1764-40d6-807b-55a5dd1b9b58"], Cell[25487, 703, 177, 2, 121, "Output",ExpressionUUID->"92f005fc-5a80-4044-9acc-e81b7178f30b"] }, Open ]], Cell[CellGroupData[{ Cell[25701, 710, 239, 6, 162, "Input",ExpressionUUID->"a2094958-6d99-45ee-a86a-32489e1088ac"], Cell[25943, 718, 155, 2, 121, "Output",ExpressionUUID->"91b7eab4-da2b-4b09-9ad6-50053d97f131"] }, Open ]] }, Open ]] } ] *)