(* 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[ 146461, 3737] NotebookOptionsPosition[ 126974, 3391] NotebookOutlinePosition[ 127422, 3408] CellTagsIndexPosition[ 127379, 3405] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Parametry dat", "Subtitle", CellChangeTimes->{{3.401691957421875*^9, 3.40169196725*^9}},ExpressionUUID->"770821e3-d0ca-40d1-8514-da23ca28d785"], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{ "V", " ", "tomto", " ", "souboru", " ", "se", " ", "procvi\[CHacek]uje", " ", "pr\[AAcute]ce", " ", "s", " ", "daty"}], " ", "-", " ", RowBox[{ "z\[IAcute]sk\[AAcute]v\[AAcute]n\[IAcute]", " ", "z\[AAcute]kladn\[IAcute]ch", " ", "parametr\[URing]"}]}], "*)"}]], "Input", CellChangeTimes->{{3.7934351806112533`*^9, 3.7934352450811243`*^9}},ExpressionUUID->"c303ccfb-166a-4a25-9da3-\ 37a58a7b7252"], Cell[CellGroupData[{ Cell["P\[RHacek]\[IAcute]klady 1, 2, and 3", "Subsection", CellChangeTimes->{{3.400169978046875*^9, 3.400169979953125*^9}},ExpressionUUID->"31485fa5-6394-45fe-a390-\ e9067dc78a5b"], Cell[BoxData[ RowBox[{ RowBox[{"data", "=", RowBox[{"{", RowBox[{ "6.5", ",", "6.2", ",", "5.5", ",", "5.25", ",", "4.8", ",", "4.75", ",", "4.2", ",", "3.5", ",", "1.5", ",", "1.4", ",", "0.75", ",", "0.575", ",", "0.5", ",", "0.46", ",", "0.35", ",", "0.315", ",", "0.29", ",", "0.1425", ",", "0.1375", ",", "0.135", ",", "0.125", ",", "0.1115", ",", "0.1115", ",", "0.109", ",", "0.109", ",", "0.109"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{3.400169616140625*^9}, CellLabel->"In[1]:=",ExpressionUUID->"4e85d20d-e961-4a0c-ab29-b3c6998d9a0d"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Mean", "[", "data", "]"}]], "Input", CellChangeTimes->{3.400169616140625*^9}, CellLabel->"In[2]:=",ExpressionUUID->"c3ac9de9-9d49-4081-819e-e056852e2030"], Cell[BoxData["1.8434615384615387`"], "Output", CellChangeTimes->{3.400169277625*^9, 3.40016963371875*^9, 3.7932508269597483`*^9}, CellLabel->"Out[2]=",ExpressionUUID->"552b2779-daab-4e89-8c56-8ebed38fee06"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HarmonicMean", "[", "data", "]"}]], "Input", CellChangeTimes->{3.400169616140625*^9}, CellLabel->"In[3]:=",ExpressionUUID->"3bbcb86e-117e-4413-8d59-645b5ae816c6"], Cell[BoxData["0.2739862149795698`"], "Output", CellChangeTimes->{3.400169277671875*^9, 3.40016963375*^9, 3.793250827005827*^9}, CellLabel->"Out[3]=",ExpressionUUID->"37fca039-73ba-4915-b20f-129175c5fda2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Median", "[", "data", "]"}]], "Input", CellChangeTimes->{3.400169616140625*^9}, CellLabel->"In[4]:=",ExpressionUUID->"45e69e47-090d-41d9-a27d-6b4c488ad506"], Cell[BoxData["0.48`"], "Output", CellChangeTimes->{3.400169277703125*^9, 3.40016963378125*^9, 3.7932508270241795`*^9}, CellLabel->"Out[4]=",ExpressionUUID->"51c35b9e-8492-49f6-8cc9-55a6bd0241e4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", "data", "]"}]], "Input", CellChangeTimes->{3.400169616140625*^9}, CellLabel->"In[5]:=",ExpressionUUID->"f2633ba5-8244-49c6-b642-25bd0dcf5a1d"], Cell[BoxData["26"], "Output", CellChangeTimes->{3.40016927771875*^9, 3.400169633796875*^9, 3.7932508270373526`*^9}, CellLabel->"Out[5]=",ExpressionUUID->"f4bfebfd-7406-44f9-9525-f2865b2f249f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"data", "[", RowBox[{"[", "13", "]"}], "]"}]], "Input", CellChangeTimes->{3.40016961615625*^9}, CellLabel->"In[6]:=",ExpressionUUID->"5b8c3063-2e25-46ed-a83d-d39e8f7a1e3f"], Cell[BoxData["0.5`"], "Output", CellChangeTimes->{3.400169277734375*^9, 3.4001696338125*^9, 3.7932508270548277`*^9}, CellLabel->"Out[6]=",ExpressionUUID->"21124bb1-93dc-4429-9642-1f05ff45d2b7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"data", "[", RowBox[{"[", "14", "]"}], "]"}]], "Input", CellChangeTimes->{3.40016961615625*^9}, CellLabel->"In[7]:=",ExpressionUUID->"37bf2486-8ec3-4198-9a64-097a5b8eed3b"], Cell[BoxData["0.46`"], "Output", CellChangeTimes->{3.40016927775*^9, 3.40016963384375*^9, 3.7932508270719533`*^9}, CellLabel->"Out[7]=",ExpressionUUID->"84e5d914-41c3-4076-91e7-a6aeb2ac5935"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"data", "[", RowBox[{"[", "13", "]"}], "]"}], "+", RowBox[{"data", "[", RowBox[{"[", "14", "]"}], "]"}]}], ")"}], "/", "2"}]], "Input", CellChangeTimes->{{3.40016961615625*^9, 3.40016961615625*^9}}, CellLabel->"In[8]:=",ExpressionUUID->"bef3aa37-be3f-45ab-9dcc-d3c2aa4d46b5"], Cell[BoxData["0.48`"], "Output", CellChangeTimes->{3.40016927775*^9, 3.400169633859375*^9, 3.7932508270888395`*^9}, CellLabel->"Out[8]=",ExpressionUUID->"d7a1fb96-e91e-46b6-948e-dfa2de70bf1c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Mode", "[", "data", "]"}]], "Input", CellChangeTimes->{3.40016961615625*^9}, CellLabel->"In[9]:=",ExpressionUUID->"71247984-5a25-46b5-821d-ecca44509ded"], Cell[BoxData[ RowBox[{"Mode", "[", RowBox[{"{", RowBox[{ "6.5`", ",", "6.2`", ",", "5.5`", ",", "5.25`", ",", "4.8`", ",", "4.75`", ",", "4.2`", ",", "3.5`", ",", "1.5`", ",", "1.4`", ",", "0.75`", ",", "0.575`", ",", "0.5`", ",", "0.46`", ",", "0.35`", ",", "0.315`", ",", "0.29`", ",", "0.1425`", ",", "0.1375`", ",", "0.135`", ",", "0.125`", ",", "0.1115`", ",", "0.1115`", ",", "0.109`", ",", "0.109`", ",", "0.109`"}], "}"}], "]"}]], "Output", CellChangeTimes->{3.400169277765625*^9, 3.400169633890625*^9, 3.793250827104905*^9}, CellLabel->"Out[9]=",ExpressionUUID->"6a63700c-f776-4cf0-aa1c-de679f1c39ec"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GeometricMean", "[", "data", "]"}]], "Input", CellChangeTimes->{3.40016961615625*^9}, CellLabel->"In[10]:=",ExpressionUUID->"c471858d-3ec0-4fbf-aef3-2e99bfe9e8cc"], Cell[BoxData["0.6502864675954982`"], "Output", CellChangeTimes->{3.400169277796875*^9, 3.40016963390625*^9, 3.793250827126912*^9}, CellLabel->"Out[10]=",ExpressionUUID->"f5be553b-e44e-48b4-8b44-eaee638f72ea"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TrimmedMean", "[", RowBox[{"data", ",", RowBox[{"3", "/", "26"}]}], "]"}]], "Input", CellChangeTimes->{3.40016961615625*^9}, CellLabel->"In[11]:=",ExpressionUUID->"8b451bd7-9455-45c0-a789-6e55bbb92dfa"], Cell[BoxData["1.47015`"], "Output", CellChangeTimes->{3.4001692778125*^9, 3.400169633921875*^9, 3.7932508271552696`*^9}, CellLabel->"Out[11]=",ExpressionUUID->"bd8e637d-75d5-41bf-bf33-ac1571b370be"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TrimmedMean", "[", RowBox[{"data", ",", RowBox[{"{", RowBox[{ RowBox[{"3", "/", "26"}], ",", RowBox[{"7", "/", "26"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{3.400169616171875*^9}, CellLabel->"In[12]:=",ExpressionUUID->"b96d3058-c953-4e7c-a643-06642300e9e8"], Cell[BoxData["0.6501875`"], "Output", CellChangeTimes->{3.400169277828125*^9, 3.4001696339375*^9, 3.793250827169897*^9}, CellLabel->"Out[12]=",ExpressionUUID->"b2fb8324-3ec5-4b18-8dab-9fa8ccf61894"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RootMeanSquare", "[", "data", "]"}]], "Input", CellChangeTimes->{3.400169616171875*^9}, CellLabel->"In[13]:=",ExpressionUUID->"2febe247-f04b-4fe3-a082-b5ab4b8d8954"], Cell[BoxData["2.908866551663141`"], "Output", CellChangeTimes->{3.40016927784375*^9, 3.40016963396875*^9, 3.793250827185972*^9}, CellLabel->"Out[13]=",ExpressionUUID->"7cc4b1c2-eac5-449b-9eb9-b2c1d05cd902"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Quartiles", "[", "data", "]"}]], "Input", CellChangeTimes->{3.400169616171875*^9}, CellLabel->"In[14]:=",ExpressionUUID->"83516ffd-bfe8-4fa7-92bb-44f5fdc09d09"], Cell[BoxData[ RowBox[{"{", RowBox[{"0.135`", ",", "0.48`", ",", "4.2`"}], "}"}]], "Output", CellChangeTimes->{3.400169277875*^9, 3.400169633984375*^9, 3.7932508272017975`*^9}, CellLabel->"Out[14]=",ExpressionUUID->"26fca34e-4ed6-45f1-9886-572f915a2443"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Quantile", "[", RowBox[{"data", ",", RowBox[{"6", "/", "26"}]}], "]"}]], "Input", CellChangeTimes->{3.400169616171875*^9}, CellLabel->"In[15]:=",ExpressionUUID->"04c6c665-0449-4554-89c2-71ae64faa8d2"], Cell[BoxData["0.125`"], "Output", CellChangeTimes->{3.400169277890625*^9, 3.400169634*^9, 3.7932508272186656`*^9}, CellLabel->"Out[15]=",ExpressionUUID->"06b184ae-f79b-4404-8392-2c8098e1f87e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Quantile", "[", RowBox[{"data", ",", RowBox[{"7", "/", "26"}]}], "]"}]], "Input", CellChangeTimes->{3.400169616171875*^9}, CellLabel->"In[16]:=",ExpressionUUID->"df9a60d2-f846-41bb-be93-2a1718f2342a"], Cell[BoxData["0.135`"], "Output", CellChangeTimes->{3.40016927790625*^9, 3.40016963403125*^9, 3.7932508272356997`*^9}, CellLabel->"Out[16]=",ExpressionUUID->"ff39dc00-770c-45fa-9238-b14cf9eca7f2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "/", "4"}], ")"}], " ", "26"}], "//", "N"}]], "Input", CellLabel->"In[17]:=",ExpressionUUID->"7392b8b7-76e0-4028-ba3b-6e06c5d0bc09"], Cell[BoxData["6.5`"], "Output", CellChangeTimes->{3.400169277921875*^9, 3.400169634046875*^9, 3.79325082725276*^9}, CellLabel->"Out[17]=",ExpressionUUID->"d7ffd9cd-25e0-47d4-8a2e-9b1580ab2c15"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Quantile", "[", RowBox[{"data", ",", RowBox[{"1", "/", "4"}]}], "]"}]], "Input", CellChangeTimes->{3.400169616171875*^9}, CellLabel->"In[18]:=",ExpressionUUID->"3d7bd81a-c6b6-4932-9c64-c6be3a902e50"], Cell[BoxData["0.135`"], "Output", CellChangeTimes->{3.4001692779375*^9, 3.4001696340625*^9, 3.7932508272687893`*^9}, CellLabel->"Out[18]=",ExpressionUUID->"8f5ae07a-8e32-4060-9106-03048f2002c6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "/", "5"}], ")"}], " ", "26"}], "//", "N"}]], "Input", CellLabel->"In[19]:=",ExpressionUUID->"ab65b006-3db2-4dd5-a3a8-567a9ae3b600"], Cell[BoxData["5.2`"], "Output", CellChangeTimes->{3.400169277953125*^9, 3.400169634078125*^9, 3.793250827287595*^9}, CellLabel->"Out[19]=",ExpressionUUID->"6b1f411e-6e3c-4798-aee2-d5b579273e2c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Quantile", "[", RowBox[{"data", ",", "0.2"}], "]"}]], "Input", CellChangeTimes->{3.400169616171875*^9}, CellLabel->"In[20]:=",ExpressionUUID->"cb0729a4-8f6b-4dd3-b365-2c803f6289ed"], Cell[BoxData["0.125`"], "Output", CellChangeTimes->{3.40016927796875*^9, 3.400169634109375*^9, 3.793250827305789*^9}, CellLabel->"Out[20]=",ExpressionUUID->"ef764e16-fcfc-49da-99a6-0aa090d345b5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Quantile", "[", RowBox[{"data", ",", "0.25"}], "]"}]], "Input", CellChangeTimes->{ 3.4001696161875*^9, {3.79325098635828*^9, 3.7932510323555875`*^9}}, CellLabel->"In[97]:=",ExpressionUUID->"41eb77dd-9d4c-40d4-b628-614d26b1dbda"], Cell[BoxData["0.135`"], "Output", CellChangeTimes->{ 3.400169277984375*^9, 3.400169634125*^9, {3.7932508273240166`*^9, 3.793250851967047*^9}, 3.793251034212197*^9}, CellLabel->"Out[97]=",ExpressionUUID->"733768ab-4361-4999-821f-3e739ebe3020"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Quantile", "[", RowBox[{"data", ",", RowBox[{"{", RowBox[{"0.1", ",", "0.25", ",", "0.5", ",", "0.75", ",", "0.9"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{ 3.4001696161875*^9, {3.7932510473532033`*^9, 3.7932510819558945`*^9}}, CellLabel->"In[98]:=",ExpressionUUID->"f093c6d0-81cd-4872-afca-dde2d2d13636"], Cell[BoxData[ RowBox[{"{", RowBox[{"0.109`", ",", "0.135`", ",", "0.46`", ",", "4.2`", ",", "5.5`"}], "}"}]], "Output", CellChangeTimes->{3.400169278*^9, 3.400169439859375*^9, 3.400169634140625*^9, 3.7932508273445053`*^9, 3.7932510840347333`*^9}, CellLabel->"Out[98]=",ExpressionUUID->"99628c46-1bc0-47a4-8a88-073078a31bf6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"Quantile", "[", RowBox[{"data", ",", RowBox[{"k", "/", "10"}]}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "9"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{3.4001696161875*^9}, CellLabel->"In[23]:=",ExpressionUUID->"0eeb7a93-a22d-47cf-bad1-13195b5daa91"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.109`", ",", "0.125`", ",", "0.1375`", ",", "0.315`", ",", "0.46`", ",", "0.75`", ",", "3.5`", ",", "4.75`", ",", "5.5`"}], "}"}]], "Output", CellChangeTimes->{3.400169278015625*^9, 3.40016963415625*^9, 3.7932508273628855`*^9}, CellLabel->"Out[23]=",ExpressionUUID->"ccbee270-1090-4745-a3db-545ff286748b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"Quantile", "[", RowBox[{"data", ",", RowBox[{"k", "/", "100"}]}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "99"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{ 3.4001696161875*^9, {3.793251109903172*^9, 3.7932511193282547`*^9}}, CellLabel->"In[99]:=",ExpressionUUID->"4c5da3dc-88ee-49d1-bc00-c5375e1e533e"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.109`", ",", "0.109`", ",", "0.109`", ",", "0.109`", ",", "0.109`", ",", "0.109`", ",", "0.109`", ",", "0.109`", ",", "0.109`", ",", "0.109`", ",", "0.109`", ",", "0.1115`", ",", "0.1115`", ",", "0.1115`", ",", "0.1115`", ",", "0.1115`", ",", "0.1115`", ",", "0.1115`", ",", "0.1115`", ",", "0.125`", ",", "0.125`", ",", "0.125`", ",", "0.125`", ",", "0.135`", ",", "0.135`", ",", "0.135`", ",", "0.1375`", ",", "0.1375`", ",", "0.1375`", ",", "0.1375`", ",", "0.1425`", ",", "0.1425`", ",", "0.1425`", ",", "0.1425`", ",", "0.29`", ",", "0.29`", ",", "0.29`", ",", "0.29`", ",", "0.315`", ",", "0.315`", ",", "0.315`", ",", "0.315`", ",", "0.35`", ",", "0.35`", ",", "0.35`", ",", "0.35`", ",", "0.46`", ",", "0.46`", ",", "0.46`", ",", "0.46`", ",", "0.5`", ",", "0.5`", ",", "0.5`", ",", "0.575`", ",", "0.575`", ",", "0.575`", ",", "0.575`", ",", "0.75`", ",", "0.75`", ",", "0.75`", ",", "0.75`", ",", "1.4`", ",", "1.4`", ",", "1.4`", ",", "1.4`", ",", "1.5`", ",", "1.5`", ",", "1.5`", ",", "1.5`", ",", "3.5`", ",", "3.5`", ",", "3.5`", ",", "3.5`", ",", "4.2`", ",", "4.2`", ",", "4.2`", ",", "4.75`", ",", "4.75`", ",", "4.75`", ",", "4.75`", ",", "4.8`", ",", "4.8`", ",", "4.8`", ",", "4.8`", ",", "5.25`", ",", "5.25`", ",", "5.25`", ",", "5.25`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "5.5`", ",", "6.2`", ",", "6.2`", ",", "6.2`", ",", "6.2`", ",", "6.5`", ",", "6.5`", ",", "6.5`"}], "}"}]], "Output", CellChangeTimes->{3.40016927803125*^9, 3.4001696341875*^9, 3.793250827387862*^9, 3.7932511217917213`*^9}, CellLabel->"Out[99]=",ExpressionUUID->"fc20d02c-a265-4bce-889d-dfa7bc854d5f"] }, Open ]], Cell[BoxData[{ RowBox[{"Clear", "[", "petcisel", "]"}], "\n", RowBox[{"\t\t", RowBox[{ RowBox[{"petcisel", "[", "list_", "]"}], " ", ":=", "\n", "\t", RowBox[{ RowBox[{"{", "\n", "\t", RowBox[{ RowBox[{"Min", "->", RowBox[{"Min", "[", "list", "]"}]}], ",", "\n", " ", RowBox[{ RowBox[{"dolni", " ", "kvartil"}], "->", " ", RowBox[{"Quantile", "[", RowBox[{"list", ",", "0.25"}], "]"}]}], ",", "\n", "\t", RowBox[{"Median", " ", "->", " ", RowBox[{"Median", "[", "list", "]"}]}], ",", "\n", " ", RowBox[{ RowBox[{"horni", " ", "kvartil"}], "->", " ", RowBox[{"Quantile", "[", RowBox[{"list", ",", "0.75"}], "]"}]}], ",", "\n", "\t\t\t\t", RowBox[{"Max", "->", RowBox[{"Max", "[", "list", "]"}]}]}], "\n", "\t", "}"}], " ", "/;", " ", RowBox[{"VectorQ", "[", "list", "]"}]}]}]}]}], "Input", CellChangeTimes->{ 3.400169316625*^9, {3.40229949809375*^9, 3.402299498109375*^9}, { 3.793251220464822*^9, 3.7932512417539005`*^9}}, CellLabel-> "In[103]:=",ExpressionUUID->"5f964b31-64e6-4f3b-8453-f426f63e8f36"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"petcisel", "[", "data", "]"}]], "Input", CellChangeTimes->{ 3.402299498125*^9, {3.7932512054338217`*^9, 3.7932512058755436`*^9}}, CellLabel-> "In[105]:=",ExpressionUUID->"2358bbb3-d1b9-4e14-b02c-967dea587b10"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"Min", "\[Rule]", "0.109`"}], ",", RowBox[{ RowBox[{"dolni", " ", "kvartil"}], "\[Rule]", "0.135`"}], ",", RowBox[{"Median", "\[Rule]", "0.48`"}], ",", RowBox[{ RowBox[{"horni", " ", "kvartil"}], "\[Rule]", "4.2`"}], ",", RowBox[{"Max", "\[Rule]", "6.5`"}]}], "}"}]], "Output", CellChangeTimes->{3.400169278640625*^9, 3.4001693848125*^9, 3.400169634203125*^9, 3.7932508274399967`*^9, 3.7932512076034904`*^9, 3.793251249893922*^9}, CellLabel-> "Out[105]=",ExpressionUUID->"48746755-a1b8-44c2-a220-b96a507bd0c7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"petcisel", "[", "data", "]"}]], "Input", CellChangeTimes->{3.4001696161875*^9, 3.402299498140625*^9}, CellLabel->"In[31]:=",ExpressionUUID->"59fbda56-4250-425a-9787-574268becea2"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"Min", "\[Rule]", "0.109`"}], ",", RowBox[{ RowBox[{"25", " ", "thPercentile"}], "\[Rule]", "0.135`"}], ",", RowBox[{"Median", "\[Rule]", "0.48`"}], ",", RowBox[{ RowBox[{"75", " ", "thPercentile"}], "\[Rule]", "4.2`"}], ",", RowBox[{"Max", "\[Rule]", "6.5`"}]}], "}"}]], "Output", CellChangeTimes->{3.400169278671875*^9, 3.400169402625*^9, 3.40016963428125*^9, 3.7932508274755845`*^9}, CellLabel->"Out[31]=",ExpressionUUID->"912a6993-5c4e-4c73-96aa-44f9d83b724d"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"report", "[", "lis_", "]"}], ":=", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"ToString", "[", "i", " ", "]"}], "<>", "\"\<%\>\""}], ",", RowBox[{"Quantile", "[", RowBox[{"lis", ",", RowBox[{"i", "/", "100"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "5", ",", "95", ",", "5"}], "}"}]}], "]"}], " ", "//", "TableForm"}]}]], "Input", CellChangeTimes->{{3.7932514917865324`*^9, 3.7932516713871794`*^9}}, CellLabel-> "In[108]:=",ExpressionUUID->"24c4d67b-a778-4498-b6ec-b9beb025660d"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"report", "[", "data", "]"}]], "Input", CellChangeTimes->{3.4001696161875*^9}, CellLabel-> "In[109]:=",ExpressionUUID->"bc026775-af77-4413-a099-aeefd17e901b"], Cell[BoxData[ TagBox[GridBox[{ {"\<\"5%\"\>", "0.109`"}, {"\<\"10%\"\>", "0.109`"}, {"\<\"15%\"\>", "0.1115`"}, {"\<\"20%\"\>", "0.125`"}, {"\<\"25%\"\>", "0.135`"}, {"\<\"30%\"\>", "0.1375`"}, {"\<\"35%\"\>", "0.29`"}, {"\<\"40%\"\>", "0.315`"}, {"\<\"45%\"\>", "0.35`"}, {"\<\"50%\"\>", "0.46`"}, {"\<\"55%\"\>", "0.575`"}, {"\<\"60%\"\>", "0.75`"}, {"\<\"65%\"\>", "1.4`"}, {"\<\"70%\"\>", "3.5`"}, {"\<\"75%\"\>", "4.2`"}, {"\<\"80%\"\>", "4.75`"}, {"\<\"85%\"\>", "5.25`"}, {"\<\"90%\"\>", "5.5`"}, {"\<\"95%\"\>", "6.2`"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.400169278703125*^9, 3.40016940846875*^9, 3.400169634296875*^9, 3.793250827490732*^9, {3.7932516547204514`*^9, 3.793251676720705*^9}}, CellLabel-> "Out[109]//TableForm=",ExpressionUUID->"1b70268a-5738-44c1-a079-\ 8923e2e35fb0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"report", "[", RowBox[{"RandomSample", "[", RowBox[{"data", ",", "8"}], "]"}], "]"}]], "Input", CellChangeTimes->{ 3.400169616203125*^9, {3.793251690403269*^9, 3.7932517082722254`*^9}, { 3.7932517476375446`*^9, 3.7932517489074125`*^9}, {3.7932517933944306`*^9, 3.7932518370394993`*^9}}, CellLabel-> "In[113]:=",ExpressionUUID->"7e0dee16-f0df-40b8-9801-df4bdcd10c43"], Cell[BoxData[ TagBox[GridBox[{ {"\<\"5%\"\>", "0.125`"}, {"\<\"10%\"\>", "0.125`"}, {"\<\"15%\"\>", "0.135`"}, {"\<\"20%\"\>", "0.135`"}, {"\<\"25%\"\>", "0.135`"}, {"\<\"30%\"\>", "0.29`"}, {"\<\"35%\"\>", "0.29`"}, {"\<\"40%\"\>", "0.575`"}, {"\<\"45%\"\>", "0.575`"}, {"\<\"50%\"\>", "0.575`"}, {"\<\"55%\"\>", "1.5`"}, {"\<\"60%\"\>", "1.5`"}, {"\<\"65%\"\>", "3.5`"}, {"\<\"70%\"\>", "3.5`"}, {"\<\"75%\"\>", "3.5`"}, {"\<\"80%\"\>", "4.2`"}, {"\<\"85%\"\>", "4.2`"}, {"\<\"90%\"\>", "4.8`"}, {"\<\"95%\"\>", "4.8`"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.40016927871875*^9, 3.4001696343125*^9, 3.7932508275106244`*^9, 3.793251713511435*^9, {3.7932518092407775`*^9, 3.7932518376946845`*^9}}, CellLabel-> "Out[113]//TableForm=",ExpressionUUID->"224bd766-ad92-4d44-a080-\ 3e27c06b8be8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"StandardDeviation", "[", "data", "]"}]], "Input", CellChangeTimes->{3.400169616203125*^9}, CellLabel->"In[34]:=",ExpressionUUID->"bbf70d70-c1d5-4ec9-bafc-85241613bbda"], Cell[BoxData["2.294707026716382`"], "Output", CellChangeTimes->{3.400169278734375*^9, 3.40016963434375*^9, 3.7932508275579753`*^9}, CellLabel->"Out[34]=",ExpressionUUID->"2329bbbf-ece9-4307-bfcb-abc799fb7037"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MeanDeviation", "[", "data", "]"}]], "Input", CellChangeTimes->{ 3.400169616203125*^9, {3.7932518976798167`*^9, 3.7932519025578985`*^9}}, CellLabel-> "In[114]:=",ExpressionUUID->"ad37e78a-d734-4cbd-aeef-60d41beb69e9"], Cell[BoxData["1.9963313609467457`"], "Output", CellChangeTimes->{3.40016927875*^9, 3.400169634359375*^9, 3.793250827580886*^9, 3.793251904184435*^9}, CellLabel-> "Out[114]=",ExpressionUUID->"40d07e27-b1fb-47c2-a00b-831ba2cabb76"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Variance", "[", "data", "]"}]], "Input", CellChangeTimes->{3.400169616203125*^9}, CellLabel->"In[36]:=",ExpressionUUID->"46ae1705-9936-44f5-ab2a-59c3a08dd145"], Cell[BoxData["5.2656803384615385`"], "Output", CellChangeTimes->{3.40016927875*^9, 3.400169634375*^9, 3.7932508275958924`*^9}, CellLabel->"Out[36]=",ExpressionUUID->"19c6286a-bee1-465d-9399-b57404a2401a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"StandardDeviation", "[", "data", "]"}]], "Input", CellChangeTimes->{ 3.400169616203125*^9, {3.7932519565772333`*^9, 3.7932519632796164`*^9}}, CellLabel-> "In[115]:=",ExpressionUUID->"d9f5cf94-1b1b-4d4b-b856-e031aaa0ee0b"], Cell[BoxData["2.294707026716382`"], "Output", CellChangeTimes->{3.40016927878125*^9, 3.400169634390625*^9, 3.7932508276121607`*^9, 3.793251964455214*^9}, CellLabel-> "Out[115]=",ExpressionUUID->"10be9cea-2cd0-4379-8b1d-659e97832393"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MedianDeviation", "[", "data", "]"}]], "Input", CellChangeTimes->{ 3.400169616203125*^9, {3.793251975914892*^9, 3.7932519803788795`*^9}}, CellLabel-> "In[116]:=",ExpressionUUID->"45d93f0f-c17f-41a3-97d8-c210b2683364"], Cell[BoxData["0.36975`"], "Output", CellChangeTimes->{3.40016927878125*^9, 3.40016963440625*^9, 3.793250827626403*^9, 3.7932519815951743`*^9}, CellLabel-> "Out[116]=",ExpressionUUID->"596a9cbc-b08b-4217-959e-9f7d704b60c4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TrimmedMean", "[", "data", "]"}]], "Input", CellChangeTimes->{ 3.400169616203125*^9, {3.79325204035015*^9, 3.793252045194905*^9}}, CellLabel-> "In[117]:=",ExpressionUUID->"b5a9a315-8f8f-461c-a146-2889dc6148c8"], Cell[BoxData["1.7217083333333332`"], "Output", CellChangeTimes->{3.400169278796875*^9, 3.4001696344375*^9, 3.793250827645235*^9, 3.7932520481108623`*^9}, CellLabel-> "Out[117]=",ExpressionUUID->"efc65d36-be41-4802-a1c4-4c2063cac056"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MeanDeviation", "[", "data", "]"}]], "Input", CellChangeTimes->{3.40016961621875*^9}, CellLabel->"In[40]:=",ExpressionUUID->"b949b209-b72e-4f6f-8589-dd2d0e5d64a1"], Cell[BoxData["1.9963313609467457`"], "Output", CellChangeTimes->{3.4001692788125*^9, 3.400169634453125*^9, 3.793250827661781*^9}, CellLabel->"Out[40]=",ExpressionUUID->"75ee90e0-8fee-4dd2-80f2-4c830a4846cc"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MedianDeviation", "[", "data", "]"}]], "Input", CellChangeTimes->{3.40016961621875*^9}, CellLabel->"In[41]:=",ExpressionUUID->"42f8b080-3615-4897-9e75-13db2629dd5b"], Cell[BoxData["0.36975`"], "Output", CellChangeTimes->{3.400169278828125*^9, 3.40016963446875*^9, 3.7932508276801834`*^9}, CellLabel->"Out[41]=",ExpressionUUID->"05276f53-9e92-4531-9f25-2441f53d8b67"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InterquartileRange", "[", "data", "]"}]], "Input", CellChangeTimes->{3.40016961621875*^9}, CellLabel->"In[42]:=",ExpressionUUID->"f8c262e5-7790-4def-ba95-9a8d0849b7c8"], Cell[BoxData["4.065`"], "Output", CellChangeTimes->{3.40016927884375*^9, 3.400169634484375*^9, 3.793250827696492*^9}, CellLabel->"Out[42]=",ExpressionUUID->"6aacf6ff-4d71-40ac-b49b-554503c6604b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"QuartileDeviation", "[", "data", "]"}]], "Input", CellChangeTimes->{3.40016961621875*^9}, CellLabel->"In[43]:=",ExpressionUUID->"495427b6-9490-4524-b6c7-94637ff3b0c8"], Cell[BoxData["2.0325`"], "Output", CellChangeTimes->{3.400169278859375*^9, 3.400169634515625*^9, 3.7932508277134304`*^9}, CellLabel->"Out[43]=",ExpressionUUID->"1b074bbf-c2d5-4e28-aca7-f190af318ef8"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"variacnikoeficient", "[", "data_", "]"}], ":=", RowBox[{ RowBox[{"StandardDeviation", "[", "data", "]"}], "/", RowBox[{"Mean", "[", "data", "]"}]}]}]], "Input", CellChangeTimes->{{3.793252371032978*^9, 3.7932523778314033`*^9}}, CellLabel-> "In[122]:=",ExpressionUUID->"8d73fb6e-d294-4c1b-877c-128a44295738"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"variacnikoeficient", "[", "data", "]"}]], "Input", CellChangeTimes->{{3.7932523853686485`*^9, 3.7932523943928385`*^9}}, CellLabel-> "In[123]:=",ExpressionUUID->"f9e11928-9b4e-4784-90cf-beb98739c476"], Cell[BoxData["1.2447816126564972`"], "Output", CellChangeTimes->{3.793252395469205*^9}, CellLabel-> "Out[123]=",ExpressionUUID->"5e770ff9-3555-40a4-a4b4-bd516408bd88"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"LocationReport", "[", "data_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"Pr\[URing]m\[EHacek]r", "\[Rule]", RowBox[{"Mean", "[", "data", "]"}]}], ",", RowBox[{ RowBox[{"Harmonick\[YAcute]", " ", "pr\[URing]m\[EHacek]r"}], "->", RowBox[{"HarmonicMean", "[", "data", "]"}]}], ",", RowBox[{"Medi\[AAcute]n", "\[Rule]", RowBox[{"Median", "[", "data", "]"}]}]}], "}"}]}]], "Input", CellChangeTimes->{{3.793252207183264*^9, 3.793252231327092*^9}}, CellLabel-> "In[119]:=",ExpressionUUID->"43b552f8-c6da-4511-b2c2-b392d4f8f687"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LocationReport", "[", "data", "]"}]], "Input", CellChangeTimes->{{3.7932522398475013`*^9, 3.793252251049591*^9}}, CellLabel-> "In[120]:=",ExpressionUUID->"a993864e-db51-4a51-af0c-1d886fcd7a26"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"Pr\[URing]m\[EHacek]r", "\[Rule]", "1.8434615384615387`"}], ",", RowBox[{ RowBox[{"Harmonick\[YAcute]", " ", "pr\[URing]m\[EHacek]r"}], "\[Rule]", "0.2739862149795698`"}], ",", RowBox[{"Medi\[AAcute]n", "\[Rule]", "0.48`"}]}], "}"}]], "Output", CellChangeTimes->{3.793252252132907*^9}, CellLabel-> "Out[120]=",ExpressionUUID->"0a6cd8e4-a3ea-482b-8b80-af078fd7baba"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"StandardErrorOfSampleMean", "[", "data_", "]"}], ":=", RowBox[{ RowBox[{"StandardDeviation", "[", "data", "]"}], "/", RowBox[{"Sqrt", "[", RowBox[{"Length", "[", "data", "]"}], "]"}]}]}]], "Input", CellLabel-> "In[121]:=",ExpressionUUID->"708534a7-a50e-428e-ae29-7c903157a703"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DispersionReport", "[", "data", "]"}]], "Input", CellChangeTimes->{3.40016961621875*^9}, CellLabel->"In[45]:=",ExpressionUUID->"d57de598-9469-4fba-9229-186703d2f758"], Cell[BoxData[ RowBox[{"DispersionReport", "[", RowBox[{"{", RowBox[{ "6.5`", ",", "6.2`", ",", "5.5`", ",", "5.25`", ",", "4.8`", ",", "4.75`", ",", "4.2`", ",", "3.5`", ",", "1.5`", ",", "1.4`", ",", "0.75`", ",", "0.575`", ",", "0.5`", ",", "0.46`", ",", "0.35`", ",", "0.315`", ",", "0.29`", ",", "0.1425`", ",", "0.1375`", ",", "0.135`", ",", "0.125`", ",", "0.1115`", ",", "0.1115`", ",", "0.109`", ",", "0.109`", ",", "0.109`"}], "}"}], "]"}]], "Output", CellChangeTimes->{3.400169278890625*^9, 3.40016945928125*^9, 3.400169634546875*^9, 3.793250827749364*^9}, CellLabel->"Out[45]=",ExpressionUUID->"fd4af7ab-d90b-45e3-aaaa-c3058efa4070"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"CentralMoment", "[", RowBox[{"data", ",", " ", "r"}], "]"}], ",", RowBox[{"{", RowBox[{"r", ",", "1", ",", "5"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{3.400169616234375*^9}, CellLabel->"In[47]:=",ExpressionUUID->"6dd391f6-8827-4436-ac77-268c08d887c7"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.`", ",", "5.063154171597631`", ",", "10.573558822077546`", ",", "55.247539065534355`", ",", "200.53529382712063`"}], "}"}]], "Output", CellChangeTimes->{3.40016927896875*^9, 3.40016963459375*^9, 3.793250827793171*^9}, CellLabel->"Out[47]=",ExpressionUUID->"e7b5f631-c362-4a71-b5be-334f9ec61715"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"vybsikmost", "[", "list_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Length", "[", "list", "]"}], "/", RowBox[{ RowBox[{"StandardDeviation", "[", "list", "]"}], "^", "3"}]}], "*", " ", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"list", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"Mean", "[", "list", "]"}]}], ")"}], "^", "3"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "list", "]"}]}], "}"}]}], "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Length", "[", "list", "]"}], "-", "1"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"Length", "[", "list", "]"}], "-", "2"}], ")"}]}], ")"}]}]}], "/;", " ", RowBox[{"VectorQ", "[", "list", "]"}]}]}]], "Input", CellChangeTimes->{3.402299743484375*^9}, CellLabel->"In[48]:=",ExpressionUUID->"23d32328-c278-4804-afd6-3b65c5906a4b"], Cell[BoxData[ RowBox[{"vybsikmost", "[", "data", "]"}]], "Input", CellChangeTimes->{3.400169616234375*^9, 3.402299743484375*^9}, CellLabel->"In[49]:=",ExpressionUUID->"8c300ee2-2761-4575-91d1-2bae827ba727"], Cell[BoxData[ RowBox[{ RowBox[{"Pearsonsikmost", "[", "data_", "]"}], ":=", RowBox[{"3", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Mean", "[", "data", "]"}], "-", RowBox[{ RowBox[{"Commonest", "[", "data", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "/", RowBox[{"StandardDeviation", "[", "data", "]"}]}]}]}]], "Input", CellLabel-> "In[125]:=",ExpressionUUID->"67f14b25-14f9-4c31-8a91-e07f03d6987b"], Cell[BoxData[{ RowBox[{"Clear", "[", "vybsikmost", "]"}], "\n", RowBox[{ RowBox[{ RowBox[{"vybsikmost", "[", "list_", "]"}], ":=", RowBox[{ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"n", ",", "k3", ",", "jmen", ",", "citat"}], "}"}], ",", "\n", "\t\t", RowBox[{ RowBox[{"n", "=", RowBox[{"Length", "[", "list", "]"}]}], ";", "\n", "\t\t\t", RowBox[{"citat", "=", RowBox[{"n", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"list", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"Mean", "[", "list", "]"}]}], ")"}], "^", "3"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]}], ";", "\n", "\t\t", RowBox[{"jmen", "=", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], RowBox[{"(", RowBox[{"n", "-", "2"}], ")"}]}]}], ";", "\n", "\t\t\t", RowBox[{"k3", "=", RowBox[{"citat", "/", "jmen"}]}], ";", "\n", "\t\t\t\t", RowBox[{"k3", "/", RowBox[{ RowBox[{"StandardDeviation", "[", "list", "]"}], "^", "3"}]}]}]}], "]"}], "/;", " ", RowBox[{"VectorQ", "[", "list", "]"}]}]}], ";"}]}], "Input", CellChangeTimes->{{3.4022997435*^9, 3.402299833296875*^9}}, CellLabel->"In[50]:=",ExpressionUUID->"946f34bd-0312-4ad9-82b0-89ba534dd763"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Min", "[", "data", "]"}]], "Input", CellChangeTimes->{3.400169616234375*^9}, CellLabel->"In[52]:=",ExpressionUUID->"72061442-e09f-4a54-8418-c09aa67c0204"], Cell[BoxData["0.109`"], "Output", CellChangeTimes->{3.400169279734375*^9, 3.400169634875*^9, 3.7932508278795013`*^9}, CellLabel->"Out[52]=",ExpressionUUID->"ce739af4-067b-4301-8abf-01a0e2242b34"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"vybsikmost", "[", "data", "]"}]], "Input", CellChangeTimes->{3.400169616234375*^9, 3.402299743515625*^9}, CellLabel->"In[53]:=",ExpressionUUID->"873fd20c-ae92-4e2d-8f60-8ae63d74fc14"], Cell[BoxData["0.9859046039612046`"], "Output", CellChangeTimes->{3.40016927975*^9, 3.400169634890625*^9, 3.793250827895155*^9}, CellLabel->"Out[53]=",ExpressionUUID->"504927b2-f094-4cda-bafc-f05e6ca1ed50"] }, Open ]], Cell[BoxData[{ RowBox[{"Clear", "[", "vybsikmost", "]"}], "\n", RowBox[{ RowBox[{ RowBox[{"vybsikmost", "[", "list_", "]"}], ":=", RowBox[{ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "n", "}"}], ",", "\n", "\t\t", RowBox[{ RowBox[{"n", "=", RowBox[{"Length", "[", "list", "]"}]}], ";", "\n", "\t\t\t\t", RowBox[{ RowBox[{"n", "/", RowBox[{ RowBox[{"StandardDeviation", "[", "list", "]"}], "^", "3"}]}], "*", " ", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"list", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"Mean", "[", "list", "]"}]}], ")"}], "^", "3"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], RowBox[{"(", RowBox[{"n", "-", "2"}], ")"}]}], ")"}]}]}]}]}], "]"}], "/;", " ", RowBox[{"VectorQ", "[", "list", "]"}]}]}], ";"}]}], "Input", CellChangeTimes->{{3.40229974353125*^9, 3.40229974353125*^9}}, CellLabel->"In[54]:=",ExpressionUUID->"845720b7-1462-45d9-b09e-c9d327a54c7b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"vybsikmost", "[", "data", "]"}]], "Input", CellChangeTimes->{3.400169616234375*^9, 3.40229974353125*^9}, CellLabel->"In[56]:=",ExpressionUUID->"3c0caa79-53c6-4688-9d6c-ced92fda134d"], Cell[BoxData["0.9859046039612046`"], "Output", CellChangeTimes->{3.40016927978125*^9, 3.40016963490625*^9, 3.793250827923027*^9}, CellLabel->"Out[56]=",ExpressionUUID->"b40e4936-9fd5-4115-ae78-8c8f6e4b213a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Skewness", "[", "data", "]"}]], "Input", CellChangeTimes->{3.400169616234375*^9}, CellLabel->"In[57]:=",ExpressionUUID->"e3f6fed5-390d-4fc0-8f6f-96be2ae404a7"], Cell[BoxData["0.9280886426103049`"], "Output", CellChangeTimes->{3.400169279796875*^9, 3.400169634921875*^9, 3.793250827938259*^9}, CellLabel->"Out[57]=",ExpressionUUID->"df670c4c-d887-41d4-8336-6a4e7fd329da"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Pearsonsikmost", "[", "data", "]"}]], "Input", CellChangeTimes->{ 3.40016961625*^9, {3.793252522052198*^9, 3.7932525235242558`*^9}}, CellLabel-> "In[126]:=",ExpressionUUID->"00f7ad5a-e7fa-47bf-8f0a-8c59df4d957d"], Cell[BoxData["2.267559455217434`"], "Output", CellChangeTimes->{3.4001692798125*^9, 3.4001696349375*^9, 3.793250827953292*^9, 3.7932525257265425`*^9}, CellLabel-> "Out[126]=",ExpressionUUID->"ad3e5ac7-bebf-4191-84bb-489e72e21038"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Pearsonsikmost2", "[", "data_", "]"}], ":=", RowBox[{"3", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Mean", "[", "data", "]"}], "-", RowBox[{"Median", "[", "data", "]"}]}], ")"}], "/", RowBox[{"StandardDeviation", "[", "data", "]"}]}]}]}]], "Input", CellChangeTimes->{{3.793252556092186*^9, 3.7932525589663196`*^9}}, CellLabel-> "In[127]:=",ExpressionUUID->"92d7df30-d329-4f31-a2e9-7425c2d2e85e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Pearsonsikmost2", "[", "data", "]"}]], "Input", CellChangeTimes->{ 3.40016961625*^9, {3.793252563543886*^9, 3.7932525648798695`*^9}}, CellLabel-> "In[128]:=",ExpressionUUID->"e3ea2c77-6c69-411a-948c-6dded82d5bb4"], Cell[BoxData["1.7825302174795554`"], "Output", CellChangeTimes->{3.400169279828125*^9, 3.400169634953125*^9, 3.7932508279706984`*^9, 3.7932525715381184`*^9}, CellLabel-> "Out[128]=",ExpressionUUID->"c58882d2-5b1f-40a8-89d8-3e04fc77fb7d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Mean", "[", "data", "]"}]], "Input", CellChangeTimes->{3.40016961625*^9}, CellLabel->"In[60]:=",ExpressionUUID->"8e2aeb93-7e5b-4e64-8d5e-556b47574ebf"], Cell[BoxData["1.8434615384615387`"], "Output", CellChangeTimes->{3.40016927984375*^9, 3.400169634953125*^9, 3.793250827985758*^9}, CellLabel->"Out[60]=",ExpressionUUID->"43a7cb2c-4240-463b-a38b-f92217052001"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Median", "[", "data", "]"}]], "Input", CellChangeTimes->{3.40016961625*^9}, CellLabel->"In[61]:=",ExpressionUUID->"c9dc479e-cfa2-45a1-aa4c-537b16b618d2"], Cell[BoxData["0.48`"], "Output", CellChangeTimes->{3.400169279859375*^9, 3.40016963496875*^9, 3.793250828002859*^9}, CellLabel->"Out[61]=",ExpressionUUID->"d45d8215-3e1e-4eab-9b9f-74b83efb91c5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"QuartileSkewness", "[", "data", "]"}]], "Input", CellChangeTimes->{3.40016961625*^9}, CellLabel->"In[62]:=",ExpressionUUID->"8d9cb0ac-44a0-4c05-9751-d4629de24717"], Cell[BoxData["0.8302583025830258`"], "Output", CellChangeTimes->{3.400169279875*^9, 3.400169634984375*^9, 3.793250828018895*^9}, CellLabel->"Out[62]=",ExpressionUUID->"fe8b4f54-1a40-489e-bda4-1573a746187e"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"vybspic", "[", "list_", "]"}], ":=", RowBox[{ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"n", ",", "one", ",", "two", ",", "k4"}], "}"}], ",", "\n", "\t\t", RowBox[{ RowBox[{"n", "=", RowBox[{"Length", "[", "list", "]"}]}], ";", "\n", "\t\t\t\t", RowBox[{"one", "=", RowBox[{"n", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"list", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"Mean", "[", "list", "]"}]}], ")"}], "^", "4"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]}], ";", "\n", "\t\t\t", RowBox[{"two", "=", RowBox[{"3", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"list", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"Mean", "[", "list", "]"}]}], ")"}], "^", "2"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], "^", "2"}]}]}], ";", "\n", "\t\t\t\t\t", RowBox[{"k4", "=", RowBox[{ RowBox[{"(", RowBox[{"one", "-", "two"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "2"}], ")"}], RowBox[{"(", RowBox[{"n", "-", "3"}], ")"}]}], ")"}]}]}], ";", "\n", "\t\t\t\t\t", RowBox[{"k4", "/", RowBox[{ RowBox[{"StandardDeviation", "[", "list", "]"}], "^", "4"}]}]}]}], "]"}], "/;", " ", RowBox[{"VectorQ", "[", "list", "]"}]}]}]], "Input", CellChangeTimes->{{3.402299860796875*^9, 3.40229986453125*^9}}, CellLabel->"In[64]:=",ExpressionUUID->"25ec8b1c-1b64-49c6-b124-c7f6fdf61e49"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"vybspic", "[", "data", "]"}]], "Input", CellChangeTimes->{3.40016961625*^9, 3.402299874328125*^9}, CellLabel->"In[65]:=",ExpressionUUID->"82864ef8-8caf-45ac-a544-cd0ee1621112"], Cell[BoxData[ RowBox[{"-", "0.7614071683614669`"}]], "Output", CellChangeTimes->{3.4001692801875*^9, 3.400169523046875*^9, 3.400169635*^9, 3.7932508280631075`*^9}, CellLabel->"Out[65]=",ExpressionUUID->"be08ea83-b652-48c0-b304-598a6f24a507"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Clear", "[", "n", "]"}], "\n", RowBox[{"n", "=", RowBox[{"Length", "[", "data", "]"}]}]}], "Input", CellChangeTimes->{3.400169616265625*^9}, CellLabel->"In[66]:=",ExpressionUUID->"c40f3ad7-dab5-4a99-a50b-1ec8c323eabf"], Cell[BoxData["26"], "Output", CellChangeTimes->{3.400169280203125*^9, 3.400169635015625*^9, 3.793250828079213*^9}, CellLabel->"Out[67]=",ExpressionUUID->"5d37837b-15ee-4c1a-965a-aeaa36c56d70"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"one", "=", RowBox[{"n", RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}], RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"data", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"Mean", "[", "data", "]"}]}], ")"}], "^", "4"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.400169616265625*^9, 3.400169616265625*^9}}, CellLabel->"In[68]:=",ExpressionUUID->"e2fe3964-24ac-43a1-b821-52e3345b40ca"], Cell[BoxData["2.5209452075603325`*^7"], "Output", CellChangeTimes->{3.40016928021875*^9, 3.40016963503125*^9, 3.793250828097599*^9}, CellLabel->"Out[68]=",ExpressionUUID->"1b658830-006a-4f15-8e09-1ba9cd5ae16a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"two", "=", RowBox[{"3", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"data", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"Mean", "[", "data", "]"}]}], ")"}], "^", "2"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], "^", "2"}]}]}]], "Input", CellChangeTimes->{{3.400169616265625*^9, 3.400169616265625*^9}}, CellLabel->"In[69]:=",ExpressionUUID->"1eec5499-1c3c-41c4-9565-54590546c467"], Cell[BoxData["51988.85517536325`"], "Output", CellChangeTimes->{3.400169280234375*^9, 3.400169635046875*^9, 3.7932508281151233`*^9}, CellLabel->"Out[69]=",ExpressionUUID->"9b5a4d6b-f93b-42ba-921e-a0e313993ec5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"d", "=", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "2"}], ")"}], RowBox[{"(", RowBox[{"n", "-", "3"}], ")"}], RowBox[{ RowBox[{"StandardDeviation", "[", "data", "]"}], "^", "4"}]}]}]], "Input", CellChangeTimes->{3.400169616265625*^9}, CellLabel->"In[70]:=",ExpressionUUID->"de21be30-37fd-49a1-8726-1df93402fbd4"], Cell[BoxData["15305.518963626948`"], "Output", CellChangeTimes->{3.40016928025*^9, 3.4001696350625*^9, 3.793250828133401*^9}, CellLabel->"Out[70]=",ExpressionUUID->"faab5f5b-2453-44ad-bd3d-ad7153851930"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{"one", "-", " ", "two"}], ")"}], "/", "d"}]], "Input", CellLabel->"In[71]:=",ExpressionUUID->"be2eaa30-b708-48ce-ba30-940b0c14d184"], Cell[BoxData["1643.6857371653866`"], "Output", CellChangeTimes->{3.400169280265625*^9, 3.400169635078125*^9, 3.7932508281494455`*^9}, CellLabel->"Out[71]=",ExpressionUUID->"f219d30a-262a-4f66-b6ab-12b3fd1c2b61"] }, Open ]], Cell[BoxData[{ RowBox[{"Clear", "[", "vybspic", "]"}], "\n", RowBox[{ RowBox[{"vybspic", "[", "list_", "]"}], ":=", RowBox[{ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "n", ",", "one", ",", "two", ",", "three", ",", "four", ",", "five", ",", "k4"}], "}"}], ",", "\n", "\t\t", RowBox[{ RowBox[{"n", "=", RowBox[{"Length", "[", "list", "]"}]}], ";", "\n", "\t\t\t\t\t", RowBox[{"one", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"n", "^", "3"}], "+", RowBox[{"n", "^", "2"}]}], ")"}], " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"list", "[", RowBox[{"[", "i", "]"}], "]"}], "^", "4"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]}], ";", "\n", "\t\t\t", RowBox[{"two", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"n", "^", "2"}], "+", "n"}], ")"}], "*", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"list", "[", RowBox[{"[", "i", "]"}], "]"}], "^", "3"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], "*", RowBox[{"Sum", "[", RowBox[{ RowBox[{"list", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]}], ";", "\n", "\t\t\t", RowBox[{"three", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"n", "^", "2"}], "-", "n"}], ")"}], "*", " ", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"list", "[", RowBox[{"[", "i", "]"}], "]"}], "^", "2"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], "^", "2"}]}]}], ";", "\n", "\t\t\t", RowBox[{"four", "=", RowBox[{"n", "*", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"list", "[", RowBox[{"[", "i", "]"}], "]"}], "^", "2"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], "*", " ", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"list", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], "^", "2"}]}]}], ";", "\n", "\t\t\t", RowBox[{"five", "=", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"list", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], "^", "4"}]}], ";", "\n", RowBox[{"k4", "=", RowBox[{ RowBox[{"(", RowBox[{"one", "-", RowBox[{"4", "two"}], "-", RowBox[{"3", "three"}], "+", RowBox[{"12", "four"}], "-", RowBox[{"6", "five"}]}], ")"}], "/", RowBox[{"(", RowBox[{"n", RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], RowBox[{"(", RowBox[{"n", "-", "2"}], ")"}], RowBox[{"(", RowBox[{"n", "-", "3"}], ")"}]}], ")"}]}]}], ";", "\n", "\t\t\t\t", RowBox[{"k4", "/", RowBox[{ RowBox[{"StandardDeviation", "[", "list", "]"}], "^", "4"}]}]}]}], "]"}], "/;", " ", RowBox[{"VectorQ", "[", "list", "]"}]}]}]}], "Input", CellChangeTimes->{{3.4022998828125*^9, 3.402299885296875*^9}}, CellLabel->"In[72]:=",ExpressionUUID->"cd6d64b2-c827-4b33-b846-aee1b65ecfa1"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"vybspic", "[", "data", "]"}]], "Input", CellChangeTimes->{3.400169616265625*^9, 3.4022998883125*^9}, CellLabel->"In[74]:=",ExpressionUUID->"158833be-1e08-42f9-b109-2675cdc227b0"], Cell[BoxData[ RowBox[{"-", "0.7614071683614685`"}]], "Output", CellChangeTimes->{3.40016928028125*^9, 3.40016963509375*^9, 3.793250828180913*^9}, CellLabel->"Out[74]=",ExpressionUUID->"84c25708-462a-49a3-a92c-d4a0e8e0525c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Kurtosis", "[", "data", "]"}]], "Input", CellChangeTimes->{3.40016961628125*^9}, CellLabel->"In[75]:=",ExpressionUUID->"e12a0b1c-eb73-4bda-b2fc-8d71e66c31d7"], Cell[BoxData["2.1551159156510664`"], "Output", CellChangeTimes->{3.400169280296875*^9, 3.400169635109375*^9, 3.7932508281979647`*^9}, CellLabel->"Out[75]=",ExpressionUUID->"ef056c30-de3c-49ef-88f4-603b6058dbcd"] }, Open ]], Cell[BoxData[{ RowBox[{"Clear", "[", "vybspic", "]"}], "\n", RowBox[{ RowBox[{"vybspic", "[", "list_", "]"}], ":=", RowBox[{ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"n", ",", "cit", ",", "jmen", ",", "pom"}], "}"}], ",", "\n", "\t\t\t", RowBox[{ RowBox[{"n", "=", RowBox[{"Length", "[", "list", "]"}]}], ";", "\n", "\t\t", RowBox[{"cit", "=", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "1"}], ")"}], "n", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"list", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"Mean", "[", "list", "]"}]}], ")"}], "^", "4"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]}], ";", "\n", "\t\t", RowBox[{"jmen", "=", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], RowBox[{"(", RowBox[{"n", "-", "2"}], ")"}], RowBox[{"(", RowBox[{"n", "-", "3"}], ")"}], " ", RowBox[{ RowBox[{"StandardDeviation", "[", "list", "]"}], "^", "4"}]}]}], ";", "\n", "\t\t", RowBox[{"pom", "=", RowBox[{"3", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], "^", "2"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "2"}], ")"}], RowBox[{"(", RowBox[{"n", "-", "3"}], ")"}]}], ")"}]}]}]}], ";", "\n", "\t\t", RowBox[{ RowBox[{"cit", "/", "jmen"}], "-", "pom"}]}]}], "]"}], "/;", " ", RowBox[{"VectorQ", "[", "list", "]"}]}]}]}], "Input", CellChangeTimes->{{3.402299893*^9, 3.402299895203125*^9}, { 3.402301280109375*^9, 3.4023013055*^9}, {3.40230156153125*^9, 3.40230157171875*^9}, {3.793252665528906*^9, 3.7932526660304937`*^9}}, CellLabel-> "In[132]:=",ExpressionUUID->"b57d932c-632f-4647-b2e8-f782c7f2532a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"vybspic", "[", "data", "]"}]], "Input", CellChangeTimes->{3.40016961596875*^9, 3.402299899015625*^9}, CellLabel-> "In[134]:=",ExpressionUUID->"9fefdae9-3c14-497b-8cc7-7e4f82cbf0e5"], Cell[BoxData[ RowBox[{"-", "0.7614071683614685`"}]], "Output", CellChangeTimes->{3.4001692803125*^9, 3.400169635125*^9, 3.793250828230033*^9, 3.793252607822296*^9, 3.793252672040798*^9}, CellLabel-> "Out[134]=",ExpressionUUID->"15db64fe-36dd-4076-afb2-4ef8c48417bf"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Kurtosis", "[", "data", "]"}]], "Input", CellChangeTimes->{3.400169615984375*^9}, CellLabel->"In[80]:=",ExpressionUUID->"50863764-8907-4aa1-9eaf-1a3da043281d"], Cell[BoxData["2.1551159156510664`"], "Output", CellChangeTimes->{3.400169281296875*^9, 3.40016963525*^9, 3.793250829410985*^9}, CellLabel->"Out[80]=",ExpressionUUID->"2c6365a6-7c45-4cbb-b2e4-41ddbe19f6b8"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"quartileKurtosis", "[", "list_", "]"}], ":=", RowBox[{ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"one", ",", "two", ",", "three"}], "}"}], ",", "\n", "\t\t", RowBox[{ RowBox[{"one", "=", RowBox[{ RowBox[{"Quantile", "[", RowBox[{"list", ",", "0.875"}], "]"}], "-", RowBox[{"Quantile", "[", RowBox[{"list", ",", "0.625"}], "]"}]}]}], ";", "\n", "\t\t", RowBox[{"two", "=", RowBox[{ RowBox[{"Quantile", "[", RowBox[{"list", ",", "0.375"}], "]"}], "-", RowBox[{"Quantile", "[", RowBox[{"list", ",", "0.125"}], "]"}]}]}], ";", "\n", "\t\t", RowBox[{"three", "=", RowBox[{ RowBox[{"Quantile", "[", RowBox[{"list", ",", "0.75"}], "]"}], "-", RowBox[{"Quantile", "[", RowBox[{"list", ",", "0.25"}], "]"}]}]}], ";", "\n", "\t\t", RowBox[{ RowBox[{"(", RowBox[{"one", "+", "two"}], ")"}], "/", "three"}]}]}], "]"}], "/;", " ", RowBox[{"VectorQ", "[", "list", "]"}]}]}]], "Input", CellLabel-> "In[135]:=",ExpressionUUID->"5186fbcc-4035-465c-a9ae-8087b018f8ba"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"quartileKurtosis", "[", "data", "]"}]], "Input", CellChangeTimes->{3.400169616*^9}, CellLabel-> "In[136]:=",ExpressionUUID->"364c9d58-ada0-4e18-a1d9-169bab3fd1ef"], Cell[BoxData["0.991020910209102`"], "Output", CellChangeTimes->{3.40016928134375*^9, 3.40016963528125*^9, 3.7932508294661865`*^9, 3.7932526970966053`*^9}, CellLabel-> "Out[136]=",ExpressionUUID->"a6c76925-de22-48f6-b5a1-f98fa64126e6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"6", "12.5"}]], "Input", CellLabel->"In[84]:=",ExpressionUUID->"87ee0d9e-b53d-41be-86ce-6d0343b633d9"], Cell[BoxData["75.`"], "Output", CellChangeTimes->{3.400169281375*^9, 3.400169635296875*^9, 3.793250829484465*^9}, CellLabel->"Out[84]=",ExpressionUUID->"bf22c60f-de8f-4920-b1f0-3893be414b8f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"875", "-", "250"}]], "Input", CellLabel->"In[85]:=",ExpressionUUID->"77128f4c-4abe-4c85-9201-50bd530ffbe3"], Cell[BoxData["625"], "Output", CellChangeTimes->{3.400169281390625*^9, 3.4001696353125*^9, 3.793250829501377*^9}, CellLabel->"Out[85]=",ExpressionUUID->"5a450bd1-a7f0-4b72-a37a-a43502140e98"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"stan1", "=", RowBox[{"Standardize", "[", "data", "]"}]}]], "Input", CellChangeTimes->{3.400169616015625*^9}, CellLabel->"In[90]:=",ExpressionUUID->"2a0996b9-a980-4648-862e-51bbb2378e8b"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.0292518423154653`", ",", "1.8985161987203498`", ",", "1.5934663636650803`", ",", "1.484519994002484`", ",", "1.2884165286098108`", ",", "1.2666272546772916`", ",", "1.02694524141958`", ",", "0.7218954063643106`", ",", RowBox[{"-", "0.14967555093645923`"}], ",", RowBox[{"-", "0.19325409880149777`"}], ",", RowBox[{"-", "0.4765146599242479`"}], ",", RowBox[{"-", "0.5527771186880653`"}], ",", RowBox[{"-", "0.5854610295868441`"}], ",", RowBox[{"-", "0.6028924487328595`"}], ",", RowBox[{"-", "0.6508288513844019`"}], ",", RowBox[{"-", "0.6660813431371654`"}], ",", RowBox[{"-", "0.676975980103425`"}], ",", RowBox[{"-", "0.7412543382043567`"}], ",", RowBox[{"-", "0.7434332655976087`"}], ",", RowBox[{"-", "0.7445227292942347`"}], ",", RowBox[{"-", "0.7488805840807385`"}], ",", RowBox[{"-", "0.7547636880425187`"}], ",", RowBox[{"-", "0.7547636880425187`"}], ",", RowBox[{"-", "0.7558531517391447`"}], ",", RowBox[{"-", "0.7558531517391447`"}], ",", RowBox[{"-", "0.7558531517391447`"}]}], "}"}]], "Output", CellChangeTimes->{3.40016928146875*^9, 3.400169635375*^9, 3.793250829595683*^9}, CellLabel->"Out[90]=",ExpressionUUID->"33c8d998-8462-4f3a-8ac9-2e4a842c3cd8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Mean", "[", "stan1", "]"}], "//", "Chop"}]], "Input", CellLabel->"In[91]:=",ExpressionUUID->"4ecad934-b222-431b-8aca-9ce6d98177ec"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.400169281484375*^9, 3.400169635390625*^9, 3.793250829613721*^9}, CellLabel->"Out[91]=",ExpressionUUID->"619d7be5-38d7-4d9f-bbc3-0e31f2e422f5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Variance", "[", "stan1", "]"}]], "Input", CellLabel->"In[92]:=",ExpressionUUID->"86e23295-e1b8-426a-a564-779bcbd2fa6d"], Cell[BoxData["1.`"], "Output", CellChangeTimes->{3.4001692815*^9, 3.40016963540625*^9, 3.7932508296323338`*^9}, CellLabel->"Out[92]=",ExpressionUUID->"e461844a-e9e0-45c6-8526-db97f8354165"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"stan2", "=", RowBox[{"Standardize", "[", "data", "]"}]}]], "Input", CellChangeTimes->{3.400169616015625*^9, 3.7932528668477883`*^9}, CellLabel-> "In[137]:=",ExpressionUUID->"7f3011a2-93af-442b-aa01-4a2bb5fbb5e3"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.0292518423154653`", ",", "1.8985161987203498`", ",", "1.5934663636650803`", ",", "1.484519994002484`", ",", "1.2884165286098108`", ",", "1.2666272546772916`", ",", "1.02694524141958`", ",", "0.7218954063643106`", ",", RowBox[{"-", "0.14967555093645923`"}], ",", RowBox[{"-", "0.19325409880149777`"}], ",", RowBox[{"-", "0.4765146599242479`"}], ",", RowBox[{"-", "0.5527771186880653`"}], ",", RowBox[{"-", "0.5854610295868441`"}], ",", RowBox[{"-", "0.6028924487328595`"}], ",", RowBox[{"-", "0.6508288513844019`"}], ",", RowBox[{"-", "0.6660813431371654`"}], ",", RowBox[{"-", "0.676975980103425`"}], ",", RowBox[{"-", "0.7412543382043567`"}], ",", RowBox[{"-", "0.7434332655976087`"}], ",", RowBox[{"-", "0.7445227292942347`"}], ",", RowBox[{"-", "0.7488805840807385`"}], ",", RowBox[{"-", "0.7547636880425187`"}], ",", RowBox[{"-", "0.7547636880425187`"}], ",", RowBox[{"-", "0.7558531517391447`"}], ",", RowBox[{"-", "0.7558531517391447`"}], ",", RowBox[{"-", "0.7558531517391447`"}]}], "}"}]], "Output", CellChangeTimes->{3.4001692815*^9, 3.400169635421875*^9, 3.7932508296887293`*^9, 3.793252867764691*^9}, CellLabel-> "Out[137]=",ExpressionUUID->"9da26aea-cedb-41a3-8e47-b3f8a6f192b3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Mean", "[", "stan2", "]"}], "//", "Chop"}]], "Input", CellLabel-> "In[138]:=",ExpressionUUID->"6568ab13-6919-4e80-a0a6-edd6bcef7419"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.400169281515625*^9, 3.400169635421875*^9, 3.7932508297415867`*^9, 3.7932528742787085`*^9}, CellLabel-> "Out[138]=",ExpressionUUID->"63a4a32b-76ee-4c73-b1de-75f06937b325"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"VarianceMLE", "[", "data_", "]"}], ":=", RowBox[{ RowBox[{"Variance", "[", "data", "]"}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Length", "[", "data", "]"}], "-", "1"}], ")"}], "/", RowBox[{"Length", "[", "data", "]"}]}]}]}]], "Input", CellLabel-> "In[139]:=",ExpressionUUID->"3f0e51fe-e475-43f9-95df-21244155ee6d"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VarianceMLE", "[", "stan2", "]"}]], "Input", CellLabel-> "In[140]:=",ExpressionUUID->"3c4bed07-3436-466b-a6df-9e616fd6afee"], Cell[BoxData["0.9615384615384616`"], "Output", CellChangeTimes->{3.40016928153125*^9, 3.4001696354375*^9, 3.7932508298202105`*^9, 3.7932529151971164`*^9}, CellLabel-> "Out[140]=",ExpressionUUID->"ca3d003d-dc3d-476a-9b7a-18fbbffe5315"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Histogram", "[", "data", "]"}]], "Input", CellChangeTimes->{{3.7932543738091774`*^9, 3.7932543824085207`*^9}}, CellLabel-> "In[141]:=",ExpressionUUID->"06825156-be75-4870-ae10-ea3d4ea5f054"], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.6579999999999999], Thickness[Small]}], {}, {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.6579999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0}, {2., 18.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{21.350480384307446`, 104.35648518815053`}, {-103.7726599125913, 94.31946166076496}}], StatusArea[#, 18]& , TagBoxNote->"18"], StyleBox["18", {}, StripOnInput -> False]], Annotation[#, Style[18, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2., 0}, {4., 1.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{103.85648518815053`, 186.8624899919936}, { 82.84212157335628, 94.31946166076496}}], 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[{4., 0}, {6., 5.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{186.3624899919936, 269.3684947958367}, { 38.932761223721556`, 94.31946166076496}}], 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[{6., 0}, {8., 2.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{268.8684947958367, 351.8744995996798}, { 71.86478148594759, 94.31946166076496}}], 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->{-0.16, 0}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRange->{{0., 8.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.7932543833937836`*^9}, CellLabel-> "Out[141]=",ExpressionUUID->"cf631478-e6ea-4c20-b05f-157963d4869c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Histogram", "[", RowBox[{"data", ",", "\"\\"", ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.7932543891235323`*^9, 3.793254396396783*^9}, { 3.7932544699262276`*^9, 3.7932544896742134`*^9}}, CellLabel-> "In[142]:=",ExpressionUUID->"9053d022-75ee-4e25-bb9f-dd989c25c206"], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.637], Thickness[Small]}], {}, {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.637], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0}, {1., 0.6153846153846154}, "RoundingRadius" -> 0]}, ImageSizeCache->{{24.29283426741393, 71.52736474894202}, {-104.2195469791164, 92.14687920931983}}], StatusArea[#, 0.6153846153846154]& , TagBoxNote->"0.6153846153846154"], StyleBox["0.6153846153846154`", {}, StripOnInput -> False]], Annotation[#, Style[0.6153846153846154, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1., 0}, {2., 0.07692307692307693}, "RoundingRadius" -> 0]}, ImageSizeCache->{{71.02736474894202, 118.26189523047012`}, { 67.16357593576531, 92.14687920931983}}], StatusArea[#, 0.07692307692307693]& , TagBoxNote->"0.07692307692307693"], StyleBox["0.07692307692307693`", {}, StripOnInput -> False]], Annotation[#, Style[0.07692307692307693, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{3., 0}, {4., 0.038461538461538464`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{164.4964257119982, 211.73095619352628`}, { 79.40522757254257, 92.14687920931983}}], StatusArea[#, 0.038461538461538464`]& , TagBoxNote->"0.038461538461538464"], StyleBox["0.038461538461538464`", {}, StripOnInput -> False]], Annotation[#, Style[0.038461538461538464`, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4., 0}, {5., 0.11538461538461539`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{211.23095619352628`, 258.46548667505436`}, { 54.92192429898804, 92.14687920931983}}], StatusArea[#, 0.11538461538461539`]& , TagBoxNote->"0.11538461538461539"], StyleBox["0.11538461538461539`", {}, StripOnInput -> False]], Annotation[#, Style[0.11538461538461539`, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5., 0}, {6., 0.07692307692307693}, "RoundingRadius" -> 0]}, ImageSizeCache->{{257.96548667505436`, 305.2000171565825}, { 67.16357593576531, 92.14687920931983}}], StatusArea[#, 0.07692307692307693]& , TagBoxNote->"0.07692307692307693"], StyleBox["0.07692307692307693`", {}, StripOnInput -> False]], Annotation[#, Style[0.07692307692307693, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{6., 0}, {7., 0.07692307692307693}, "RoundingRadius" -> 0]}, ImageSizeCache->{{304.7000171565825, 351.93454763811053`}, { 67.16357593576531, 92.14687920931983}}], StatusArea[#, 0.07692307692307693]& , TagBoxNote->"0.07692307692307693"], StyleBox["0.07692307692307693`", {}, StripOnInput -> False]], Annotation[#, Style[0.07692307692307693, {}], "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{-0.14, 0}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRange->{{0., 7.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.7932544915535655`*^9}, CellLabel-> "Out[142]=",ExpressionUUID->"b617884d-95c9-4cc7-84a0-bf8243e6901d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{"data", ",", RowBox[{"PlotLabel", "->", "\"\\""}]}], "]"}]], "Input", CellChangeTimes->{{3.793254548027545*^9, 3.7932545917914248`*^9}}, CellLabel-> "In[144]:=",ExpressionUUID->"a58a3dad-1750-446d-b834-118a08d06686"], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQAmIQDQEf7CG0lANUwOHsGRCQgPI5oLQYlBaA0qJQWsTB GAyEoXyYPhhfBmoeTJ8ClOaB0kpQ+gfUHSoOaWDwDcpXg8q/gPI1oPKPoHwt qPwDKF/HodCW6/rigrtQvh5U/TUo38BBM6b/0FeNK1C+oQOIF9N/Cco3cgBr tz0E5Rs7zJoJAgehfBMHj4dVIuvcYXxTqP0HoHwzB1W2xqnO3XugfHM0voUD iJfzfDeUb4nGt4LzAQmEVBM= "]]}, {}}, {}, {}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotLabel->FormBox["\"Zobrazen\[IAcute] dat\"", TraditionalForm], PlotRange->{{0., 26.}, {0, 6.5}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.793254553709962*^9, 3.793254594347763*^9}, CellLabel-> "Out[144]=",ExpressionUUID->"9ac66983-8163-4507-982f-ea14486a9012"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BoxWhiskerChart", "[", "data", "]"}]], "Input", CellChangeTimes->{{3.7932546798163567`*^9, 3.793254711180257*^9}}, CellLabel-> "In[145]:=",ExpressionUUID->"98d1492c-2c87-4b25-9825-51ca6c231172"], Cell[BoxData[ GraphicsBox[{ {Opacity[0], PointBox[{{-0.5, -0.21055000000000001`}, {1.8921138686126808`, 6.81955}}]}, {RGBColor[0.982864, 0.7431472, 0.3262672], CapForm[None], {}, {RGBColor[0.982864, 0.7431472, 0.3262672], {RGBColor[0.982864, 0.7431472, 0.3262672], TagBox[ TooltipBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], GraphicsGroupBox[{Antialiasing -> False, PolygonBox[{{0.5, 4.2}, {0.8921138686126808, 4.2}, { 0.8921138686126808, 0.135}, {0.5, 0.135}}], {}, {{}, {}}, {}, { GrayLevel[0], GrayLevel[1], LineBox[{{0.8921138686126808, 0.48}, {0.5, 0.48}}]}, {}, { GrayLevel[0], GrayLevel[0.5], LineBox[{{{0.6960569343063404, 0.135}, {0.6960569343063404, 0.109}}, {{0.6960569343063404, 4.2}, {0.6960569343063404, 6.5}}}]}, { GrayLevel[0], GrayLevel[0.5], LineBox[{{{0.7940854014595107, 0.109}, {0.5980284671531702, 0.109}}, {{0.7940854014595107, 6.5}, {0.5980284671531702, 6.5}}}]}, {}}]}, ImageSizeCache->{{155.5857864376269, 210.4142135623731}, {-92.4142135623731, 87.4142135623731}}], StyleBox[ TagBox[ GridBox[{{ StyleBox["\"max\"", Bold, StripOnInput -> False], "6.5`"}, { StyleBox["\"75%\"", Bold, StripOnInput -> False], "4.2`"}, { StyleBox["\"median\"", Bold, StripOnInput -> False], "0.48`"}, { StyleBox["\"25%\"", Bold, StripOnInput -> False], "0.135`"}, { StyleBox["\"min\"", Bold, StripOnInput -> False], "0.109`"}}, GridBoxAlignment -> {"Columns" -> {Center, ".", {Left}}}, AutoDelete -> False, GridBoxDividers -> {"Columns" -> { Directive[ GrayLevel[0.3]], { Directive[ GrayLevel[0.3]]}, Directive[ GrayLevel[0.3]]}, "Rows" -> { Directive[ GrayLevel[0.3]], { Directive[ GrayLevel[0.3]]}, Directive[ GrayLevel[0.3]]}}, GridBoxFrame -> { "ColumnsIndexed" -> {{{1, -1}, {1, -1}} -> GrayLevel[0]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaseStyle -> Directive[ AbsoluteThickness[1], Dashing[{}]]], "Grid"], {}, StripOnInput -> False]], Annotation[#, Style[ Grid[{{ Style["max", Bold], 6.5}, { Style["75%", Bold], 4.2}, { Style["median", Bold], 0.48}, { Style["25%", Bold], 0.135}, { Style["min", Bold], 0.109}}, Dividers -> {{ Directive[ GrayLevel[0.3]], { Directive[ GrayLevel[0.3]]}, Directive[ GrayLevel[0.3]]}, { Directive[ GrayLevel[0.3]], { Directive[ GrayLevel[0.3]]}, Directive[ GrayLevel[0.3]]}}, Alignment -> {{Center, ".", {Left}}}, Frame -> GrayLevel[0], BaseStyle -> Directive[ AbsoluteThickness[1], Dashing[{}]]], {}], "Tooltip"]& ]}}, {}, {}}, {{{{{{}, {}}, {}}, {}}, {}}, {}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{0.48039430656936594`, -0.21055000000000001`}, DisplayFunction->Identity, Frame->True, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {{{0.6960569343063404, FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {0.5, FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0, 0}}, { 0.8921138686126808, FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0, 0}}}, {{ 0.6960569343063404, FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {0.5, FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0, 0}}, { 0.8921138686126808, FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0, 0}}}}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRangePadding->{{ Scaled[0.05], Scaled[0.05]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{{{0.6960569343063404, FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {0.5, FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0, 0}}, { 0.8921138686126808, FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0, 0}}}, Automatic}]], "Output", CellChangeTimes->{3.7932547119733057`*^9}, CellLabel-> "Out[145]=",ExpressionUUID->"b4fe6faa-fe6b-4294-85cc-f8ab1916c9ce"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BoxWhiskerChart", "[", RowBox[{"{", RowBox[{"data", ",", RowBox[{"RandomSample", "[", RowBox[{"data", ",", "10"}], "]"}]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.793254726300189*^9, 3.793254749621668*^9}}, CellLabel-> "In[146]:=",ExpressionUUID->"09f865d7-c07b-454e-982c-44543d3b3c9d"], Cell[BoxData[ GraphicsBox[{ {Opacity[0], PointBox[{{0.10822661298032549`, -0.21055000000000001`}, { 2.340946769645711, 6.81955}}]}, {RGBColor[0.982864, 0.7431472, 0.3262672], CapForm[None], {}, {RGBColor[0.982864, 0.7431472, 0.3262672], {RGBColor[0.982864, 0.7431472, 0.3262672], TagBox[ TooltipBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], GraphicsGroupBox[{Antialiasing -> False, PolygonBox[{{0.5, 4.2}, {0.9491733826260362, 4.2}, { 0.9491733826260362, 0.135}, {0.5, 0.135}}], {}, {{}, {}}, {}, { GrayLevel[0], GrayLevel[1], LineBox[{{0.9491733826260362, 0.48}, {0.5, 0.48}}]}, {}, { GrayLevel[0], GrayLevel[0.5], LineBox[{{{0.7245866913130181, 0.135}, {0.7245866913130181, 0.109}}, {{0.7245866913130181, 4.2}, {0.7245866913130181, 6.5}}}]}, { GrayLevel[0], GrayLevel[0.5], LineBox[{{{0.8368800369695272, 0.109}, {0.6122933456565091, 0.109}}, {{0.8368800369695272, 6.5}, {0.6122933456565091, 6.5}}}]}, {}}]}, ImageSizeCache->{{79.5857864376269, 146.4142135623731}, {-92.4142135623731, 87.4142135623731}}], StyleBox[ TagBox[ GridBox[{{ StyleBox["\"max\"", Bold, StripOnInput -> False], "6.5`"}, { StyleBox["\"75%\"", Bold, StripOnInput -> False], "4.2`"}, { StyleBox["\"median\"", Bold, StripOnInput -> False], "0.48`"}, { StyleBox["\"25%\"", Bold, StripOnInput -> False], "0.135`"}, { StyleBox["\"min\"", Bold, StripOnInput -> False], "0.109`"}}, GridBoxAlignment -> {"Columns" -> {Center, ".", {Left}}}, AutoDelete -> False, GridBoxDividers -> {"Columns" -> { Directive[ GrayLevel[0.3]], { Directive[ GrayLevel[0.3]]}, Directive[ GrayLevel[0.3]]}, "Rows" -> { Directive[ GrayLevel[0.3]], { Directive[ GrayLevel[0.3]]}, Directive[ GrayLevel[0.3]]}}, GridBoxFrame -> { "ColumnsIndexed" -> {{{1, -1}, {1, -1}} -> GrayLevel[0]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaseStyle -> Directive[ AbsoluteThickness[1], Dashing[{}]]], "Grid"], {}, StripOnInput -> False]], Annotation[#, Style[ Grid[{{ Style["max", Bold], 6.5}, { Style["75%", Bold], 4.2}, { Style["median", Bold], 0.48}, { Style["25%", Bold], 0.135}, { Style["min", Bold], 0.109}}, Dividers -> {{ Directive[ GrayLevel[0.3]], { Directive[ GrayLevel[0.3]]}, Directive[ GrayLevel[0.3]]}, { Directive[ GrayLevel[0.3]], { Directive[ GrayLevel[0.3]]}, Directive[ GrayLevel[0.3]]}}, Alignment -> {{Center, ".", {Left}}}, Frame -> GrayLevel[0], BaseStyle -> Directive[ AbsoluteThickness[1], Dashing[{}]]], {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], TagBox[ TooltipBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], GraphicsGroupBox[{Antialiasing -> False, PolygonBox[{{1.5, 0.75}, {1.9491733826260362`, 0.75}, { 1.9491733826260362`, 0.1115}, {1.5, 0.1115}}], {}, {{}, {}}, {}, { GrayLevel[0], GrayLevel[1], LineBox[{{1.9491733826260362`, 0.3025}, {1.5, 0.3025}}]}, {}, { GrayLevel[0], GrayLevel[0.5], LineBox[{{{1.7245866913130181`, 0.1115}, {1.7245866913130181`, 0.109}}, {{1.7245866913130181`, 0.75}, {1.7245866913130181`, 5.25}}}]}, { GrayLevel[0], GrayLevel[0.5], LineBox[{{{1.8368800369695273`, 0.109}, {1.612293345656509, 0.109}}, {{1.8368800369695273`, 5.25}, {1.612293345656509, 5.25}}}]}, {}}]}, ImageSizeCache->{{220.5857864376269, 287.4142135623731}, {-58.41421356237311, 87.4142135623731}}], StyleBox[ TagBox[ GridBox[{{ StyleBox["\"max\"", Bold, StripOnInput -> False], "5.25`"}, { StyleBox["\"75%\"", Bold, StripOnInput -> False], "0.75`"}, { StyleBox["\"median\"", Bold, StripOnInput -> False], "0.3025`"}, { StyleBox["\"25%\"", Bold, StripOnInput -> False], "0.1115`"}, { StyleBox["\"min\"", Bold, StripOnInput -> False], "0.109`"}}, GridBoxAlignment -> {"Columns" -> {Center, ".", {Left}}}, AutoDelete -> False, GridBoxDividers -> {"Columns" -> { Directive[ GrayLevel[0.3]], { Directive[ GrayLevel[0.3]]}, Directive[ GrayLevel[0.3]]}, "Rows" -> { Directive[ GrayLevel[0.3]], { Directive[ GrayLevel[0.3]]}, Directive[ GrayLevel[0.3]]}}, GridBoxFrame -> { "ColumnsIndexed" -> {{{1, -1}, {1, -1}} -> GrayLevel[0]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaseStyle -> Directive[ AbsoluteThickness[1], Dashing[{}]]], "Grid"], {}, StripOnInput -> False]], Annotation[#, Style[ Grid[{{ Style["max", Bold], 5.25}, { Style["75%", Bold], 0.75}, { Style["median", Bold], 0.3025}, { Style["25%", Bold], 0.1115}, { Style["min", Bold], 0.109}}, Dividers -> {{ Directive[ GrayLevel[0.3]], { Directive[ GrayLevel[0.3]]}, Directive[ GrayLevel[0.3]]}, { Directive[ GrayLevel[0.3]], { Directive[ GrayLevel[0.3]]}, Directive[ GrayLevel[0.3]]}}, Alignment -> {{Center, ".", {Left}}}, Frame -> GrayLevel[0], BaseStyle -> Directive[ AbsoluteThickness[1], Dashing[{}]]], {}], "Tooltip"]& ]}}, {}, {}}, {{{{{{{}, {}}, {}}, {{{}, {}}, {}}}, {}}, \ {}}, {}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{0.42754133086869817`, -0.21055000000000001`}, DisplayFunction->Identity, Frame->True, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {{{0.7245866913130181, FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, { 1.7245866913130181`, FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {0.5, FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0, 0}}, { 1.9491733826260362`, FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0, 0}}}, {{ 0.7245866913130181, FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, { 1.7245866913130181`, FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {0.5, FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0, 0}}, { 1.9491733826260362`, FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0, 0}}}}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRangePadding->{{ Scaled[0.05], Scaled[0.05]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{{{0.7245866913130181, FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, { 1.7245866913130181`, FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {0.5, FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0, 0}}, { 1.9491733826260362`, FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0, 0}}}, Automatic}]], "Output", CellChangeTimes->{3.79325475237138*^9}, CellLabel-> "Out[146]=",ExpressionUUID->"634b40de-712b-44ce-945c-3a0e004b2f68"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"QuantilePlot", "[", "data", "]"}]], "Input", CellChangeTimes->{{3.7932547808167496`*^9, 3.793254790616869*^9}}, CellLabel-> "In[147]:=",ExpressionUUID->"d0867f95-78b9-4570-a49f-5c1fa7326249"], Cell[BoxData[ GraphicsBox[{{}, {{ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6], Dashing[Small], LineBox[{{-7.529509137252868, 0.}, {0.2534443231885817, 0.}}]}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6], Dashing[Small], LineBox[{{5.02166203911671, 6.5}, {18.590278368022105`, 6.5}}]}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6], Dashing[{0, Small}], LineBox[{{0.2534443231885817, 0.}, {5.02166203911671, 6.5}}]}}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQAmIQLXO5WEJVhOVA41Tn7pznu+3Pntq208ng534Yf7HG MqEIvQ9wftYE6dje/Y/2q7KBRPbYa9y8fc/m5lk4/8KJS3uOy2y2ZwCDA/Ye RwQO/Oy7Zu/xsEpknftB+2k14r/m1T22nzUTBA7ah3FVbq21fG1vy3V9cYHt IXsTHTXHAN+P9v2HvmrE9F+yn5Tn5yl774u9ZgxI5Ip9wDrNm5sjf9ingcE1 +50nLF5JnfxtXwg24K79bgdt5Q6T/1D7H9hP0pWd9T2Q0QGi/pF90VmuR4f4 mR0g8i/sF76TS9O8wQKV/2avcihYsmgDG1T+h/10VZ0TmvM5oHweB6M36/0+ reFyOHsGBAQcSvJOe7x+ygOVF3bwOzQ/JDWG38EYDIQdskv+5EWJC0LlRR3a ephO/DslBOWLOfBvPVZYyS0KNU/C4d3rSf7VJyWg8lIOAOEaqiE= "]]}, {}, {}}}, {}, {}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Epilog->{{}, StyleBox[ LineBox[{{-7.529509137252868, -10.609666023402687`}, { 18.590278368022105`, 24.99663991710534}}], Directive[ RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Dashing[{0, Small}]], StripOnInput -> False]}, Frame->{{True, True}, {True, True}}, 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->{{-2.5098363790842892`, 6.196759456007369}, {0, 6.5}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.7932547923968835`*^9}, CellLabel-> "Out[147]=",ExpressionUUID->"4261e886-cb6e-43a0-93be-6f2a950d6564"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"QuantilePlot", "[", RowBox[{ RowBox[{"{", RowBox[{"data", ",", RowBox[{"RandomSample", "[", RowBox[{"data", ",", "10"}], "]"}]}], "}"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.793254832162817*^9, 3.7932548516984034`*^9}, { 3.7932548872483983`*^9, 3.7932549470625496`*^9}, {3.793255003189034*^9, 3.7932550080844855`*^9}}, CellLabel-> "In[151]:=",ExpressionUUID->"0124ce4a-aa95-41f1-98c9-9cf2203048ab"], Cell[BoxData[ TemplateBox[{GraphicsBox[{{}, {{{ Hue[0.1421359549995791, 0.6, 0.6], Directive[ PointSize[0.012833333333333334`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Dashing[{0, Small}]], Dashing[Small], LineBox[{{-7.529509137252868, 0.}, {0.2534443231885817, 0.}}], Hue[0.37820393249936934`, 0.6, 0.6], Directive[ PointSize[0.012833333333333334`], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Dashing[{0, Small}]], Dashing[Small], LineBox[{{-7.529509137252868, 0.}, {0.06732299942239184, 0.}}]}, { Hue[0.1421359549995791, 0.6, 0.6], Directive[ PointSize[0.012833333333333334`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Dashing[{0, Small}]], Dashing[Small], LineBox[{{5.02166203911671, 6.5}, {18.590278368022105`, 6.5}}], Hue[0.37820393249936934`, 0.6, 0.6], Directive[ PointSize[0.012833333333333334`], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Dashing[{0, Small}]], Dashing[Small], LineBox[{{5.704773091491863, 6.5}, {18.590278368022105`, 6.5}}]}, {}, {}, { Hue[0.1421359549995791, 0.6, 0.6], Directive[ PointSize[0.012833333333333334`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Dashing[{0, Small}]], LineBox[{{0.2534443231885817, 0.}, {5.02166203911671, 6.5}}]}, { Hue[0.37820393249936934`, 0.6, 0.6], Directive[ PointSize[0.012833333333333334`], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Dashing[{0, Small}]], LineBox[{{0.06732299942239184, 0.}, {5.704773091491863, 6.5}}]}}, {{}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.012833333333333334`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQAmIQLXO5WEJVhOVA41Tn7pznu+3Pntq208ng534Yf7HG MqEIvQ9wftYE6dje/Y/2q7KBRPbYa9y8fc/m5lk4/8KJS3uOy2y2ZwCDA/Ye RwQO/Oy7Zu/xsEpknftB+2k14r/m1T22nzUTBA7ah3FVbq21fG1vy3V9cYHt IXsTHTXHAN+P9v2HvmrE9F+yn5Tn5yl774u9ZgxI5Ip9wDrNm5sjf9ingcE1 +50nLF5JnfxtXwg24K79bgdt5Q6T/1D7H9hP0pWd9T2Q0QGi/pF90VmuR4f4 mR0g8i/sF76TS9O8wQKV/2avcihYsmgDG1T+h/10VZ0TmvM5oHweB6M36/0+ reFyOHsGBAQcSvJOe7x+ygOVF3bwOzQ/JDWG38EYDIQdskv+5EWJC0LlRR3a ephO/DslBOWLOfBvPVZYyS0KNU/C4d3rSf7VJyWg8lIOAOEaqiE= "]]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[0.012833333333333334`], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], PointBox[{{-1.7775118268051524`, 0.109}, {-0.6015373947897862, 0.1115}, {0.16402695100173803`, 0.1115}, {0.7903897986931087, 0.125}, {1.3580369439991622`, 0.1375}, {1.908863056000837, 0.29}, { 2.476510201306891, 0.5}, {3.102873048998261, 3.5}, { 3.868437394789784, 5.25}, {5.044411826805149, 6.2}}]}, {}, {}, {}}}, {}, {}, {}, {}}, { DisplayFunction -> Identity, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, AxesOrigin -> {0, 0}, PlotRange -> {{-2.5098363790842892`, 6.196759456007369}, {0, 6.5}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Epilog -> {{}, StyleBox[ LineBox[{{-7.529509137252868, -10.609666023402687`}, { 18.590278368022105`, 24.99663991710534}}], Directive[ RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Dashing[{0, Small}]], StripOnInput -> False], StyleBox[ LineBox[{{-7.529509137252868, -8.759174463975137}, { 18.590278368022105`, 21.357033398002176`}}], Directive[ RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Dashing[{0, Small}]], StripOnInput -> False]}, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{-2.5098363790842892`, 6.196759456007369}, {0, 6.5}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{"\"data\"", "\"v\[YAcute]b\[EHacek]r z dat\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Dashing[{0, Small}]], { LineBox[{{0, 10}, {30, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Dashing[{0, Small}]], { InsetBox[ GraphicsBox[{ Opacity[1], Directive[ RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], AbsolutePointSize[5], PointBox[{0, 0}]}, {DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Dashing[{0, Small}]]}}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {30, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Dashing[{0, Small}]], { LineBox[{{0, 10}, {30, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Dashing[{0, Small}]], { InsetBox[ GraphicsBox[{ Opacity[1], Directive[ RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], AbsolutePointSize[5], PointBox[{0, 0}]}, {DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Dashing[{0, Small}]]}}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {30, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"0", ",", "Small"}], "}"}], "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"0", ",", "Small"}], "}"}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ GraphicsBox[{ Opacity[1], Directive[ RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], AbsolutePointSize[5], PointBox[{0, 0}]}], ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[{ Opacity[1], Directive[ RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], AbsolutePointSize[5], PointBox[{0, 0}]}], ",", "Automatic"}], "}"}]}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"True", ",", "True"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", RowBox[{"LegendMarkerSize", "\[Rule]", RowBox[{"{", RowBox[{"30", ",", "10"}], "}"}]}], ",", RowBox[{"\"Dividers\"", "\[Rule]", "False"}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{3.793254916044632*^9, 3.793254954948744*^9, 3.7932550093724504`*^9}, CellLabel-> "Out[151]=",ExpressionUUID->"d3e2d919-3eb4-4e9a-93fd-dc9569c76b5f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ProbabilityPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"data", ",", RowBox[{"RandomSample", "[", RowBox[{"data", ",", "10"}], "]"}]}], "}"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.793255199924331*^9, 3.7932552332746315`*^9}}, CellLabel-> "In[153]:=",ExpressionUUID->"25a6748e-a524-4b33-89a1-458fbf169949"], Cell[BoxData[ TemplateBox[{GraphicsBox[{{}, {{{}, {}, {}, {}, { Hue[0.1421359549995791, 0.6, 0.6], Directive[ PointSize[0.012833333333333334`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Dashing[{0, Small}]], LineBox[{{2.040816326530612*^-8, 2.040816326530612*^-8}, { 0.9999999795918367, 0.9999999795918367}}]}, { Hue[0.37820393249936934`, 0.6, 0.6], Directive[ PointSize[0.012833333333333334`], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Dashing[{0, Small}]], LineBox[{{2.040816326530612*^-8, 2.040816326530612*^-8}, { 0.9999999795918367, 0.9999999795918367}}]}}, {{}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.012833333333333334`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQB2IQzVl4JsvV7Iz9vBudc2907rV/qdqoJOh4xv4miDv3 hP1eySiOtmqY/Fn7Rq51Zf+XnbHfJGy9Udj6ov2MOU82P954xl4ExN142X6H dbnV5uNn7MuS1IHomn1OQQpbWvR5e7D2uTfsfda/meZ+7ry9FUi58G3757fS Mj0tLtjPASu4a18RJ7Jpv81F+3//QeC+fbrxPbaSuRftN4Dte2g/y/Idd1fo JftEkPFlj+wrNrztThW4Yi8Etv+x/dMjZmayDLftD/u9OeL35on9jpUOE7Xk 7tiXgN3zzL6defICq7kv7FXBDnxuP+Hp55Rz7q/tr4Hd98K+5b7DGf/bb+zb wc59ad+7pKIq5dcbewuwe1/bN/Ec6Qt5/db+5RGwBfbOfq8vx4W+s58Fdv9b +2idlXeb1N/be4Nkj7yzX/dz0WqPpPf2f8D+eW8PAEAkw8c= "]]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[0.012833333333333334`], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], PointBox[{{0.17042089854591266`, 0.1}, {0.1730596991883571, 0.2}, { 0.1893266959018246, 0.30000000000000004`}, {0.20821217848885717`, 0.4}, {0.21281222855284243`, 0.5}, {0.34522989559899897`, 0.6}, { 0.8150864157122133, 0.7}, {0.8634676752547249, 0.7999999999999999}, { 0.8840833834315915, 0.8999999999999999}, {0.9445454303496323, 0.9999999999999999}}]}, {}, {}, {}}}, {}, {}, {}, {}}, { DisplayFunction -> Identity, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, AxesOrigin -> {0, 0}, PlotRange -> {{0, 1}, {0, 1}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Epilog -> {{}, StyleBox[ LineBox[{{2.040816326530612*^-8, 2.040816326530612*^-8}, { 0.9999999795918367, 0.9999999795918367}}], Directive[ RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Dashing[{0, Small}]], StripOnInput -> False], StyleBox[ LineBox[{{2.040816326530612*^-8, 2.040816326530612*^-8}, { 0.9999999795918367, 0.9999999795918367}}], Directive[ RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Dashing[{0, Small}]], StripOnInput -> False]}, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0, 1}, {0, 1}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{"\"data\"", "\"v\[YAcute]b\[EHacek]r z dat\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Dashing[{0, Small}]], { LineBox[{{0, 10}, {30, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Dashing[{0, Small}]], { InsetBox[ GraphicsBox[{ Opacity[1], Directive[ RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], AbsolutePointSize[5], PointBox[{0, 0}]}, {DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Dashing[{0, Small}]]}}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {30, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Dashing[{0, Small}]], { LineBox[{{0, 10}, {30, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Dashing[{0, Small}]], { InsetBox[ GraphicsBox[{ Opacity[1], Directive[ RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], AbsolutePointSize[5], PointBox[{0, 0}]}, {DefaultBaseStyle -> {"Graphics", { AbsolutePointSize[6]}, Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Dashing[{0, Small}]]}}], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]], Automatic, Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {30, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"0", ",", "Small"}], "}"}], "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"0", ",", "Small"}], "}"}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ GraphicsBox[{ Opacity[1], Directive[ RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], AbsolutePointSize[5], PointBox[{0, 0}]}], ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{ GraphicsBox[{ Opacity[1], Directive[ RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], AbsolutePointSize[5], PointBox[{0, 0}]}], ",", "Automatic"}], "}"}]}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"True", ",", "True"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", RowBox[{"LegendMarkerSize", "\[Rule]", RowBox[{"{", RowBox[{"30", ",", "10"}], "}"}]}], ",", RowBox[{"\"Dividers\"", "\[Rule]", "False"}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{{3.7932552120870857`*^9, 3.793255234678946*^9}}, CellLabel-> "Out[153]=",ExpressionUUID->"a94a672a-1039-48ec-a338-8cd45009cbf4"] }, Open ]] }, Open ]] }, Open ]] }, WindowToolbars->"EditBar", WindowSize->{1280, 637}, WindowMargins->{{-8, Automatic}, {Automatic, -8}}, PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}}, 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[CellGroupData[{ Cell[567, 22, 153, 2, 53, "Subtitle",ExpressionUUID->"770821e3-d0ca-40d1-8514-da23ca28d785"], Cell[723, 26, 481, 12, 28, "Input",ExpressionUUID->"c303ccfb-166a-4a25-9da3-37a58a7b7252"], Cell[CellGroupData[{ Cell[1229, 42, 184, 3, 53, "Subsection",ExpressionUUID->"31485fa5-6394-45fe-a390-e9067dc78a5b"], Cell[1416, 47, 595, 12, 28, "Input",ExpressionUUID->"4e85d20d-e961-4a0c-ab29-b3c6998d9a0d"], Cell[CellGroupData[{ Cell[2036, 63, 180, 3, 28, "Input",ExpressionUUID->"c3ac9de9-9d49-4081-819e-e056852e2030"], Cell[2219, 68, 211, 3, 32, "Output",ExpressionUUID->"552b2779-daab-4e89-8c56-8ebed38fee06"] }, Open ]], Cell[CellGroupData[{ Cell[2467, 76, 188, 3, 28, "Input",ExpressionUUID->"3bbcb86e-117e-4413-8d59-645b5ae816c6"], Cell[2658, 81, 209, 3, 32, "Output",ExpressionUUID->"37fca039-73ba-4915-b20f-129175c5fda2"] }, Open ]], Cell[CellGroupData[{ Cell[2904, 89, 182, 3, 28, "Input",ExpressionUUID->"45e69e47-090d-41d9-a27d-6b4c488ad506"], Cell[3089, 94, 200, 3, 32, "Output",ExpressionUUID->"51c35b9e-8492-49f6-8cc9-55a6bd0241e4"] }, Open ]], Cell[CellGroupData[{ Cell[3326, 102, 182, 3, 28, "Input",ExpressionUUID->"f2633ba5-8244-49c6-b642-25bd0dcf5a1d"], Cell[3511, 107, 197, 3, 32, "Output",ExpressionUUID->"f4bfebfd-7406-44f9-9525-f2865b2f249f"] }, Open ]], Cell[CellGroupData[{ Cell[3745, 115, 200, 4, 28, "Input",ExpressionUUID->"5b8c3063-2e25-46ed-a83d-d39e8f7a1e3f"], Cell[3948, 121, 198, 3, 32, "Output",ExpressionUUID->"21124bb1-93dc-4429-9642-1f05ff45d2b7"] }, Open ]], Cell[CellGroupData[{ Cell[4183, 129, 200, 4, 28, "Input",ExpressionUUID->"37bf2486-8ec3-4198-9a64-097a5b8eed3b"], Cell[4386, 135, 196, 3, 32, "Output",ExpressionUUID->"84e5d914-41c3-4076-91e7-a6aeb2ac5935"] }, Open ]], Cell[CellGroupData[{ Cell[4619, 143, 358, 9, 28, "Input",ExpressionUUID->"bef3aa37-be3f-45ab-9dcc-d3c2aa4d46b5"], Cell[4980, 154, 197, 3, 32, "Output",ExpressionUUID->"d7a1fb96-e91e-46b6-948e-dfa2de70bf1c"] }, Open ]], Cell[CellGroupData[{ Cell[5214, 162, 179, 3, 28, "Input",ExpressionUUID->"71247984-5a25-46b5-821d-ecca44509ded"], Cell[5396, 167, 651, 12, 32, "Output",ExpressionUUID->"6a63700c-f776-4cf0-aa1c-de679f1c39ec"] }, Open ]], Cell[CellGroupData[{ Cell[6084, 184, 189, 3, 28, "Input",ExpressionUUID->"c471858d-3ec0-4fbf-aef3-2e99bfe9e8cc"], Cell[6276, 189, 213, 3, 32, "Output",ExpressionUUID->"f5be553b-e44e-48b4-8b44-eaee638f72ea"] }, Open ]], Cell[CellGroupData[{ Cell[6526, 197, 235, 5, 28, "Input",ExpressionUUID->"8b451bd7-9455-45c0-a789-6e55bbb92dfa"], Cell[6764, 204, 203, 3, 32, "Output",ExpressionUUID->"bd8e637d-75d5-41bf-bf33-ac1571b370be"] }, Open ]], Cell[CellGroupData[{ Cell[7004, 212, 314, 8, 28, "Input",ExpressionUUID->"b96d3058-c953-4e7c-a643-06642300e9e8"], Cell[7321, 222, 203, 3, 32, "Output",ExpressionUUID->"b2fb8324-3ec5-4b18-8dab-9fa8ccf61894"] }, Open ]], Cell[CellGroupData[{ Cell[7561, 230, 191, 3, 28, "Input",ExpressionUUID->"2febe247-f04b-4fe3-a082-b5ab4b8d8954"], Cell[7755, 235, 211, 3, 32, "Output",ExpressionUUID->"7cc4b1c2-eac5-449b-9eb9-b2c1d05cd902"] }, Open ]], Cell[CellGroupData[{ Cell[8003, 243, 186, 3, 28, "Input",ExpressionUUID->"83516ffd-bfe8-4fa7-92bb-44f5fdc09d09"], Cell[8192, 248, 262, 5, 32, "Output",ExpressionUUID->"26fca34e-4ed6-45f1-9886-572f915a2443"] }, Open ]], Cell[CellGroupData[{ Cell[8491, 258, 233, 5, 28, "Input",ExpressionUUID->"04c6c665-0449-4554-89c2-71ae64faa8d2"], Cell[8727, 265, 197, 3, 32, "Output",ExpressionUUID->"06b184ae-f79b-4404-8392-2c8098e1f87e"] }, Open ]], Cell[CellGroupData[{ Cell[8961, 273, 233, 5, 28, "Input",ExpressionUUID->"df9a60d2-f846-41bb-be93-2a1718f2342a"], Cell[9197, 280, 201, 3, 32, "Output",ExpressionUUID->"ff39dc00-770c-45fa-9238-b14cf9eca7f2"] }, Open ]], Cell[CellGroupData[{ Cell[9435, 288, 202, 5, 28, "Input",ExpressionUUID->"7392b8b7-76e0-4028-ba3b-6e06c5d0bc09"], Cell[9640, 295, 198, 3, 32, "Output",ExpressionUUID->"d7ffd9cd-25e0-47d4-8a2e-9b1580ab2c15"] }, Open ]], Cell[CellGroupData[{ Cell[9875, 303, 232, 5, 28, "Input",ExpressionUUID->"3d7bd81a-c6b6-4932-9c64-c6be3a902e50"], Cell[10110, 310, 199, 3, 32, "Output",ExpressionUUID->"8f5ae07a-8e32-4060-9106-03048f2002c6"] }, Open ]], Cell[CellGroupData[{ Cell[10346, 318, 202, 5, 28, "Input",ExpressionUUID->"ab65b006-3db2-4dd5-a3a8-567a9ae3b600"], Cell[10551, 325, 199, 3, 32, "Output",ExpressionUUID->"6b1f411e-6e3c-4798-aee2-d5b579273e2c"] }, Open ]], Cell[CellGroupData[{ Cell[10787, 333, 210, 4, 28, "Input",ExpressionUUID->"cb0729a4-8f6b-4dd3-b365-2c803f6289ed"], Cell[11000, 339, 200, 3, 32, "Output",ExpressionUUID->"ef764e16-fcfc-49da-99a6-0aa090d345b5"] }, Open ]], Cell[CellGroupData[{ Cell[11237, 347, 259, 5, 28, "Input",ExpressionUUID->"41eb77dd-9d4c-40d4-b628-614d26b1dbda"], Cell[11499, 354, 250, 4, 32, "Output",ExpressionUUID->"733768ab-4361-4999-821f-3e739ebe3020"] }, Open ]], Cell[CellGroupData[{ Cell[11786, 363, 355, 8, 28, "Input",ExpressionUUID->"f093c6d0-81cd-4872-afca-dde2d2d13636"], Cell[12144, 373, 336, 6, 32, "Output",ExpressionUUID->"99628c46-1bc0-47a4-8a88-073078a31bf6"] }, Open ]], Cell[CellGroupData[{ Cell[12517, 384, 350, 9, 28, "Input",ExpressionUUID->"0eeb7a93-a22d-47cf-bad1-13195b5daa91"], Cell[12870, 395, 358, 7, 32, "Output",ExpressionUUID->"ccbee270-1090-4745-a3db-545ff286748b"] }, Open ]], Cell[CellGroupData[{ Cell[13265, 407, 403, 10, 28, "Input",ExpressionUUID->"4c5da3dc-88ee-49d1-bc00-c5375e1e533e"], Cell[13671, 419, 1732, 25, 90, "Output",ExpressionUUID->"fc20d02c-a265-4bce-889d-dfa7bc854d5f"] }, Open ]], Cell[15418, 447, 1152, 28, 181, "Input",ExpressionUUID->"5f964b31-64e6-4f3b-8453-f426f63e8f36"], Cell[CellGroupData[{ Cell[16595, 479, 239, 5, 28, "Input",ExpressionUUID->"2358bbb3-d1b9-4e14-b02c-967dea587b10"], Cell[16837, 486, 595, 14, 32, "Output",ExpressionUUID->"48746755-a1b8-44c2-a220-b96a507bd0c7"] }, Open ]], Cell[CellGroupData[{ Cell[17469, 505, 205, 3, 28, "Input",ExpressionUUID->"59fbda56-4250-425a-9787-574268becea2"], Cell[17677, 510, 544, 12, 32, "Output",ExpressionUUID->"912a6993-5c4e-4c73-96aa-44f9d83b724d"] }, Open ]], Cell[18236, 525, 651, 18, 28, "Input",ExpressionUUID->"24c4d67b-a778-4498-b6ec-b9beb025660d"], Cell[CellGroupData[{ Cell[18912, 547, 185, 4, 28, "Input",ExpressionUUID->"bc026775-af77-4413-a099-aeefd17e901b"], Cell[19100, 553, 1334, 39, 351, "Output",ExpressionUUID->"1b70268a-5738-44c1-a079-8923e2e35fb0"] }, Open ]], Cell[CellGroupData[{ Cell[20471, 597, 409, 9, 28, "Input",ExpressionUUID->"7e0dee16-f0df-40b8-9801-df4bdcd10c43"], Cell[20883, 608, 1330, 39, 351, "Output",ExpressionUUID->"224bd766-ad92-4d44-a080-3e27c06b8be8"] }, Open ]], Cell[CellGroupData[{ Cell[22250, 652, 194, 3, 28, "Input",ExpressionUUID->"bbf70d70-c1d5-4ec9-bafc-85241613bbda"], Cell[22447, 657, 214, 3, 32, "Output",ExpressionUUID->"2329bbbf-ece9-4307-bfcb-abc799fb7037"] }, Open ]], Cell[CellGroupData[{ Cell[22698, 665, 247, 5, 28, "Input",ExpressionUUID->"ad37e78a-d734-4cbd-aeef-60d41beb69e9"], Cell[22948, 672, 236, 4, 32, "Output",ExpressionUUID->"40d07e27-b1fb-47c2-a00b-831ba2cabb76"] }, Open ]], Cell[CellGroupData[{ Cell[23221, 681, 185, 3, 28, "Input",ExpressionUUID->"46ae1705-9936-44f5-ab2a-59c3a08dd145"], Cell[23409, 686, 209, 3, 32, "Output",ExpressionUUID->"19c6286a-bee1-465d-9399-b57404a2401a"] }, Open ]], Cell[CellGroupData[{ Cell[23655, 694, 251, 5, 28, "Input",ExpressionUUID->"d9f5cf94-1b1b-4d4b-b856-e031aaa0ee0b"], Cell[23909, 701, 240, 4, 32, "Output",ExpressionUUID->"10be9cea-2cd0-4379-8b1d-659e97832393"] }, Open ]], Cell[CellGroupData[{ Cell[24186, 710, 247, 5, 28, "Input",ExpressionUUID->"45d93f0f-c17f-41a3-97d8-c210b2683364"], Cell[24436, 717, 229, 4, 32, "Output",ExpressionUUID->"596a9cbc-b08b-4217-959e-9f7d704b60c4"] }, Open ]], Cell[CellGroupData[{ Cell[24702, 726, 240, 5, 28, "Input",ExpressionUUID->"b5a9a315-8f8f-461c-a146-2889dc6148c8"], Cell[24945, 733, 240, 4, 32, "Output",ExpressionUUID->"efc65d36-be41-4802-a1c4-4c2063cac056"] }, Open ]], Cell[CellGroupData[{ Cell[25222, 742, 189, 3, 28, "Input",ExpressionUUID->"b949b209-b72e-4f6f-8589-dd2d0e5d64a1"], Cell[25414, 747, 212, 3, 32, "Output",ExpressionUUID->"75ee90e0-8fee-4dd2-80f2-4c830a4846cc"] }, Open ]], Cell[CellGroupData[{ Cell[25663, 755, 191, 3, 28, "Input",ExpressionUUID->"42f8b080-3615-4897-9e75-13db2629dd5b"], Cell[25857, 760, 204, 3, 32, "Output",ExpressionUUID->"05276f53-9e92-4531-9f25-2441f53d8b67"] }, Open ]], Cell[CellGroupData[{ Cell[26098, 768, 194, 3, 28, "Input",ExpressionUUID->"f8c262e5-7790-4def-ba95-9a8d0849b7c8"], Cell[26295, 773, 200, 3, 32, "Output",ExpressionUUID->"6aacf6ff-4d71-40ac-b49b-554503c6604b"] }, Open ]], Cell[CellGroupData[{ Cell[26532, 781, 193, 3, 28, "Input",ExpressionUUID->"495427b6-9490-4524-b6c7-94637ff3b0c8"], Cell[26728, 786, 204, 3, 32, "Output",ExpressionUUID->"1b074bbf-c2d5-4e28-aca7-f190af318ef8"] }, Open ]], Cell[26947, 792, 356, 8, 28, "Input",ExpressionUUID->"8d73fb6e-d294-4c1b-877c-128a44295738"], Cell[CellGroupData[{ Cell[27328, 804, 227, 4, 28, "Input",ExpressionUUID->"f9e11928-9b4e-4784-90cf-beb98739c476"], Cell[27558, 810, 171, 3, 32, "Output",ExpressionUUID->"5e770ff9-3555-40a4-a4b4-bd516408bd88"] }, Open ]], Cell[27744, 816, 606, 14, 67, "Input",ExpressionUUID->"43b552f8-c6da-4511-b2c2-b392d4f8f687"], Cell[CellGroupData[{ Cell[28375, 834, 221, 4, 28, "Input",ExpressionUUID->"a993864e-db51-4a51-af0c-1d886fcd7a26"], Cell[28599, 840, 438, 10, 32, "Output",ExpressionUUID->"0a6cd8e4-a3ea-482b-8b80-af078fd7baba"] }, Open ]], Cell[29052, 853, 330, 8, 48, "Input",ExpressionUUID->"708534a7-a50e-428e-ae29-7c903157a703"], Cell[CellGroupData[{ Cell[29407, 865, 192, 3, 28, "Input",ExpressionUUID->"d57de598-9469-4fba-9229-186703d2f758"], Cell[29602, 870, 685, 12, 71, "Output",ExpressionUUID->"fd4af7ab-d90b-45e3-aaaa-c3058efa4070"] }, Open ]], Cell[CellGroupData[{ Cell[30324, 887, 335, 8, 28, "Input",ExpressionUUID->"6dd391f6-8827-4436-ac77-268c08d887c7"], Cell[30662, 897, 349, 7, 32, "Output",ExpressionUUID->"e7b5f631-c362-4a71-b5be-334f9ec61715"] }, Open ]], Cell[31026, 907, 1097, 32, 86, "Input",ExpressionUUID->"23d32328-c278-4804-afd6-3b65c5906a4b"], Cell[32126, 941, 209, 3, 28, "Input",ExpressionUUID->"8c300ee2-2761-4575-91d1-2bae827ba727"], Cell[32338, 946, 462, 13, 81, "Input",ExpressionUUID->"67f14b25-14f9-4c31-8a91-e07f03d6987b"], Cell[32803, 961, 1525, 41, 143, "Input",ExpressionUUID->"946f34bd-0312-4ad9-82b0-89ba534dd763"], Cell[CellGroupData[{ Cell[34353, 1006, 180, 3, 28, "Input",ExpressionUUID->"72061442-e09f-4a54-8418-c09aa67c0204"], Cell[34536, 1011, 200, 3, 32, "Output",ExpressionUUID->"ce739af4-067b-4301-8abf-01a0e2242b34"] }, Open ]], Cell[CellGroupData[{ Cell[34773, 1019, 209, 3, 28, "Input",ExpressionUUID->"873fd20c-ae92-4e2d-8f60-8ae63d74fc14"], Cell[34985, 1024, 210, 3, 32, "Output",ExpressionUUID->"504927b2-f094-4cda-bafc-f05e6ca1ed50"] }, Open ]], Cell[35210, 1030, 1336, 37, 124, "Input",ExpressionUUID->"845720b7-1462-45d9-b09e-c9d327a54c7b"], Cell[CellGroupData[{ Cell[36571, 1071, 208, 3, 28, "Input",ExpressionUUID->"3c0caa79-53c6-4688-9d6c-ced92fda134d"], Cell[36782, 1076, 212, 3, 32, "Output",ExpressionUUID->"b40e4936-9fd5-4115-ae78-8c8f6e4b213a"] }, Open ]], Cell[CellGroupData[{ Cell[37031, 1084, 185, 3, 28, "Input",ExpressionUUID->"e3f6fed5-390d-4fc0-8f6f-96be2ae404a7"], Cell[37219, 1089, 214, 3, 32, "Output",ExpressionUUID->"df670c4c-d887-41d4-8336-6a4e7fd329da"] }, Open ]], Cell[CellGroupData[{ Cell[37470, 1097, 242, 5, 28, "Input",ExpressionUUID->"00f7ad5a-e7fa-47bf-8f0a-8c59df4d957d"], Cell[37715, 1104, 237, 4, 32, "Output",ExpressionUUID->"ad3e5ac7-bebf-4191-84bb-489e72e21038"] }, Open ]], Cell[37967, 1111, 467, 12, 48, "Input",ExpressionUUID->"92d7df30-d329-4f31-a2e9-7425c2d2e85e"], Cell[CellGroupData[{ Cell[38459, 1127, 243, 5, 28, "Input",ExpressionUUID->"e3ea2c77-6c69-411a-948c-6dded82d5bb4"], Cell[38705, 1134, 244, 4, 32, "Output",ExpressionUUID->"c58882d2-5b1f-40a8-89d8-3e04fc77fb7d"] }, Open ]], Cell[CellGroupData[{ Cell[38986, 1143, 177, 3, 28, "Input",ExpressionUUID->"8e2aeb93-7e5b-4e64-8d5e-556b47574ebf"], Cell[39166, 1148, 213, 3, 32, "Output",ExpressionUUID->"43a7cb2c-4240-463b-a38b-f92217052001"] }, Open ]], Cell[CellGroupData[{ Cell[39416, 1156, 179, 3, 28, "Input",ExpressionUUID->"c9dc479e-cfa2-45a1-aa4c-537b16b618d2"], Cell[39598, 1161, 199, 3, 32, "Output",ExpressionUUID->"d45d8215-3e1e-4eab-9b9f-74b83efb91c5"] }, Open ]], Cell[CellGroupData[{ Cell[39834, 1169, 189, 3, 28, "Input",ExpressionUUID->"8d9cb0ac-44a0-4c05-9751-d4629de24717"], Cell[40026, 1174, 211, 3, 32, "Output",ExpressionUUID->"fe8b4f54-1a40-489e-bda4-1573a746187e"] }, Open ]], Cell[40252, 1180, 2102, 61, 162, "Input",ExpressionUUID->"25ec8b1c-1b64-49c6-b124-c7f6fdf61e49"], Cell[CellGroupData[{ Cell[42379, 1245, 202, 3, 28, "Input",ExpressionUUID->"82864ef8-8caf-45ac-a544-cd0ee1621112"], Cell[42584, 1250, 247, 4, 32, "Output",ExpressionUUID->"be08ea83-b652-48c0-b304-598a6f24a507"] }, Open ]], Cell[CellGroupData[{ Cell[42868, 1259, 250, 5, 48, "Input",ExpressionUUID->"c40f3ad7-dab5-4a99-a50b-1ec8c323eabf"], Cell[43121, 1266, 197, 3, 32, "Output",ExpressionUUID->"5d37837b-15ee-4c1a-965a-aeaa36c56d70"] }, Open ]], Cell[CellGroupData[{ Cell[43355, 1274, 629, 18, 28, "Input",ExpressionUUID->"e2fe3964-24ac-43a1-b821-52e3345b40ca"], Cell[43987, 1294, 215, 3, 32, "Output",ExpressionUUID->"1b658830-006a-4f15-8e09-1ba9cd5ae16a"] }, Open ]], Cell[CellGroupData[{ Cell[44239, 1302, 560, 16, 28, "Input",ExpressionUUID->"1eec5499-1c3c-41c4-9565-54590546c467"], Cell[44802, 1320, 215, 3, 32, "Output",ExpressionUUID->"9b5a4d6b-f93b-42ba-921e-a0e313993ec5"] }, Open ]], Cell[CellGroupData[{ Cell[45054, 1328, 364, 10, 28, "Input",ExpressionUUID->"de21be30-37fd-49a1-8726-1df93402fbd4"], Cell[45421, 1340, 205, 2, 32, "Output",ExpressionUUID->"faab5f5b-2453-44ad-bd3d-ad7153851930"] }, Open ]], Cell[CellGroupData[{ Cell[45663, 1347, 184, 4, 28, "Input",ExpressionUUID->"be2eaa30-b708-48ce-ba30-940b0c14d184"], Cell[45850, 1353, 216, 3, 32, "Output",ExpressionUUID->"f219d30a-262a-4f66-b6ab-12b3fd1c2b61"] }, Open ]], Cell[46081, 1359, 3787, 109, 295, "Input",ExpressionUUID->"cd6d64b2-c827-4b33-b846-aee1b65ecfa1"], Cell[CellGroupData[{ Cell[49893, 1472, 204, 3, 28, "Input",ExpressionUUID->"158833be-1e08-42f9-b109-2675cdc227b0"], Cell[50100, 1477, 229, 4, 32, "Output",ExpressionUUID->"84c25708-462a-49a3-a92c-d4a0e8e0525c"] }, Open ]], Cell[CellGroupData[{ Cell[50366, 1486, 184, 3, 28, "Input",ExpressionUUID->"e12a0b1c-eb73-4bda-b2fc-8d71e66c31d7"], Cell[50553, 1491, 216, 3, 32, "Output",ExpressionUUID->"ef056c30-de3c-49ef-88f4-603b6058dbcd"] }, Open ]], Cell[50784, 1497, 2072, 58, 143, "Input",ExpressionUUID->"b57d932c-632f-4647-b2e8-f782c7f2532a"], Cell[CellGroupData[{ Cell[52881, 1559, 209, 4, 28, "Input",ExpressionUUID->"9fefdae9-3c14-497b-8cc7-7e4f82cbf0e5"], Cell[53093, 1565, 274, 5, 32, "Output",ExpressionUUID->"15db64fe-36dd-4076-afb2-4ef8c48417bf"] }, Open ]], Cell[CellGroupData[{ Cell[53404, 1575, 185, 3, 28, "Input",ExpressionUUID->"50863764-8907-4aa1-9eaf-1a3da043281d"], Cell[53592, 1580, 210, 3, 32, "Output",ExpressionUUID->"2c6365a6-7c45-4cbb-b2e4-41ddbe19f6b8"] }, Open ]], Cell[53817, 1586, 1215, 33, 105, "Input",ExpressionUUID->"5186fbcc-4035-465c-a9ae-8087b018f8ba"], Cell[CellGroupData[{ Cell[55057, 1623, 191, 4, 28, "Input",ExpressionUUID->"364c9d58-ada0-4e18-a1d9-169bab3fd1ef"], Cell[55251, 1629, 241, 4, 32, "Output",ExpressionUUID->"a6c76925-de22-48f6-b5a1-f98fa64126e6"] }, Open ]], Cell[CellGroupData[{ Cell[55529, 1638, 126, 2, 28, "Input",ExpressionUUID->"87ee0d9e-b53d-41be-86ce-6d0343b633d9"], Cell[55658, 1642, 196, 3, 32, "Output",ExpressionUUID->"bf22c60f-de8f-4920-b1f0-3893be414b8f"] }, Open ]], Cell[CellGroupData[{ Cell[55891, 1650, 132, 2, 28, "Input",ExpressionUUID->"77128f4c-4abe-4c85-9201-50bd530ffbe3"], Cell[56026, 1654, 196, 3, 32, "Output",ExpressionUUID->"5a450bd1-a7f0-4b72-a37a-a43502140e98"] }, Open ]], Cell[CellGroupData[{ Cell[56259, 1662, 215, 4, 28, "Input",ExpressionUUID->"2a0996b9-a980-4648-862e-51bbb2378e8b"], Cell[56477, 1668, 1300, 27, 109, "Output",ExpressionUUID->"33c8d998-8462-4f3a-8ac9-2e4a842c3cd8"] }, Open ]], Cell[CellGroupData[{ Cell[57814, 1700, 167, 3, 28, "Input",ExpressionUUID->"4ecad934-b222-431b-8aca-9ce6d98177ec"], Cell[57984, 1705, 196, 3, 32, "Output",ExpressionUUID->"619d7be5-38d7-4d9f-bbc3-0e31f2e422f5"] }, Open ]], Cell[CellGroupData[{ Cell[58217, 1713, 144, 2, 28, "Input",ExpressionUUID->"86e23295-e1b8-426a-a564-779bcbd2fa6d"], Cell[58364, 1717, 194, 3, 32, "Output",ExpressionUUID->"e461844a-e9e0-45c6-8526-db97f8354165"] }, Open ]], Cell[CellGroupData[{ Cell[58595, 1725, 243, 5, 28, "Input",ExpressionUUID->"7f3011a2-93af-442b-aa01-4a2bb5fbb5e3"], Cell[58841, 1732, 1327, 28, 109, "Output",ExpressionUUID->"9da26aea-cedb-41a3-8e47-b3f8a6f192b3"] }, Open ]], Cell[CellGroupData[{ Cell[60205, 1765, 171, 4, 28, "Input",ExpressionUUID->"6568ab13-6919-4e80-a0a6-edd6bcef7419"], Cell[60379, 1771, 226, 4, 32, "Output",ExpressionUUID->"63a4a32b-76ee-4c73-b1de-75f06937b325"] }, Open ]], Cell[60620, 1778, 385, 11, 28, "Input",ExpressionUUID->"3f0e51fe-e475-43f9-95df-21244155ee6d"], Cell[CellGroupData[{ Cell[61030, 1793, 151, 3, 28, "Input",ExpressionUUID->"3c4bed07-3436-466b-a6df-9e616fd6afee"], Cell[61184, 1798, 241, 4, 32, "Output",ExpressionUUID->"ca3d003d-dc3d-476a-9b7a-18fbbffe5315"] }, Open ]], Cell[CellGroupData[{ Cell[61462, 1807, 218, 4, 28, "Input",ExpressionUUID->"06825156-be75-4870-ae10-ea3d4ea5f054"], Cell[61683, 1813, 3411, 96, 243, "Output",ExpressionUUID->"cf631478-e6ea-4c20-b05f-157963d4869c"] }, Open ]], Cell[CellGroupData[{ Cell[65131, 1914, 329, 7, 28, "Input",ExpressionUUID->"9053d022-75ee-4e25-bb9f-dd989c25c206"], Cell[65463, 1923, 5300, 145, 241, "Output",ExpressionUUID->"b617884d-95c9-4cc7-84a0-bf8243e6901d"] }, Open ]], Cell[CellGroupData[{ Cell[70800, 2073, 302, 7, 28, "Input",ExpressionUUID->"a58a3dad-1750-446d-b834-118a08d06686"], Cell[71105, 2082, 1614, 42, 266, "Output",ExpressionUUID->"9ac66983-8163-4507-982f-ea14486a9012"] }, Open ]], Cell[CellGroupData[{ Cell[72756, 2129, 222, 4, 28, "Input",ExpressionUUID->"98d1492c-2c87-4b25-9825-51ca6c231172"], Cell[72981, 2135, 5182, 132, 242, "Output",ExpressionUUID->"b4fe6faa-fe6b-4294-85cc-f8ab1916c9ce"] }, Open ]], Cell[CellGroupData[{ Cell[78200, 2272, 338, 8, 28, "Input",ExpressionUUID->"09f865d7-c07b-454e-982c-44543d3b3c9d"], Cell[78541, 2282, 8922, 225, 242, "Output",ExpressionUUID->"634b40de-712b-44ce-945c-3a0e004b2f68"] }, Open ]], Cell[CellGroupData[{ Cell[87500, 2512, 219, 4, 28, "Input",ExpressionUUID->"d0867f95-78b9-4570-a49f-5c1fa7326249"], Cell[87722, 2518, 2670, 61, 251, "Output",ExpressionUUID->"4261e886-cb6e-43a0-93be-6f2a950d6564"] }, Open ]], Cell[CellGroupData[{ Cell[90429, 2584, 610, 15, 48, "Input",ExpressionUUID->"0124ce4a-aa95-41f1-98c9-9cf2203048ab"], Cell[91042, 2601, 18301, 400, 253, "Output",ExpressionUUID->"d3e2d919-3eb4-4e9a-93fd-dc9569c76b5f"] }, Open ]], Cell[CellGroupData[{ Cell[109380, 3006, 509, 13, 48, "Input",ExpressionUUID->"25a6748e-a524-4b33-89a1-458fbf169949"], Cell[109892, 3021, 17042, 365, 282, "Output",ExpressionUUID->"a94a672a-1039-48ec-a338-8cd45009cbf4"] }, Open ]] }, Open ]] }, Open ]] } ] *)