(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 58052, 1562] NotebookOptionsPosition[ 49532, 1410] NotebookOutlinePosition[ 49875, 1425] CellTagsIndexPosition[ 49832, 1422] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{"<<", "HypothesisTesting`"}]], "Input", CellChangeTimes->{{3.8231745214451356`*^9, 3.8231745283236623`*^9}}, CellLabel-> "In[176]:=",ExpressionUUID->"90077e97-61a9-4ff1-bae4-6d175d0c5d52"], Cell[CellGroupData[{ Cell["p\[RHacek]\[IAcute]klad 1 (kvantily N(0;1))", "Subsection", CellChangeTimes->{ 3.4001725269375*^9, {3.400172573921875*^9, 3.40017258175*^9}},ExpressionUUID->"dbc0e7a0-0b28-4ece-8576-9020b7a4f9df"], Cell[BoxData[{ RowBox[{ RowBox[{"zdist", "=", RowBox[{"NormalDistribution", "[", RowBox[{"0", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"data", "=", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"#", ",", RowBox[{ RowBox[{"(", RowBox[{"100", "-", "#"}], ")"}], "/", "100"}], ",", RowBox[{ RowBox[{"(", RowBox[{"100", "-", "#"}], ")"}], "/", "200"}], ",", RowBox[{"Quantile", "[", RowBox[{"zdist", ",", RowBox[{ RowBox[{"(", RowBox[{"100", "+", "#"}], ")"}], "/", "200"}]}], "]"}]}], "}"}], "&"}], ",", RowBox[{"{", RowBox[{ "90", ",", "95", ",", "99", ",", "99.9", ",", "99.99", ",", "99.999"}], "}"}]}], "]"}], "//", "N"}]}], ";"}]}], "Input", CellChangeTimes->{{3.400172588953125*^9, 3.40017258940625*^9}, { 3.823174339530772*^9, 3.823174368872057*^9}}, CellLabel-> "In[177]:=",ExpressionUUID->"dbc21642-eb84-4e3e-84e4-6619f26106f7"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TableForm", "[", RowBox[{"data", ",", RowBox[{"TableHeadings", "->", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\[Alpha]", ",", RowBox[{"\[Alpha]", "/", "2"}], ",", SubscriptBox["z", RowBox[{"\[Alpha]", "/", "2"}]]}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.4001725940625*^9, 3.400172620125*^9}}, CellLabel-> "In[179]:=",ExpressionUUID->"042ebbf4-d3f1-4d79-b6f8-f0de1bf17824"], Cell[BoxData[ TagBox[ TagBox[GridBox[{ { StyleBox["\[Null]", ShowStringCharacters->False], TagBox["\<\"Hladina v\[YAcute]znamnosti\"\>", HoldForm], TagBox["\[Alpha]", HoldForm], TagBox[ FractionBox["\[Alpha]", "2"], HoldForm], TagBox[ SubscriptBox["1.6448536269514722`", FractionBox["\[Alpha]", "2"]], HoldForm]}, { TagBox[ StyleBox["\<\"\[Null]\"\>", ShowStringCharacters->False], StyleForm[#, ShowStringCharacters -> False]& ], "90.`", "0.1`", "0.05`", "1.6448536269514724`"}, { TagBox[ StyleBox["\<\"\[Null]\"\>", ShowStringCharacters->False], StyleForm[#, ShowStringCharacters -> False]& ], "95.`", "0.05`", "0.025`", "1.9599639845400545`"}, { TagBox[ StyleBox["\<\"\[Null]\"\>", ShowStringCharacters->False], StyleForm[#, ShowStringCharacters -> False]& ], "99.`", "0.01`", "0.005`", "2.5758293035489`"}, { TagBox[ StyleBox["\<\"\[Null]\"\>", ShowStringCharacters->False], StyleForm[#, ShowStringCharacters -> False]& ], "99.9`", "0.0009999999999999432`", "0.0004999999999999716`", "3.2905267314919255`"}, { TagBox[ StyleBox["\<\"\[Null]\"\>", ShowStringCharacters->False], StyleForm[#, ShowStringCharacters -> False]& ], "99.99`", "0.00010000000000005117`", "0.00005000000000002558`", "3.8905918864136595`"}, { TagBox[ StyleBox["\<\"\[Null]\"\>", ShowStringCharacters->False], StyleForm[#, ShowStringCharacters -> False]& ], "99.999`", "0.000010000000000047748`", "5.000000000023874`*^-6", "4.417173413467605`"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {False, True, {False}, False}, "ColumnsIndexed" -> {}, "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], {OutputFormsDump`HeadedRows, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableHeadings -> {{}, { "Hladina v\[YAcute]znamnosti", $CellContext`\[Alpha], Rational[1, 2] $CellContext`\[Alpha], Subscript[ 1.6448536269514722`, Rational[1, 2] $CellContext`\[Alpha]]}}]]]], "Output", CellChangeTimes->{3.400172387828125*^9, 3.793466573791719*^9, 3.79424440316087*^9, 3.823174377712323*^9, 3.823189047818198*^9}, CellLabel-> "Out[179]//TableForm=",ExpressionUUID->"c56b622e-3b0a-48ae-9bca-\ a7fb732849e4"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["p\[RHacek]\[IAcute]klad 2 (Studentovo t rozd\[EHacek]len\[IAcute])", \ "Subsection", CellChangeTimes->{ 3.400172526953125*^9, {3.40169119646875*^9, 3.4016912030625*^9}},ExpressionUUID->"0fa1828b-92f9-4483-8138-\ 358a4df1d01d"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"tvals", "[", "n_", "]"}], ":=", RowBox[{ RowBox[{"{", RowBox[{"n", ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Quantile", "[", RowBox[{ RowBox[{"StudentTDistribution", "[", "n", "]"}], ",", RowBox[{"1", "-", "#"}]}], "]"}], "&"}], ",", RowBox[{"{", RowBox[{ ".1", ",", ".05", ",", ".025", ",", ".01", ",", ".005", ",", ".001", ",", ".0005"}], "}"}]}], "]"}]}], "}"}], "//", "Flatten"}]}], ";"}]], "Input", CellLabel-> "In[180]:=",ExpressionUUID->"536f49c0-9365-448d-ac72-86ad5a8dd1fb"], Cell[BoxData[ RowBox[{ RowBox[{"commonvalues", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"tvals", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "15"}], "}"}]}], "]"}]}], ";"}]], "Input", CellLabel-> "In[181]:=",ExpressionUUID->"591f04a0-2859-4850-82ad-e029987bd775"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TableForm", "[", RowBox[{"commonvalues", ",", RowBox[{"TableHeadings", "->", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", SubscriptBox["t", ".1"], ",", SubscriptBox["t", ".05"], ",", SubscriptBox["t", ".025"], ",", SubscriptBox["t", ".01"], ",", SubscriptBox["t", ".005"], ",", SubscriptBox["t", ".001"], ",", SubscriptBox["t", ".0005"]}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.401691341640625*^9, 3.4016913455*^9}}, CellLabel-> "In[182]:=",ExpressionUUID->"e586afca-4067-4e84-815a-20e664f77ca1"], Cell[BoxData[ TagBox[ TagBox[GridBox[{ { StyleBox["\[Null]", ShowStringCharacters->False], TagBox["\<\"Stupn\[EHacek] volnosti\"\>", HoldForm], TagBox[ SubscriptBox["1.6810707032025225`", "0.1`"], HoldForm], TagBox[ SubscriptBox["1.6810707032025225`", "0.05`"], HoldForm], TagBox[ SubscriptBox["1.6810707032025225`", "0.025`"], HoldForm], TagBox[ SubscriptBox["1.6810707032025225`", "0.01`"], HoldForm], TagBox[ SubscriptBox["1.6810707032025225`", "0.005`"], HoldForm], TagBox[ SubscriptBox["1.6810707032025225`", "0.001`"], HoldForm], TagBox[ SubscriptBox["1.6810707032025225`", "0.0005`"], HoldForm]}, { TagBox[ StyleBox["\<\"\[Null]\"\>", ShowStringCharacters->False], StyleForm[#, ShowStringCharacters -> False]& ], "1", "3.077683537175255`", "6.313751514675033`", "12.706204736174692`", "31.82051595377394`", "63.656741162871526`", "318.30883898555015`", "636.6192487687896`"}, { TagBox[ StyleBox["\<\"\[Null]\"\>", ShowStringCharacters->False], StyleForm[#, ShowStringCharacters -> False]& ], "2", "1.8856180831641274`", "2.9199855803537242`", "4.302652729749464`", "6.964556734283267`", "9.924843200918286`", "22.327124770119877`", "31.599054576445596`"}, { TagBox[ StyleBox["\<\"\[Null]\"\>", ShowStringCharacters->False], StyleForm[#, ShowStringCharacters -> False]& ], "3", "1.6377443536962102`", "2.353363434801823`", "3.182446305283707`", "4.540702858568131`", "5.840909309733355`", "10.214531852407383`", "12.923978636687963`"}, { TagBox[ StyleBox["\<\"\[Null]\"\>", ShowStringCharacters->False], StyleForm[#, ShowStringCharacters -> False]& ], "4", "1.533206274058942`", "2.1318467863266504`", "2.7764451051977934`", "3.746947387979196`", "4.604094871349992`", "7.173182219782307`", "8.610301581379524`"}, { TagBox[ StyleBox["\<\"\[Null]\"\>", ShowStringCharacters->False], StyleForm[#, ShowStringCharacters -> False]& ], "5", "1.4758840488244815`", "2.0150483733330247`", "2.570581835636314`", "3.3649299989072183`", "4.032142983555227`", "5.893429531356009`", "6.868826625881276`"}, { TagBox[ StyleBox["\<\"\[Null]\"\>", ShowStringCharacters->False], StyleForm[#, ShowStringCharacters -> False]& ], "6", "1.439755747265146`", "1.9431802805153022`", "2.446911851144969`", "3.1426684032909815`", "3.707428021324779`", "5.2076262387253625`", "5.958816178818884`"}, { TagBox[ StyleBox["\<\"\[Null]\"\>", ShowStringCharacters->False], StyleForm[#, ShowStringCharacters -> False]& ], "7", "1.4149239276505097`", "1.8945786050900069`", "2.3646242515927844`", "2.99795156686853`", "3.4994832973504932`", "4.785289628638333`", "5.407882520861828`"}, { TagBox[ StyleBox["\<\"\[Null]\"\>", ShowStringCharacters->False], StyleForm[#, ShowStringCharacters -> False]& ], "8", "1.396815309743865`", "1.8595480375308961`", "2.306004135204168`", "2.896459447709618`", "3.3553873313333953`", "4.500790933723724`", "5.041305433373457`"}, { TagBox[ StyleBox["\<\"\[Null]\"\>", ShowStringCharacters->False], StyleForm[#, ShowStringCharacters -> False]& ], "9", "1.3830287383966318`", "1.8331129326562356`", "2.262157162798205`", "2.8214379250258093`", "3.249835541592125`", "4.296805662729918`", "4.780912585931217`"}, { TagBox[ StyleBox["\<\"\[Null]\"\>", ShowStringCharacters->False], StyleForm[#, ShowStringCharacters -> False]& ], "10", "1.3721836411103345`", "1.8124611228116754`", "2.2281388519862744`", "2.7637694581126953`", "3.1692726726169576`", "4.1437004940465885`", "4.586893858702645`"}, { TagBox[ StyleBox["\<\"\[Null]\"\>", ShowStringCharacters->False], StyleForm[#, ShowStringCharacters -> False]& ], "11", "1.36343031802054`", "1.7958848187040413`", "2.200985160091639`", "2.718079183813863`", "3.1058065155392813`", "4.024701037630747`", "4.436979338234545`"}, { TagBox[ StyleBox["\<\"\[Null]\"\>", ShowStringCharacters->False], StyleForm[#, ShowStringCharacters -> False]& ], "12", "1.3562173340232047`", "1.7822875556493176`", "2.1788128296672276`", "2.680997993120916`", "3.054539589392901`", "3.929633264626483`", "4.3177912836061685`"}, { TagBox[ StyleBox["\<\"\[Null]\"\>", ShowStringCharacters->False], StyleForm[#, ShowStringCharacters -> False]& ], "13", "1.3501712887800574`", "1.7709333959868712`", "2.1603686564627913`", "2.650308837912191`", "3.0122758387165813`", "3.851982391168364`", "4.220831727707158`"}, { TagBox[ StyleBox["\<\"\[Null]\"\>", ShowStringCharacters->False], StyleForm[#, ShowStringCharacters -> False]& ], "14", "1.3450303744546495`", "1.7613101357748895`", "2.1447866879178026`", "2.6244940675900494`", "2.976842734370837`", "3.7873902375233675`", "4.14045411273823`"}, { TagBox[ StyleBox["\<\"\[Null]\"\>", ShowStringCharacters->False], StyleForm[#, ShowStringCharacters -> False]& ], "15", "1.3406056078504573`", "1.7530503556925723`", "2.131449545559774`", "2.6024802950111208`", "2.9467128834752363`", "3.732834425310907`", "4.07276519590382`"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {False, True, {False}, False}, "ColumnsIndexed" -> {}, "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], {OutputFormsDump`HeadedRows, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[BoxForm`e$, TableHeadings -> {{}, {"Stupn\[EHacek] volnosti", Subscript[1.6810707032025225`, 0.1], Subscript[1.6810707032025225`, 0.05], Subscript[1.6810707032025225`, 0.025], Subscript[1.6810707032025225`, 0.01], Subscript[1.6810707032025225`, 0.005], Subscript[1.6810707032025225`, 0.001], Subscript[1.6810707032025225`, 0.0005]}}]]]], "Output", CellChangeTimes->{3.7934665740053625`*^9, 3.7942444033045983`*^9, 3.8231744058637104`*^9, 3.8231890480027695`*^9}, CellLabel-> "Out[182]//TableForm=",ExpressionUUID->"6717f8e5-8a96-4154-b4dd-\ 5a8c5a230ec0"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["p\[RHacek]\[IAcute]klad 3 (stupne)", "Subsection", CellChangeTimes->{3.400172526953125*^9, 3.401691258046875*^9},ExpressionUUID->"ead8f71c-405e-40e6-8aa8-\ d74d13b247e8"], Cell[BoxData[ RowBox[{ RowBox[{"stupne", "=", RowBox[{"{", RowBox[{ "85", ",", "94.5", ",", "76.7", ",", "79.2", ",", "83", ",", "80.2", ",", "68.7", ",", "89.1", ",", "74.1", ",", "87.8", ",", "44.9", ",", "77.6", ",", "85.1", ",", "75.7", ",", "81.5", ",", "66.2", ",", "83.4", ",", "79.8", ",", "94", ",", "91.8", ",", "96.3", ",", "73.5", ",", "82.2", ",", "76.1", ",", "78.5", ",", "69.1", ",", "75.4", ",", "71.7", ",", "78.2", ",", "77.7", ",", "88.7", ",", "79.9", ",", "86.1", ",", "63.8", ",", "78.7", ",", "82.6", ",", "98.6", ",", "81.3", ",", "63.4", ",", "76.6", ",", "84.2", ",", "89.7", ",", "87.7", ",", "54.6"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.401691221328125*^9, 3.4016912230625*^9}}, CellLabel-> "In[183]:=",ExpressionUUID->"08c8c3bd-ea4f-4a63-99df-5b8ae463b7fe"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"n", "=", RowBox[{"Length", "[", "stupne", "]"}]}], "\n", RowBox[{"m", "=", RowBox[{"Mean", "[", "stupne", "]"}]}]}], "Input", CellChangeTimes->{{3.40169122590625*^9, 3.401691231515625*^9}}, CellLabel-> "In[184]:=",ExpressionUUID->"897dbb0f-a02a-47bd-917d-6a0c5cdda407"], Cell[BoxData["44"], "Output", CellChangeTimes->{3.7934665741745763`*^9, 3.7942444033776617`*^9, 3.8231744246360383`*^9, 3.823189048091509*^9}, CellLabel-> "Out[184]=",ExpressionUUID->"8d632925-2471-4ce5-bbd1-ab00959afd04"], Cell[BoxData["79.38409090909092`"], "Output", CellChangeTimes->{3.7934665741745763`*^9, 3.7942444033776617`*^9, 3.8231744246360383`*^9, 3.823189048097541*^9}, CellLabel-> "Out[185]=",ExpressionUUID->"7d83aa76-e124-4368-b4ad-13bf2454ae33"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"z", "=", RowBox[{"Quantile", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"0", ",", "1"}], "]"}], ",", ".95"}], "]"}]}]], "Input", CellLabel-> "In[186]:=",ExpressionUUID->"4ef35a24-3938-443b-bbd6-237b6332f326"], Cell[BoxData["1.6448536269514722`"], "Output", CellChangeTimes->{3.7934665742147207`*^9, 3.794244403423826*^9, 3.823174430015709*^9, 3.8231890481444235`*^9}, CellLabel-> "Out[186]=",ExpressionUUID->"1c15002a-42d0-450b-98a0-d52ebfb0f7d6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"m", "-", RowBox[{"z", RowBox[{ RowBox[{"(", "10.5", ")"}], "/", RowBox[{"Sqrt", "[", "n", "]"}]}]}]}], "\n", RowBox[{"m", "+", RowBox[{"z", RowBox[{ RowBox[{"(", "10.5", ")"}], "/", RowBox[{"Sqrt", "[", "n", "]"}]}]}]}]}], "Input", CellLabel-> "In[187]:=",ExpressionUUID->"2447abdd-7714-41cd-8d18-2802fb32f0b0"], Cell[BoxData["76.78039525843823`"], "Output", CellChangeTimes->{3.7934665742509017`*^9, 3.794244403462648*^9, 3.8231744362576103`*^9, 3.8231890481942625`*^9}, CellLabel-> "Out[187]=",ExpressionUUID->"c1f36242-b320-47bb-9ef5-7f7f80902ba7"], Cell[BoxData["81.9877865597436`"], "Output", CellChangeTimes->{3.7934665742509017`*^9, 3.794244403462648*^9, 3.8231744362576103`*^9, 3.8231890482012434`*^9}, CellLabel-> "Out[188]=",ExpressionUUID->"2683e5d7-d6d4-44e4-bb2a-9cbe1575b1ec"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NormalCI", "[", RowBox[{"79.3841", ",", RowBox[{ RowBox[{"(", "10.5", ")"}], "/", RowBox[{"Sqrt", "[", "44", "]"}]}], ",", RowBox[{"ConfidenceLevel", "->", ".90"}]}], "]"}]], "Input", CellChangeTimes->{ 3.40169160553125*^9, {3.793466865931224*^9, 3.793466869971446*^9}}, CellLabel-> "In[189]:=",ExpressionUUID->"f227bda0-9bf2-44cc-8ed2-a819d8ba90f2"], Cell[BoxData[ RowBox[{"{", RowBox[{"76.78040434934732`", ",", "81.98779565065269`"}], "}"}]], "Output", CellChangeTimes->{3.7934665742900267`*^9, 3.793467026726062*^9, 3.794244403518323*^9, 3.7942451525111656`*^9, 3.823174442742523*^9, 3.823174537304509*^9, 3.823189048249136*^9}, CellLabel-> "Out[189]=",ExpressionUUID->"26fb9a40-72f2-4810-84c6-b4c27f5efeb5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MeanCI", "[", RowBox[{"stupne", ",", RowBox[{"KnownVariance", "->", "10.5"}], ",", RowBox[{"ConfidenceLevel", "->", ".90"}]}], "]"}]], "Input", CellChangeTimes->{3.401691257765625*^9, 3.40169160553125*^9, 3.79346682823063*^9, 3.793466909420782*^9, 3.793467017095498*^9}, CellLabel-> "In[190]:=",ExpressionUUID->"18fdaffd-d02d-4c5a-87c0-541684db2f56"], Cell[BoxData[ RowBox[{"{", RowBox[{"78.58057298673604`", ",", "80.18760883144579`"}], "}"}]], "Output", CellChangeTimes->{3.7934665743211575`*^9, 3.793467023743308*^9, 3.794244403562871*^9, 3.794245158525242*^9, 3.82317454108076*^9, 3.8231890482999754`*^9}, CellLabel-> "Out[190]=",ExpressionUUID->"6f980ec4-6ebb-48e2-920f-81a2eb1c360e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MeanCI", "[", RowBox[{"stupne", ",", RowBox[{"KnownVariance", "->", "10.5"}]}], "]"}]], "Input", CellChangeTimes->{3.401691257765625*^9, 3.7934670134105806`*^9}, CellLabel-> "In[191]:=",ExpressionUUID->"d16e3ef1-6486-4d69-bbef-abb266aa8e9d"], Cell[BoxData[ RowBox[{"{", RowBox[{"78.42664025029471`", ",", "80.34154156788712`"}], "}"}]], "Output", CellChangeTimes->{3.7934665743694906`*^9, 3.794244403603208*^9, 3.7942451661353335`*^9, 3.8231745457656116`*^9, 3.8231890483587837`*^9}, CellLabel-> "Out[191]=",ExpressionUUID->"70a2442c-d65c-4921-98e1-96329e00fb8a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MeanCI", "[", RowBox[{"stupne", ",", RowBox[{"KnownVariance", "->", "10.5"}], ",", RowBox[{"ConfidenceLevel", "->", ".99"}]}], "]"}]], "Input", CellChangeTimes->{3.40169125778125*^9, 3.40169160553125*^9, 3.7934668282409267`*^9, 3.793466909420782*^9, 3.7934670134105806`*^9}, CellLabel-> "In[192]:=",ExpressionUUID->"49e6e169-5b3d-4140-8377-0be3d7bbc55e"], Cell[BoxData[ RowBox[{"{", RowBox[{"78.1257874488831`", ",", "80.64239436929873`"}], "}"}]], "Output", CellChangeTimes->{3.7934665744026794`*^9, 3.7942444036510005`*^9, 3.7942451715350876`*^9, 3.8231745501733513`*^9, 3.8231890484066935`*^9}, CellLabel-> "Out[192]=",ExpressionUUID->"9948b874-fd0f-4d88-9763-1afa9d8b3eb8"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["p\[RHacek]\[IAcute]klad 4 (stupne)", "Subsection", CellChangeTimes->{3.40017252696875*^9, 3.40169125778125*^9},ExpressionUUID->"b7686812-4e06-4cf4-9c40-2eddf113a085"], Cell[BoxData[ RowBox[{ RowBox[{"stupne", "=", RowBox[{"{", RowBox[{ "85", ",", "94.5", ",", "76.7", ",", "79.2", ",", "83", ",", "80.2", ",", "68.7", ",", "89.1", ",", "74.1", ",", "87.8", ",", "44.9", ",", "77.6", ",", "85.1", ",", "75.7", ",", "81.5", ",", "66.2", ",", "83.4", ",", "79.8", ",", "94", ",", "91.8", ",", "96.3", ",", "73.5", ",", "82.2", ",", "76.1", ",", "78.5", ",", "69.1", ",", "75.4", ",", "71.7", ",", "78.2", ",", "77.7", ",", "88.7", ",", "79.9", ",", "86.1", ",", "63.8", ",", "78.7", ",", "82.6", ",", "98.6", ",", "81.3", ",", "63.4", ",", "76.6", ",", "84.2", ",", "89.7", ",", "87.7", ",", "54.6"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{3.401691257796875*^9}, CellLabel-> "In[193]:=",ExpressionUUID->"069ac3b7-d10b-49c7-bd91-5f01235e8ff0"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"n", "=", RowBox[{"Length", "[", "stupne", "]"}]}], "\n", RowBox[{"m", "=", RowBox[{"Mean", "[", "stupne", "]"}]}], "\n", RowBox[{"sig", "=", RowBox[{"StandardDeviation", "[", "stupne", "]"}]}]}], "Input", CellChangeTimes->{{3.401691257796875*^9, 3.4016912578125*^9}}, CellLabel-> "In[194]:=",ExpressionUUID->"0c8a2e08-b1c9-45be-88d8-d4bff19c6d87"], Cell[BoxData["44"], "Output", CellChangeTimes->{3.793466574512168*^9, 3.794244403723814*^9, 3.8231745688561554`*^9, 3.823189048498526*^9}, CellLabel-> "Out[194]=",ExpressionUUID->"0deb8e2f-31d2-4fab-b8fb-64f07d79ccd8"], Cell[BoxData["79.38409090909092`"], "Output", CellChangeTimes->{3.793466574512168*^9, 3.794244403723814*^9, 3.8231745688561554`*^9, 3.8231890485045166`*^9}, CellLabel-> "Out[195]=",ExpressionUUID->"020b5853-dc4f-4765-b0a7-09441538fbb9"], Cell[BoxData["10.50963994209476`"], "Output", CellChangeTimes->{3.793466574512168*^9, 3.794244403723814*^9, 3.8231745688561554`*^9, 3.823189048510498*^9}, CellLabel-> "Out[196]=",ExpressionUUID->"ba3fa674-98dc-4d17-add3-48b428c4628d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t", "=", RowBox[{"Quantile", "[", RowBox[{ RowBox[{"StudentTDistribution", "[", "43", "]"}], ",", ".95"}], "]"}]}]], "Input", CellLabel-> "In[197]:=",ExpressionUUID->"bab2a037-ed95-4efe-897d-e9979fe7626a"], Cell[BoxData["1.6810707032025225`"], "Output", CellChangeTimes->{3.793466574553803*^9, 3.7942444037709975`*^9, 3.823174572423501*^9, 3.823189048561305*^9}, CellLabel-> "Out[197]=",ExpressionUUID->"3ecdca05-0960-418a-b8bf-5dbc5f3de9d0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"m", "-", RowBox[{"t", " ", RowBox[{"sig", "/", RowBox[{"Sqrt", "[", "n", "]"}]}]}]}], "\n", RowBox[{"m", "+", RowBox[{"t", " ", RowBox[{"sig", "/", RowBox[{"Sqrt", "[", "n", "]"}]}]}]}]}], "Input", CellLabel-> "In[198]:=",ExpressionUUID->"d8d2d5c6-9d1a-4dd0-80f1-c18d98890ac6"], Cell[BoxData["76.72062293718787`"], "Output", CellChangeTimes->{3.793466574597926*^9, 3.7942444038181114`*^9, 3.823174577668709*^9, 3.823189048644124*^9}, CellLabel-> "Out[198]=",ExpressionUUID->"00ae981c-6c82-4076-91ea-15c49741267f"], Cell[BoxData["82.04755888099396`"], "Output", CellChangeTimes->{3.793466574597926*^9, 3.7942444038181114`*^9, 3.823174577668709*^9, 3.8231890486501303`*^9}, CellLabel-> "Out[199]=",ExpressionUUID->"06ec0ea5-9d35-4c65-bce1-86417c6940e0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"StudentTCI", "[", RowBox[{"79.3841", ",", "1.58439", ",", "43", ",", RowBox[{"ConfidenceLevel", "->", "0.90"}]}], "]"}]], "Input", CellChangeTimes->{3.401691605546875*^9, 3.7934668282809353`*^9, 3.793466909420782*^9}, CellLabel-> "In[200]:=",ExpressionUUID->"656d7f2d-7b4f-4211-82f1-a667f09a4538"], Cell[BoxData[ RowBox[{"{", RowBox[{"76.72062838855295`", ",", "82.04757161144705`"}], "}"}]], "Output", CellChangeTimes->{3.793466574670946*^9, 3.7942444038603563`*^9, 3.7942451806635633`*^9, 3.82317458215359*^9, 3.823189048696004*^9}, CellLabel-> "Out[200]=",ExpressionUUID->"81275059-dd3a-45a2-be3f-f6792038a687"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MeanCI", "[", RowBox[{"stupne", ",", RowBox[{"ConfidenceLevel", "->", "0.90"}]}], "]"}]], "Input", CellChangeTimes->{3.4016912578125*^9, 3.401691605546875*^9, 3.7934668282809353`*^9, 3.7934669094306383`*^9}, CellLabel-> "In[201]:=",ExpressionUUID->"c43dc6db-c6b7-4eca-99eb-d02df5a85932"], Cell[BoxData[ RowBox[{"{", RowBox[{"76.72062293718787`", ",", "82.04755888099396`"}], "}"}]], "Output", CellChangeTimes->{3.7934665747124586`*^9, 3.7942444038978868`*^9, 3.794245184793537*^9, 3.823174585657338*^9, 3.823189048742896*^9}, CellLabel-> "Out[201]=",ExpressionUUID->"5ab1b15b-a538-421e-9981-f1d17e1c0471"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MeanCI", "[", "stupne", "]"}]], "Input", CellChangeTimes->{3.4016912578125*^9}, CellLabel-> "In[202]:=",ExpressionUUID->"b7a5275a-7545-492a-8d33-58796aaa9fb8"], Cell[BoxData[ RowBox[{"{", RowBox[{"76.18886832172605`", ",", "82.57931349645578`"}], "}"}]], "Output", CellChangeTimes->{3.7934665748111873`*^9, 3.7942444039372654`*^9, 3.7942451894118457`*^9, 3.823174591952545*^9, 3.8231890487897344`*^9}, CellLabel-> "Out[202]=",ExpressionUUID->"fe5e6a94-3141-4915-8581-8afc0d985baf"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MeanCI", "[", RowBox[{"stupne", ",", RowBox[{"ConfidenceLevel", "->", "0.99"}]}], "]"}]], "Input", CellChangeTimes->{3.401691257828125*^9, 3.401691605546875*^9, 3.7934668282809353`*^9, 3.7934669094306383`*^9}, CellLabel-> "In[203]:=",ExpressionUUID->"9d229fef-fcd6-4db1-a058-093cc2166a7f"], Cell[BoxData[ RowBox[{"{", RowBox[{"75.11400396083185`", ",", "83.65417785734998`"}], "}"}]], "Output", CellChangeTimes->{3.7934665748488398`*^9, 3.794244403982917*^9, 3.794245192411415*^9, 3.823174596408017*^9, 3.8231890488376255`*^9}, CellLabel-> "Out[203]=",ExpressionUUID->"141067ac-491c-4ac7-8e81-5611e5d6a83d"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["p\[RHacek]\[IAcute]klad 5 (Chi-kvadr\[AAcute]t )", "Subsection", CellChangeTimes->{ 3.400172526984375*^9, {3.401691277265625*^9, 3.401691283671875*^9}},ExpressionUUID->"5f4354ff-21f1-4219-b937-\ d230e3ba2b77"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"cvals", "[", "n_", "]"}], ":=", RowBox[{ RowBox[{"{", RowBox[{"n", ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Quantile", "[", RowBox[{ RowBox[{"ChiSquareDistribution", "[", "n", "]"}], ",", "#"}], "]"}], "&"}], ",", RowBox[{"{", RowBox[{".005", ",", ".01", ",", ".025", ",", ".05", ",", ".1"}], "}"}]}], "]"}]}], "}"}], "//", "Flatten"}]}], ";"}]], "Input", CellLabel-> "In[204]:=",ExpressionUUID->"18a894b1-55b0-4b7b-ad47-79dede1de20a"], Cell[BoxData[ RowBox[{ RowBox[{"commonvalues", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"cvals", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "15"}], "}"}]}], "]"}]}], ";"}]], "Input", CellLabel-> "In[205]:=",ExpressionUUID->"2543e09c-f2ba-41d1-81db-49214c7f7537"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TableForm", "[", RowBox[{"commonvalues", ",", RowBox[{"TableHeadings", "->", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", SubsuperscriptBox["\[Chi]", ".995", "2"], ",", SubsuperscriptBox["\[Chi]", ".99", "2"], ",", SubsuperscriptBox["\[Chi]", ".975", "2"], ",", SubsuperscriptBox["\[Chi]", ".95", "2"], ",", SubsuperscriptBox["\[Chi]", ".9", "2"]}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.401691301390625*^9, 3.401691305703125*^9}}, CellLabel-> "In[206]:=",ExpressionUUID->"29d47820-3474-4c13-9d49-6762f4fb59d2"], Cell[BoxData[ TagBox[ TagBox[GridBox[{ { StyleBox["\[Null]", ShowStringCharacters->False], TagBox["\<\"Stupn\[EHacek] volnosti\"\>", HoldForm], TagBox[ SubsuperscriptBox["\[Chi]", "0.995`", "2"], HoldForm], TagBox[ SubsuperscriptBox["\[Chi]", "0.99`", "2"], HoldForm], TagBox[ SubsuperscriptBox["\[Chi]", "0.975`", "2"], HoldForm], TagBox[ SubsuperscriptBox["\[Chi]", "0.95`", "2"], HoldForm], TagBox[ SubsuperscriptBox["\[Chi]", "0.9`", "2"], HoldForm]}, { TagBox[ StyleBox["\<\"\[Null]\"\>", ShowStringCharacters->False], StyleForm[#, ShowStringCharacters -> False]& ], "1", "0.000039270422220515896`", "0.00015708785790970203`", "0.0009820691171752562`", "0.003932140000019523`", "0.01579077409343122`"}, { TagBox[ StyleBox["\<\"\[Null]\"\>", ShowStringCharacters->False], StyleForm[#, ShowStringCharacters -> False]& ], "2", "0.010025083647088573`", "0.0201006717070029`", "0.050635615968579795`", "0.10258658877510116`", "0.21072103131565256`"}, { TagBox[ StyleBox["\<\"\[Null]\"\>", ShowStringCharacters->False], StyleForm[#, ShowStringCharacters -> False]& ], "3", "0.07172177458649198`", "0.11483180189911703`", "0.21579528262389788`", "0.3518463177492715`", "0.5843743741551835`"}, { TagBox[ StyleBox["\<\"\[Null]\"\>", ShowStringCharacters->False], StyleForm[#, ShowStringCharacters -> False]& ], "4", "0.20698909349618208`", "0.2971094805065319`", "0.4844185570879299`", "0.7107230213973241`", "1.063623216779224`"}, { TagBox[ StyleBox["\<\"\[Null]\"\>", ShowStringCharacters->False], StyleForm[#, ShowStringCharacters -> False]& ], "5", "0.41174190383249887`", "0.5542980767282772`", "0.8312116134866625`", "1.145476226061769`", "1.6103079869623227`"}, { TagBox[ StyleBox["\<\"\[Null]\"\>", ShowStringCharacters->False], StyleForm[#, ShowStringCharacters -> False]& ], "6", "0.6757267774554667`", "0.8720903301565863`", "1.2373442457912025`", "1.6353828943279065`", "2.2041306564986427`"}, { TagBox[ StyleBox["\<\"\[Null]\"\>", ShowStringCharacters->False], StyleForm[#, ShowStringCharacters -> False]& ], "7", "0.9892556831329503`", "1.2390423055679298`", "1.689869180677355`", "2.167349909298057`", "2.8331069178153436`"}, { TagBox[ StyleBox["\<\"\[Null]\"\>", ShowStringCharacters->False], StyleForm[#, ShowStringCharacters -> False]& ], "8", "1.34441308701481`", "1.6464973726907703`", "2.1797307472526497`", "2.732636793499662`", "3.4895391256498227`"}, { TagBox[ StyleBox["\<\"\[Null]\"\>", ShowStringCharacters->False], StyleForm[#, ShowStringCharacters -> False]& ], "9", "1.7349329049966602`", "2.0879007358707273`", "2.700389499980358`", "3.325112843066815`", "4.168159008146107`"}, { TagBox[ StyleBox["\<\"\[Null]\"\>", ShowStringCharacters->False], StyleForm[#, ShowStringCharacters -> False]& ], "10", "2.155856481304639`", "2.5582121601872063`", "3.2469727802368413`", "3.94029913611906`", "4.865182051925329`"}, { TagBox[ StyleBox["\<\"\[Null]\"\>", ShowStringCharacters->False], StyleForm[#, ShowStringCharacters -> False]& ], "11", "2.6032218905151128`", "3.05348410664068`", "3.815748252236099`", "4.574813079322224`", "5.577784789799852`"}, { TagBox[ StyleBox["\<\"\[Null]\"\>", ShowStringCharacters->False], StyleForm[#, ShowStringCharacters -> False]& ], "12", "3.073823638089333`", "3.5705689706043917`", "4.4037885069817015`", "5.226029488392641`", "6.303796059584323`"}, { TagBox[ StyleBox["\<\"\[Null]\"\>", ShowStringCharacters->False], StyleForm[#, ShowStringCharacters -> False]& ], "13", "3.565034579729539`", "4.106915471504404`", "5.008750511810332`", "5.8918643377098485`", "7.041504580095463`"}, { TagBox[ StyleBox["\<\"\[Null]\"\>", ShowStringCharacters->False], StyleForm[#, ShowStringCharacters -> False]& ], "14", "4.074674957399342`", "4.660425062657768`", "5.628726103039732`", "6.570631383789343`", "7.78953360975237`"}, { TagBox[ StyleBox["\<\"\[Null]\"\>", ShowStringCharacters->False], StyleForm[#, ShowStringCharacters -> False]& ], "15", "4.60091557172734`", "5.229348884098958`", "6.262137795043251`", "7.260943927670031`", "8.546756241704545`"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {False, True, {False}, False}, "ColumnsIndexed" -> {}, "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], {OutputFormsDump`HeadedRows, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableHeadings -> {{}, { "Stupn\[EHacek] volnosti", Subscript[$CellContext`\[Chi], 0.995]^2, Subscript[$CellContext`\[Chi], 0.99]^2, Subscript[$CellContext`\[Chi], 0.975]^2, Subscript[$CellContext`\[Chi], 0.95]^2, Subscript[$CellContext`\[Chi], 0.9]^2}}]]]], "Output", CellChangeTimes->{3.793466574980934*^9, 3.79424440419302*^9, 3.823174609833626*^9, 3.823189049061343*^9}, CellLabel-> "Out[206]//TableForm=",ExpressionUUID->"e2adb893-ff23-4e04-8133-\ 09e99bb25a88"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"cvals2", "[", "n_", "]"}], ":=", RowBox[{ RowBox[{"{", RowBox[{"n", ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Quantile", "[", RowBox[{ RowBox[{"ChiSquareDistribution", "[", "n", "]"}], ",", RowBox[{"1", "-", "#"}]}], "]"}], "&"}], ",", RowBox[{"{", RowBox[{".005", ",", ".01", ",", ".025", ",", ".05", ",", ".1"}], "}"}]}], "]"}]}], "}"}], "//", "Flatten"}]}], ";"}]], "Input", CellLabel-> "In[207]:=",ExpressionUUID->"28eb70e3-d11a-485f-b308-b46881bdb07b"], Cell[BoxData[ RowBox[{ RowBox[{"commonvalues2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"cvals2", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "15"}], "}"}]}], "]"}]}], ";"}]], "Input", CellLabel-> "In[208]:=",ExpressionUUID->"8939c814-b75f-4f43-9a94-0efdea3fb981"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TableForm", "[", RowBox[{"commonvalues2", ",", RowBox[{"TableHeadings", "->", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", SubsuperscriptBox["\[Chi]", ".005", "2"], ",", SubsuperscriptBox["\[Chi]", ".01", "2"], ",", SubsuperscriptBox["\[Chi]", ".025", "2"], ",", SubsuperscriptBox["\[Chi]", ".05", "2"], ",", SubsuperscriptBox["\[Chi]", ".1", "2"]}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.4016913140625*^9, 3.401691317921875*^9}}, CellLabel-> "In[209]:=",ExpressionUUID->"3a53eb82-d610-4fa1-88a5-04f059fcf329"], Cell[BoxData[ TagBox[ TagBox[GridBox[{ { StyleBox["\[Null]", ShowStringCharacters->False], TagBox["\<\"Stupn\[EHacek] volnosti\"\>", HoldForm], TagBox[ SubsuperscriptBox["\[Chi]", "0.005`", "2"], HoldForm], TagBox[ SubsuperscriptBox["\[Chi]", "0.01`", "2"], HoldForm], TagBox[ SubsuperscriptBox["\[Chi]", "0.025`", "2"], HoldForm], TagBox[ SubsuperscriptBox["\[Chi]", "0.05`", "2"], HoldForm], TagBox[ SubsuperscriptBox["\[Chi]", "0.1`", "2"], HoldForm]}, { TagBox[ StyleBox["\<\"\[Null]\"\>", ShowStringCharacters->False], StyleForm[#, ShowStringCharacters -> False]& ], "1", "7.879438576622415`", "6.634896601021214`", "5.023886187314887`", "3.841458820694125`", "2.705543454095414`"}, { TagBox[ StyleBox["\<\"\[Null]\"\>", ShowStringCharacters->False], StyleForm[#, ShowStringCharacters -> False]& ], "2", "10.59663473309607`", "9.210340371976182`", "7.377758908227871`", "5.99146454710798`", "4.605170185988092`"}, { TagBox[ StyleBox["\<\"\[Null]\"\>", ShowStringCharacters->False], StyleForm[#, ShowStringCharacters -> False]& ], "3", "12.83815646659865`", "11.34486673014437`", "9.348403604496145`", "7.814727903251178`", "6.2513886311703235`"}, { TagBox[ StyleBox["\<\"\[Null]\"\>", ShowStringCharacters->False], StyleForm[#, ShowStringCharacters -> False]& ], "4", "14.860259000560243`", "13.276704135987622`", "11.143286781877796`", "9.487729036781154`", "7.779440339734859`"}, { TagBox[ StyleBox["\<\"\[Null]\"\>", ShowStringCharacters->False], StyleForm[#, ShowStringCharacters -> False]& ], "5", "16.74960234363904`", "15.08627246938899`", "12.832501994030027`", "11.070497693516351`", "9.236356899781118`"}, { TagBox[ StyleBox["\<\"\[Null]\"\>", ShowStringCharacters->False], StyleForm[#, ShowStringCharacters -> False]& ], "6", "18.547584178511087`", "16.811893829770927`", "14.44937533544792`", "12.591587243743977`", "10.64464067566842`"}, { TagBox[ StyleBox["\<\"\[Null]\"\>", ShowStringCharacters->False], StyleForm[#, ShowStringCharacters -> False]& ], "7", "20.277739874962624`", "18.47530690658236`", "16.012764274629323`", "14.067140449340167`", "12.01703662378053`"}, { TagBox[ StyleBox["\<\"\[Null]\"\>", ShowStringCharacters->False], StyleForm[#, ShowStringCharacters -> False]& ], "8", "21.95495499065953`", "20.09023502966323`", "17.53454613948465`", "15.50731305586545`", "13.361566136511728`"}, { TagBox[ StyleBox["\<\"\[Null]\"\>", ShowStringCharacters->False], StyleForm[#, ShowStringCharacters -> False]& ], "9", "23.589350781257384`", "21.665994333461924`", "19.02276779864163`", "16.918977604620448`", "14.683656573259839`"}, { TagBox[ StyleBox["\<\"\[Null]\"\>", ShowStringCharacters->False], StyleForm[#, ShowStringCharacters -> False]& ], "10", "25.18817957197117`", "23.209251158954356`", "20.483177350807395`", "18.307038053275143`", "15.987179172105261`"}, { TagBox[ StyleBox["\<\"\[Null]\"\>", ShowStringCharacters->False], StyleForm[#, ShowStringCharacters -> False]& ], "11", "26.756848916469632`", "24.72497031131828`", "21.920049261021205`", "19.67513757268249`", "17.275008517500073`"}, { TagBox[ StyleBox["\<\"\[Null]\"\>", ShowStringCharacters->False], StyleForm[#, ShowStringCharacters -> False]& ], "12", "28.29951882204603`", "26.216967305535846`", "23.336664158645338`", "21.026069817483062`", "18.549347786703244`"}, { TagBox[ StyleBox["\<\"\[Null]\"\>", ShowStringCharacters->False], StyleForm[#, ShowStringCharacters -> False]& ], "13", "29.81947122365322`", "27.688249610457046`", "24.735604884931536`", "22.362032494826938`", "19.811929307127564`"}, { TagBox[ StyleBox["\<\"\[Null]\"\>", ShowStringCharacters->False], StyleForm[#, ShowStringCharacters -> False]& ], "14", "31.319349622595286`", "29.141237740672793`", "26.118948045037367`", "23.684791304840576`", "21.064144212997057`"}, { TagBox[ StyleBox["\<\"\[Null]\"\>", ShowStringCharacters->False], StyleForm[#, ShowStringCharacters -> False]& ], "15", "32.80132064579184`", "30.57791416689249`", "27.48839286344298`", "24.995790139728626`", "22.30712958157869`"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {False, True, {False}, False}, "ColumnsIndexed" -> {}, "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], {OutputFormsDump`HeadedRows, OutputFormsDump`HeadedColumns}], Function[BoxForm`e$, TableForm[ BoxForm`e$, TableHeadings -> {{}, { "Stupn\[EHacek] volnosti", Subscript[$CellContext`\[Chi], 0.005]^2, Subscript[$CellContext`\[Chi], 0.01]^2, Subscript[$CellContext`\[Chi], 0.025]^2, Subscript[$CellContext`\[Chi], 0.05]^2, Subscript[$CellContext`\[Chi], 0.1]^2}}]]]], "Output", CellChangeTimes->{3.7934665751311717`*^9, 3.794244404325369*^9, 3.8231746232409306`*^9, 3.8231890492588563`*^9}, CellLabel-> "Out[209]//TableForm=",ExpressionUUID->"6d1df20e-7e6e-4492-8801-\ 0fd6fbfb81c7"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["p\[RHacek]\[IAcute]klad 6 (stupne)", "Subsection", CellChangeTimes->{3.400172527*^9, 3.40169125784375*^9},ExpressionUUID->"558debc2-3b15-4c7b-b425-29201b1e81d1"], Cell[BoxData[ RowBox[{ RowBox[{"stupne", "=", RowBox[{"{", RowBox[{ "85", ",", "94.5", ",", "76.7", ",", "79.2", ",", "83", ",", "80.2", ",", "68.7", ",", "89.1", ",", "74.1", ",", "87.8", ",", "44.9", ",", "77.6", ",", "85.1", ",", "75.7", ",", "81.5", ",", "66.2", ",", "83.4", ",", "79.8", ",", "94", ",", "91.8", ",", "96.3", ",", "73.5", ",", "82.2", ",", "76.1", ",", "78.5", ",", "69.1", ",", "75.4", ",", "71.7", ",", "78.2", ",", "77.7", ",", "88.7", ",", "79.9", ",", "86.1", ",", "63.8", ",", "78.7", ",", "82.6", ",", "98.6", ",", "81.3", ",", "63.4", ",", "76.6", ",", "84.2", ",", "89.7", ",", "87.7", ",", "54.6"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{3.401691257859375*^9}, CellLabel-> "In[210]:=",ExpressionUUID->"6346a2c2-c009-4e29-80e1-87b4295f6549"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VarianceCI", "[", RowBox[{"stupne", ",", RowBox[{"ConfidenceLevel", "->", ".90"}]}], "]"}]], "Input", CellChangeTimes->{3.401691257859375*^9, 3.4016916055625*^9, 3.79346682832094*^9, 3.7934669094306383`*^9}, CellLabel-> "In[211]:=",ExpressionUUID->"da7994d4-5af9-464c-be6f-6cc2f49b81b1"], Cell[BoxData[ RowBox[{"{", RowBox[{"80.0873118860487`", ",", "163.97394518940237`"}], "}"}]], "Output", CellChangeTimes->{3.7934665752610817`*^9, 3.794244404397941*^9, 3.794245225075822*^9, 3.823174637858858*^9, 3.8231890493546357`*^9}, CellLabel-> "Out[211]=",ExpressionUUID->"09573360-9234-409e-bdb2-c51f8620b56a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VarianceCI", "[", "stupne", "]"}]], "Input", CellChangeTimes->{3.401691257859375*^9}, CellLabel-> "In[212]:=",ExpressionUUID->"14b88bc4-88c5-43d4-b6c4-80fab582b631"], Cell[BoxData[ RowBox[{"{", RowBox[{"75.39977864216499`", ",", "177.31538242789605`"}], "}"}]], "Output", CellChangeTimes->{3.793466575307217*^9, 3.7942444044385223`*^9, 3.794245228305353*^9, 3.82317464080414*^9, 3.823189049415101*^9}, CellLabel-> "Out[212]=",ExpressionUUID->"f2e90c51-fe73-465a-b98a-53f8c3337d1e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VarianceCI", "[", RowBox[{"stupne", ",", RowBox[{"ConfidenceLevel", "->", ".99"}]}], "]"}]], "Input", CellChangeTimes->{3.401691257859375*^9, 3.4016916055625*^9, 3.79346682832094*^9, 3.7934669094306383`*^9}, CellLabel-> "In[213]:=",ExpressionUUID->"45dfe390-0f5d-495b-8bea-2a5c31832544"], Cell[BoxData[ RowBox[{"{", RowBox[{"67.25764154150896`", ",", "207.76763930336924`"}], "}"}]], "Output", CellChangeTimes->{3.793466575350648*^9, 3.7942444045344677`*^9, 3.7942452392701297`*^9, 3.8231746438636494`*^9, 3.823189049466024*^9}, CellLabel-> "Out[213]=",ExpressionUUID->"a9d1ff59-6fd3-46b1-9b27-7ff3c4d59f0c"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["p\[RHacek]\[IAcute]klad 7 (SAT Scores)", "Subsection", CellChangeTimes->{ 3.400172527*^9},ExpressionUUID->"278bba18-6ba1-477d-bf4d-888ab824fddb"], Cell[BoxData[ RowBox[{ RowBox[{"se", "=", RowBox[{"{", RowBox[{ "980", ",", "990", ",", "940", ",", "997", ",", "980", ",", "1054", ",", "1019", ",", "942"}], "}"}]}], ";"}]], "Input", CellLabel-> "In[214]:=",ExpressionUUID->"0efb19b6-4592-46ef-bc18-4b0fdf5e4b26"], Cell[BoxData[ RowBox[{ RowBox[{"w", "=", RowBox[{"{", RowBox[{ "939", ",", "838", ",", "1024", ",", "903", ",", "965", ",", "1027", ",", "1000"}], "}"}]}], ";"}]], "Input", CellLabel-> "In[215]:=",ExpressionUUID->"86a7ac98-64c1-48b2-812a-f3f957339729"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MeanDifferenceCI", "[", RowBox[{"se", ",", "w"}], "]"}]], "Input", CellLabel-> "In[216]:=",ExpressionUUID->"fb2d6a31-bd6c-46c8-ac47-cd6dd5706a2c"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "35.196906814826406`"}], ",", "97.55404967196927`"}], "}"}]], "Output", CellChangeTimes->{3.7934665755248*^9, 3.7942444046432967`*^9, 3.794245243148481*^9, 3.8231746559429464`*^9, 3.8231890495994315`*^9}, CellLabel-> "Out[216]=",ExpressionUUID->"4b7fd67d-1a18-4c71-9739-feb3983fccc1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MeanDifferenceCI", "[", RowBox[{"se", ",", "w", ",", RowBox[{"EqualVariances", "->", "True"}]}], "]"}]], "Input", CellLabel-> "In[217]:=",ExpressionUUID->"923bf355-d45d-4080-9b45-3d8fcf08885c"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "29.787664000910485`"}], ",", "92.14480685805334`"}], "}"}]], "Output", CellChangeTimes->{3.7934665755643077`*^9, 3.794244404687516*^9, 3.7942452493997188`*^9, 3.8231890496871347`*^9}, CellLabel-> "Out[217]=",ExpressionUUID->"068427b1-8f0a-4e9f-9544-63e82b5ef32f"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["p\[RHacek]\[IAcute]klad 8 (SAT Scores)", "Subsection", CellChangeTimes->{ 3.400172527015625*^9},ExpressionUUID->"b368edc9-a882-4720-a183-\ 21662c798424"], Cell[BoxData[ RowBox[{ RowBox[{"se", "=", RowBox[{"{", RowBox[{ "980", ",", "990", ",", "940", ",", "997", ",", "980", ",", "1054", ",", "1019", ",", "942"}], "}"}]}], ";"}]], "Input", CellLabel-> "In[218]:=",ExpressionUUID->"5368c8e0-c104-44f1-a577-0467355d03c6"], Cell[BoxData[ RowBox[{ RowBox[{"w", "=", RowBox[{"{", RowBox[{ "939", ",", "838", ",", "1024", ",", "903", ",", "965", ",", "1027", ",", "1000"}], "}"}]}], ";"}]], "Input", CellLabel-> "In[219]:=",ExpressionUUID->"ff6d8642-baa7-40f1-a8bf-83d51afd74d6"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VarianceRatioCI", "[", RowBox[{"se", ",", "w", ",", RowBox[{"ConfidenceLevel", "->", ".90"}]}], "]"}]], "Input", CellChangeTimes->{3.4016916055625*^9, 3.7934668283857536`*^9, 3.793466909440756*^9}, CellLabel-> "In[220]:=",ExpressionUUID->"e6355494-d7dd-4cbb-ac3c-ac0b36d2f3f6"], Cell[BoxData[ RowBox[{"{", RowBox[{"0.07063327999194864`", ",", "1.148695660910918`"}], "}"}]], "Output", CellChangeTimes->{3.793466575727423*^9, 3.7942444047861195`*^9, 3.794245264519985*^9, 3.823174670733961*^9, 3.823189049846364*^9}, CellLabel-> "Out[220]=",ExpressionUUID->"b2da9c80-6970-4c88-b8e3-fa04c9b830ef"] }, Open ]] }, Open ]] }, WindowSize->{1344, 757}, WindowMargins->{{-8, Automatic}, {Automatic, -8}}, FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (March 6, 2018)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[545, 20, 215, 4, 28, "Input",ExpressionUUID->"90077e97-61a9-4ff1-bae4-6d175d0c5d52"], Cell[CellGroupData[{ Cell[785, 28, 209, 3, 53, "Subsection",ExpressionUUID->"dbc0e7a0-0b28-4ece-8576-9020b7a4f9df"], Cell[997, 33, 1102, 32, 48, "Input",ExpressionUUID->"dbc21642-eb84-4e3e-84e4-6619f26106f7"], Cell[CellGroupData[{ Cell[2124, 69, 562, 15, 30, "Input",ExpressionUUID->"042ebbf4-d3f1-4d79-b6f8-f0de1bf17824"], Cell[2689, 86, 2956, 84, 164, "Output",ExpressionUUID->"c56b622e-3b0a-48ae-9bca-a7fb732849e4"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[5694, 176, 239, 5, 53, "Subsection",ExpressionUUID->"0fa1828b-92f9-4483-8138-358a4df1d01d"], Cell[5936, 183, 665, 20, 28, "Input",ExpressionUUID->"536f49c0-9365-448d-ac72-86ad5a8dd1fb"], Cell[6604, 205, 318, 9, 28, "Input",ExpressionUUID->"591f04a0-2859-4850-82ad-e029987bd775"], Cell[CellGroupData[{ Cell[6947, 218, 709, 18, 28, "Input",ExpressionUUID->"e586afca-4067-4e84-815a-20e664f77ca1"], Cell[7659, 238, 7095, 177, 301, "Output",ExpressionUUID->"6717f8e5-8a96-4154-b4dd-5a8c5a230ec0"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[14803, 421, 180, 3, 53, "Subsection",ExpressionUUID->"ead8f71c-405e-40e6-8aa8-d74d13b247e8"], Cell[14986, 426, 864, 16, 48, "Input",ExpressionUUID->"08c8c3bd-ea4f-4a63-99df-5b8ae463b7fe"], Cell[CellGroupData[{ Cell[15875, 446, 306, 7, 48, "Input",ExpressionUUID->"897dbb0f-a02a-47bd-917d-6a0c5cdda407"], Cell[16184, 455, 229, 4, 32, "Output",ExpressionUUID->"8d632925-2471-4ce5-bbd1-ab00959afd04"], Cell[16416, 461, 245, 4, 32, "Output",ExpressionUUID->"7d83aa76-e124-4368-b4ad-13bf2454ae33"] }, Open ]], Cell[CellGroupData[{ Cell[16698, 470, 266, 7, 28, "Input",ExpressionUUID->"4ef35a24-3938-443b-bbd6-237b6332f326"], Cell[16967, 479, 244, 4, 32, "Output",ExpressionUUID->"1c15002a-42d0-450b-98a0-d52ebfb0f7d6"] }, Open ]], Cell[CellGroupData[{ Cell[17248, 488, 373, 12, 48, "Input",ExpressionUUID->"2447abdd-7714-41cd-8d18-2802fb32f0b0"], Cell[17624, 502, 245, 4, 32, "Output",ExpressionUUID->"c1f36242-b320-47bb-9ef5-7f7f80902ba7"], Cell[17872, 508, 244, 4, 32, "Output",ExpressionUUID->"2683e5d7-d6d4-44e4-bb2a-9cbe1575b1ec"] }, Open ]], Cell[CellGroupData[{ Cell[18153, 517, 400, 10, 28, "Input",ExpressionUUID->"f227bda0-9bf2-44cc-8ed2-a819d8ba90f2"], Cell[18556, 529, 374, 7, 32, "Output",ExpressionUUID->"26fb9a40-72f2-4810-84c6-b4c27f5efeb5"] }, Open ]], Cell[CellGroupData[{ Cell[18967, 541, 392, 8, 28, "Input",ExpressionUUID->"18fdaffd-d02d-4c5a-87c0-541684db2f56"], Cell[19362, 551, 351, 7, 32, "Output",ExpressionUUID->"6f980ec4-6ebb-48e2-920f-81a2eb1c360e"] }, Open ]], Cell[CellGroupData[{ Cell[19750, 563, 276, 6, 28, "Input",ExpressionUUID->"d16e3ef1-6486-4d69-bbef-abb266aa8e9d"], Cell[20029, 571, 331, 6, 32, "Output",ExpressionUUID->"70a2442c-d65c-4921-98e1-96329e00fb8a"] }, Open ]], Cell[CellGroupData[{ Cell[20397, 582, 396, 8, 28, "Input",ExpressionUUID->"49e6e169-5b3d-4140-8377-0be3d7bbc55e"], Cell[20796, 592, 332, 6, 32, "Output",ExpressionUUID->"9948b874-fd0f-4d88-9763-1afa9d8b3eb8"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[21177, 604, 176, 2, 53, "Subsection",ExpressionUUID->"b7686812-4e06-4cf4-9c40-2eddf113a085"], Cell[21356, 608, 842, 16, 48, "Input",ExpressionUUID->"069ac3b7-d10b-49c7-bd91-5f01235e8ff0"], Cell[CellGroupData[{ Cell[22223, 628, 389, 9, 67, "Input",ExpressionUUID->"0c8a2e08-b1c9-45be-88d8-d4bff19c6d87"], Cell[22615, 639, 225, 4, 32, "Output",ExpressionUUID->"0deb8e2f-31d2-4fab-b8fb-64f07d79ccd8"], Cell[22843, 645, 243, 4, 32, "Output",ExpressionUUID->"020b5853-dc4f-4765-b0a7-09441538fbb9"], Cell[23089, 651, 241, 4, 32, "Output",ExpressionUUID->"ba3fa674-98dc-4d17-add3-48b428c4628d"] }, Open ]], Cell[CellGroupData[{ Cell[23367, 660, 247, 7, 28, "Input",ExpressionUUID->"bab2a037-ed95-4efe-897d-e9979fe7626a"], Cell[23617, 669, 242, 4, 32, "Output",ExpressionUUID->"3ecdca05-0960-418a-b8bf-5dbc5f3de9d0"] }, Open ]], Cell[CellGroupData[{ Cell[23896, 678, 331, 10, 48, "Input",ExpressionUUID->"d8d2d5c6-9d1a-4dd0-80f1-c18d98890ac6"], Cell[24230, 690, 241, 4, 32, "Output",ExpressionUUID->"00ae981c-6c82-4076-91ea-15c49741267f"], Cell[24474, 696, 243, 4, 32, "Output",ExpressionUUID->"06ec0ea5-9d35-4c65-bce1-86417c6940e0"] }, Open ]], Cell[CellGroupData[{ Cell[24754, 705, 335, 7, 28, "Input",ExpressionUUID->"656d7f2d-7b4f-4211-82f1-a667f09a4538"], Cell[25092, 714, 326, 6, 32, "Output",ExpressionUUID->"81275059-dd3a-45a2-be3f-f6792038a687"] }, Open ]], Cell[CellGroupData[{ Cell[25455, 725, 325, 7, 28, "Input",ExpressionUUID->"c43dc6db-c6b7-4eca-99eb-d02df5a85932"], Cell[25783, 734, 327, 6, 32, "Output",ExpressionUUID->"5ab1b15b-a538-421e-9981-f1d17e1c0471"] }, Open ]], Cell[CellGroupData[{ Cell[26147, 745, 187, 4, 28, "Input",ExpressionUUID->"b7a5275a-7545-492a-8d33-58796aaa9fb8"], Cell[26337, 751, 331, 6, 32, "Output",ExpressionUUID->"fe5e6a94-3141-4915-8581-8afc0d985baf"] }, Open ]], Cell[CellGroupData[{ Cell[26705, 762, 327, 7, 28, "Input",ExpressionUUID->"9d229fef-fcd6-4db1-a058-093cc2166a7f"], Cell[27035, 771, 327, 6, 32, "Output",ExpressionUUID->"141067ac-491c-4ac7-8e81-5611e5d6a83d"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[27411, 783, 222, 4, 53, "Subsection",ExpressionUUID->"5f4354ff-21f1-4219-b937-d230e3ba2b77"], Cell[27636, 789, 604, 18, 28, "Input",ExpressionUUID->"18a894b1-55b0-4b7b-ad47-79dede1de20a"], Cell[28243, 809, 318, 9, 28, "Input",ExpressionUUID->"2543e09c-f2ba-41d1-81db-49214c7f7537"], Cell[CellGroupData[{ Cell[28586, 822, 709, 17, 32, "Input",ExpressionUUID->"29d47820-3474-4c13-9d49-6762f4fb59d2"], Cell[29298, 841, 6076, 157, 304, "Output",ExpressionUUID->"e2adb893-ff23-4e04-8133-09e99bb25a88"] }, Open ]], Cell[35389, 1001, 626, 18, 28, "Input",ExpressionUUID->"28eb70e3-d11a-485f-b308-b46881bdb07b"], Cell[36018, 1021, 320, 9, 28, "Input",ExpressionUUID->"8939c814-b75f-4f43-9a94-0efdea3fb981"], Cell[CellGroupData[{ Cell[36363, 1034, 708, 17, 32, "Input",ExpressionUUID->"3a53eb82-d610-4fa1-88a5-04f059fcf329"], Cell[37074, 1053, 6050, 156, 304, "Output",ExpressionUUID->"6d1df20e-7e6e-4492-8801-0fd6fbfb81c7"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[43173, 1215, 171, 2, 53, "Subsection",ExpressionUUID->"558debc2-3b15-4c7b-b425-29201b1e81d1"], Cell[43347, 1219, 842, 16, 48, "Input",ExpressionUUID->"6346a2c2-c009-4e29-80e1-87b4295f6549"], Cell[CellGroupData[{ Cell[44214, 1239, 325, 7, 28, "Input",ExpressionUUID->"da7994d4-5af9-464c-be6f-6cc2f49b81b1"], Cell[44542, 1248, 327, 6, 32, "Output",ExpressionUUID->"09573360-9234-409e-bdb2-c51f8620b56a"] }, Open ]], Cell[CellGroupData[{ Cell[44906, 1259, 193, 4, 28, "Input",ExpressionUUID->"14b88bc4-88c5-43d4-b6c4-80fab582b631"], Cell[45102, 1265, 325, 6, 32, "Output",ExpressionUUID->"f2e90c51-fe73-465a-b98a-53f8c3337d1e"] }, Open ]], Cell[CellGroupData[{ Cell[45464, 1276, 325, 7, 28, "Input",ExpressionUUID->"45dfe390-0f5d-495b-8bea-2a5c31832544"], Cell[45792, 1285, 330, 6, 32, "Output",ExpressionUUID->"a9d1ff59-6fd3-46b1-9b27-7ff3c4d59f0c"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[46171, 1297, 154, 2, 53, "Subsection",ExpressionUUID->"278bba18-6ba1-477d-bf4d-888ab824fddb"], Cell[46328, 1301, 289, 8, 28, "Input",ExpressionUUID->"0efb19b6-4592-46ef-bc18-4b0fdf5e4b26"], Cell[46620, 1311, 277, 8, 28, "Input",ExpressionUUID->"86a7ac98-64c1-48b2-812a-f3f957339729"], Cell[CellGroupData[{ Cell[46922, 1323, 176, 4, 28, "Input",ExpressionUUID->"fb2d6a31-bd6c-46c8-ac47-cd6dd5706a2c"], Cell[47101, 1329, 350, 8, 32, "Output",ExpressionUUID->"4b7fd67d-1a18-4c71-9739-feb3983fccc1"] }, Open ]], Cell[CellGroupData[{ Cell[47488, 1342, 227, 5, 28, "Input",ExpressionUUID->"923bf355-d45d-4080-9b45-3d8fcf08885c"], Cell[47718, 1349, 330, 8, 32, "Output",ExpressionUUID->"068427b1-8f0a-4e9f-9544-63e82b5ef32f"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[48097, 1363, 162, 3, 53, "Subsection",ExpressionUUID->"b368edc9-a882-4720-a183-21662c798424"], Cell[48262, 1368, 289, 8, 28, "Input",ExpressionUUID->"5368c8e0-c104-44f1-a577-0467355d03c6"], Cell[48554, 1378, 277, 8, 28, "Input",ExpressionUUID->"ff6d8642-baa7-40f1-a8bf-83d51afd74d6"], Cell[CellGroupData[{ Cell[48856, 1390, 315, 7, 28, "Input",ExpressionUUID->"e6355494-d7dd-4cbb-ac3c-ac0b36d2f3f6"], Cell[49174, 1399, 330, 7, 32, "Output",ExpressionUUID->"b2da9c80-6970-4c88-b8e3-fa04c9b830ef"] }, Open ]] }, Open ]] } ] *)