(* 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[ 70050, 1738] NotebookOptionsPosition[ 64401, 1636] NotebookOutlinePosition[ 64744, 1651] CellTagsIndexPosition[ 64701, 1648] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{"(*", " ", RowBox[{"KST", " ", "-", " ", RowBox[{"1.", " ", "lekce"}]}], " ", "*)"}]], "Input", CellChangeTimes->{{3.8228058585911703`*^9, 3.8228058686894217`*^9}},ExpressionUUID->"cfd199b3-d820-49d2-a32a-\ 8eca3f582feb"], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Z\[IAcute]sk\[AAcute]n\[IAcute]", " ", "dat", " ", "pomoc\[IAcute]", " ", "p\[RHacek]\[IAcute]kazu", " ", "Import"}], ",", " ", RowBox[{ "jde", " ", "o", " ", "data", " ", "typu", " ", "*", "xlsx", " ", "nebo", " ", "*", RowBox[{".", "csv"}]}]}], " ", "*)"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.8228058733792768`*^9, 3.8228059127466054`*^9}},ExpressionUUID->"d00c3e60-6702-44f8-9090-\ 5d4e8df9a24e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"data", "=", RowBox[{"Import", "[", "\"\\"", "]"}]}]], "Input", CellChangeTimes->{{3.8228059206101313`*^9, 3.8228059254752293`*^9}, { 3.822805956361352*^9, 3.8228060022660384`*^9}}, CellLabel->"In[1]:=",ExpressionUUID->"f2e44642-fee3-4249-aa83-611630b668d3"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "40.`", ",", "32.`", ",", "40.`", ",", "42.`", ",", "33.`", ",", "36.`", ",", "43.`", ",", "31.`", ",", "37.`", ",", "34.`", ",", "37.`", ",", "38.`", ",", "33.`", ",", "34.`", ",", "36.`", ",", "30.`", ",", "36.`", ",", "34.`", ",", "33.`", ",", "30.`", ",", "39.`", ",", "36.`", ",", "36.`", ",", "37.`", ",", "39.`", ",", "36.`", ",", "29.`", ",", "28.`", ",", "38.`", ",", "36.`", ",", "40.`", ",", "40.`", ",", "36.`", ",", "36.`", ",", "34.`", ",", "36.`", ",", "38.`", ",", "39.`", ",", "36.`", ",", "34.`", ",", "38.`", ",", "37.`", ",", "35.`", ",", "30.`", ",", "32.`", ",", "35.`", ",", "37.`", ",", "39.`", ",", "39.`", ",", "35.`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.1528459259311064`", ",", RowBox[{"-", "0.5672090904489758`"}], ",", RowBox[{"-", "0.37497959738418063`"}], ",", "0.15534661390841517`", ",", RowBox[{"-", "1.6893121707931456`"}], ",", RowBox[{"-", "1.7473268279286407`"}], ",", "0.9173084441530089`", ",", "0.8141275242474356`", ",", RowBox[{"-", "0.35608138371755377`"}], ",", "1.5533200592473493`", ",", RowBox[{"-", "0.32974985172351534`"}], ",", "0.014776843000270075`", ",", "0.44209572845884526`", ",", RowBox[{"-", "1.0142362846008046`"}], ",", RowBox[{"-", "1.7356448159013973`"}], ",", RowBox[{"-", "1.1433342533905588`"}], ",", RowBox[{"-", "0.9557278582919851`"}], ",", "0.5859345472461241`", ",", "1.1333112793867115`", ",", RowBox[{"-", "1.6820861847781547`"}], ",", RowBox[{"-", "0.5706055437767917`"}], ",", RowBox[{"-", "0.5033038380230586`"}], ",", RowBox[{"-", "1.0631015022121637`"}], ",", RowBox[{"-", "1.1687127200118723`"}], ",", "0.46383721779307163`", ",", RowBox[{"-", "1.773506244551479`"}], ",", "1.4895978275662995`", ",", RowBox[{"-", "0.5044891407853977`"}], ",", RowBox[{"-", "0.7383628571656622`"}], ",", RowBox[{"-", "0.7213890804546671`"}], ",", "0.3137901670366981`", ",", RowBox[{"-", "1.6637833444760295`"}], ",", "0.27785334250870847`", ",", RowBox[{"-", "0.07803332025094434`"}], ",", RowBox[{"-", "0.18660038593469613`"}], ",", "0.35749803597232627`", ",", "0.487391701641346`", ",", "1.1345251912129284`", ",", "2.5890798481809765`", ",", RowBox[{"-", "0.5306466819049472`"}], ",", RowBox[{"-", "1.2659004410043495`"}], ",", "0.7672739154659253`", ",", RowBox[{"-", "0.24386913431913068`"}], ",", RowBox[{"-", "0.16742534427447517`"}], ",", RowBox[{"-", "0.5733986121385887`"}], ",", "0.8385350624725015`", ",", RowBox[{"-", "0.9062122110876718`"}], ",", RowBox[{"-", "0.5431698965541897`"}], ",", "2.4594177799069072`", ",", "1.8470538199257527`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.0026206752879721355`", ",", "10.404983908167136`", ",", "0.05314412353882697`", ",", "0.00902945102921528`", ",", "11.020621130514279`", ",", "0.9769389017608263`", ",", "422.55587862048304`", ",", "0.0027546770114727846`", ",", "0.11266570364833708`", ",", "0.014518044573464515`", ",", "0.002955894290988931`", ",", "0.3673872666582804`", ",", "0.8011356551866867`", ",", "0.9906841407866062`", ",", "0.010480378713617977`", ",", "0.14819333416435634`", ",", "0.5453983509634205`", ",", "15.967711361306211`", ",", "4517.819072729518`", ",", "2.4637690035639537`", ",", "0.6462042898761318`", ",", "409.1545546129011`", ",", "0.04350271608733268`", ",", "0.13257534563656595`", ",", "0.06544160287328454`", ",", "51.171473270014964`", ",", "217.0560059925792`", ",", "1.178576389857859`", ",", "0.08806769496291693`", ",", "0.00011644013116289758`", ",", "0.07440944788497769`", ",", "4.886873811148988`", ",", "18.51446323430252`", ",", "0.03835894676075689`", ",", "6.028107821546279`", ",", "260.399901591895`", ",", "0.3916289317587141`", ",", "0.0018776762115616475`", ",", "7.140555647481782`", ",", "0.3595739063476909`", ",", "4.631693386845893`", ",", "0.0393128342665645`", ",", "0.10637110140801895`", ",", "2.056896052286899`", ",", "0.29874514955749215`", ",", "0.017233723128669692`", ",", "1.6145639056812393`", ",", "6.335880738628881`", ",", "0.005433342864640789`", ",", "0.011146520824486212`"}], "}"}]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.822806006427331*^9}, CellLabel->"Out[1]=",ExpressionUUID->"a380b8a6-1647-4dde-bf66-9b0695b6d143"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"data", "=", RowBox[{"Flatten", "[", RowBox[{"data", ",", "1"}], "]"}]}]], "Input", CellChangeTimes->{{3.822806019292162*^9, 3.822806031367005*^9}}, CellLabel->"In[2]:=",ExpressionUUID->"94a30676-0000-497e-840a-750bf2073675"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "40.`", ",", "32.`", ",", "40.`", ",", "42.`", ",", "33.`", ",", "36.`", ",", "43.`", ",", "31.`", ",", "37.`", ",", "34.`", ",", "37.`", ",", "38.`", ",", "33.`", ",", "34.`", ",", "36.`", ",", "30.`", ",", "36.`", ",", "34.`", ",", "33.`", ",", "30.`", ",", "39.`", ",", "36.`", ",", "36.`", ",", "37.`", ",", "39.`", ",", "36.`", ",", "29.`", ",", "28.`", ",", "38.`", ",", "36.`", ",", "40.`", ",", "40.`", ",", "36.`", ",", "36.`", ",", "34.`", ",", "36.`", ",", "38.`", ",", "39.`", ",", "36.`", ",", "34.`", ",", "38.`", ",", "37.`", ",", "35.`", ",", "30.`", ",", "32.`", ",", "35.`", ",", "37.`", ",", "39.`", ",", "39.`", ",", "35.`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.1528459259311064`", ",", RowBox[{"-", "0.5672090904489758`"}], ",", RowBox[{"-", "0.37497959738418063`"}], ",", "0.15534661390841517`", ",", RowBox[{"-", "1.6893121707931456`"}], ",", RowBox[{"-", "1.7473268279286407`"}], ",", "0.9173084441530089`", ",", "0.8141275242474356`", ",", RowBox[{"-", "0.35608138371755377`"}], ",", "1.5533200592473493`", ",", RowBox[{"-", "0.32974985172351534`"}], ",", "0.014776843000270075`", ",", "0.44209572845884526`", ",", RowBox[{"-", "1.0142362846008046`"}], ",", RowBox[{"-", "1.7356448159013973`"}], ",", RowBox[{"-", "1.1433342533905588`"}], ",", RowBox[{"-", "0.9557278582919851`"}], ",", "0.5859345472461241`", ",", "1.1333112793867115`", ",", RowBox[{"-", "1.6820861847781547`"}], ",", RowBox[{"-", "0.5706055437767917`"}], ",", RowBox[{"-", "0.5033038380230586`"}], ",", RowBox[{"-", "1.0631015022121637`"}], ",", RowBox[{"-", "1.1687127200118723`"}], ",", "0.46383721779307163`", ",", RowBox[{"-", "1.773506244551479`"}], ",", "1.4895978275662995`", ",", RowBox[{"-", "0.5044891407853977`"}], ",", RowBox[{"-", "0.7383628571656622`"}], ",", RowBox[{"-", "0.7213890804546671`"}], ",", "0.3137901670366981`", ",", RowBox[{"-", "1.6637833444760295`"}], ",", "0.27785334250870847`", ",", RowBox[{"-", "0.07803332025094434`"}], ",", RowBox[{"-", "0.18660038593469613`"}], ",", "0.35749803597232627`", ",", "0.487391701641346`", ",", "1.1345251912129284`", ",", "2.5890798481809765`", ",", RowBox[{"-", "0.5306466819049472`"}], ",", RowBox[{"-", "1.2659004410043495`"}], ",", "0.7672739154659253`", ",", RowBox[{"-", "0.24386913431913068`"}], ",", RowBox[{"-", "0.16742534427447517`"}], ",", RowBox[{"-", "0.5733986121385887`"}], ",", "0.8385350624725015`", ",", RowBox[{"-", "0.9062122110876718`"}], ",", RowBox[{"-", "0.5431698965541897`"}], ",", "2.4594177799069072`", ",", "1.8470538199257527`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.0026206752879721355`", ",", "10.404983908167136`", ",", "0.05314412353882697`", ",", "0.00902945102921528`", ",", "11.020621130514279`", ",", "0.9769389017608263`", ",", "422.55587862048304`", ",", "0.0027546770114727846`", ",", "0.11266570364833708`", ",", "0.014518044573464515`", ",", "0.002955894290988931`", ",", "0.3673872666582804`", ",", "0.8011356551866867`", ",", "0.9906841407866062`", ",", "0.010480378713617977`", ",", "0.14819333416435634`", ",", "0.5453983509634205`", ",", "15.967711361306211`", ",", "4517.819072729518`", ",", "2.4637690035639537`", ",", "0.6462042898761318`", ",", "409.1545546129011`", ",", "0.04350271608733268`", ",", "0.13257534563656595`", ",", "0.06544160287328454`", ",", "51.171473270014964`", ",", "217.0560059925792`", ",", "1.178576389857859`", ",", "0.08806769496291693`", ",", "0.00011644013116289758`", ",", "0.07440944788497769`", ",", "4.886873811148988`", ",", "18.51446323430252`", ",", "0.03835894676075689`", ",", "6.028107821546279`", ",", "260.399901591895`", ",", "0.3916289317587141`", ",", "0.0018776762115616475`", ",", "7.140555647481782`", ",", "0.3595739063476909`", ",", "4.631693386845893`", ",", "0.0393128342665645`", ",", "0.10637110140801895`", ",", "2.056896052286899`", ",", "0.29874514955749215`", ",", "0.017233723128669692`", ",", "1.6145639056812393`", ",", "6.335880738628881`", ",", "0.005433342864640789`", ",", "0.011146520824486212`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.822806035089309*^9}, CellLabel->"Out[2]=",ExpressionUUID->"e654376d-66e5-4660-bc67-9d0cfffc71c0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"data1", "=", RowBox[{"data", "[", RowBox[{"[", "1", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.8228060426867485`*^9, 3.8228060613967705`*^9}}, CellLabel->"In[6]:=",ExpressionUUID->"a135e200-b60c-4378-a135-84265bc08275"], Cell[BoxData[ RowBox[{"{", RowBox[{ "40.`", ",", "32.`", ",", "40.`", ",", "42.`", ",", "33.`", ",", "36.`", ",", "43.`", ",", "31.`", ",", "37.`", ",", "34.`", ",", "37.`", ",", "38.`", ",", "33.`", ",", "34.`", ",", "36.`", ",", "30.`", ",", "36.`", ",", "34.`", ",", "33.`", ",", "30.`", ",", "39.`", ",", "36.`", ",", "36.`", ",", "37.`", ",", "39.`", ",", "36.`", ",", "29.`", ",", "28.`", ",", "38.`", ",", "36.`", ",", "40.`", ",", "40.`", ",", "36.`", ",", "36.`", ",", "34.`", ",", "36.`", ",", "38.`", ",", "39.`", ",", "36.`", ",", "34.`", ",", "38.`", ",", "37.`", ",", "35.`", ",", "30.`", ",", "32.`", ",", "35.`", ",", "37.`", ",", "39.`", ",", "39.`", ",", "35.`"}], "}"}]], "Output", CellChangeTimes->{3.8228060954895024`*^9}, CellLabel->"Out[6]=",ExpressionUUID->"e3375691-a368-44bf-be35-c66d902ac9e3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"data2", "=", RowBox[{"data", "[", RowBox[{"[", "2", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.8228060652007756`*^9, 3.822806074506278*^9}}, CellLabel->"In[5]:=",ExpressionUUID->"8e761ac7-5722-449e-aa25-a2a05fe75db8"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.1528459259311064`", ",", RowBox[{"-", "0.5672090904489758`"}], ",", RowBox[{"-", "0.37497959738418063`"}], ",", "0.15534661390841517`", ",", RowBox[{"-", "1.6893121707931456`"}], ",", RowBox[{"-", "1.7473268279286407`"}], ",", "0.9173084441530089`", ",", "0.8141275242474356`", ",", RowBox[{"-", "0.35608138371755377`"}], ",", "1.5533200592473493`", ",", RowBox[{"-", "0.32974985172351534`"}], ",", "0.014776843000270075`", ",", "0.44209572845884526`", ",", RowBox[{"-", "1.0142362846008046`"}], ",", RowBox[{"-", "1.7356448159013973`"}], ",", RowBox[{"-", "1.1433342533905588`"}], ",", RowBox[{"-", "0.9557278582919851`"}], ",", "0.5859345472461241`", ",", "1.1333112793867115`", ",", RowBox[{"-", "1.6820861847781547`"}], ",", RowBox[{"-", "0.5706055437767917`"}], ",", RowBox[{"-", "0.5033038380230586`"}], ",", RowBox[{"-", "1.0631015022121637`"}], ",", RowBox[{"-", "1.1687127200118723`"}], ",", "0.46383721779307163`", ",", RowBox[{"-", "1.773506244551479`"}], ",", "1.4895978275662995`", ",", RowBox[{"-", "0.5044891407853977`"}], ",", RowBox[{"-", "0.7383628571656622`"}], ",", RowBox[{"-", "0.7213890804546671`"}], ",", "0.3137901670366981`", ",", RowBox[{"-", "1.6637833444760295`"}], ",", "0.27785334250870847`", ",", RowBox[{"-", "0.07803332025094434`"}], ",", RowBox[{"-", "0.18660038593469613`"}], ",", "0.35749803597232627`", ",", "0.487391701641346`", ",", "1.1345251912129284`", ",", "2.5890798481809765`", ",", RowBox[{"-", "0.5306466819049472`"}], ",", RowBox[{"-", "1.2659004410043495`"}], ",", "0.7672739154659253`", ",", RowBox[{"-", "0.24386913431913068`"}], ",", RowBox[{"-", "0.16742534427447517`"}], ",", RowBox[{"-", "0.5733986121385887`"}], ",", "0.8385350624725015`", ",", RowBox[{"-", "0.9062122110876718`"}], ",", RowBox[{"-", "0.5431698965541897`"}], ",", "2.4594177799069072`", ",", "1.8470538199257527`"}], "}"}]], "Output", CellChangeTimes->{3.822806075837571*^9}, CellLabel->"Out[5]=",ExpressionUUID->"dd969263-4e8f-4551-be2a-aa35ad6bec51"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"data3", "=", RowBox[{"data", "[", RowBox[{"[", "3", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.82280607732173*^9, 3.822806103460219*^9}}, CellLabel->"In[7]:=",ExpressionUUID->"b752eaf4-42da-4535-a4ea-4f561c526477"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.0026206752879721355`", ",", "10.404983908167136`", ",", "0.05314412353882697`", ",", "0.00902945102921528`", ",", "11.020621130514279`", ",", "0.9769389017608263`", ",", "422.55587862048304`", ",", "0.0027546770114727846`", ",", "0.11266570364833708`", ",", "0.014518044573464515`", ",", "0.002955894290988931`", ",", "0.3673872666582804`", ",", "0.8011356551866867`", ",", "0.9906841407866062`", ",", "0.010480378713617977`", ",", "0.14819333416435634`", ",", "0.5453983509634205`", ",", "15.967711361306211`", ",", "4517.819072729518`", ",", "2.4637690035639537`", ",", "0.6462042898761318`", ",", "409.1545546129011`", ",", "0.04350271608733268`", ",", "0.13257534563656595`", ",", "0.06544160287328454`", ",", "51.171473270014964`", ",", "217.0560059925792`", ",", "1.178576389857859`", ",", "0.08806769496291693`", ",", "0.00011644013116289758`", ",", "0.07440944788497769`", ",", "4.886873811148988`", ",", "18.51446323430252`", ",", "0.03835894676075689`", ",", "6.028107821546279`", ",", "260.399901591895`", ",", "0.3916289317587141`", ",", "0.0018776762115616475`", ",", "7.140555647481782`", ",", "0.3595739063476909`", ",", "4.631693386845893`", ",", "0.0393128342665645`", ",", "0.10637110140801895`", ",", "2.056896052286899`", ",", "0.29874514955749215`", ",", "0.017233723128669692`", ",", "1.6145639056812393`", ",", "6.335880738628881`", ",", "0.005433342864640789`", ",", "0.011146520824486212`"}], "}"}]], "Output", CellChangeTimes->{3.822806104393765*^9}, CellLabel->"Out[7]=",ExpressionUUID->"ca29a6f9-81e8-4af1-8f39-f59274e0d906"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "V\[YAcute]po\[CHacek]et", " ", "z\[AAcute]kladn\[IAcute]ch", " ", "statistick\[YAcute]ch", " ", "parametr\[URing]", " ", "polohy", " ", "o", " ", "dan\[YAcute]ch", " ", RowBox[{"datech", "."}]}], "*)"}], "\[IndentingNewLine]", StyleBox[ RowBox[{"(*", " ", RowBox[{"Data", " ", "jsou", " ", "kvalitativn\[IAcute]"}], "*)"}], FontColor->RGBColor[0, 1, 0]]}]], "Input", CellChangeTimes->{{3.8228061117094364`*^9, 3.822806153999817*^9}, { 3.8228094465253105`*^9, 3.8228094487137685`*^9}},ExpressionUUID->"a2dd45b5-0329-42cb-959a-\ fea3f9d72326"], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Budeme", " ", "po\[CHacek]\[IAcute]tat", " ", "v\[YAcute]b\[EHacek]rov\[YAcute]", " ", "pr\[URing]m\[EHacek]r"}], ",", " ", "medi\[AAcute]n", ",", " ", "rozsah", ",", "kvartily"}], "*)"}]], "Input", CellChangeTimes->{{3.8228061819142733`*^9, 3.8228062710289783`*^9}, 3.8228064560405507`*^9, {3.822806643476105*^9, 3.822806644013998*^9}},ExpressionUUID->"cc0470be-2c64-4729-bdc6-\ 6696c0fec338"], Cell[BoxData[ RowBox[{ RowBox[{"stat1", "[", "lis_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "<>", RowBox[{"ToString", "[", RowBox[{"Mean", "[", "lis", "]"}], "]"}]}], ",", RowBox[{"\"\\"", "<>", RowBox[{"ToString", "[", RowBox[{"Median", "[", "lis", "]"}], "]"}]}], ",", RowBox[{"\"\\"", "<>", RowBox[{"ToString", "[", RowBox[{ RowBox[{"Max", "[", "lis", "]"}], "-", RowBox[{"Min", "[", "lis", "]"}]}], "]"}]}], ",", RowBox[{"\"\\"", "<>", RowBox[{"ToString", "[", RowBox[{"Quantile", "[", RowBox[{"lis", ",", "0.25"}], "]"}], "]"}]}], ",", RowBox[{"\"\\"", "<>", RowBox[{"ToString", "[", RowBox[{"Quantile", "[", RowBox[{"lis", ",", "0.75"}], "]"}], "]"}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.8228062822106004`*^9, 3.8228064766659355`*^9}, { 3.822806557083233*^9, 3.822806636937945*^9}, {3.8228066869855113`*^9, 3.8228067076120825`*^9}, 3.822806786412507*^9, {3.8228068322266464`*^9, 3.8228068477669573`*^9}}, CellLabel->"In[15]:=",ExpressionUUID->"5f98fd2c-53b8-48cd-b777-eba994e8b756"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"stat1", "[", "data1", "]"}]], "Input", CellChangeTimes->{{3.8228066598572135`*^9, 3.8228066674986897`*^9}}, CellLabel->"In[16]:=",ExpressionUUID->"35a4b56b-c722-4b46-91a1-487e257cc5e6"], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"Pr\[URing]m\[EHacek]r: 35.78\"\>", ",", "\<\"Medi\[AAcute]n: 36.\"\>", ",", "\<\"Rozsah:15.\"\>", ",", "\<\"Horn\[IAcute] kvartil: 34.\"\>", ",", "\<\"Doln\[IAcute] kvartil: 38.\"\>"}], "}"}]], "Output", CellChangeTimes->{3.822806668985345*^9, 3.822806711553779*^9, 3.822806791703265*^9, 3.8228068536565323`*^9}, CellLabel->"Out[16]=",ExpressionUUID->"0ea809ff-4683-4121-b865-b1dfaecc253f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"stat1", "[", "data2", "]"}]], "Input", CellChangeTimes->{{3.8228068712902346`*^9, 3.822806885591407*^9}}, CellLabel->"In[18]:=",ExpressionUUID->"887ef443-3303-4c1b-80fc-5fe15ae7eaf1"], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"Pr\[URing]m\[EHacek]r: -0.100066\"\>", ",", "\<\"Medi\[AAcute]n: -0.286809\"\>", ",", "\<\"Rozsah:4.36259\"\>", ",", "\<\"Horn\[IAcute] kvartil: -0.906212\"\>", ",", "\<\"Doln\[IAcute] kvartil: 0.585935\"\>"}], "}"}]], "Output", CellChangeTimes->{{3.822806879691228*^9, 3.822806886169815*^9}}, CellLabel->"Out[18]=",ExpressionUUID->"cb7b2cc2-1c9b-41df-89ea-c796ffb06af1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"stat1", "[", "data3", "]"}]], "Input", CellChangeTimes->{{3.822806889046607*^9, 3.8228068966008253`*^9}}, CellLabel->"In[19]:=",ExpressionUUID->"7d338ce6-b848-4b9d-a9b7-0ea2d9f96ae8"], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"Pr\[URing]m\[EHacek]r: 119.535\"\>", ",", "\<\"Medi\[AAcute]n: 0.379508\"\>", ",", "\<\"Rozsah:4517.82\"\>", ",", "\<\"Horn\[IAcute] kvartil: 0.0393128\"\>", ",", "\<\"Doln\[IAcute] kvartil: 6.02811\"\>"}], "}"}]], "Output", CellChangeTimes->{3.8228068975142236`*^9}, CellLabel->"Out[19]=",ExpressionUUID->"18013774-a62e-42a7-8d9d-4e9a8b9a14c5"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "Nyn\[IAcute]", " ", "uvedeme", " ", "do", " ", "tabulky", " ", "kvantily", " ", "od", " ", "5", "%", " ", "do", " ", "95", "%"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tab1", "[", "lis_", "]"}], ":=", RowBox[{ RowBox[{"Grid", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", RowBox[{"Round", "[", RowBox[{ RowBox[{"Quantile", "[", RowBox[{"lis", ",", RowBox[{"i", "*", "0.01"}]}], "]"}], ",", "0.001"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "5", ",", "95", ",", "5"}], "}"}]}], "]"}], "]"}], ",", " ", RowBox[{"Alignment", " ", "\[Rule]", " ", "Right"}], ",", " ", RowBox[{"Frame", "\[Rule]", "All"}], ",", " ", RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}], " ", "//", "TableForm"}]}]}]], "Input", CellChangeTimes->{{3.8228069039269557`*^9, 3.8228070927587953`*^9}, { 3.822807141697059*^9, 3.8228071688201714`*^9}, {3.8228073148198223`*^9, 3.822807323120351*^9}, 3.822807369165347*^9, {3.822807431882332*^9, 3.822807434167562*^9}, {3.822807737496425*^9, 3.822807776739191*^9}, { 3.822807874168785*^9, 3.8228078812353477`*^9}}, CellLabel->"In[43]:=",ExpressionUUID->"4349b00e-01fb-45ff-be18-4a8fdaf488ae"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"tab1", "[", "data1", "]"}]], "Input", CellChangeTimes->{{3.8228070379495044`*^9, 3.8228070455452757`*^9}}, CellLabel->"In[44]:=",ExpressionUUID->"d5537ca4-0180-4b12-b72f-cd094b55f8f8"], Cell[BoxData[ TagBox[ TagBox[GridBox[{ {"5", "10", "15", "20", "25", "30", "35", "40", "45", "50", "55", "60", "65", "70", "75", "80", "85", "90", "95"}, {"30.`", "30.`", "32.`", "33.`", "34.`", "34.`", "35.`", "36.`", "36.`", "36.`", "36.`", "36.`", "37.`", "37.`", "38.`", "39.`", "39.`", "40.`", "40.`"} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Right}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.822807047479272*^9, 3.822807099948698*^9}, { 3.822807151395035*^9, 3.8228071728587255`*^9}, 3.8228073278258433`*^9, 3.82280737650191*^9, 3.8228074389438887`*^9, {3.82280776196474*^9, 3.8228077823676634`*^9}, 3.8228078863145723`*^9}, CellLabel-> "Out[44]//TableForm=",ExpressionUUID->"604acbf1-caa5-4902-ba7e-\ 85d569b22ac2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"tab1", "[", "data2", "]"}]], "Input", CellChangeTimes->{{3.822807444266556*^9, 3.822807483976532*^9}, { 3.8228079207048874`*^9, 3.822807921256343*^9}}, CellLabel->"In[47]:=",ExpressionUUID->"117ad54b-63ca-4820-8f1d-9c587e342e44"], Cell[BoxData[ TagBox[ TagBox[GridBox[{ {"5", "10", "15", "20", "25", "30", "35", "40", "45", "50", "55", "60", "65", "70", "75", "80", "85", "90", "95"}, { RowBox[{"-", "1.736`"}], RowBox[{"-", "1.682`"}], RowBox[{"-", "1.169`"}], RowBox[{"-", "1.063`"}], RowBox[{"-", "0.906`"}], RowBox[{"-", "0.721`"}], RowBox[{"-", "0.5670000000000001`"}], RowBox[{"-", "0.531`"}], RowBox[{"-", "0.375`"}], RowBox[{"-", "0.33`"}], RowBox[{"-", "0.167`"}], "0.015`", "0.314`", "0.442`", "0.586`", "0.8140000000000001`", "1.133`", "1.153`", "1.847`"} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Right}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.822807456209406*^9, 3.8228074846361322`*^9}, 3.8228077871198387`*^9, 3.8228078898271255`*^9, 3.8228079218083987`*^9}, CellLabel-> "Out[47]//TableForm=",ExpressionUUID->"1c213eac-942c-406c-b93e-\ 39c19147b200"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"tab1", "[", "data3", "]"}]], "Input", CellChangeTimes->{{3.8228079073940334`*^9, 3.822807913736499*^9}}, CellLabel->"In[46]:=",ExpressionUUID->"93355a8b-43dc-4397-9e8b-f19caf1a48e5"], Cell[BoxData[ TagBox[ TagBox[GridBox[{ {"5", "10", "15", "20", "25", "30", "35", "40", "45", "50", "55", "60", "65", "70", "75", "80", "85", "90", "95"}, {"0.003`", "0.003`", "0.01`", "0.015`", "0.039`", "0.053`", "0.088`", "0.113`", "0.299`", "0.367`", "0.646`", "0.977`", "1.615`", "2.464`", "6.0280000000000005`", "7.141`", "15.968`", "51.171`", "409.15500000000003`"} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Right}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.8228079149884634`*^9}, CellLabel-> "Out[46]//TableForm=",ExpressionUUID->"e94d0bd7-e333-4e7d-b7a1-\ 979b187392f5"] }, Open ]], Cell[BoxData[ RowBox[{"(*", RowBox[{ "Uveden\[IAcute]", " ", "jednoduch\[YAcute]ch", " ", "graf\[URing]"}], "*)"}]], "Input", CellChangeTimes->{{3.8228079370607214`*^9, 3.822807954233369*^9}},ExpressionUUID->"79326367-b95c-4cc5-bd4b-\ 06bc371ed10c"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Histogram", "[", RowBox[{"data1", ",", RowBox[{ "PlotLabel", "\[Rule]", "\"\\""}]}], "]"}]], "Input", CellChangeTimes->{{3.822807963386608*^9, 3.822808018647854*^9}}, CellLabel->"In[49]:=",ExpressionUUID->"eb3aea1d-911c-4f69-b818-bafeb274a1ec"], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.63], Thickness[Small]}], {}, {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.63], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{28., 0}, {30., 2.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{21.35048038430739, 63.10348278622894}, { 75.76633871934033, 100.96535391600986`}}], StatusArea[#, 2]& , TagBoxNote->"2"], StyleBox["2", {}, StripOnInput -> False]], Annotation[#, Style[2, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{30., 0}, {32., 4.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{62.60348278622894, 104.35648518815049`}, { 51.067323522670776`, 100.96535391600986`}}], StatusArea[#, 4]& , TagBoxNote->"4"], StyleBox["4", {}, StripOnInput -> False]], Annotation[#, Style[4, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{32., 0}, {34., 5.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{103.85648518815049`, 145.60948759007204`}, { 38.71781592433601, 100.96535391600986`}}], StatusArea[#, 5]& , TagBoxNote->"5"], StyleBox["5", {}, StripOnInput -> False]], Annotation[#, Style[5, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{34., 0}, {36., 8.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{145.10948759007204`, 186.86248999199358`}, { 1.6692931293316917`, 100.96535391600986`}}], StatusArea[#, 8]& , TagBoxNote->"8"], StyleBox["8", {}, StripOnInput -> False]], Annotation[#, Style[8, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{36., 0}, {38., 16.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{186.36248999199358`, 228.11549239391513`}, {-97.12676765734648, 100.96535391600986`}}], StatusArea[#, 16]& , TagBoxNote->"16"], StyleBox["16", {}, StripOnInput -> False]], Annotation[#, Style[16, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{38., 0}, {40., 9.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{227.61549239391513`, 269.3684947958367}, {-10.680214469003076`, 100.96535391600986`}}], StatusArea[#, 9]& , TagBoxNote->"9"], StyleBox["9", {}, StripOnInput -> False]], Annotation[#, Style[9, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{40., 0}, {42., 4.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{268.8684947958367, 310.6214971977581}, { 51.067323522670776`, 100.96535391600986`}}], StatusArea[#, 4]& , TagBoxNote->"4"], StyleBox["4", {}, StripOnInput -> False]], Annotation[#, Style[4, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{42., 0}, {44., 2.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{310.1214971977581, 351.87449959967967`}, { 75.76633871934033, 100.96535391600986`}}], StatusArea[#, 2]& , TagBoxNote->"2"], StyleBox["2", {}, StripOnInput -> False]], Annotation[#, Style[2, {}], "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{27.68, 0}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotLabel->FormBox[ "\"Celo\[CHacek]\[IAcute]seln\[EAcute] rozd\[EHacek]len\[IAcute]\"", TraditionalForm], PlotRange->{{28., 44.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.822807978986748*^9, 3.8228080225282903`*^9}, CellLabel->"Out[49]=",ExpressionUUID->"6a627680-33cb-4182-b2de-ccf7601be6d6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Histogram", "[", RowBox[{"data2", ",", "10"}], "]"}]], "Input", CellChangeTimes->{{3.82280802996908*^9, 3.822808037663477*^9}, { 3.8228080699601493`*^9, 3.8228080814149714`*^9}, {3.8228082155598283`*^9, 3.8228082680835333`*^9}, {3.822808306613035*^9, 3.822808335571954*^9}}, CellLabel->"In[59]:=",ExpressionUUID->"24322998-418c-4c74-890e-83bc12095020"], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.616], Thickness[Small]}], {}, {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.616], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-2., 0}, {-1.5, 6.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{21.350480384307446`, 54.85288230584467}, {-15.312166942184447`, 92.9653539160099}}], StatusArea[#, 6]& , TagBoxNote->"6"], StyleBox["6", {}, StripOnInput -> False]], Annotation[#, Style[6, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-1.5, 0}, {-1., 5.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{54.35288230584467, 87.8552842273819}, { 2.6507532008479444`, 92.9653539160099}}], StatusArea[#, 5]& , TagBoxNote->"5"], StyleBox["5", {}, StripOnInput -> False]], Annotation[#, Style[5, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-1., 0}, {-0.5, 11.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{87.3552842273819, 120.85768614891913`}, {-105.1267676573464, 92.9653539160099}}], StatusArea[#, 11]& , TagBoxNote->"11"], StyleBox["11", {}, StripOnInput -> False]], Annotation[#, Style[11, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-0.5, 0}, {0., 7.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{120.35768614891913`, 153.86008807045636`}, {-33.27508708521684, 92.9653539160099}}], StatusArea[#, 7]& , TagBoxNote->"7"], StyleBox["7", {}, StripOnInput -> False]], Annotation[#, Style[7, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0}, {0.5, 8.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{153.36008807045636`, 186.86248999199358`}, {-51.23800722824923, 92.9653539160099}}], StatusArea[#, 8]& , TagBoxNote->"8"], StyleBox["8", {}, StripOnInput -> False]], Annotation[#, Style[8, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0.5, 0}, {1., 5.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{186.36248999199358`, 219.8648919135308}, { 2.6507532008479444`, 92.9653539160099}}], StatusArea[#, 5]& , TagBoxNote->"5"], StyleBox["5", {}, StripOnInput -> False]], Annotation[#, Style[5, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1., 0}, {1.5, 4.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{219.3648919135308, 252.86729383506804`}, { 20.613673343880336`, 92.9653539160099}}], StatusArea[#, 4]& , TagBoxNote->"4"], StyleBox["4", {}, StripOnInput -> False]], Annotation[#, Style[4, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.5, 0}, {2., 2.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{252.36729383506804`, 285.86969575660527`}, { 56.53951362994512, 92.9653539160099}}], StatusArea[#, 2]& , TagBoxNote->"2"], StyleBox["2", {}, StripOnInput -> False]], Annotation[#, Style[2, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2., 0}, {2.5, 1.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{285.36969575660527`, 318.8720976781425}, { 74.50243377297751, 92.9653539160099}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2.5, 0}, {3., 1.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{318.3720976781425, 351.8744995996797}, { 74.50243377297751, 92.9653539160099}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{-2.1, 0}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRange->{{-2., 3.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.822808038629667*^9, 3.822808083871976*^9, {3.8228082192342405`*^9, 3.822808232749836*^9}, 3.822808269588415*^9, {3.8228083127285943`*^9, 3.8228083365908813`*^9}}, CellLabel->"Out[59]=",ExpressionUUID->"bba81d4b-67fb-4a08-86ec-9a47ec8348f9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Histogram", "[", "data3", "]"}]], "Input", CellChangeTimes->{{3.8228081019859653`*^9, 3.822808138926561*^9}, { 3.822808345049507*^9, 3.822808412459034*^9}}, CellLabel->"In[65]:=",ExpressionUUID->"3331ebe4-4338-42eb-bd7d-e33a1ba6c6b7"], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.609], Thickness[Small]}], {}, {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.609], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0}, {5., 37.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{21.350480384307446`, 54.047945673612055`}, {-105.06934477981858`, 93.02277679353776}}], StatusArea[#, 37]& , TagBoxNote->"37"], StyleBox["37", {}, StripOnInput -> False]], Annotation[#, Style[37, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5., 0}, {10., 3.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{53.547945673612055`, 86.24541096291667}, { 76.50179396326563, 93.02277679353776}}], StatusArea[#, 3]& , TagBoxNote->"3"], StyleBox["3", {}, StripOnInput -> False]], Annotation[#, Style[3, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{10., 0}, {15., 2.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{85.74541096291667, 118.44287625222128`}, { 81.84212157335634, 93.02277679353776}}], StatusArea[#, 2]& , TagBoxNote->"2"], StyleBox["2", {}, StripOnInput -> False]], Annotation[#, Style[2, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{15., 0}, {20., 2.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{117.94287625222128`, 150.64034154152588`}, { 81.84212157335634, 93.02277679353776}}], StatusArea[#, 2]& , TagBoxNote->"2"], StyleBox["2", {}, StripOnInput -> False]], Annotation[#, Style[2, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{50., 0}, {55., 1.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{343.32513327735353`, 376.02259856665813`}, { 87.18244918344705, 93.02277679353776}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{215., 0}, {220., 1.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{1405.8414878244057`, 1438.5389531137102`}, { 87.18244918344705, 93.02277679353776}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{260., 0}, {265., 1.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{1695.6186754281473`, 1728.3161407174518`}, { 87.18244918344705, 93.02277679353776}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{405., 0}, {410., 1.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{2629.3451688179807`, 2662.0426341072857`}, { 87.18244918344705, 93.02277679353776}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{420., 0}, {425., 1.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{2725.937564685895, 2758.6350299751994`}, { 87.18244918344705, 93.02277679353776}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4515., 0}, {4520., 1.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{29095.66163662637, 29128.359101915674`}, { 87.18244918344705, 93.02277679353776}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{-1.025, 0}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRange->{{0, 51.25}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.8228081134882298`*^9, 3.822808141988635*^9}, { 3.8228083555589943`*^9, 3.8228084146871843`*^9}}, CellLabel->"Out[65]=",ExpressionUUID->"a00d3cba-a89c-4383-8a93-7410116e067c"] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{"Charakteristiky", " ", RowBox[{"variability", ".", " ", "Rozptyl"}], " ", "dat", " ", "a", " ", "podobn\[EAcute]", " ", "charakteristiky"}], "*)"}]], "Input", CellChangeTimes->{{3.822808436084427*^9, 3.8228084374231195`*^9}, { 3.8228090866665*^9, 3.822809106432129*^9}, {3.822809415489513*^9, 3.822809429421406*^9}},ExpressionUUID->"cafd0add-a58a-45df-b985-\ 43001bbc9a84"], Cell[BoxData[ RowBox[{ RowBox[{"stat2", "[", "lis_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "<>", RowBox[{"ToString", "[", RowBox[{"Variance", "[", "lis", "]"}], "]"}]}], ",", RowBox[{ "\"\\"", "<>", RowBox[{"ToString", "[", RowBox[{"StandardDeviation", "[", "lis", "]"}], "]"}]}], ",", RowBox[{"\"\\"", "<>", RowBox[{"ToString", "[", RowBox[{"QuartileDeviation", "[", "lis", "]"}], "]"}]}], ",", RowBox[{"\"\\"", "<>", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Mean", "[", "lis", "]"}], ">", "0"}], ",", RowBox[{"ToString", "[", RowBox[{ RowBox[{"StandardDeviation", "[", "lis", "]"}], "/", RowBox[{"Mean", "[", "lis", "]"}]}], "]"}], ",", "\"\\""}], "]"}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.8228091102717643`*^9, 3.822809319988593*^9}, { 3.8228094723109155`*^9, 3.822809528755701*^9}, {3.822809614432543*^9, 3.822809680268058*^9}}, CellLabel->"In[69]:=",ExpressionUUID->"79263380-eab2-4d23-9d91-3977d8105288"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"stat2", "[", "data1", "]"}]], "Input", CellChangeTimes->{{3.822809536404818*^9, 3.822809547813714*^9}}, CellLabel->"In[70]:=",ExpressionUUID->"2740951c-3f5f-4601-8506-de179f0e3839"], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"V\[YAcute]b\[EHacek]rov\[YAcute] rozptyl dat: 11.0322\"\>", ",", "\<\"Sm\[EHacek]rodatn\[AAcute] odchylka v\[YAcute]b\[EHacek]rov\ \[AAcute]: 3.32148\"\>", ",", "\<\"Kvartilov\[AAcute] odchylka: 2.\"\>", ",", "\<\"Varia\[CHacek]n\[IAcute] koeficient: 0.0928307\"\>"}], "}"}]], "Output", CellChangeTimes->{3.8228095489393005`*^9, 3.822809684501944*^9}, CellLabel->"Out[70]=",ExpressionUUID->"86da2d25-b7b0-4988-a869-9c8ce45e664b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"stat2", "[", "data2", "]"}]], "Input", CellChangeTimes->{{3.822809578145277*^9, 3.822809585331586*^9}}, CellLabel->"In[71]:=",ExpressionUUID->"57d1a242-d98f-47b9-97a7-03efae6e985e"], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"V\[YAcute]b\[EHacek]rov\[YAcute] rozptyl dat: 1.17904\"\>", ",", "\<\"Sm\[EHacek]rodatn\[AAcute] odchylka v\[YAcute]b\[EHacek]rov\ \[AAcute]: 1.08583\"\>", ",", "\<\"Kvartilov\[AAcute] odchylka: 0.746073\"\>", ",", "\<\"Varia\[CHacek]n\[IAcute] koeficient: Neexistuje!\"\>"}], "}"}]], "Output", CellChangeTimes->{3.822809586966084*^9, 3.82280968731886*^9}, CellLabel->"Out[71]=",ExpressionUUID->"377a0cc2-92cb-4538-b3e8-604da8a88f9b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"stat2", "[", "data3", "]"}]], "Input", CellChangeTimes->{{3.8228096912083855`*^9, 3.8228097069984255`*^9}}, CellLabel->"In[73]:=",ExpressionUUID->"c65a2b57-74fe-40b7-98fc-1fbf50a631ef"], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"V\[YAcute]b\[EHacek]rov\[YAcute] rozptyl dat: 411444.\"\>", ",", "\<\"Sm\[EHacek]rodatn\[AAcute] odchylka v\[YAcute]b\[EHacek]rov\ \[AAcute]: 641.439\"\>", ",", "\<\"Kvartilov\[AAcute] odchylka: 2.9944\"\>", ",", "\<\"Varia\[CHacek]n\[IAcute] koeficient: 5.36611\"\>"}], "}"}]], "Output", CellChangeTimes->{{3.822809701337574*^9, 3.822809707581809*^9}}, CellLabel->"Out[73]=",ExpressionUUID->"b01a1696-120d-4cf2-8fdf-1a40023d6165"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Sort", "[", "data1", "]"}], ",", RowBox[{"Epilog", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Min", "[", "data1", "]"}], ",", RowBox[{"Mean", "[", "data1", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Max", "[", "data1", "]"}], ",", RowBox[{"Mean", "[", "data1", "]"}]}], "}"}]}], "}"}], "]"}], ",", "Blue", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Min", "[", "data1", "]"}], ",", RowBox[{"Median", "[", "data1", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Max", "[", "data1", "]"}], ",", RowBox[{"Median", "[", "data1", "]"}]}], "}"}]}], "}"}], "]"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.822810054506416*^9, 3.8228100786913753`*^9}, { 3.8228101109535837`*^9, 3.822810123736271*^9}, {3.8228101977577457`*^9, 3.822810350041418*^9}, {3.8228103834067187`*^9, 3.8228103878741736`*^9}, { 3.8228106795307226`*^9, 3.822810691218767*^9}, {3.822828671821377*^9, 3.822828811956045*^9}, {3.822828855206524*^9, 3.8228288937339716`*^9}, { 3.8228289316124105`*^9, 3.822828933258665*^9}, {3.822844360523958*^9, 3.8228444717509212`*^9}}, CellLabel->"In[84]:=",ExpressionUUID->"47e02f67-110f-4e02-b08e-9e5091e7209f"], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.011000000000000001`], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxt0TsKwkAURuGLlaWFhYWFioiIiMa35qXRqK1LEKzdwizZJajkn0AOBsLh uxdmIOk+XvdnzcyC7/tr8byTomGqgRqpdTVWG3ATbqmJ2lZTtQP3ijrvPjyA h+pBHcFjeAJP4ZnO9w7gObxQj+oSXsFreANv4R28h0M4gmNY/8F5p1U72H+X cg+X52aYZ//rOD9V5w62M/aw5djn1XPtgntgu2LvrXvsVt77AVNCP78= "]]}, {}}, {}, {}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., 27.250000000000004`}, DisplayFunction->Identity, Epilog->{ RGBColor[1, 0, 0], LineBox[{{28., 35.78}, {43., 35.78}}], RGBColor[0, 0, 1], LineBox[{{28., 36.}, {43., 36.}}]}, 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]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0., 50.}, {28., 43.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.82281008010137*^9, 3.822810126788691*^9, 3.8228103517495975`*^9, 3.822810389093824*^9, 3.822810696679736*^9, 3.822828868266367*^9, { 3.822828909198799*^9, 3.8228289346364527`*^9}, 3.8228444742276535`*^9}, CellLabel->"Out[84]=",ExpressionUUID->"6cde6617-2bb6-4167-9a2f-949a7254f310"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Sort", "[", "data2", "]"}], ",", RowBox[{"Epilog", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Min", "[", "data2", "]"}], ",", RowBox[{"Mean", "[", "data2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Max", "[", "data2", "]"}], ",", RowBox[{"Mean", "[", "data2", "]"}]}], "}"}]}], "}"}], "]"}], ",", "Blue", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Min", "[", "data2", "]"}], ",", RowBox[{"Median", "[", "data2", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Max", "[", "data2", "]"}], ",", RowBox[{"Median", "[", "data2", "]"}]}], "}"}]}], "}"}], "]"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.822828951379575*^9, 3.8228289796783257`*^9}, { 3.8228445114376693`*^9, 3.8228445409967403`*^9}, {3.8228445871032515`*^9, 3.8228445875931892`*^9}}, CellLabel->"In[87]:=",ExpressionUUID->"1c6e0f80-b5e2-42a6-b5aa-1e95e2f37c7c"], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.011000000000000001`], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJw1yWFIkwEQh/E1I7OpSDg0J6RzaUqFOtdsWvvPublYGK4ClcAStcLl1A8D kcwUc0QTUrQg0b6kqNUGUhgjHIUzJDJbW7RltRmZobFWaqayit17cBy/exLL dZpKNovFyvy3/29wfNLU2w1c1ZmNcXpgIdS5Fr68Tt6Oa+rey8IJxlFQDn3O 1IYyjoZoekeWfeEPORYb+qcqdx/jeEyaE18nyH6RE3BicYkXPuon87G/eMQd q2YsQKuybUzP/kFORm/NdftxiY+8Fw9N8z2a7u/kNLzS5VjNgUXyPtjqWgUj d+bJB1A2027s4zJOx2q/k6Mq8ZIzsMx60FGVxzgTlnjT/a5kxkIEvlgcd896 yFl4ci7KGrn+iSxCj4F3wSZgfBBXTxoGoniMxXANu7XDgbfkbKRsqe8Mm3KS D8Hswu7+OAdZgi6bsDNOPE3OAbv4yqU27yQ5F5aYmO6MmgnyYYx5Gj5sro2S j6DIV6HWyDukQUshXk16V+l9RgZS06fKS57PBN0MzA4WliZx31CX4edQdp3U 46QuQ9OA26NWv6eeh2iz4liLaZZ6HsThj1e0GR+py+G/ZX25Nu6lLscelnVb i/Er9XyUFV1MOxXxjXo+Gl9YGgscZJYCYdWB3JulS9QVSNbvZHP4fupKNKxw 5kJSyM1KRIjtNyLrmV4Aae0uQ4VjlXoBBtnV/CrXb+oqxLSfLzQYN6mrUCvq l8zdC0GwH0XYaUeT7tFW/AVYH/PS "]]}, {}}, {}, {}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., 0}, DisplayFunction->Identity, Epilog->{ RGBColor[1, 0, 0], LineBox[{{-1.773506244551479, -0.10006555485244643`}, { 2.5890798481809765`, -0.10006555485244643`}}], RGBColor[0, 0, 1], LineBox[{{-1.773506244551479, -0.286809493021323}, { 2.5890798481809765`, -0.286809493021323}}]}, 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]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0., 50.}, {-1.773506244551479, 2.5890798481809765`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.822844563227213*^9, 3.822844589484273*^9}}, CellLabel->"Out[87]=",ExpressionUUID->"3a77cd10-cc73-4cd1-ad96-f9d42772ff16"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.011000000000000001`], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJw1yWFIkwEQh/E1I7OpSDg0J6RzaUqFOtdsWvvPublYGK4ClcAStcLl1A8D kcwUc0QTUrQg0b6kqNUGUhgjHIUzJDJbW7RltRmZobFWaqayit17cBy/exLL dZpKNovFyvy3/29wfNLU2w1c1ZmNcXpgIdS5Fr68Tt6Oa+rey8IJxlFQDn3O 1IYyjoZoekeWfeEPORYb+qcqdx/jeEyaE18nyH6RE3BicYkXPuon87G/eMQd q2YsQKuybUzP/kFORm/NdftxiY+8Fw9N8z2a7u/kNLzS5VjNgUXyPtjqWgUj d+bJB1A2027s4zJOx2q/k6Mq8ZIzsMx60FGVxzgTlnjT/a5kxkIEvlgcd896 yFl4ci7KGrn+iSxCj4F3wSZgfBBXTxoGoniMxXANu7XDgbfkbKRsqe8Mm3KS D8Hswu7+OAdZgi6bsDNOPE3OAbv4yqU27yQ5F5aYmO6MmgnyYYx5Gj5sro2S j6DIV6HWyDukQUshXk16V+l9RgZS06fKS57PBN0MzA4WliZx31CX4edQdp3U 46QuQ9OA26NWv6eeh2iz4liLaZZ6HsThj1e0GR+py+G/ZX25Nu6lLscelnVb i/Er9XyUFV1MOxXxjXo+Gl9YGgscZJYCYdWB3JulS9QVSNbvZHP4fupKNKxw 5kJSyM1KRIjtNyLrmV4Aae0uQ4VjlXoBBtnV/CrXb+oqxLSfLzQYN6mrUCvq l8zdC0GwH0XYaUeT7tFW/AVYH/PS "]]}, {}}, {}, {}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., 0}, DisplayFunction->Identity, Epilog->{ RGBColor[1, 0, 0], LineBox[{{-0.10006555485244643`, 0}, {-0.10006555485244643`, 2.5890798481809765`}}], RGBColor[0, 0, 1], LineBox[{{-0.286809493021323, 0}, {-0.286809493021323, 2.5890798481809765`}}]}, 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]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0., 50.}, {-1.773506244551479, 2.5890798481809765`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Input", CellChangeTimes->{{3.8228445446839848`*^9, 3.8228445446929226`*^9}}, CellLabel->"In[85]:=",ExpressionUUID->"817274d8-8dfa-444b-b812-52f5ca337bb0"], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.011000000000000001`], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJw1yWFIkwEQh/E1I7OpSDg0J6RzaUqFOtdsWvvPublYGK4ClcAStcLl1A8D kcwUc0QTUrQg0b6kqNUGUhgjHIUzJDJbW7RltRmZobFWaqayit17cBy/exLL dZpKNovFyvy3/29wfNLU2w1c1ZmNcXpgIdS5Fr68Tt6Oa+rey8IJxlFQDn3O 1IYyjoZoekeWfeEPORYb+qcqdx/jeEyaE18nyH6RE3BicYkXPuon87G/eMQd q2YsQKuybUzP/kFORm/NdftxiY+8Fw9N8z2a7u/kNLzS5VjNgUXyPtjqWgUj d+bJB1A2027s4zJOx2q/k6Mq8ZIzsMx60FGVxzgTlnjT/a5kxkIEvlgcd896 yFl4ci7KGrn+iSxCj4F3wSZgfBBXTxoGoniMxXANu7XDgbfkbKRsqe8Mm3KS D8Hswu7+OAdZgi6bsDNOPE3OAbv4yqU27yQ5F5aYmO6MmgnyYYx5Gj5sro2S j6DIV6HWyDukQUshXk16V+l9RgZS06fKS57PBN0MzA4WliZx31CX4edQdp3U 46QuQ9OA26NWv6eeh2iz4liLaZZ6HsThj1e0GR+py+G/ZX25Nu6lLscelnVb i/Er9XyUFV1MOxXxjXo+Gl9YGgscZJYCYdWB3JulS9QVSNbvZHP4fupKNKxw 5kJSyM1KRIjtNyLrmV4Aae0uQ4VjlXoBBtnV/CrXb+oqxLSfLzQYN6mrUCvq l8zdC0GwH0XYaUeT7tFW/AVYH/PS "]]}, {}}, {}, {}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., 0}, DisplayFunction->Identity, Epilog->{ RGBColor[1, 0, 0], LineBox[{{-0.10006555485244643`, 0}, {-0.10006555485244643`, 2.5890798481809765`}}], RGBColor[0, 0, 1], LineBox[{{-0.286809493021323, 0}, {-0.286809493021323, 2.5890798481809765`}}]}, 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]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0., 50.}, {-1.773506244551479, 2.5890798481809765`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.8228445471171093`*^9}, CellLabel->"Out[85]=",ExpressionUUID->"cd7a5567-c45e-4f7f-886a-baee3ec0cf7e"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.822809313418508*^9, 3.8228093156292953`*^9}},ExpressionUUID->"fa5f1da3-bc1f-454c-87c8-\ 5de2f4ead592"] }, 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[558, 20, 255, 6, 28, "Input",ExpressionUUID->"cfd199b3-d820-49d2-a32a-8eca3f582feb"], Cell[816, 28, 527, 13, 48, "Input",ExpressionUUID->"d00c3e60-6702-44f8-9090-5d4e8df9a24e"], Cell[CellGroupData[{ Cell[1368, 45, 307, 5, 28, "Input",ExpressionUUID->"f2e44642-fee3-4249-aa83-611630b668d3"], Cell[1678, 52, 4732, 82, 166, "Output",ExpressionUUID->"a380b8a6-1647-4dde-bf66-9b0695b6d143"] }, Open ]], Cell[CellGroupData[{ Cell[6447, 139, 257, 5, 28, "Input",ExpressionUUID->"94a30676-0000-497e-840a-750bf2073675"], Cell[6707, 146, 4632, 81, 166, "Output",ExpressionUUID->"e654376d-66e5-4660-bc67-9d0cfffc71c0"] }, Open ]], Cell[CellGroupData[{ Cell[11376, 232, 256, 5, 28, "Input",ExpressionUUID->"a135e200-b60c-4378-a135-84265bc08275"], Cell[11635, 239, 863, 14, 52, "Output",ExpressionUUID->"e3375691-a368-44bf-be35-c66d902ac9e3"] }, Open ]], Cell[CellGroupData[{ Cell[12535, 258, 254, 5, 28, "Input",ExpressionUUID->"8e761ac7-5722-449e-aa25-a2a05fe75db8"], Cell[12792, 265, 2160, 39, 71, "Output",ExpressionUUID->"dd969263-4e8f-4551-be2a-aa35ad6bec51"] }, Open ]], Cell[CellGroupData[{ Cell[14989, 309, 251, 5, 28, "Input",ExpressionUUID->"b752eaf4-42da-4535-a4ea-4f561c526477"], Cell[15243, 316, 1696, 29, 71, "Output",ExpressionUUID->"ca29a6f9-81e8-4af1-8f39-f59274e0d906"] }, Open ]], Cell[16954, 348, 638, 15, 48, "Input",ExpressionUUID->"a2dd45b5-0329-42cb-959a-fea3f9d72326"], Cell[17595, 365, 477, 11, 28, "Input",ExpressionUUID->"cc0470be-2c64-4729-bdc6-6696c0fec338"], Cell[18075, 378, 1259, 28, 48, "Input",ExpressionUUID->"5f98fd2c-53b8-48cd-b777-eba994e8b756"], Cell[CellGroupData[{ Cell[19359, 410, 211, 3, 28, "Input",ExpressionUUID->"35a4b56b-c722-4b46-91a1-487e257cc5e6"], Cell[19573, 415, 451, 8, 32, "Output",ExpressionUUID->"0ea809ff-4683-4121-b865-b1dfaecc253f"] }, Open ]], Cell[CellGroupData[{ Cell[20061, 428, 209, 3, 28, "Input",ExpressionUUID->"887ef443-3303-4c1b-80fc-5fe15ae7eaf1"], Cell[20273, 433, 429, 7, 32, "Output",ExpressionUUID->"cb7b2cc2-1c9b-41df-89ea-c796ffb06af1"] }, Open ]], Cell[CellGroupData[{ Cell[20739, 445, 209, 3, 28, "Input",ExpressionUUID->"7d338ce6-b848-4b9d-a9b7-0ea2d9f96ae8"], Cell[20951, 450, 403, 7, 32, "Output",ExpressionUUID->"18013774-a62e-42a7-8d9d-4e9a8b9a14c5"] }, Open ]], Cell[21369, 460, 1468, 35, 48, "Input",ExpressionUUID->"4349b00e-01fb-45ff-be18-4a8fdaf488ae"], Cell[CellGroupData[{ Cell[22862, 499, 210, 3, 28, "Input",ExpressionUUID->"d5537ca4-0180-4b12-b72f-cd094b55f8f8"], Cell[23075, 504, 994, 22, 72, "Output",ExpressionUUID->"604acbf1-caa5-4902-ba7e-85d569b22ac2"] }, Open ]], Cell[CellGroupData[{ Cell[24106, 531, 257, 4, 28, "Input",ExpressionUUID->"117ad54b-63ca-4820-8f1d-9c587e342e44"], Cell[24366, 537, 1170, 30, 72, "Output",ExpressionUUID->"1c213eac-942c-406c-b93e-39c19147b200"] }, Open ]], Cell[CellGroupData[{ Cell[25573, 572, 208, 3, 28, "Input",ExpressionUUID->"93355a8b-43dc-4397-9e8b-f19caf1a48e5"], Cell[25784, 577, 844, 20, 72, "Output",ExpressionUUID->"e94d0bd7-e333-4e7d-b7a1-979b187392f5"] }, Open ]], Cell[26643, 600, 262, 7, 28, "Input",ExpressionUUID->"79326367-b95c-4cc5-bd4b-06bc371ed10c"], Cell[CellGroupData[{ Cell[26930, 611, 351, 8, 28, "Input",ExpressionUUID->"eb3aea1d-911c-4f69-b818-bafeb274a1ec"], Cell[27284, 621, 6027, 171, 258, "Output",ExpressionUUID->"6a627680-33cb-4182-b2de-ccf7601be6d6"] }, Open ]], Cell[CellGroupData[{ Cell[33348, 797, 386, 6, 28, "Input",ExpressionUUID->"24322998-418c-4c74-890e-83bc12095020"], Cell[33737, 805, 7242, 207, 243, "Output",ExpressionUUID->"bba81d4b-67fb-4a08-86ec-9a47ec8348f9"] }, Open ]], Cell[CellGroupData[{ Cell[41016, 1017, 262, 4, 28, "Input",ExpressionUUID->"3331ebe4-4338-42eb-bd7d-e33a1ba6c6b7"], Cell[41281, 1023, 7196, 205, 243, "Output",ExpressionUUID->"a00d3cba-a89c-4383-8a93-7410116e067c"] }, Open ]], Cell[48492, 1231, 433, 8, 28, "Input",ExpressionUUID->"cafd0add-a58a-45df-b985-43001bbc9a84"], Cell[48928, 1241, 1299, 29, 48, "Input",ExpressionUUID->"79263380-eab2-4d23-9d91-3977d8105288"], Cell[CellGroupData[{ Cell[50252, 1274, 207, 3, 28, "Input",ExpressionUUID->"2740951c-3f5f-4601-8506-de179f0e3839"], Cell[50462, 1279, 486, 8, 32, "Output",ExpressionUUID->"86da2d25-b7b0-4988-a869-9c8ce45e664b"] }, Open ]], Cell[CellGroupData[{ Cell[50985, 1292, 207, 3, 28, "Input",ExpressionUUID->"57d1a242-d98f-47b9-97a7-03efae6e985e"], Cell[51195, 1297, 491, 8, 32, "Output",ExpressionUUID->"377a0cc2-92cb-4538-b3e8-604da8a88f9b"] }, Open ]], Cell[CellGroupData[{ Cell[51723, 1310, 211, 3, 28, "Input",ExpressionUUID->"c65a2b57-74fe-40b7-98fc-1fbf50a631ef"], Cell[51937, 1315, 488, 8, 32, "Output",ExpressionUUID->"b01a1696-120d-4cf2-8fdf-1a40023d6165"] }, Open ]], Cell[CellGroupData[{ Cell[52462, 1328, 1583, 38, 28, "Input",ExpressionUUID->"47e02f67-110f-4e02-b08e-9e5091e7209f"], Cell[54048, 1368, 1849, 47, 250, "Output",ExpressionUUID->"6cde6617-2bb6-4167-9a2f-949a7254f310"] }, Open ]], Cell[CellGroupData[{ Cell[55934, 1420, 1287, 34, 28, "Input",ExpressionUUID->"1c6e0f80-b5e2-42a6-b5aa-1e95e2f37c7c"], Cell[57224, 1456, 2349, 55, 274, "Output",ExpressionUUID->"3a77cd10-cc73-4cd1-ad96-f9d42772ff16"] }, Open ]], Cell[CellGroupData[{ Cell[59610, 1516, 2320, 55, 237, InheritFromParent,ExpressionUUID->"817274d8-8dfa-444b-b812-52f5ca337bb0"], Cell[61933, 1573, 2295, 55, 241, "Output",ExpressionUUID->"cd7a5567-c45e-4f7f-886a-baee3ec0cf7e"] }, Open ]], Cell[64243, 1631, 154, 3, 28, "Input",ExpressionUUID->"fa5f1da3-bc1f-454c-87c8-5de2f4ead592"] } ] *)