(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 149092, 3314] NotebookOptionsPosition[ 139193, 3137] NotebookOutlinePosition[ 139537, 3152] CellTagsIndexPosition[ 139494, 3149] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{"(*", RowBox[{ "Pr\[AAcute]ce", " ", "s", " ", "parametrick\[YAcute]mi", " ", "a", " ", "neparametrick\[YAcute]mi", " ", "testy"}], "*)"}]], "Input", CellChangeTimes->{{3.7935950734961834`*^9, 3.7935950955413585`*^9}, { 3.793598180213072*^9, 3.7935981867772136`*^9}},ExpressionUUID->"8f4a81ff-c408-4b9e-8b99-\ 2188fa2b089d"], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{ "Z\[AAcute]kladem", " ", "jsou", " ", "dv\[EHacek]", " ", "velk\[EAcute]", " ", "skupiny", " ", "test\[URing]"}], " ", "-", " ", RowBox[{ "naz\[YAcute]vaj\[IAcute]", " ", "se", " ", "LocationTest", " ", "a", " ", RowBox[{"LocationEquivalenceTest", " ", ".", " ", "V"}], " ", "obou", " ", "skupin\[AAcute]ch", " ", "jsou", " ", "parametrick\[EAcute]", " ", RowBox[{"testy", ":", " ", "T"}]}]}], ",", " ", "Z", ",", " ", RowBox[{"PairedT", " ", "a", " ", "PairedZ"}], ",", " ", RowBox[{ "ale", " ", "i", " ", "jejich", " ", "neparametrick\[EAcute]", " ", RowBox[{"obdoby", ".", " ", "V"}], " ", "druh\[EAcute]", " ", "skupin\[EHacek]", " ", "jsou", " ", "testy"}], ",", " ", RowBox[{ RowBox[{ "kter\[EAcute]", " ", "lze", " ", "pou\[ZHacek]\[IAcute]t", " ", "i", " ", "pro", " ", "v\[IAcute]ce", " ", "ne\[ZHacek]", " ", "dv\[EHacek]", " ", "skupiny", " ", "dat"}], " ", "-", " ", "CompleteBlockF"}], ",", " ", "FriedmmanRank", ",", " ", "KruskalWallis", ",", " ", RowBox[{ RowBox[{ RowBox[{"KSampleT", ".", " ", "U"}], " ", "prvn\[IAcute]ho", " ", "a", " ", "posledn\[IAcute]ho", " ", "je", " ", "nutn\[YAcute]", " ", "p\[RHacek]edpoklad", " ", RowBox[{"normality", ".", " ", "Druh\[YAcute]"}], " ", "a", " ", "t\[RHacek]et\[IAcute]", " ", "vyu\[ZHacek]\[IAcute]v\[AAcute]", " ", RowBox[{"po\[RHacek]", ".", " ", "test\[URing]"}]}], " ", "-", " ", RowBox[{"tyto", " ", "tedy", " ", "nejsou", " ", RowBox[{"parametrick\[EAcute]", "."}]}]}]}], " ", "*)"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.793595117054606*^9, 3.7935951593658066`*^9}, { 3.7935952304713264`*^9, 3.793595321028281*^9}, {3.793595413358093*^9, 3.7935955967361794`*^9}, {3.793595686727972*^9, 3.7935956870631948`*^9}},ExpressionUUID->"11bc7468-c8a5-4b84-842b-\ bfee844f3021"], Cell[BoxData[{ RowBox[{ RowBox[{"data1", "=", RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"1.25", ",", "1"}], "]"}], ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"data2", "=", RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"2", ",", "1"}], "]"}], ",", "150"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"data3", "=", RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"0", ",", "1"}], "]"}], ",", "135"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.7935957311518335`*^9, 3.7935957438966684`*^9}}, CellLabel->"In[42]:=", CellID->611158005,ExpressionUUID->"884247de-f751-4b59-bf7d-c075f0f51f2c"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Mean", "[", "data1", "]"}]], "Input", CellChangeTimes->{{3.797652063121519*^9, 3.7976520691827564`*^9}}, CellLabel->"In[53]:=",ExpressionUUID->"97256653-4e9d-4d8d-92f5-fd27805f6fc7"], Cell[BoxData["1.1585588106006837`"], "Output", CellChangeTimes->{3.7976520704944324`*^9}, CellLabel->"Out[53]=",ExpressionUUID->"e4d7aec6-8609-48b9-9a48-e04d6cd109e1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"LocationTest", "[", RowBox[{"data1", ",", "0.5"}], "]"}], ",", StyleBox[ RowBox[{"LocationTest", "[", RowBox[{"data1", ",", "1.25"}], "]"}], FontColor->RGBColor[0, 0, 1]], ",", RowBox[{"LocationTest", "[", RowBox[{"data1", ",", "1.5"}], "]"}]}], "}"}]], "Input", CellChangeTimes->{{3.7935957541978345`*^9, 3.793595756371172*^9}, { 3.793596136183279*^9, 3.793596196979573*^9}, {3.793596441897607*^9, 3.7935964437887726`*^9}, {3.79359661414783*^9, 3.7935966385215807`*^9}}, CellLabel->"In[52]:=",ExpressionUUID->"5ba9a587-f2db-4eb5-b884-0495c85f0a1f"], Cell[BoxData[ RowBox[{"{", RowBox[{ "7.036270845503824`*^-8", ",", "0.42036461315259355`", ",", "0.003202275138723235`"}], "}"}]], "Output", CellChangeTimes->{3.7976491987778106`*^9, 3.7976519835522556`*^9}, CellLabel->"Out[52]=",ExpressionUUID->"7320db76-645c-49d3-970e-0c78c7e6f0a4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"LT", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", RowBox[{"LocationTest", "[", RowBox[{"data1", ",", "i"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0.5", ",", "1.5", ",", "0.05"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"mez", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", "0.05"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0.5", ",", "1.5", ",", "0.05"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"LT", ",", "mez"}], "}"}], ",", RowBox[{"Joined", "->", "True"}]}], "]"}]}], "Input", CellChangeTimes->{{3.797652282152733*^9, 3.797652357840587*^9}, { 3.7976524369656115`*^9, 3.797652446071348*^9}, {3.7976529391372232`*^9, 3.797653030487689*^9}}, CellLabel->"In[64]:=",ExpressionUUID->"24df3250-9593-4576-8058-649cc52a0fa6"], Cell[BoxData[ GraphicsBox[{{}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], LineBox[{{0.5, 7.036270845503824*^-8}, {0.55, 4.88615420530493*^-7}, { 0.6, 3.14369793314835*^-6}, {0.65, 0.00001853390108334976}, {0.7, 0.00009900738257320311}, {0.75, 0.00047391174129515735`}, {0.8, 0.0020108754726375624`}, {0.8500000000000001, 0.007488715362488988}, { 0.9, 0.02426591643190274}, {0.95, 0.06794982062146429}, {1., 0.16372202793341453`}, {1.018525893702689, 0.22869457593678633`}}], LineBox[{{1.2963639308465642`, 0.22869457593678633`}, {1.3, 0.21366294472620825`}, {1.35, 0.09339919545794846}, {1.4, 0.03510354685675682}, {1.4500000000000002`, 0.011381007003964112`}, { 1.5, 0.003202275138723235}}]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQDQEP7GfNBIGVUPohnG8MBo/h/LNnQOAJnJ8GBs/g fIh5L9DMewnnm4DNe41m3hs0896hmfcBTf0HNPM/oun/hGbfZzTzvqCZ9wXN vK9o5n1DM+87mnk/4HwAgEWosA== "]]}}, {}, {}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0.484375, 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]]}& )}}, PlotRange->{{0.5, 1.5}, {0, 0.22869457593678633`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.7976530325495424`*^9}, CellLabel->"Out[66]=",ExpressionUUID->"0ffa5c6a-5263-4fa4-bf15-655979f1f05f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"LocationTest", "[", RowBox[{"data2", ",", "1.8"}], "]"}], "\[IndentingNewLine]", RowBox[{"Mean", "[", "data2", "]"}]}], "Input", CellChangeTimes->{{3.7976526479596205`*^9, 3.7976526704421215`*^9}}, CellLabel->"In[59]:=",ExpressionUUID->"b455722a-c7cc-4b7f-bea9-981f030bf21f"], Cell[BoxData["0.0690275336252247`"], "Output", CellChangeTimes->{{3.7976526568317175`*^9, 3.7976526717812967`*^9}}, CellLabel->"Out[59]=",ExpressionUUID->"92d3e439-31eb-4bfc-bc04-491ab1cb8979"], Cell[BoxData["1.9375987257126708`"], "Output", CellChangeTimes->{{3.7976526568317175`*^9, 3.797652671785282*^9}}, CellLabel->"Out[60]=",ExpressionUUID->"f783d7cd-ba94-446a-b666-92bc46c6facf"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.797652543997386*^9, 3.7976525538554277`*^9}},ExpressionUUID->"b80fbc2b-6307-4d1e-8c3d-\ 6ce373331dd5"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"DistributionFitTest", "[", "data1", "]"}], ",", RowBox[{"DistributionFitTest", "[", "data2", "]"}], ",", RowBox[{"DistributionFitTest", "[", "data3", "]"}]}], "}"}]], "Input", CellChangeTimes->{{3.7976497203500576`*^9, 3.7976497319439507`*^9}, { 3.7976531891224575`*^9, 3.7976532108236012`*^9}}, CellLabel->"In[67]:=",ExpressionUUID->"7c6e2986-a64f-4076-97de-bca9956d0a4c"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.12459831394781913`", ",", "0.6035411680754407`", ",", "0.8328920157581358`"}], "}"}]], "Output", CellChangeTimes->{3.797649733595545*^9, 3.7976532120345945`*^9}, CellLabel->"Out[67]=",ExpressionUUID->"66dae3b1-18c7-4a14-af93-3f2968ef7e37"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LocationTest", "[", RowBox[{"data1", ",", "1", ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.79359669105952*^9, 3.793596740981479*^9}}, CellLabel->"In[68]:=",ExpressionUUID->"30076909-d65e-4f88-9b2c-3b1ea8c41a08"], Cell[BoxData["0.16372202793341453`"], "Output", CellChangeTimes->{3.793596742570013*^9, 3.7976492216087866`*^9, 3.7976533867795973`*^9}, CellLabel->"Out[68]=",ExpressionUUID->"dd68ee4e-b629-448c-939f-9a712faab320"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LocationTest", "[", RowBox[{"data1", ",", "1.2", ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.7935967516299186`*^9, 3.7935967894195766`*^9}, { 3.7976534577891183`*^9, 3.7976534583465595`*^9}, {3.7976537653535023`*^9, 3.797653766559395*^9}}, CellLabel->"In[70]:=",ExpressionUUID->"3df33554-2d7e-4f3e-9010-285e9321aa72"], Cell[BoxData[ StyleBox[ TagBox[GridBox[{ {"\<\"\"\>", "\<\"Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"}, {"\<\"T\"\>", RowBox[{"-", "0.36671084552866545`"}], "0.7146173258922146`"} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxDividers->{ "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, "RowsIndexed" -> {2 -> GrayLevel[0.7]}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "DialogStyle", StripOnInput->False]], "Output", CellChangeTimes->{3.793596790978547*^9, 3.7976492325878515`*^9, 3.797653460146617*^9, 3.7976537688096*^9}, CellLabel->"Out[70]=",ExpressionUUID->"c73d0bda-0efc-4580-b3c0-ae193492eb44"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"LocationTest", "[", RowBox[{ RowBox[{"{", RowBox[{"data1", ",", "data2"}], "}"}], ",", "0", ",", "\"\\""}], "]"}], "\[IndentingNewLine]", RowBox[{"LocationTest", "[", RowBox[{ RowBox[{"{", RowBox[{"data1", ",", "data2"}], "}"}], ",", RowBox[{"-", "0.8"}], ",", "\"\\""}], "]"}]}], "Input", CellChangeTimes->{{3.7935967999204974`*^9, 3.7935969108503246`*^9}, { 3.79765417724922*^9, 3.7976541899435115`*^9}}, CellLabel->"In[75]:=",ExpressionUUID->"231887c2-60f1-498a-b998-a6f8535f4bca"], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"MannWhitney\"\>", ",", "\<\"T\"\>", ",", "\<\"Z\"\>"}], "}"}]], "Output", CellChangeTimes->{ 3.7935968380626698`*^9, 3.793596872547122*^9, 3.79359691272125*^9, 3.7976492453775234`*^9, 3.7976540650583496`*^9, {3.7976541802629395`*^9, 3.797654192186192*^9}}, CellLabel->"Out[75]=",ExpressionUUID->"75918519-83d7-44eb-b7b0-d7ea6cf6f68e"], Cell[BoxData[ StyleBox[ TagBox[GridBox[{ {"\<\"\"\>", "\<\"Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"}, {"\<\"T\"\>", "0.16087544435328166`", "0.8723224727097464`"} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxDividers->{ "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, "RowsIndexed" -> {2 -> GrayLevel[0.7]}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "DialogStyle", StripOnInput->False]], "Output", CellChangeTimes->{ 3.7935968380626698`*^9, 3.793596872547122*^9, 3.79359691272125*^9, 3.7976492453775234`*^9, 3.7976540650583496`*^9, {3.7976541802629395`*^9, 3.7976541922001557`*^9}}, CellLabel->"Out[76]=",ExpressionUUID->"f031966b-9df0-4e93-be7c-893427b285df"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LocationTest", "[", RowBox[{"data1", ",", "1.1", ",", RowBox[{"{", RowBox[{"\"\\"", ",", "All"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7935974701928997`*^9, 3.7935974955623803`*^9}}, CellLabel->"In[50]:=",ExpressionUUID->"29be7bba-1f94-4d9e-af93-750652834aca"], Cell[BoxData[ StyleBox[ TagBox[GridBox[{ {"\<\"\"\>", "\<\"Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"}, {"\<\"Paired T\"\>", "0.5181837505099199`", "0.6054862385869317`"}, {"\<\"Paired Z\"\>", "0.5181837505099199`", "0.6043300710717296`"}, {"\<\"Sign\"\>", "49", "0.9204107626128327`"}, {"\<\"Signed\[Hyphen]Rank\"\>", "2532.`", "0.9821694733522369`"}, {"\<\"T\"\>", "0.5181837505099199`", "0.6054862385869317`"}, {"\<\"Z\"\>", "0.5181837505099199`", "0.6043300710717296`"} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxDividers->{ "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, "RowsIndexed" -> {2 -> GrayLevel[0.7]}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "DialogStyle", StripOnInput->False]], "Output", CellChangeTimes->{{3.793597471059703*^9, 3.7935974960899863`*^9}, 3.7976492669645805`*^9}, CellLabel->"Out[50]=",ExpressionUUID->"1b9a10e0-f652-4328-aba3-707338a14ff7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"vys", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"LocationTest", "[", RowBox[{"data1", ",", RowBox[{"1.25", "+", RowBox[{"i", "/", "100"}]}], ",", "\"\\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"-", "50"}], ",", "50", ",", "1"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"int", "=", RowBox[{"Table", "[", RowBox[{"0.05", ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"-", "50"}], ",", "50", ",", "1"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"int", ",", "vys"}], "}"}], ",", RowBox[{"Joined", "->", "True"}]}], "]"}]}], "Input", CellChangeTimes->{{3.7935969320312643`*^9, 3.793597082297433*^9}, { 3.793597149549193*^9, 3.7935971590566473`*^9}, {3.793597202666123*^9, 3.793597290640035*^9}}, CellLabel->"In[77]:=",ExpressionUUID->"3e0ed055-ca13-4af1-b3ec-3c6a105f3898"], Cell[BoxData[ GraphicsBox[{{}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJxdyzlKREEARdGHkaGBgYGBioiIiPOs/Z3nqZ1ToWO3UNvQHfQuakkuQRsF 6VNQFKcub/ztvd0ZSNL5ub3393y1Pj96p9v6+2j6PYiH8DAewaN4DE/gSTyF p/EMnsVzeB4v4EW8hJfxCl7Fa3gdb+BNvIW38Q7exS3c9Lvg7NFx9uk4B3Sc QzrOER3nmI5zQsc5peOc0XHO6TgXdJxLOs4VHeeajnNDx7ntd4MLrjh37HHB FafNHhdcce7Z44IrzgN7XHDFeWSPC644T+xxwRXnmT0uuOK8sMcFV5xX9v/+ BnHFEr0= "]]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.009166666666666668], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJxTTMoPSmViYGCQA2IQDQEf7H99Fc97zWdvDxVw2D9X6rXSRxcon8PhpbWJ Q5aUD5Qv4MDT4JThfjgIyhdxuPz/j5PP2wgoX8Lh39TWHpnKBChfxoEx5cO0 QytSoXwFB/XA5Pi7wTlQvpIDv+b6kAc5RVC+isN7rS2WR66VQ/lqDhxTlXbW rKmD8jUcNBS61O/Ob4bytRwun36y2+JHB5Sv49CXNH+r7PR+KF/PISRQWiP5 3mQo38DBSOidqNbNGVC+oUNlRVQA79N5UL6Rg8ANkYWvxBdD+cYOU+wiPjwu XQ7lmzg8+7Y5Zs3yNVC+qcOr6WEXNVI3QvlmDksivhVq/dsC5Zs7CBzxsJiq txPKt3DYt4ZloQ/bPijf0qE0pfNw3amDUL6Vw9y3Z19e/3IEyrd2KDo7SVSt 8wSUb+Pw5PWRip7eM1C+rUOf5Ne9Pc0X7J90pHqF7rF1YLi4bFFS6CV7AOYL h6g= "]], LineBox[CompressedData[" 1:eJwty31IU1EcxvGbqFhkbAnqH4kObBVIFI0wfHuoGen07n13i7I2StReFZcp FSMKsXCYEhI1c6ZrNsSlpBGJA8sRluKuywqiRpYT+6NmlG2EWfsdOBwevucj Mp1RHY9hGGbn6v33cnNJm5YixWCmHV0mra+A+X9k8L/yi34V0LbIEOx+fLTH PUW9BHxvpJ81TFAvQa/K+umF2Uu9FL7Ibv4h84x6KTK3BUSdSx7qLATPb64P WJ9SZ5H47Wd9zMIwdTlanIN73n8epC6HOLOhucXspq7AqPOHIyJwRTcU4K2z +7emO+i/AqllNW0pv+3R7VFg6ONsx4EEG3klim0rujvydvJKvE20Sx/dbiWv RF5u+pZLTc3klYgtjJv/yjaSV8EpudW3XHSZvApmtlrCXrtAXoVJU8KfvM3n yK/+n0panE+uJq9G4/2JI86cKvJqdJzia+bjj5FX48oXwZivqoy8Gmsj6wYG wjryGrhCcxkNhUryGrQilBOeKSKvwUj5iv9d9j7yGnCWQbmnLpe8FjuEwvrh sIS8Fnev7wr2jW8nr0VRcopRcl5MXosKUbD8niaDvA4+QVrFB3sKeR1SuyeN h+OF5HWQXs1+6T2ZQF6HjDo+7UbNGvIcFsYXa0X8cn7Uc5D6D4bi2r9Ht4XD xSZRW+VMMLo9HPy2UGeWORDdjB57N4x0JZnfkNcja2z47Khwmrwexgeu1/yI l7weh9yVfeJaD3kDToTDyT1PhsgbEHt6Y061rD//L9n87+g= "]]}}, {}, {}, {}, {}}, 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]]}& )}}, PlotRange->{{0., 101.}, {0, 0.2864615047831336}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.793597084616104*^9, 3.7935971620586557`*^9, 3.793597294149367*^9, 3.7976543977521296`*^9}, CellLabel->"Out[79]=",ExpressionUUID->"3a200309-6141-448f-abe9-feaad2f635ae"] }, Open ]], Cell[BoxData[ RowBox[{"LocationEquivalenceTest", "[", RowBox[{"{", RowBox[{"data1", ",", "data2", ",", "data3"}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.7935973334250226`*^9, 3.7935973672171497`*^9}}, CellLabel->"In[20]:=",ExpressionUUID->"2987890f-2185-4a24-ac34-b0b4065f98fb"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LocationEquivalenceTest", "[", RowBox[{ RowBox[{"{", RowBox[{"data1", ",", "data2", ",", "data3"}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "All"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7935975258222437`*^9, 3.7935975263875155`*^9}}, CellLabel->"In[24]:=",ExpressionUUID->"d8cb6046-4dae-4584-a11c-1b558a0dd3a2"], Cell[BoxData[ StyleBox[ TagBox[GridBox[{ {"\<\"\"\>", "\<\"Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"}, {"\<\"Kruskal\[Hyphen]Wallis\"\>", "174.55382066407992`", "5.218824102173364`*^-51"}, {"\<\"K\[Hyphen]Sample T\"\>", "149.73377366502768`", "9.684409932914556`*^-49"} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxDividers->{ "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, "RowsIndexed" -> {2 -> GrayLevel[0.7]}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "DialogStyle", StripOnInput->False]], "Output", CellChangeTimes->{3.793597528507088*^9}, CellLabel->"Out[24]=",ExpressionUUID->"1421626a-e8a8-45b2-84b8-61f864156907"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"data4", "=", RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"1.15", ",", "1"}], "]"}], ",", "100"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.7935975409690742`*^9, 3.7935975595321302`*^9}}, CellLabel->"In[80]:=",ExpressionUUID->"53998ea7-c8ad-45bb-8822-f7cf3aef31d7"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"LocationEquivalenceTest", "[", RowBox[{ RowBox[{"{", RowBox[{"data1", ",", "data4"}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "All"}], "}"}], ",", RowBox[{"SignificanceLevel", "\[Rule]", "0.05"}]}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.7935975759461513`*^9, 3.7935975806959224`*^9}, { 3.7935976632788754`*^9, 3.7935977973258443`*^9}}, CellLabel->"In[81]:=",ExpressionUUID->"e232e6a4-340a-4246-ba23-539e9c5d2424"], Cell[BoxData[ StyleBox[ TagBox[GridBox[{ {"\<\"\"\>", "\<\"Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"}, {"\<\"Complete Block F\"\>", "1.5270521416400031`", "0.21947962981349547`"}, {"\<\"Friedman Rank\"\>", "0.15865384615384615`", "0.6912566363051552`"}, {"\<\"Kruskal\[Hyphen]Wallis\"\>", "0.5999343283581311`", "0.4399879382064211`"}, {"\<\"K\[Hyphen]Sample T\"\>", "1.3644042823150881`", "0.2441802026648402`"} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxDividers->{ "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, "RowsIndexed" -> {2 -> GrayLevel[0.7]}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "DialogStyle", StripOnInput->False]], "Output", CellChangeTimes->{ 3.793597582353197*^9, 3.7935976978283553`*^9, {3.793597735568836*^9, 3.793597798297784*^9}, 3.7976548074262066`*^9}, CellLabel->"Out[81]=",ExpressionUUID->"e4048c3b-fddf-4bbd-8da1-b4e23b210ee4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LocationEquivalenceTest", "[", RowBox[{ RowBox[{"{", RowBox[{"data1", ",", "data3"}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "All"}], "}"}], ",", RowBox[{"SignificanceLevel", "\[Rule]", "0.1"}]}], "]"}]], "Input", CellChangeTimes->{{3.793597803063651*^9, 3.7935978170130644`*^9}}, CellLabel->"In[35]:=",ExpressionUUID->"8a2cd921-08ee-4806-bb1b-bbf91e3aea55"], Cell[BoxData[ StyleBox[ TagBox[GridBox[{ {"\<\"\"\>", "\<\"Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"}, {"\<\"Kruskal\[Hyphen]Wallis\"\>", "68.06403389830496`", "3.8991876419074635`*^-19"}, {"\<\"K\[Hyphen]Sample T\"\>", "89.46535756944515`", "3.549852405871693`*^-18"} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxDividers->{ "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, "RowsIndexed" -> {2 -> GrayLevel[0.7]}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "DialogStyle", StripOnInput->False]], "Output", CellChangeTimes->{{3.793597784383103*^9, 3.793597821039751*^9}}, CellLabel->"Out[35]=",ExpressionUUID->"06391982-6f23-4cc6-b8ce-72542d9fdcdf"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "V\[YAcute]sledky", " ", "si", " ", "mus\[IAcute]te", " ", "interpretovat", " ", RowBox[{"sami", ".", " ", "V\[YAcute]sledkem"}], " ", "je", " ", "hodnota", " ", RowBox[{"PValue", "."}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "Parametrick\[EAcute]", " ", "testy", " ", "na", " ", "rozptyl", " ", "nebo", " ", "sm\[EHacek]rodatnou", " ", "odchylku"}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{ "Podobn\[EHacek]", " ", "jako", " ", "v", " ", "p\[RHacek]edchoz\[IAcute]m", " ", "existuj\[IAcute]", " ", "bal\[IAcute]ky", " ", "VarianceTest", " ", "a", " ", RowBox[{"VarianceEquivalentTest", ".", " ", "Jejich"}], " ", "u\[ZHacek]it\[IAcute]", " ", "je", " ", "stejn\[EAcute]", " ", "jako", " ", "v", " ", RowBox[{"p\[RHacek]edchoz\[IAcute]m", ".", " ", "Op\[EHacek]t"}], " ", "obsahuj\[IAcute]", " ", "parametrick\[YAcute]", " ", "test", " ", "\"\\"", " ", "a", " ", "skupinu", " ", "ostatn\[IAcute]ch", " ", "neparametrick\[YAcute]ch", " ", "test\[URing]", " ", "BrownForsythe"}], ",", "Conover", ",", RowBox[{"Levene", " ", "a", " ", "SigelTukey"}]}], " ", "*)"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.793597831712444*^9, 3.7935979941262655`*^9}, { 3.793598033452035*^9, 3.793598168080601*^9}},ExpressionUUID->"99d1751d-9dfa-4be7-81f2-\ 111cef5d59f7"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VarianceTest", "[", RowBox[{"data1", ",", "0.8"}], "]"}]], "Input", CellChangeTimes->{{3.7935982188642516`*^9, 3.7935982803596144`*^9}}, CellLabel->"In[82]:=",ExpressionUUID->"72210537-2720-4512-bb0b-25f85f33d8b3"], Cell[BoxData["0.00030162293110398426`"], "Output", CellChangeTimes->{{3.793598250821537*^9, 3.7935982815879416`*^9}, 3.7976550960299788`*^9}, CellLabel->"Out[82]=",ExpressionUUID->"656948c0-11a7-44c0-a3f0-ff233ea2bf06"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"VT", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", RowBox[{"VarianceTest", "[", RowBox[{"data1", ",", "i"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0.7", ",", "1.7", ",", "0.05"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{"VT", ",", RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]}], "Input", CellChangeTimes->{{3.79765529171043*^9, 3.7976553982516108`*^9}}, CellLabel->"In[88]:=",ExpressionUUID->"97ef6115-1960-4c3f-92b6-a7e8b849b55b"], Cell[BoxData[ GraphicsBox[{{}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQnQYGz+xLRbbvt60/aMcABi/sO0Vzt+arMdrPBIOX 9ueefJ6fcsTY3hgMXtsHGhTtfn0p1v4MGLyx3zcxksPyV709xLx39stMxBVl f8+0h5j3wd7BV+ex7JUN9mfB6j/Yu7w8Jq4hdch+Ftj8j/ZVu9wCzbZdgOr/ ZD9n1pmi06a3ofZ9tr+i58lT/+sx1Lwv9q8kLnAYfnsFNe+LPf81Jl4B9ndQ 877aPzeLXnmn7jnUvG/2dleitvmffAg177t9zOOY85IKt6Dm/bBP3u790WT1 Jah5P+xPRyxMfc9xCmreT/uKKvaokMMHoeb9sp/AePG97PHtUPN+27+RuPzI y2e9PQDXsJ1C "]]}}, {}, {}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0.684375, 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]]}& )}}, PlotRange->{{0.7, 1.7}, {0, 0.938362145817054}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.79765537380789*^9, 3.7976554017688613`*^9}}, CellLabel->"Out[89]=",ExpressionUUID->"539545dc-e1ba-4b5b-b722-471d4442180f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VarianceTest", "[", RowBox[{"data1", ",", "1.1", ",", RowBox[{"{", RowBox[{"\"\\"", ",", "All"}], "}"}], ",", RowBox[{"SignificanceLevel", "\[Rule]", "0.1"}]}], "]"}]], "Input", CellChangeTimes->{{3.793598309697674*^9, 3.793598357254711*^9}, { 3.7976552352329035`*^9, 3.7976552649659805`*^9}}, CellLabel->"In[85]:=",ExpressionUUID->"73e61e64-b023-4add-b1e6-87f8d137d61b"], Cell[BoxData[ StyleBox[ TagBox[GridBox[{ {"\<\"\"\>", "\<\"Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"}, {"\<\"Brown\[Hyphen]Forsythe\"\>", "114.93688521738618`", "0.26112134873520854`"}, {"\<\"Fisher Ratio\"\>", "114.93688521738618`", "0.26112134873520854`"}, {"\<\"Levene\"\>", "114.93688521738618`", "0.26112134873520854`"} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxDividers->{ "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, "RowsIndexed" -> {2 -> GrayLevel[0.7]}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "DialogStyle", StripOnInput->False]], "Output", CellChangeTimes->{{3.793598332751169*^9, 3.7935983602304697`*^9}, 3.7976551899591637`*^9, {3.7976552413876495`*^9, 3.79765526656454*^9}}, CellLabel->"Out[85]=",ExpressionUUID->"f155aea3-c893-4d57-9154-74bdb9360e57"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"VarianceEquivalenceTest", "[", RowBox[{"{", RowBox[{"data1", ",", "data4"}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.793598374242438*^9, 3.793598391560261*^9}, { 3.797655723002079*^9, 3.7976557345281267`*^9}}, CellLabel->"In[91]:=",ExpressionUUID->"4d684bd8-1047-4fcc-a2da-b24e727f40a6"], Cell[BoxData["0.21568251023849558`"], "Output", CellChangeTimes->{ 3.793598392481795*^9, {3.797655729829488*^9, 3.7976557409816685`*^9}}, CellLabel->"Out[91]=",ExpressionUUID->"e6a3cf3a-65ce-4e67-9473-40862990ecfa"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"vys", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"VarianceTest", "[", RowBox[{"data1", ",", RowBox[{"1.", "+", RowBox[{"i", "/", "100"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"-", "50"}], ",", "50", ",", "1"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"int", "=", RowBox[{"Table", "[", RowBox[{"0.05", ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"-", "50"}], ",", "50", ",", "1"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"int", ",", "vys"}], "}"}], ",", RowBox[{"Joined", "->", "True"}]}], "]"}]}], "Input", CellLabel->"In[50]:=",ExpressionUUID->"09f55ec7-f43c-4b6d-b825-ddadc42b34a6"], Cell[BoxData[ GraphicsBox[{{}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJxdyzlKREEARdGHkaGBgYGBioiIiPOs/Z3nqZ1ToWO3UNvQHfQuakkuQRsF 6VNQFKcub/ztvd0ZSNL5ub3393y1Pj96p9v6+2j6PYiH8DAewaN4DE/gSTyF p/EMnsVzeB4v4EW8hJfxCl7Fa3gdb+BNvIW38Q7exS3c9Lvg7NFx9uk4B3Sc QzrOER3nmI5zQsc5peOc0XHO6TgXdJxLOs4VHeeajnNDx7ntd4MLrjh37HHB FafNHhdcce7Z44IrzgN7XHDFeWSPC644T+xxwRXnmT0uuOK8sMcFV5xX9v/+ BnHFEr0= "]]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.009166666666666668], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJxTTMoPSmViYGCQAWIQDQEf7Oc7P9kR/+qXHVTAwZxX6qjJTW57CJfDwezC x6JHPdJQvoBDipbA0/9KWlC+iIPjxAczZl03h/IlHASDr33n+e4C5cs4bI4p Fd1/PhDKV3A4YZ0+eYNvLJSv5PAmqtz6YFI6lK/icECpWHe3chGUr+aQvy/u wZPUaihfw0H2dHZFlG4LlK/lkDvryFYptl4oX8dBKkzgqnHWFChfz2Hd7I1e mfJzoHwDh9vzBW8c/rsIyjd0OL451lxWdyWUb+SQfE/k27rUDVC+sYNkRZkZ P9NWKN/EIT8oTqu7fheUb+rgcCXadXL5ASjfzOH8996vMvpHoHxzh2NO1yse ZJ2A8i0cnifv536lcxbKt3To9o5zDrW6COVbOTz6lxhRIn8Fyrd2CEh6ffeZ 03X70xI2iRfdrB0WpU7772B4wx4AQ5x6Pw== "]], LineBox[CompressedData[" 1:eJwty2tIE1AYxvG1MjQsiczIkGqKlPghzcZMtz3RZW5zc/dNjczZxGxhLYfE iKxMK605qrkiw1s0tCwjZCHmXNJAKswbzSwFP6iTJCbZPkhm+R44HB7+57db X6IwMBkMxoGV++/1hQhGuqoz0GSwLyPpC5/x/wjxPskVNbN9dHWXC9GRNujP CQ5RF6F+eqQ9ds0gdREc4fH9VckD1MWw1zF3pG39SF2MrxL50qtN/dQzoSso sKRIvNQzkRQ2EVL4oY+6BMPFXuFslYe6BKXHD14vtripSxGS/Pt0ztFu6lLM 6XnNiQtvqGdh/cj9lqJgJ/UscK9sOHlL8pq6DDcWJ8TmuY7VDRm+yazOBfsL +i/DFr5D//JT2+p2y9DbyI6+anKSl8PFCu12lj0hL8dyQX4Ld7iJvBzSMl98 4uUG8nK0Cn7+kE0+Iq/AY0TcE/EfkFfAZ5zNs220k1dgqeT5jJt3l7wCAw5X 0zNvLXkldtr3va1Nv01eiT1MXgXrwk3ySkTqDgXmWZXklbB5N/fbuNfIq2B6 5+5J7Swnr8KfQIRv3dpL5FWIZW+raUy4SF6FqUWP8NRnM3k1SmK62i3TJvJq aHl1hsCJc+TViDsflxLUGMmrYQmdCLtTUUReg2h2TUPzfgN5DXhhxTHVSj15 DZys1F+StjzyGuSOR8Zk5+SS16K5ZzR8rF5LXovGUrY1Q68ir8Wgqy//oV1O fmX7p+b9Wil5HRTfn0aOJojI6zBm5nDM1mPkddg7VZbAMR0mr0PU2cLKXR6Q z8aZI0PR45Pp5LPRKzYKWic5/L8Vr/nV "]]}}, {}, {}, {}, {}}, 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]]}& )}}, PlotRange->{{0., 101.}, {0, 0.37800621947971014`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.7935985431516943`*^9}, CellLabel->"Out[52]=",ExpressionUUID->"c066265d-e421-45ac-88c3-f7c0a9c8de3a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"vys", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"VarianceTest", "[", RowBox[{"data1", ",", RowBox[{"1.", "+", RowBox[{"i", "/", "100"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"-", "50"}], ",", "50", ",", "1"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{"vys", ",", RowBox[{"Joined", "->", "True"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]}], "Input", CellChangeTimes->{{3.7935984158244767`*^9, 3.793598504788844*^9}}, CellLabel->"In[48]:=",ExpressionUUID->"c4224b61-9552-410f-b07c-5efdc76a78a3"], Cell[BoxData[ GraphicsBox[{{}, {{}, {}, {RGBColor[1, 0, 0], PointSize[0.009166666666666668], AbsoluteThickness[ 1.6], LineBox[CompressedData[" 1:eJw1lA1Qk3UcxwnRA4WAAssBYYPIdmAqNJDB9uUdhsNt7E1E1MFEhrZECLxd sXzNwJAgBEIFtQuxSFA5ylOGknC+gTqBoeAAExlKBgcYZ5odP5675577PJ/n c/d/nuf//7+v1IhVlhYWFqrX5//XmeMZ72jYw8b15mku3YC/HeMPP+MC3gxa g93xd8ZAvguxA1JYDn++YrKInRBSaCot7/InfheO8Z1TtlPhxK44k5jl3NQu Il6MNk5q0WnBOmImniRkc5qVqcSe0DO3+5z3yCD2guZikumhSku8BG7X0nMS fHYTs7C1vOUcY94BYm8wZA53fdXFxEtR+0MdP829gngZ7h117L787zHi5Wg9 s87fzeck8Qok9zlN1qpOE/tiUc7nbHvLc8R+0IiTWHm5vxN/AhjWRhRl64nZ aJ86MOH6cQuxP66EduWY1G3EARhKblpg9r5BvBJ5sUlh0sBbxIEYeLlRkelu IOZAqBzpfRTaRRwEQ5rx5J7KHuJgeHYfYdr69hFzMb9l3qj7tImYh5sVosKC 0QFioPqDPf/YjD+cYR3QNmHSFM8ZIh+C7wz8tvdch8mHIOnK0tSKgBHyoZCs 8/ZzkT4lH4ocw9I7XVv/Ih+GsnaruDrdKPkwiLvDpA07npAPR67WqtNZZyYf Dkdr67eEJY/JR2Bbb51618VH5CNQ/+Wjs+nTNF6LSDTsuu6QEjtIPhJGu8Re dX0/+ShEl32a+OEyen9dFG5s6Ob07+8lHw0v0+rDNf30/XTR2Fl5bXF0ajf5 GFxZ3rjw8aJO8jGo49w2Jzy/Q56Pw0N3az3euE2ej1Jbr6v7VnSQj0XJIUsX jjP9X10s7glEL+rfvEp+FRTJyVo/QSv5VVhu82Dupuuz80UAg7o1ZnjfJfIC ZCYG7lFrZ+dXHOaumEpLiLhAPg4jSu5x7/HfyK/GvLvfn9j8vIH8agR/NX/D N4Kz5IX4evJBbNZI3QxDiF5hQfV4ya/0vBBv80qVp2+emmG9EM1VbMbOjGrq RWhkWl+ozv6RehFeJW88EWyg9aQTIS7b6OWdW0m9CDVRz54KTbPrT4wjsC/m 88qoF8O4ZXh9oV0J9WK80PzyWM8tol6MjtLGYz+3HqQ+Hu4lyy4eDKL1jngs seTuZm7fT308nBQhY6PMvdTHo7DV8Wph8C7qJci4rG9a2aCjXoKXY/ZGqzlf UC+BB/ud/CrWDuolGJy8FJNyK4t6KTRu52u1Q7Q/QQo595BqLOkz6qXw3Obp 91y2hXoptNYPbL7dvZl6GRjs/MrjvirqZeDaqN3y4pXUy1DNXDkhOLWeehnW 3ndyW5Owlno5jjd12vYcllMvR1UmuyBaKaFejtuNLRvLS2i/1b9m8+CoWR5H vQLivp+cOll86hXoyQoIyCqIpF6BjwazWQEZYdQrsHDrpr2LL4H6NUgPv8O4 bwqifg2aY7dE1ZgCeP8Bt0HNBg== "]]}}, {}, {}, {}, {}}, 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]]}& )}}, PlotRange->{{0., 101.}, {0, 0.9821585774103729}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.793598440456396*^9, 3.7935984513967123`*^9}, 3.7935985068151903`*^9}, CellLabel->"Out[49]=",ExpressionUUID->"5437c82f-65c5-40f4-8918-32cbcbbb0074"] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Dal\[SHacek]\[IAcute]", " ", "\[SHacek]k\[AAcute]la", " ", "test\[URing]", " ", "je", " ", "uvedena", " ", "v", " ", "bal\[IAcute]ku", " ", "DistributionFitTest", " ", "a", " ", RowBox[{"HypothesisTestData", ".", " ", "Zde"}], " ", "se", " ", "nach\[AAcute]z\[IAcute]", " ", RowBox[{"testy", ":", " ", "\"\\""}]}], ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", RowBox[{"\"\\"", "."}]}], " ", "*)"}]], "Input", CellChangeTimes->{{3.7935990601431513`*^9, 3.7935992058170624`*^9}, { 3.7935992382593975`*^9, 3.7935992386758842`*^9}},ExpressionUUID->"23c5471d-e561-4751-a759-\ 2d68f1c7a7a1"], Cell[BoxData[ RowBox[{ RowBox[{"\[ScriptCapitalH]", "=", RowBox[{"DistributionFitTest", "[", RowBox[{"data1", ",", "Automatic", ",", "\"\\""}], "]"}]}], ";"}]], "Input", CellChangeTimes->{3.793599246366867*^9}, CellLabel->"In[56]:=",ExpressionUUID->"8c41949f-abb0-4ec2-8a82-071e6798fc5d"], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Cel\[AAcute]", " ", "\[SHacek]k\[AAcute]la", " ", "test\[URing]"}], " ", "-", " ", RowBox[{ "parametrick\[EAcute]", " ", "i", " ", "neparametrick\[EAcute]"}]}], "*)"}]], "Input", CellChangeTimes->{{3.7935992685712423`*^9, 3.7935992902568035`*^9}},ExpressionUUID->"d9f17c0a-1226-4b4a-a993-\ 3b6f22abe206"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[ScriptCapitalH]", "[", RowBox[{"\"\\"", ",", "All"}], "]"}]], "Input", CellLabel->"In[57]:=",ExpressionUUID->"9f4e41c4-ad00-44b3-bec5-800a5d3df57f"], Cell[BoxData[ StyleBox[ TagBox[GridBox[{ {"\<\"\"\>", "\<\"Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"}, {"\<\"Anderson\[Hyphen]Darling\"\>", "0.41320340440738335`", "0.3423921757211549`"}, {"\<\"Baringhaus\[Hyphen]Henze\"\>", "0.375025849349818`", "0.3161573903607734`"}, {"\<\"Cram\[EAcute]r\[Hyphen]von Mises\"\>", "0.0702814378741615`", "0.2813061103935132`"}, {"\<\"Jarque\[Hyphen]Bera ALM\"\>", "1.2608569280524338`", "0.48004618293615586`"}, {"\<\"Kolmogorov\[Hyphen]Smirnov\"\>", "0.08927286943525675`", "0.048002402585800866`"}, {"\<\"Kuiper\"\>", "0.11674526717640782`", "0.1821519635210283`"}, {"\<\"Mardia Combined\"\>", "1.2608569280524338`", "0.48004618293615586`"}, {"\<\"Mardia Kurtosis\"\>", RowBox[{"-", "0.1725238065472019`"}], "0.8630257470383175`"}, {"\<\"Mardia Skewness\"\>", "1.1848995994550882`", "0.27636078699892713`"}, {"\<\"Pearson \\!\\(\\*SuperscriptBox[\\(\[Chi]\\),\\(2\\)]\\)\"\>", "13.1`", "0.2181343408193274`"}, {"\<\"Shapiro\[Hyphen]Wilk\"\>", "0.9853273614905108`", "0.3352391361648339`"}, {"\<\"Watson \\!\\(\\*SuperscriptBox[\\(U\\),\\(2\\)]\\)\"\>", "0.06399021639890154`", "0.29757239680540604`"} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxDividers->{ "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, "RowsIndexed" -> {2 -> GrayLevel[0.7]}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "DialogStyle", StripOnInput->False]], "Output", CellChangeTimes->{3.793599263080964*^9}, CellLabel->"Out[57]=",ExpressionUUID->"913752cd-a87f-42fc-8873-c8b158f1ae8b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[ScriptCapitalH]", "=", RowBox[{"DistributionFitTest", "[", RowBox[{"data2", ",", "Automatic", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.793599512278292*^9, 3.7935995135810366`*^9}}, CellLabel->"In[64]:=", CellID->206459738,ExpressionUUID->"4c23a3a8-aab8-4453-988c-74d3839e0f26"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["HypothesisTestData", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGAwA2IQvV+g6N7//+IHyh7/qMr9uMOO7VZyUp+w2IFfkzYn Sh58Z/f9/5/PG/4KH7htIzfPZbOi/dT38+JNuIUOmB3ymyXb6m1/7+Zl7nol gQMZNpuWcacV2C9yTOjercBzwDCs3j3VbqL9wyStzVbOHAccTwR7F91faV9i 6/ztoRDLgZ4iRasJkQfs90qxlOq/+b9ffvGd3Q7y5+2dHy5JlXP4sd/n3Lw9 E6Ku2T82OSa5+877/Ru23tpo2nHTfsmXDguHkAf75f3161YvvWYvNsdi39f5 C/f3Rm5wuMtywX7Rd151p+v37C+xnJ1uxHHQnsFk9Sara+/saywuavluXWtf 4Oz1SfLYd/seR+51+6ZPsjdi+tzx8+d/e4sDRVPXWhfZK/ruua11gdlhc3uy xl9Wf/ur8RuuG3xjd9jltzUx46GivcH9SfKlV7kd4veWPWBI+2Q3J0h42Qlm AQfhYtWiqpoddl+sTlXzCws56M1lWjdVvMpuQWRF+dd/wg7Ohid4Eh2t7BZJ 16e6i4g5TDt7qs1T4YMtNPwdPDeu6MsQWwLjH0jZLlQ6c4aNPSw+vI9XlDDK BtjD4iPkrcf+e2ZJ8Pjov7jnbGJEETw+1r3m/37NpBEeH4eOZy+78rofHh/M fWfi7PfPgsdHX6aSxfEXS+HxwWV2y7Ro8QZ4fLDO/HZputp2eHy0LHnA+J1z Pzw+rtv/zTtudBgeH51P9674FnoMHh+acsv3TN1wAh4f5z4H3TdoPwmPj/X1 pobmp07A40O35vzB6K5j8PjYe9+N71nBYXh8NH4U7n/EvR8eHwEfWhe9Xbfd HhYf7kcSN7h3bLCHxUfegdOy63cttYfFR7ef4ONnq2fbw+LDYUfsm8Un+u1h 8dFwaIvgx0+NMP4BBiiAyaPxccoDAAUJngM= "], {{{}, { EdgeForm[], Directive[ Opacity[0.2], GrayLevel[0.5], AbsoluteThickness[1.5]], GraphicsGroupBox[{ PolygonBox[{{1, 53, 54, 25, 24, 23, 22, 21, 20, 19, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2}}]}]}, {}, { EdgeForm[], Directive[ Opacity[0.2], GrayLevel[0.65], AbsoluteThickness[1.5]], GraphicsGroupBox[{ PolygonBox[{{26, 51, 52, 50, 49, 48, 47, 46, 45, 44, 43, 42, 41, 40, 39, 38, 37, 36, 35, 34, 33, 32, 31, 30, 29, 28, 27}}]}]}, {}, {}, {}, {}, {}, {}}, {{}, {}, { Directive[ Opacity[1.], GrayLevel[0.5], AbsoluteThickness[1.5]], LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25}]}, { Directive[ Opacity[1.], GrayLevel[0.65], AbsoluteThickness[1.5]], LineBox[{26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50}]}}}], { DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0.}, Background -> GrayLevel[0.93], BaseStyle -> {FontFamily -> "Arial"}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.7]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> {Automatic, Dynamic[ 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])]}, LabelStyle -> {FontFamily -> "Arial"}, Method -> {"ScalingFunctions" -> None, "AxesInFront" -> True}, PlotRange -> {All, All}, PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0.1}}, Ticks -> {Automatic, Automatic}}], GridBox[{{ RowBox[{ TagBox["\"Type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["DistributionFitTest", "SummaryItem"]}]}, { RowBox[{ TagBox["\"p-Value: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0.6792230532460231`", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[ GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGAwA2IQvV+g6N7//+IHyh7/qMr9uMOO7VZyUp+w2IFfkzYn Sh58Z/f9/5/PG/4KH7htIzfPZbOi/dT38+JNuIUOmB3ymyXb6m1/7+Zl7nol gQMZNpuWcacV2C9yTOjercBzwDCs3j3VbqL9wyStzVbOHAccTwR7F91faV9i 6/ztoRDLgZ4iRasJkQfs90qxlOq/+b9ffvGd3Q7y5+2dHy5JlXP4sd/n3Lw9 E6Ku2T82OSa5+877/Ru23tpo2nHTfsmXDguHkAf75f3161YvvWYvNsdi39f5 C/f3Rm5wuMtywX7Rd151p+v37C+xnJ1uxHHQnsFk9Sara+/saywuavluXWtf 4Oz1SfLYd/seR+51+6ZPsjdi+tzx8+d/e4sDRVPXWhfZK/ruua11gdlhc3uy xl9Wf/ur8RuuG3xjd9jltzUx46GivcH9SfKlV7kd4veWPWBI+2Q3J0h42Qlm AQfhYtWiqpoddl+sTlXzCws56M1lWjdVvMpuQWRF+dd/wg7Ohid4Eh2t7BZJ 16e6i4g5TDt7qs1T4YMtNPwdPDeu6MsQWwLjH0jZLlQ6c4aNPSw+vI9XlDDK BtjD4iPkrcf+e2ZJ8Pjov7jnbGJEETw+1r3m/37NpBEeH4eOZy+78rofHh/M fWfi7PfPgsdHX6aSxfEXS+HxwWV2y7Ro8QZ4fLDO/HZputp2eHy0LHnA+J1z Pzw+rtv/zTtudBgeH51P9674FnoMHh+acsv3TN1wAh4f5z4H3TdoPwmPj/X1 pobmp07A40O35vzB6K5j8PjYe9+N71nBYXh8NH4U7n/EvR8eHwEfWhe9Xbfd HhYf7kcSN7h3bLCHxUfegdOy63cttYfFR7ef4ONnq2fbw+LDYUfsm8Un+u1h 8dFwaIvgx0+NMP4BBiiAyaPxccoDAAUJngM= "], {{{}, { EdgeForm[], Directive[ Opacity[0.2], GrayLevel[0.5], AbsoluteThickness[1.5]], GraphicsGroupBox[{ PolygonBox[{{1, 53, 54, 25, 24, 23, 22, 21, 20, 19, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2}}]}]}, {}, { EdgeForm[], Directive[ Opacity[0.2], GrayLevel[0.65], AbsoluteThickness[1.5]], GraphicsGroupBox[{ PolygonBox[{{26, 51, 52, 50, 49, 48, 47, 46, 45, 44, 43, 42, 41, 40, 39, 38, 37, 36, 35, 34, 33, 32, 31, 30, 29, 28, 27}}]}]}, {}, {}, {}, {}, {}, {}}, {{}, {}, { Directive[ Opacity[1.], GrayLevel[0.5], AbsoluteThickness[1.5]], LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25}]}, { Directive[ Opacity[1.], GrayLevel[0.65], AbsoluteThickness[1.5]], LineBox[{26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50}]}}}], { DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0.}, Background -> GrayLevel[0.93], BaseStyle -> {FontFamily -> "Arial"}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Thickness[Tiny], GrayLevel[0.7]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> {Automatic, Dynamic[ 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])]}, LabelStyle -> {FontFamily -> "Arial"}, Method -> {"ScalingFunctions" -> None, "AxesInFront" -> True}, PlotRange -> {All, All}, PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0.1}}, Ticks -> {Automatic, Automatic}}], GridBox[{{ RowBox[{ TagBox["\"Type: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["DistributionFitTest", "SummaryItem"]}]}, { RowBox[{ TagBox["\"p-Value: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0.6792230532460231`", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"CramerVonMises\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Test statistic: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["0.03998903302304273`", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Data: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Univariate\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Conclusion: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ InterpretationBox[ Cell[ "The null hypothesis that the data is distributed \ according to the NormalDistribution[\[FormalX], \[FormalY]] is not rejected \ at the 5 percent level based on the Cram\[EAcute]r\[Hyphen]von Mises test.", CellSize -> {300, Automatic}], TextCell[ "The null hypothesis that the data is distributed \ according to the NormalDistribution[\[FormalX], \[FormalY]] is not rejected \ at the 5 percent level based on the Cram\[EAcute]r\[Hyphen]von Mises test.", CellSize -> {300, Automatic}]], "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], HypothesisTestData[DistributionFitTest, {CompressedData[" 1:eJwNxX040wkcAPDfb5uZmbw8nlIkKhEy6XZ6cvl+H9UUrR7SJB46hpG6iNIb V+naPeU5J6eLqC6KdOlE9HaTRKTojabRvDQi9oLtNovrj8/zcYz+KTiWJAgi /xv3VS3PC+v6xR035wkPzH0jJgYrW3Y0JoldxlZe8ChqAhdOXHhylRTaBDcq dRk9EOIdXiNi98Fi8Uepzbx+yD+j38V1GgA5/7aI2C+H9GfnIzNVcngWpdDO hA3Dn/sNFee1w2Bo7FvgLfwMZxkzR3OoI8A/4mNZ5DMKzJpj7ku4o0DrzT38 vXgMVh92t4+cHoeA5QVfj8kUEBFCkZvxldAayA13FimhP6HkCLxWQrkT82Q9 VwUNHo+E1BgV5KWQQVd/U8HRii3UA9Uq6Hzpz3OmqiFbl3xZnqCGM32r/YYu q8HxSPTiS11qcNBvbXhcOgEB0YYZ1+RJkPjTKdLTk6Bv8Ki9VzoJ7cEhjV6c KSg7x8reyJ2CVNk7WvG+KVBmb9+86ecp6DrJ2tD7dAriUl+UXOdpoExzV+ab qIEax5H+olINuDpzrvkbNGCV07kreVYDKc4OFp1MLWi35ayZDdPCv1cS7EzO aYFVsvt+8kUtfBoPZLNtdbDnRGtCkacOuKGiHd1pOlhzPMy6u1oHaXx5j6BD B/apjwYjhnTw/urKXRsc9UC/zHxZnqgH7oUV8GxSD0vZohKdwzREFOyr9t40 DRcDa3iOtdOwseX3ojWj0/Blz3fV82MM8EFmPEL+agC/wJ+1HlcNYK21r6r1 +wp51eHi2FdfYa73kF2mzwwkX2dH5AbNQM8yN9mi6RlY2BWUHcqZhbjjE0o5 bxaINAenbOUstDZrlkbMIdC3eNvLsigCS9V9OJZCIN84dw73EoG2JLlF2E5g 7WfZp60KAm1aovzfLSDR31O8Pn4RiQHaB3vXOpM4L8Z3W1gUiUnhSr8/YkmU Zje5dseRWLWEMPVJIXG/Q1bVxEUSXS3P+qZXkljOkPFOfCSReyi+ab2CxOJx hWWGisSYpsSbAdEU9OzkpLr8QsEe2+XchgoK1o3rG+7UU1BT43bdSkXBBjs3 stGTio+iB38QeFFxoMdjLDKMipJXCq+MfCrmH//7reQvKv4oyA9mKqjIv2Z3 uJRJQ5GPynOtFQ0fmrjcsXekYVNClrv6IA0Zg41HLXJomNsS1cyQ0PBL4k4i J8AIfaUs61bBt59ksgpPGmFMRQhnc7YR9vJ7Ku+VGyHhPebaXWWE0tCUiYj5 dFz7NP1g2bc/tvbU+dvR0erm89udbDruHenI/HCMju/VLvVJ7+iIXmkM6Qpj DI06Rc0DY4x/MXBaZsLAtsfiuhlvBvJ7Qfw0g4GVgdds3AoYaB1b+Jlxg4G3 7g8Mt+aYYBZPNMwsMEFB+zqhdNQEi+mmD+47MnG9zao3ocuYaL6koyY+iYl2 9bT5G0VMbHvoR7knZmJ0W0VzHc0UhUP6fU7mpsg3Iyw8bU1xpGLuqXUWLBSy /7MtTGeh14LRhXNKWNh1t/PWpXoWShKuBEWSZjj0ah3v/BMzPBQu6Hi73Ry9 Uk7FN+80x93Br7M+tZsjRzLY/I/BAu03GEtKLSwx7/mJ/kgfS/wfN+EpLA== "], "SampleToNull", 1, Rational[1, 20], { NormalDistribution[\[FormalX], \[FormalY]], Automatic}, Automatic, {}}, { "Normality" -> 0, "EqualVariance" -> 0, "Symmetry" -> 0}], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.7935995147570925`*^9}, CellLabel->"Out[64]=",ExpressionUUID->"58c4ac2d-52b2-410c-9732-53f99ec0edf0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[ScriptCapitalH]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]], "Input", CellLabel->"In[65]:=", CellID->505051326,ExpressionUUID->"5e223368-17be-4f57-931d-41014c34dd62"], Cell[BoxData[ StyleBox[ TagBox[GridBox[{ {"\<\"\"\>", "\<\"Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"}, {"\<\"Kolmogorov\[Hyphen]Smirnov\"\>", "0.047431622124427086`", "1.`"} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxDividers->{ "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, "RowsIndexed" -> {2 -> GrayLevel[0.7]}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "DialogStyle", StripOnInput->False]], "Output", CellChangeTimes->{3.7935995374381857`*^9}, CellLabel->"Out[65]=",ExpressionUUID->"eea4bc07-22ee-44c8-b8f5-968601977b09"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[ScriptCapitalH]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]], "Input", CellLabel->"In[66]:=",ExpressionUUID->"a194df69-23f7-4f48-ae36-de6120f9ad61"], Cell[BoxData["0.047431622124427086`"], "Output", CellChangeTimes->{3.793599555102394*^9}, CellLabel->"Out[66]=",ExpressionUUID->"b7cb063e-6817-4120-94d4-5e28ef9f285f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[ScriptCapitalH]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]], "Input", CellLabel->"In[67]:=",ExpressionUUID->"62b7bf5b-a3f9-467d-bfd6-f3abad5fcb27"], Cell[BoxData["1.`"], "Output", CellChangeTimes->{3.7935995659065323`*^9}, CellLabel->"Out[67]=",ExpressionUUID->"26b89b71-d0ea-4f02-8ba0-153cbc815cb3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[ScriptCapitalH]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]], "Input", CellLabel->"In[68]:=",ExpressionUUID->"dbe16ce3-5980-409b-b1c0-a14623b5e7c5"], Cell[BoxData[ RowBox[{"{", RowBox[{"0.047431622124427086`", ",", "1.`"}], "}"}]], "Output", CellChangeTimes->{3.793599580948606*^9}, CellLabel->"Out[68]=",ExpressionUUID->"67f04ecd-e5ef-458a-8f36-157211670d1d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[ScriptCapitalH]", "[", RowBox[{"\"\\"", ",", "Automatic"}], "]"}]], "Input", CellLabel->"In[69]:=",ExpressionUUID->"d7668cba-db45-4196-990b-4f2eebdbb68c"], Cell[BoxData[ StyleBox[ TagBox[GridBox[{ {"\<\"\"\>", "\<\"Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"}, {"\<\"Cram\[EAcute]r\[Hyphen]von Mises\"\>", "0.03998903302304273`", "0.6792230532460231`"} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxDividers->{ "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, "RowsIndexed" -> {2 -> GrayLevel[0.7]}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "DialogStyle", StripOnInput->False]], "Output", CellChangeTimes->{3.7935996071806107`*^9}, CellLabel->"Out[69]=",ExpressionUUID->"08e9e164-5365-478b-b1c3-0e45e8e0f386"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[ScriptCapitalH]", "[", "\"\\"", "]"}]], "Input", CellLabel->"In[70]:=",ExpressionUUID->"7ba57ecb-4dbe-456f-9b5b-1bc4e8875d2e"], Cell[BoxData["\<\"CramerVonMises\"\>"], "Output", CellChangeTimes->{3.7935996255054884`*^9}, CellLabel->"Out[70]=",ExpressionUUID->"20bd9133-0d59-4ad5-9b2e-48fcb732f0fa"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[ScriptCapitalH]", "[", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], "]"}]], "Input", CellLabel->"In[71]:=",ExpressionUUID->"40eceadc-f703-4df3-9825-3643073f1476"], Cell[BoxData[ RowBox[{"{", RowBox[{ StyleBox[ TagBox[GridBox[{ {"\<\"\"\>", "\<\"Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"}, {"\<\"Cram\[EAcute]r\[Hyphen]von Mises\"\>", "0.03998903302304273`", "0.6792230532460231`"} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxDividers->{ "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, "RowsIndexed" -> {2 -> GrayLevel[0.7]}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "DialogStyle", StripOnInput->False], ",", RowBox[{"{", RowBox[{"0.03998903302304273`", ",", "0.6792230532460231`"}], "}"}], ",", "0.03998903302304273`", ",", "0.6792230532460231`"}], "}"}]], "Output", CellChangeTimes->{3.793599648411677*^9}, CellLabel->"Out[71]=",ExpressionUUID->"e267b69a-1759-4e7a-aa80-4163b38446f9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TTest", "[", RowBox[{"data1", ",", "1.1"}], "]"}]], "Input", CellChangeTimes->{{3.793599699188916*^9, 3.793599707478756*^9}}, CellLabel->"In[73]:=",ExpressionUUID->"dae5afb9-45f1-4981-8ddc-d06ef9b02396"], Cell[BoxData["0.0736278582412143`"], "Output", CellChangeTimes->{{3.793599700219943*^9, 3.793599708203366*^9}}, CellLabel->"Out[73]=",ExpressionUUID->"63ff4af2-e765-4ff8-be47-8788e9d92392"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TTest", "[", "data1", "]"}]], "Input", CellChangeTimes->{{3.7935997283514605`*^9, 3.7935997291711903`*^9}}, CellLabel->"In[74]:=",ExpressionUUID->"e0900d8b-cf98-4ff7-9548-5d02afcf72bd"], Cell[BoxData["1.4245962264375574`*^-24"], "Output", CellChangeTimes->{3.7935997300318236`*^9}, CellLabel->"Out[74]=",ExpressionUUID->"ab8366ad-936f-4ba7-93f5-2adae494fd1c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TTest", "[", RowBox[{"data1", ",", "Automatic", ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.7935997475551386`*^9, 3.793599752576623*^9}}, CellLabel->"In[75]:=",ExpressionUUID->"31b45529-073e-4f39-b9c1-cf21debe8fb8"], Cell[BoxData[ StyleBox[ TagBox[GridBox[{ {"\<\"\"\>", "\<\"Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"}, {"\<\"T\"\>", "13.690849928391435`", "1.4245962264375574`*^-24"} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxDividers->{ "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, "RowsIndexed" -> {2 -> GrayLevel[0.7]}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "DialogStyle", StripOnInput->False]], "Output", CellChangeTimes->{3.79359975304621*^9}, CellLabel->"Out[75]=",ExpressionUUID->"fbf564da-9132-454f-99c1-da9e7e31259b"] }, Open ]], Cell[BoxData[ RowBox[{"TTest", "[", RowBox[{"{", RowBox[{"data1", ",", "data4"}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.793599782152915*^9, 3.7935997962667036`*^9}}, CellLabel->"In[76]:=",ExpressionUUID->"40ba5716-8fca-4d18-934c-a95a7160c52f"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TTest", "[", RowBox[{ RowBox[{"{", RowBox[{"data1", ",", "data2"}], "}"}], ",", "0.1"}], "]"}]], "Input", CellChangeTimes->{{3.793599810225594*^9, 3.793599819731474*^9}}, CellLabel->"In[77]:=",ExpressionUUID->"6121e02f-ca43-4aac-b610-fcf38702ed5f"], Cell[BoxData["1.251151989077236`*^-11"], "Output", CellChangeTimes->{3.793599820691416*^9}, CellLabel->"Out[77]=",ExpressionUUID->"e1c7d8c5-75d2-4b32-b34b-0cd43277b43f"] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Ka\[ZHacek]d\[YAcute]", " ", "z", " ", "test\[URing]", " ", "je", " ", "n\[EHacek]\[CHacek]\[IAcute]m", " ", "specifick\[YAcute]", " ", "a", " ", "m\[URing]\[ZHacek]e", " ", "se", " ", "pou\[ZHacek]\[IAcute]vat", " ", "samostatn\[EHacek]"}], ",", " ", RowBox[{ "ale", " ", "v\[ZHacek]dy", " ", "uv\[AAcute]\[ZHacek]liv\[EHacek]"}], ",", " ", RowBox[{"abyste", " ", "mohli", " ", "interpretovat", " ", RowBox[{"v\[YAcute]sledky", "."}]}]}], " ", "*)"}]], "Input", CellChangeTimes->{{3.7935998267555804`*^9, 3.7935999011784687`*^9}},ExpressionUUID->"b995c8b8-cece-42bb-88e4-\ 2b26f97e7363"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"gr1", "=", RowBox[{"Histogram", "[", RowBox[{"data1", ",", "\"\\"", ",", "\"\\""}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"gr2", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"PDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"1.25", ",", "1"}], "]"}], ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "5"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"gr1", ",", "gr2"}], "]"}]}], "Input", CellChangeTimes->{{3.7976559915013*^9, 3.797656003622573*^9}, { 3.79765605064948*^9, 3.7976562602238903`*^9}, {3.797656298061193*^9, 3.797656424539317*^9}}, CellLabel-> "In[112]:=",ExpressionUUID->"8b932d75-2e52-4b0a-86ed-8e0c5ddc0ecc"], 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[{-2., 0}, {-1., 0.01}, "RoundingRadius" -> 0]}, ImageSizeCache->{{24.29283426741395, 71.52736474894203}, { 86.7372354269564, 92.14687920931985}}], StatusArea[#, 0.01]& , TagBoxNote->"0.01"], StyleBox["0.01`", {}, StripOnInput -> False]], Annotation[#, Style[0.01, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-1., 0}, {0., 0.1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{71.02736474894203, 118.26189523047012`}, { 42.55044138568543, 92.14687920931985}}], StatusArea[#, 0.1]& , TagBoxNote->"0.1"], StyleBox["0.1`", {}, StripOnInput -> False]], Annotation[#, Style[0.1, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0}, {1., 0.38}, "RoundingRadius" -> 0]}, ImageSizeCache->{{117.76189523047012`, 164.9964257119982}, {-94.91958452049093, 92.14687920931985}}], StatusArea[#, 0.38]& , TagBoxNote->"0.38"], StyleBox["0.38`", {}, StripOnInput -> False]], Annotation[#, Style[0.38, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1., 0}, {2., 0.3}, "RoundingRadius" -> 0]}, ImageSizeCache->{{163.9964257119982, 212.23095619352628`}, {-56.14243426158339, 92.64687920931985}}], StatusArea[#, 0.3]& , TagBoxNote->"0.3"], StyleBox["0.3`", {}, StripOnInput -> False]], Annotation[#, Style[0.3, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2., 0}, {3., 0.16}, "RoundingRadius" -> 0]}, ImageSizeCache->{{211.23095619352628`, 258.46548667505436`}, { 13.092578691504784`, 92.14687920931985}}], StatusArea[#, 0.16]& , TagBoxNote->"0.16"], StyleBox["0.16`", {}, StripOnInput -> False]], Annotation[#, Style[0.16, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{3., 0}, {4., 0.02}, "RoundingRadius" -> 0]}, ImageSizeCache->{{257.96548667505436`, 305.2000171565825}, { 81.82759164459297, 92.14687920931985}}], StatusArea[#, 0.02]& , TagBoxNote->"0.02"], StyleBox["0.02`", {}, StripOnInput -> False]], Annotation[#, Style[0.02, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4., 0}, {5., 0.03}, "RoundingRadius" -> 0]}, ImageSizeCache->{{304.7000171565825, 351.93454763811053`}, { 76.91794786222952, 92.14687920931985}}], StatusArea[#, 0.03]& , TagBoxNote->"0.03"], StyleBox["0.03`", {}, StripOnInput -> False]], Annotation[#, Style[0.03, {}], "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}}}, {{{}, {}, TagBox[ {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwVl3c81d8fx63sca/bkCQhNPBNQpL3kS1ZoeydyCpCJTMzogihkF2SXaE+ klJkJONeK2Qk273XHr/7++vzeD7O+/E57/N+vc77nHPY3tPIiYGOjq6dno7u /99Hc/mknZ0dTGeU0eFMpi3cpyiXyK7sYB1OB44wfLAF3/WeUJe5Hay9Wltq o88WzJlZTvwa2MHczEzFg/bZgbCgc2D++x3sZpEK9Dy2g/KL4iIXvXew83mS 9tuP7aGzuMAtbWIbQxtVrSdrHaGxHFTaB7exuSsPG+N+O0L1u949TN3b2E2l OTERJidIa2TB3D9vYxc0b1zbuOgE9gPOeJWsbexMuU2U65gTLHFIVE+abWOf ap1zowWcgXC9cEe2dQuL6H7tgatzAQUB3O3iz1vYg1JPw6VpF7Bu9VsSqaFx fACzqIArvJTWHOct2MIK/U+X+t9zBUQZb14I3sIyN+nSyarXwe2eSHKx7BZ2 zLReLnnYDRrjn58QzdjE+LqjheYkveAfYs5Pf7yJ7SoOiNe/4AU8S+6HCNGb 2LN2l/Dha15gbnyOl8F3E0uLFON4nOsFC3wDK7/1N7HF3Kg3ioI34OCL/Z/T GTcxxcvVjQP8N8G3MsmMcH0DkxTScFI/6wPjnh/iTthvYK6vxLzfW/qA8fGJ T+pmG1jsHbY71oE+IPNC/pi/5gYmQRBxUGrwgbn4vvUBkQ0sUNID6enegqvX hTLyB9ax9Er5LzsuvmAqXDx0Rm8dy5GtmDVs9Ycvg128l9TXsdnzz32tqP4g +3RLw01pHYvNdhvJPngbeHH6b54fW8dChtedezxuQ9vWYhAjyzp2NLEukUq4 Axok+cOt2BrmdeLNvKbLXZBP+Oxge3IN+zQ2qiB6PhD+DlteyJdYwy4kR3iM eAVC2sllmZlDa1i93p6awcxA2OyUYPDnXsM0T90pTNoOhPo9D7Pip1exjDSO +4xYEOikXxn8mLeKfQ3f54PPDwbL/FnTg/yrmE6L7P5S3VDgWolQdsCvYsv+ S4fVr4XCR00hsSLWVawu3OzsdlgoHJ4yosqurGAGHsbyg7WhMHH8XaJu1wqm OVV010gyDDzLQjvuPlzBvo+vN5zddx9C6/bp9DGsYCCyK4+fNQKc3wX32K8t Y1O6NvrnjkeAbuWU/fT8MiZjhD+VoBcBe4pr724OLGO8sh98m55EQGG6zWvB t8tYkOBUQYhYJLTeKcA5XF/GvKsChowMo4DvjHzv9C8qtmeGdHm4NQa2ZLMc fJqp2Ff25Cs3VmJg9D+2hc16KlZ5/J7+mcMP4JVEPyt3CRVTMD2+43HrASjz BSn+F0XFJO99j/QTigWHla/PfJSo2GCHQIFUSByUVJk6buVSsFv5/GR7+QQY qA1+JZ5BwcqaQh5I6yUAe8PLJcNECrZb/oDMPqcEuNq2HZwfQsGYtmfZFBIT 4NBk/jN9awr2BX82omEhARL4Vnqy91GwxcbsIZ6yR+B9N0VbI4aMUU/+PiSv mQgvQj4leIWQMfdAw8wku0ToiJzuTfMnYw75uUq4gEQ4kQRX56+SsfwPzbL2 ZYkwVjwZmqpKxuxWQ3u9DyaB6ZB83b/NJUyg5tugw0YSKKgQpeI9l7D4lEtf xNuTIW3pJ/+m0xJG9q6Q2LWQDJs5LcwulkvYl5uMuWz4FMCYsaHz2kuYKUu1 Y9SlFND4kfdwWXgJY9KSzLTtS4FLl73nrHoWsXGjsAep86ng4c5dcuLcIsbR LurNcSYdOgRZ056eWsQmGaNOcNikg0wHfQTzsUVsb1fQHrnwdKDKUK2G9y5i QbGua1yd6RCw2s+VtLCA7S1Ny/zungHRYUXuGzkLGCPjMULc62eQ+1RNspl9 AfO7zV2VJJ4FWsMlPxzoFzB2RY0j9OeygHhRhrg+P48JiYRZ3jfKAudr/SZ2 zfPYkQ0pq/Z7WRDxTNJQKmge0x3xN7rdnQWfWTo1v/2dw0wf2Jkdi84G5QH+ 05u1s5jAyjc9V4YcOBVezONoP42JXOtWSYN84BZnbOwzmMbM6rVNjMzy4e83 M39DmMaC8uadDnvnw3NOlhFlgWms8fevl0wF+cCaZFe+v+cfZo7pUYd5CmDg xV6Tdu1/WNeHn4zr4wUQUR+cpnhyCtMI7/uzklMEpA3jI3i6SSy1f0XDwOU1 8FN0RLhmJzB3+/2DTQ9eg+UMOszWN4Hteu5uaVXyGoYHThykr5zATkjXoFHy a5j4wLRn0ZkWbzDzyTi4BChBlUw/28exfAumW+PP3wA30+6xhMwxbO1y3PDd tVI4z/nrBQ5GMfWmFcZLARWwd/+FvQaSo9gl2dR15oQKmD7yOTr+wCi2HCXU +S2nApKgwot7dQRj7T953LelAiZuJipzlo1gu7mnq/wOVMID0qU+FpER7IXz g7h9HyuhK78Lv8M8jJl5F050clVDW2gxff+zfsxLhWxv0vsOQFpLSutfJ3a3 0O64xvxHcBcUNKlcasCMfOeNf8h/htLdLJsDauHY9oVXSVGEJmjp0tjb3vgJ fvBVaA3HtIB2y6O48+c7AferrVWftQOqRqlt9nT98CzxkfWyYCfoOVwWmj83 CiGCHRbqql0QVv8u+4X+KOzkuFSN6nTBu4P8IqZ2o5D0pagiwKgLhIkDRz7c HwUTFv+IfLsuoOraH3/QMgqvbFZ+dwR1QYacu5y42R8Q0JQ+e7e2C/6xhena +IzBykNcypZ0N4SXlvi3v5wAluarJ305e8DorVfp1ocJaGj8PJ1O6AGhjzJ/ j/+cAPqHSsx1/D1Q11J9OWplAqKcGmFaogcoEx/lVNQmoba+n3GXeg/YH2yn lA9OAv/n0c5DAT2AYua9knFTcC8h5P7n8R7gflRW2CgyBXc66g9LzPTAQIr3 8JLcFKi4O2lHLPWAX96Kvr7VFAznXBWU3umBkvodKdaXUzB6WVxKhq8XDq7w zN5W/QeimxfcV7V6Yd3hPxcr32lwEuAjmuf1ghrCK8pETwNR0ofQ8rIX4gSW 2FkypkEjdd5ctrQXhLoriks/TQOr6PzqYk0vaGjILzByzYCeJ88gX0cvPJZQ 9nuZMwPJu9hqcGu9cGz2QvhKxyz8cTF/G65OBJ/vJ0x//JkF76Z/KVw6RPiQ xyWevTwLhy0IE3F6RDCwbv+mIzAH+Y0H3/tdJoJvuxHnc+c5aE5V+DB/jQgN ZWaJattzYDzE5+EeQwTJ2oqOb3sW4GvGuH9oExFYDzkEPhJcAH6vw4RfzUQY C+U9YS6+AP9qtnMF2oiQpnMjclphAboPb+SkddHi+6SUuS0XwEOD9FFlhAij q0WvLr1YAImMtfUza7T8LM3MBF4tQFbHp498m0RIrWdlGa9YALNcW72FbSLo Rznb+35ZALUC5qZoJhLU7Tuy/+nfBVjKeUR04iFBslxWxJDUIjBYnLlaL0KC G2n6sgXyi/B45PSXY2Ik0N3eHvFEiyDr6tscJ0ECxq9W5+iNFkGaoIydkySB l8kBisitRUjsfLVPXY4EF943Z8/cW4RGXxsPHwUSiB28o18VsQhc7yjmGYok GBwjvtRIXYTOZO65bmUS6Pgk27nULoJVpX/TvAYJjhDVeWQaF+F5yP3UP1ok oFOi1q3/WASvn2UL7TokeMtozBc7tAhhRg+lH+uRQDQR315CvwR/dBPe1ZmQ YKcsVomiuQSpukUphfYkyHd1U79juAQFhK/Vqo4k0BPR1aOzWIJFPrOFbicS PE/isOX0WIJqU9Xi39dIoOwXEyaatARzP3/zR3mQYELaNfblsyU4YCE60u9J god/tZ/8V7AEafzJVWI3aOsxYytQqqFxUnxYtjcJApSimo2HlyBAuyP+uD8t P6rzr76pJViwkMmRv02CH681B2zJS5Di1FWjeIcEBw6xzLkxk6Fy68nSkQAS NPROLC/xkGFKtBjHfY8Erglfd/z3k8HVf15qlsY19BH48BNkUMu9dC0hiAT2 NU78HHJk6DJ9G2IcTAJ2b3WRR0CGU7OtKTwhJDAbYzr9zIgMLXEMb11DafV8 NnZOxJIMC2NvPrKHkaDQpFGjyIkMmnVS9dk0Xv0adqXKnwxGvyRKKu+TICvI we5sKBlubgQ9/S+cBFoKqq6fHpDhma9tQA6NFxaEvTWfkIFexsCUK4IEKUUM Aa3PySBRMSTmQWNl+9H7lwrJ0MiXN/uFxhP8DXGkMjI4HNB4uTuSVs9f2ck2 tWQgcHtYmtNYLjYkc7yRDOtDnYwpNB5Ssyu83kaGnn2yWc00jthCZYu9ZPAe Mj9JpbFUtVCN3wgZdlH3v90bRYJuD7rPW//IEFxz8aQ0jQPEh1vCKLT6HBvI VKax6DDWxbZNhn2/KxnUafwjNXMwnoUCr7h+mp2nsY9h0MQePIXW107lydFY gN1mPp2fAqQvf8cO07ixQXn1sCgFituY9zPR2O2uIH2hJAWYDF6rDNLyIchu s0nJU4D+8S6b1zSumRnkrUQUMLl9/oYPje3zPhxQ1KHARESWvwyN2a2fidZf ooBzr9OtSVp9yvfek9SwokCX8KhzIo3N2y3lflylwEKth4EcjRmilMDIiwLp 8R7SHbT6v0QCWsTbFDghqrfLjsaGaxsG1mEUeJ0a1vmXpt9qWb/ZWCwFWHMf pjj/X0/XWnvXZApIJK0aD9L0Xui/4+NbRIFcTeXa1zR/6MU8bTAvp4BNYnou gcbFCu9wUEsB+zrGshs0P7k8oRaztFKgvvbS6b00v31T3b0x3U0BP817JZY0 P4otyWh3DFFAZf/pi+mBJBjV8xpPXaDA3l/C23Q0/6Kth6furVHg1r0uvATN 75mvXofYMVBBc4FDT/MuCSxZpw8e200FIctLqh60/dL9ycm0Vp4Ko0YtZ6xv kUDW635uJqIC3aOdIg0fEjwWzFkK06YC7j2jjjht/+ndHX6oa0GFuqaigz+9 aPnJWjQNBlIhbbeKTNN1Wn5/bu9piKRCpXsy3HAlwf1HqQ75CVTwOtMZTnAh gcpc947HCyro2uEa0FWafgUGCnRfqTDoVyeobEsCPlPPiLE2KuwZkeB7aU0C X6aHXd96qXBQ0sKE24oEp+xavB5NUWF+iiUbM6PVj1+jSJhrGQ5HNRd+MaL1 m7iz/OrGyyDRpzFtq0qCzbPm145aLYNYZtiooQpN73/+1VxXlyHA76HCWSDB Ps1qox6/Zej/r5F1hdY/E+hOPnBOXwYRxWM3CDIkCPMW24weXYb6NinZEUGa vrFdySrTtHH8qz4nAVq/zws9uUZehoKwQN0/+0lA6R26em3XCriosKZ/200C R6WUnxoSK9D0hUvkHDsJNHaxFjB6rIB926m5djIR7AWrVWp9V+AR/Tfb0QUi BMo7DtwMWoHUF3ONs7NEqHapx48mrIBRsYnb/CQRxNv8A+orVqAzJDrkeT/t /EqZMry3tgL8R/skSj4RQbQ0ZUaWYRWe5lutGnwkAvquHjnDvgpyw4XjMzVE 8N/IrrMQWIU8gucRXCURpmzMxRVhFfqlxuOY8onQLNGyuXx/Fa7V6FUXRBEh tqa4wAu3Bu0THGJzWrTzW+LBs/H9a7A1a6Zjo0YEq2SXRHORNVBr3O74BkSQ uikWpCa3BmH+k/vC5Yjw82iWKZ/lGjCPr/HkiBBh79PEXfUFa9B6Zu+Q/2Yv ZPndceCBdShfE9wsKeyFClmtQyXuG8BVX2B6k3a/MUp1Mg/x3YBlVfW2hIke WNoIfWIctAGxBPPOouEe+O/zB46NhA3oezKZ2NLVA8WGp1Y1KzfgR69+dFtd D+R7CP4cWd+Amq7Jkp4HPZBaSAndE7UJ5akMIrvFeuCeQPZEwIstOG4gEe2p 2w3l6SznDBnpUGxFw/ce+AUjdMWprdL06EL0QWFO7p8wIiCdwavFgJ59ay5c H2kFr866XYz+jOhcx6OIN1e+Q4fy0X11iUyoND1XsUnvC8wwhNUMFe1C+yt3 hhxyP0GK7eTn4l5mJM7DIV8lXgeEW8duqS6yIJ6T8kVfrKrhx6vIe6zLLOhQ BEU1QaMa7o+Ohbeus6BtFnr8delqoOhnJl9mYkXfLpggQ/pqWt/d/e76PlbE 5Gs39juvCpKHt9YTz7Ei6+fx8buWKoFP92fwWDQrUvQ9mOiSXAGCIv6x4cJs 6GTsg4wDPGVQ3uXzdk2MDRm5xP48tlUK6hE3Rt2PsyHZIpSvOV0KblOuCqay bGjEOOPwy6ZSqHljNSamwYaOFeEYeENKwURJVembCxuKCxR91zXzBmJNuGfY y9jQU/+oUI2e17AemXuB9kpGKYG6ikkrRTAz91dgTpUdKWUlEXr7iuC3ieTc BS129FiKCyfzsQgaRaoTWAzZ0aNvry78F14EcVhTd6A9O4qYxdXq7i4CoZV/ Nu7h7Cgg5EDjplwhaFw96aPTwo6cdsqaF+PyQaH1lnphOztaFey5dcQnH47L 1uxl7mJHYeoW657m+YBjUH3/aYAdKQdvOWiL5wPpmfG2whw78rU+FMnZkAdu 3X5R4ngOdNhawLZ5IxceqX3MYLrMgeTMRyO7g3LgX3fagU8WHOib9tubA1dz 4LyzX9o9Ww5kKU73ZPNiDlCi/0tdduFAWXoSalECOWDa/iLxbwAHWrw7VNhS 8wL4zSNjfrzgQHBcwpS6kQ25ngb+SXMcKEpky8QlIQs26SRXDMgcSGbV8fPt O1lg8pjNl2uVAzkpRwVmO2YBc1WDdwQ9J1roCsuUO5MFLuuynv67OdHZ0dPF 018zQSp8/1VLRU60onm4wsf/ObxNG70kGsGJMh7fed63mQ7/8q2p8TGcSInZ FARJ6SBY0Ze88ZATTSm7c0RWpUNESyepM4UTSbAyfGzySAfTzQabkCJOdLI7 5D3DnzSgWuVcH/rBiX40VnpodT6FU4cdw1IJXKjV+j2PdUsKXJUcFmXi40In OIVwe4pTIO2M5VdPAS6kqHaQYS42BRiMjNk0j3AhprA9xrv0U6AzVC2eKseF /JPOjXztop0ZY6LpRuZc6FnpzdNBE0/gTcF4OWc2FwrKkARe4STQGVqj783j QglPU7bjmZJgbDe3YfZLLiRqfan/5GQi8IXKzZ+u5EJPfxLdRooTIdgy8rhN Ey2e68XNmTOJYIA/mls2y4VCy2MUk80fw9IdtyemitzoVh6XimVVAsSWBY8J ATey3PvLSSgjAcT+Jp2aVuVGdVc2a5jCEsDc5MPPoIvc6G9l+V1JwwT4LM3N XWTLjZItP2+sDMZD0tibiI0IbrQ3LqR9zPYhyOmR/bJ+cSMuJ06R8cQHIK2o 725MpMVrRjD8cHkAEmKv7FkHuVGa++eaKXgA/Nv2F70muNGT4THSt5kY2H7d KYzWuNGVE1a9PNox8JWrvPW3IA/S+jyp/4gjGi63eokccuVBUvHiojPVEWDw /gffLw8e9LFp+ad6YgTo5ElwR3rzoBtMsuXtnhGgdG94dS6ABwn27Ch5H40A IUmDto/xPIi5rm+S/Dwc/sZK37au4kGLl3XM3jy+D0pifpN6dDi0WpXtWJEe CvkkH+9gBhy60LC2UxkUCri4mztlTDj06Nrd//odQmGM7L5vDxsO7fNKept0 IhTiPjlq9uNxKPxg08l3WAgMWRoVOIvg0KbFrq+ZM8EQkijpHKyBQ4fm1M8O YIEwo3GcXKaFQ+1uPSTvhEAwXZcI+qODQ3/v1rhdsAuEY3aiKRr6OLSwxWf6 njEQOqUONHFewaGd4TcJURfugWgzq/hTFxySatjP/27iLnylG5soi8UhhbGo yhDt2+Dw/fV33nja/JlVYgqCt4HusV+x9yMcKo8zGZYm+8NZEY6bp5NxKEhM cmzkmT+UqstsvcvEIbY9viaay36QFhNMqC/HIWvyb7rOcl/w3H0QtRFxqCax kv3rFR/gHJwQlu7HoQ5qI4nztA+8zCvdlTCIQ7sFurUe4H1gTE6txXAUh+iD LcYkW7zB3Oy6afc0Ds1NUCUZVLxB7fl7t4FtHHrx07m7UO4m8EmYPv0nikea 9z+2sWt5gUiJJ5eIOB65XomPKznhBVKy0SEWR/Ho9YDwpbt4L9r7vc7lhyQe 9b5WUxV86wmeV4QVS+Tw6InUXyT7xwO+Rs313dDCIx2Nv6TDOu5waypCYO06 HlnJHVHXNXCFYM+shJMeeGT23t2OV8QVYqjvmVy98KgkdkBBcNkFsuhnZ/p8 8OhliXrhrmcu8GP/pQ9192j/530ZyTZ3DUR1DlkHx+NRz/VEr+QMZ+h8+TaT pQKPJm41ydgddYJYDuqEbBUeXRCqujXL5ASabjJS9m/xiOXIIePyYUeok3xd V1eLR/Y/N8rHUh0hr/QF6UYjHtUWFr39w+EI/tVxhIFuPHrzET/AtmkPgg0O kaWreHSDPv7XNoMdEIWz2wbX8Whlf/MqbtwWEsOG9nBs4ZHlxMNWoyZbYFU3 y3Wi50XJOM8Ax1hbWGzS+8TPzovU/pI/vuOzhcbWMxv3D9DGm3NiiN7W4Eri 8TRT5kUDhDdXE89YwBX9/VzViBeJaal+iGayAPUvwq94VXnRB58drqF2cxAq Oz3ZosmLyEja+LmzOfREWdgoG/IiEapmqnu6GZxXKNAXceRF6QcUo5oJV4A/ Rfm/2WheVMHMnoGpmgArl1abdiwvkm0icTvvNwFqqKFb/kNelAD9URbzxtDh 4Vhok8iLnkrPZR/NMIYIjRihzgxe1Pjm4pru2iVYonbj3r7hRbrR+n80PhnB d2P3xeBuXtRWJbw0eN8ARKO+ClX18qJmlZLzQU4GEFx7yGCKxItK5cZkL2sY gJxwZ4nhEC/i8PrzsojVAF7My7kJT/IiN3o7i8xD+nA3hm7y8yovMkF1a2/0 L4JkfeIAswABKXGqpluvaUMUeYbjrCABsZuRZnFN2kC7LJz1FCIgj1KtvwJP tCEtbvVprygB1dlYpoCMNjBbWF0ulCQgma+bFlleWvCbKtapDQS0Ul/912RL Ax4dr2mKtSegAIsZgWkjNeic8klicCKgeNPyf6JiasBbKG3n70xAOUMvW9+v qcJj0bx1BzcCKvL6J7eUrQpJBxMkz/oSUBv+XcyD5fOQzHM1cSqagC6qZp/8 9UYFelqFbG1iCejo7j2Hb0apwN7Y/hPdDwnolviLY/Z2KpDCavi1PpGASD9m pU/tVoFUeqW1lGcENG1ypDLqHoI0Mt5Go4w2n+f7YKYPytBX9uN4XQUBaR/Z t9zvpwz8XpGrJ6sJSJDzVqrqKWVIn9l8dLCWgELPnBfGXp2DjPHJRkojAVFV JH5r5yhBZu+HYzlEArrzffbSt1eKMPzEf4Wvn4DmA2X9xTwVQcj4VOPDQQK6 wvgrmumUImR1FFrdGSUgVNObqVR3Bl58T0wwnCGgvWblAqFdCjAaqWfVNEdA IVUzR76kK4CwBtuxc4sExBz+Pj3YQQFyGgI/SywT0Kt/FcesKPIwFnwm4fkq AYnmJvsGfJAHUaBY7t4gIMfqG0m4SHlw3Co5GrNFQJlavtl8hvKQW+uyvLND QCLZ5nWJB+Thf29aGGM= "]]}, Annotation[#, "Charting`Private`Tag$32558#1"]& ]}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{-2.14, 0}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRange->{{-2., 5.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.7976560055675774`*^9, {3.797656066876502*^9, 3.7976561262050676`*^9}, 3.7976562628672404`*^9, 3.797656304723705*^9, {3.797656342926087*^9, 3.7976563827085257`*^9}, 3.7976564274476533`*^9}, CellLabel-> "Out[114]=",ExpressionUUID->"bcc62ba3-dbab-4215-b054-2399e288bcad"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"QuantilePlot", "[", "data1", "]"}]], "Input", CellChangeTimes->{{3.797656509501257*^9, 3.797656519077751*^9}}, CellLabel-> "In[115]:=",ExpressionUUID->"7d21ce8a-dccf-4829-8e0f-8ee13ef0ad2b"], Cell[BoxData[ GraphicsBox[{{}, {{ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], AbsoluteThickness[1.6], Dashing[Small], LineBox[{{-4.818100086250049, -1.5614693993609041`}, \ {-1.7041328317451807`, -1.5614693993609041`}}]}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], AbsoluteThickness[1.6], Dashing[Small], LineBox[{{4.792829300679312, 4.456854357102586}, {11.769452949854152`, 4.456854357102586}}]}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], AbsoluteThickness[1.6], Dashing[{0, Small}], LineBox[{{-1.7041328317451807`, -1.5614693993609041`}, { 4.792829300679312, 4.456854357102586}}]}}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVzX881HccwPGvO6mrrcuPpg3lV6G2mFKRvD+VKVR+94OUTqdcVq38SJp0 Xe6qbWmM61HH5UfKaJhKpr7yo4hwCIlwHHKcc7+5c7b98Xo8/3xZUM74UwkY hh3/r//dPDlC8i2dwVkhsP+NWoWnJvMFa7KleKLJIPnO+RE8vIdq8sJWjNc+ dLL2xEbw9GOddbiHED8YGj6cQxbgsdvTVwSjUbw0h4VfaRvG2ULbPErfEJ7U JBj6s3oIl4zTo2yEA3hVtZnH01w+vsfquI13Ri9++GfP7zbR+Hg0eZuTWVcX 7sr5vH3X7lZ8WOVsfjyhHb9wtZHrZliPF0dsCWTym/Ekj6vraQfYuO0abs7V oDc4NkRNo5dlg6rCkEVzqcIxhiZ5QU4+/PeZXKPzN47mz5B+13sJ2K7lxc/f s3FueqBz6doqSAqlBEWT2bDoumVyCFYDDlmagOjKEigP3cCzcquFKu5qjhnx BTT9Fhqm2cQDcxtvTxtJDTR7BDwKa+LBbsJLX3+nBog9YLliZUEHhN3ea8H1 aQZbVgS4VXZAa4n5W3o2D7SJ0hRKzHvYUdLwIuGLDmBUdXe1CjqhNXO1GTrR CdgvueLS5V1QgP+dZFvWDdWsnP6NZ7uBaxP48YSsB7q/Cign3v0ADxw/WOrb 9UGpfXCb4NlHOHf3D7lJQD+gmrJXK/V74ahdqnPZ8wFoOza1ntDeC1s00i3H 6gYhiuCjm6jtBfr96yskTXwYq1FWJz/oAyOPTb6VrUMQYdz/4IayD4yf3Xq4 lDcMgUEuzMYfBsH+9EOyY7MAdtZmx28pHISTU5G+tPoRIAZPBGQIh8Do+ysl CnwUrArX31i8VABRlhOXDZ6MwabVenU+hQLYvC+eJc//DCHcbWvb34+AqaGM 3sEeB1a790me+ygkL0I/DTKFcFRs5x96ZhTo6zxk3jETIByPKy2QjgJpmyd7 +7FJ0EaKRAWfP0Pxj6qvRd4icPbjG836j8O2xdS8BKcpGHG1UnXThWDEEDJJ ZDEQ8ltWHXeeAN+cIj0RXQy5j1Zafjk3Cf4fqCWJCjF8uvDEIPOeCIoNE280 R05Dsz29IbhLBA3Edi9x7zTM1a8d3jgpgsAanziFjwQKQxzOLykXw2u5OEZa LQEvcWcff9U0+D35MXvGSQqfGkl1eyqmgZZXTTF5JAV+je4Gccc01Pf3bD1l KgPe+aq3nOlpaFqeOqK+JQNmmDnSlU6DnlMQdYAoh2LClci9HAloNvz2zbcX 5ODOEt9nPJHATrr7gGRCDo2ExyF3aqWQ/o2phSdFAT328SbDU1IIzjGT7uxW QCXB9s1hsgy6y7gbZ/Yp4WW4t1HeTRn8+tfrPy+/VoLXTETRqiNy0Orr2k25 qaA1WmJ8jSmH4XyvorByFdCbSdzGPUpIMU9KEznOQLSVeezBGCVEvFpSV/Z4 Bjw4B/waaSog0KMEretmwSjFxFPhNwMpfSo2pWAWUowHC/KsZ8EgfXXdzbVq 6GyJtGyxVEPwmHrgbKEaJlHv8/lzapiveO3r7KCBx+Xnhq0q1ECzjmslP9UA DwkvoxY1uPl/nLJ0m4PAHStl5b1qOBt1Izevfg5c3QUjh6RqcPzrlKIlSAu9 71xt0hkacGgwfNcv0MIL54yLl6o0EOGnFHwdPw/1YfuP3hXMAXXNaKJgIYbO JitTnTO0EOBxmGMdhKG9J9zPj4vmIfbqTdnFXAwV7cjk6S3DUOSlNN4qBYaS myrDKNUYMi1YQvf30kGnT0a5r4jXQUz7Z6TD93VQ+PUe2k9jOigtDgu8rdZB 9H0bDJsMCKgtQ/7l/kME9DTW5RRlFwGZMDGa+T8EtGTPucxraQSU40Van2hB RC7KavbpUCJyZVtkmfxKRAanGdc+3SEi8ZEeh3daImJMbU3RVhCRij90ihOn izL3nbzwSKKLCu7mXxxU6SLHwXHCFeoClKDdxTnIWICOGC3das1cgBQDv4Qc MdVDLgZZ0oR/9JC38SueW60e8t08W5RweSGKyRjPepe0EDnce2vQXLgQTUzU Xbp5aBFad0JkVGO9CMlky8esQ0jo4+66oz4Ri9FLzwBGO2cxakv7EK7PX4Y6 s25HsoK/QIgaxZyI1Ue27anqexQyKrYTcnnt+uhfHAgoIA== "]]}, {}, {}}}, {}, {}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Epilog->{{}, StyleBox[ LineBox[{{-4.818100086250049, -4.44602724695951}, {11.769452949854152`, 10.919502436608214`}}], 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->{{-1.6060333620833498`, 3.9231509832847173`}, {-1.5614693993609041`, 4.456854357102586}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.7976565214347143`*^9}, CellLabel-> "Out[115]=",ExpressionUUID->"a96e6658-e6d6-4292-beee-678ca6df0665"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ProbabilityPlot", "[", "data1", "]"}]], "Input", CellChangeTimes->{{3.797656598278964*^9, 3.797656614148239*^9}}, CellLabel-> "In[116]:=",ExpressionUUID->"e4ef26dc-1198-4a13-92cd-9ece5219fd7f"], Cell[BoxData[ GraphicsBox[{{}, {{{}, {}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], AbsoluteThickness[1.6], Dashing[{0, Small}], LineBox[{{2.040816326530612*^-8, 2.040816326530612*^-8}, { 0.9999999795918367, 0.9999999795918367}}]}}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwtlAlMFHcUhxfQaKX1qKiVIJZDxeJ6RCCtAj9ElNOoqEWjkXOhNViRQ43Y ShRTFKsgarPgGguUoypUwKoUlHtRDndhOZZjD/Zib2KxUcvRzisvmUw2O/P+ 7/d9L+MQdSKUY8lisWL+u5j7goVKzgbJeaTalPnLz6aD5fhdkZ9t6czvm3i5 qsAqt6EUT+0v6fc+vQu+Qlrgzr4/838hGtZaitoz7yOXy1Qp3P6IFbV5PsQz er4MjlYp0Vzbchj2Mh0eYVGED746Xz7zfhVKygO/6a+pxry+ggSveU+gD90+ 1zunFtSO+wxBKxfEGOsa4HLkesNblxrsSDga8SC8CU+o/3OEeAfK5xQ2gXm7 r6AO3nGe4vqyFujpvHpUC7ayd/7Vgs1UjTiYmvSymsefOb8JDuEBvANaPhrf Mic0Y8fblLrYxDZY0zx8DN+bPe5a14Z9BKAVRvvBQ8E7OpBH871Ek+fV0Pm7 O6A4yzR8hfimxlXrKjvgSvO2IyGX58Y914kkZryEDgTLHsRO3u7EnzR/J2LV E5PHwl7DgsWUAC27N4xHTL/Gr5RHgJSxHK11rgCBcuYAIe6tjOK0VQpgpHxC FJzLrZttECC7gQnQhdOzNOzydwK4U95uWAfH2bxaK4SYAHXDffYQJ2ubEN9T fhF2vXg38NO9Ljgw49j34HFaD8dD2oVm4tEDZX3lnbk7Rfg2lqle6NZd2HJ4 WoRPiE8fSj14TsmcHjzyZwbsA+v8+56YNb04QLz64Znnz+Yk9OI9CexHfrF0 4vTVXvCInxj5vhaqxcpebKMFGIBhws6c6dYPFfEcwOP96dmK1H5cJqGDeJI3 MmdpsBhs4juEyBiJU2KrGMJ2poaw79nmqdUWg0gh3sPYc8JvPDphEMuZuDYS fGg+7HucO4ha4i9Bfnbpj1Ulg4hk2h2RomxLgDwvfhiW5EOGi64TWVHTw9hP eWQoPmFpZTsgQRH5kcG1UXVDOi3BO8onQ5pvxvtMFymCyJccKv7f8RlfSHGH 8soxXWRvs2S+DCbyJ8fRQL+x7Stl8KH8I/go6HBkklSGG+RzBA8XvX64dEoG JbUbgdqyRXzQRg4P8quAjZ/bNbt4OTKIjwLbumUb7VgjGCA9CjQHTfrarhjB OuKlxOK8iWKvMAV+IP9KTAcX904mKiAgfkr85ng37MxyJRxpH1TwyOzwK6xU Ipl4qhDwiGss9FKhhfZDhdiTy1xvy1T4jPiqoU06tMVxsRrHaF/UOPVzljsP atQQbzVEB618X4SoMZ/2RwPBrQ0hdgfUiCD+Gtyy+KXYIVqNCtonDe7L41p9 atSYRT5GsefjzBVZMjW+Jh+jyKq4Ur33mgYl5GMUF4XPzbvGNfhAPkZRy07r 31gxihDyoUV42nrJhfZR3CUfWvSlh1ewL2kxRj60mLBOBcdDB1/yoYOfZWdy 2B0dbpIPHfjRN82aeh3U5EOHN9fPfMoz6/Al+dBjanWJ86uNelz5/wME3T/O fCeBHkPkQ4+4nPTENZN6rCcfBgQsXObsu8SANPJhQNGeUPELpQFd5MMAe26y sdjFCGfyYcSZRCuvqq1GnCIfRhg8Otf4i41oJR9GPL48HBO53gRb8mFCzudj t9N8TIgnHyZ8+D3ArfW4Cc/Jhwn5m7JrnZaZsZB8mOG0KeZkhsqMKPJhhnX6 lIW3yYwq8mGGaJ6we/sbM6zIxxj+BdPqI1o= "]]}, {}, {}}}, {}, {}, {}, {}}, 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]}, 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->{{0, 1}, {0, 1}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.7976566183222895`*^9}, CellLabel-> "Out[116]=",ExpressionUUID->"7af62cc2-ae33-456a-8467-148b76927402"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BoxWhiskerChart", "[", RowBox[{"{", RowBox[{"data1", ",", "data2", ",", "data3", ",", "data4"}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.797656858383082*^9, 3.7976568697296267`*^9}, { 3.797657024242543*^9, 3.797657041536357*^9}}, CellLabel-> "In[118]:=",ExpressionUUID->"c13dc179-0f8b-437a-be12-2f4629afd273"], Cell[BoxData[ GraphicsBox[{ {Opacity[0], PointBox[{{0.2785002937090384, -3.2448637486343603`}, {4.259049945781998, 4.823602838328155}}]}, {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, 1.7896817360599355`}, {1.0375502394910359`, 1.7896817360599355`}, {1.0375502394910359`, 0.39096743984304966`}, {0.5, 0.39096743984304966`}}], {}, {{}, {}}, {}, { GrayLevel[0], GrayLevel[1], LineBox[{{1.0375502394910359`, 1.0576087553585}, {0.5, 1.0576087553585}}]}, {}, { GrayLevel[0], GrayLevel[0.5], LineBox[{{{0.7687751197455179, 0.39096743984304966`}, { 0.7687751197455179, -1.5614693993609041`}}, {{ 0.7687751197455179, 1.7896817360599355`}, {0.7687751197455179, 4.456854357102586}}}]}, { GrayLevel[0], GrayLevel[0.5], LineBox[{{{0.9031626796182769, -1.5614693993609041`}, { 0.634387559872759, -1.5614693993609041`}}, {{0.9031626796182769, 4.456854357102586}, {0.634387559872759, 4.456854357102586}}}]}, {}}]}, ImageSizeCache->{{47.58578643762691, 92.4142135623731}, {-91.41421356237309, 54.41421356237309}}], StyleBox[ TagBox[ GridBox[{{ StyleBox["\"max\"", Bold, StripOnInput -> False], "4.456854357102586`"}, { StyleBox["\"75%\"", Bold, StripOnInput -> False], "1.7896817360599355`"}, { StyleBox["\"median\"", Bold, StripOnInput -> False], "1.0576087553585`"}, { StyleBox["\"25%\"", Bold, StripOnInput -> False], "0.39096743984304966`"}, { StyleBox["\"min\"", Bold, StripOnInput -> False], RowBox[{"-", "1.5614693993609041`"}]}}, 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], 4.456854357102586}, { Style["75%", Bold], 1.7896817360599355`}, { Style["median", Bold], 1.0576087553585}, { Style["25%", Bold], 0.39096743984304966`}, { Style["min", Bold], -1.5614693993609041`}}, 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, 2.573568675152357}, {2.037550239491036, 2.573568675152357}, {2.037550239491036, 1.3691293168915344`}, { 1.5, 1.3691293168915344`}}], {}, {{}, {}}, {}, { GrayLevel[0], GrayLevel[1], LineBox[{{2.037550239491036, 1.9170617296771637`}, {1.5, 1.9170617296771637`}}]}, {}, { GrayLevel[0], GrayLevel[0.5], LineBox[{{{1.768775119745518, 1.3691293168915344`}, { 1.768775119745518, -0.10316450896320806`}}, {{1.768775119745518, 2.573568675152357}, {1.768775119745518, 4.138353315608999}}}]}, { GrayLevel[0], GrayLevel[0.5], LineBox[{{{1.9031626796182768`, -0.10316450896320806`}, { 1.634387559872759, -0.10316450896320806`}}, {{ 1.9031626796182768`, 4.138353315608999}, {1.634387559872759, 4.138353315608999}}}]}, {}}]}, ImageSizeCache->{{125.5857864376269, 170.4142135623731}, {-83.4142135623731, 20.414213562373106`}}], StyleBox[ TagBox[ GridBox[{{ StyleBox["\"max\"", Bold, StripOnInput -> False], "4.138353315608999`"}, { StyleBox["\"75%\"", Bold, StripOnInput -> False], "2.573568675152357`"}, { StyleBox["\"median\"", Bold, StripOnInput -> False], "1.9170617296771637`"}, { StyleBox["\"25%\"", Bold, StripOnInput -> False], "1.3691293168915344`"}, { StyleBox["\"min\"", Bold, StripOnInput -> False], RowBox[{"-", "0.10316450896320806`"}]}}, 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], 4.138353315608999}, { Style["75%", Bold], 2.573568675152357}, { Style["median", Bold], 1.9170617296771637`}, { Style["25%", Bold], 1.3691293168915344`}, { Style["min", Bold], -0.10316450896320806`}}, 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[{{2.5, 0.6900122781168083}, {3.037550239491036, 0.6900122781168083}, {3.037550239491036, -0.5813208385896493}, { 2.5, -0.5813208385896493}}], {}, {{}, {}}, {}, { GrayLevel[0], GrayLevel[1], LineBox[{{3.0375502394910363`, 0.03605289413532265}, {2.5, 0.03605289413532265}}]}, {}, { GrayLevel[0], GrayLevel[0.5], LineBox[{{{2.768775119745518, -0.5813208385896493}, { 2.768775119745518, -2.8781152674087913`}}, {{2.768775119745518, 0.6900122781168083}, {2.768775119745518, 2.2545833832525166`}}}]}, { GrayLevel[0], GrayLevel[0.5], LineBox[{{{2.9031626796182772`, -2.8781152674087913`}, { 2.634387559872759, -2.8781152674087913`}}, {{ 2.9031626796182772`, 2.2545833832525166`}, {2.634387559872759, 2.2545833832525166`}}}]}, {}}]}, ImageSizeCache->{{202.5857864376269, 247.4142135623731}, {-39.41421356237311, 85.4142135623731}}], StyleBox[ TagBox[ GridBox[{{ StyleBox["\"max\"", Bold, StripOnInput -> False], "2.2545833832525166`"}, { StyleBox["\"75%\"", Bold, StripOnInput -> False], "0.6900122781168083`"}, { StyleBox["\"median\"", Bold, StripOnInput -> False], "0.03605289413532265`"}, { StyleBox["\"25%\"", Bold, StripOnInput -> False], RowBox[{"-", "0.5813208385896493`"}]}, { StyleBox["\"min\"", Bold, StripOnInput -> False], RowBox[{"-", "2.8781152674087913`"}]}}, 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], 2.2545833832525166`}, { Style["75%", Bold], 0.6900122781168083}, { Style["median", Bold], 0.03605289413532265}, { Style["25%", Bold], -0.5813208385896493}, { Style["min", Bold], -2.8781152674087913`}}, 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[{{3.5, 1.5905373132959908`}, {4.037550239491036, 1.5905373132959908`}, {4.037550239491036, 0.20378499386677218`}, {3.5, 0.20378499386677218`}}], {}, {{}, {}}, {}, { GrayLevel[0], GrayLevel[1], LineBox[{{4.037550239491036, 1.036473588164522}, {3.5, 1.036473588164522}}]}, {}, { GrayLevel[0], GrayLevel[0.5], LineBox[{{{3.768775119745518, 0.20378499386677218`}, { 3.768775119745518, -1.2101836030646913`}}, {{3.768775119745518, 1.5905373132959908`}, {3.768775119745518, 3.1210296458401032`}}}]}, { GrayLevel[0], GrayLevel[0.5], LineBox[{{{3.9031626796182772`, -1.2101836030646913`}, { 3.634387559872759, -1.2101836030646913`}}, {{ 3.9031626796182772`, 3.1210296458401032`}, {3.634387559872759, 3.1210296458401032`}}}]}, {}}]}, ImageSizeCache->{{280.5857864376269, 325.4142135623731}, {-59.41421356237311, 46.41421356237311}}], StyleBox[ TagBox[ GridBox[{{ StyleBox["\"max\"", Bold, StripOnInput -> False], "3.1210296458401032`"}, { StyleBox["\"75%\"", Bold, StripOnInput -> False], "1.5905373132959908`"}, { StyleBox["\"median\"", Bold, StripOnInput -> False], "1.036473588164522`"}, { StyleBox["\"25%\"", Bold, StripOnInput -> False], "0.20378499386677218`"}, { StyleBox["\"min\"", Bold, StripOnInput -> False], RowBox[{"-", "1.2101836030646913`"}]}}, 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], 3.1210296458401032`}, { Style["75%", Bold], 1.5905373132959908`}, { Style["median", Bold], 1.036473588164522}, { Style["25%", Bold], 0.20378499386677218`}, { Style["min", Bold], -1.2101836030646913`}}, 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.3231224880254482, -3.2448637486343603`}, DisplayFunction->Identity, Frame->True, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {{{0.7687751197455179, FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, { 1.768775119745518, FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, { 2.768775119745518, FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, { 3.768775119745518, FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {0.5, FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0, 0}}, { 4.037550239491036, FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0, 0}}}, {{ 0.7687751197455179, FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, { 1.768775119745518, FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, { 2.768775119745518, FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, { 3.768775119745518, FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {0.5, FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0, 0}}, { 4.037550239491036, 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.7687751197455179, FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, { 1.768775119745518, FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, { 2.768775119745518, FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, { 3.768775119745518, FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {0.5, FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0, 0}}, { 4.037550239491036, FormBox[ TemplateBox[{0}, "Spacer1"], TraditionalForm], {0, 0}}}, Automatic}]], "Output", CellChangeTimes->{3.7976569876358557`*^9, 3.7976570456297073`*^9}, CellLabel-> "Out[118]=",ExpressionUUID->"7b78ef4d-71ad-4606-a55a-7413df60fd6e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"gr3", "=", RowBox[{"SmoothHistogram", "[", "data1", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"gr2", ",", "gr3"}], "]"}]}], "Input", CellChangeTimes->{{3.7976579093908386`*^9, 3.7976579214488373`*^9}, { 3.7976579895624323`*^9, 3.797658005637388*^9}}, CellLabel-> "In[121]:=",ExpressionUUID->"65169be1-655a-4fd4-8ffb-5b17ba9ef865"], Cell[BoxData[ GraphicsBox[{{{{}, {}, TagBox[ {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwVl3c81d8fx63sca/bkCQhNPBNQpL3kS1ZoeydyCpCJTMzogihkF2SXaE+ klJkJONeK2Qk273XHr/7++vzeD7O+/E57/N+vc77nHPY3tPIiYGOjq6dno7u /99Hc/mknZ0dTGeU0eFMpi3cpyiXyK7sYB1OB44wfLAF3/WeUJe5Hay9Wltq o88WzJlZTvwa2MHczEzFg/bZgbCgc2D++x3sZpEK9Dy2g/KL4iIXvXew83mS 9tuP7aGzuMAtbWIbQxtVrSdrHaGxHFTaB7exuSsPG+N+O0L1u949TN3b2E2l OTERJidIa2TB3D9vYxc0b1zbuOgE9gPOeJWsbexMuU2U65gTLHFIVE+abWOf ap1zowWcgXC9cEe2dQuL6H7tgatzAQUB3O3iz1vYg1JPw6VpF7Bu9VsSqaFx fACzqIArvJTWHOct2MIK/U+X+t9zBUQZb14I3sIyN+nSyarXwe2eSHKx7BZ2 zLReLnnYDRrjn58QzdjE+LqjheYkveAfYs5Pf7yJ7SoOiNe/4AU8S+6HCNGb 2LN2l/Dha15gbnyOl8F3E0uLFON4nOsFC3wDK7/1N7HF3Kg3ioI34OCL/Z/T GTcxxcvVjQP8N8G3MsmMcH0DkxTScFI/6wPjnh/iTthvYK6vxLzfW/qA8fGJ T+pmG1jsHbY71oE+IPNC/pi/5gYmQRBxUGrwgbn4vvUBkQ0sUNID6enegqvX hTLyB9ax9Er5LzsuvmAqXDx0Rm8dy5GtmDVs9Ycvg128l9TXsdnzz32tqP4g +3RLw01pHYvNdhvJPngbeHH6b54fW8dChtedezxuQ9vWYhAjyzp2NLEukUq4 Axok+cOt2BrmdeLNvKbLXZBP+Oxge3IN+zQ2qiB6PhD+DlteyJdYwy4kR3iM eAVC2sllmZlDa1i93p6awcxA2OyUYPDnXsM0T90pTNoOhPo9D7Pip1exjDSO +4xYEOikXxn8mLeKfQ3f54PPDwbL/FnTg/yrmE6L7P5S3VDgWolQdsCvYsv+ S4fVr4XCR00hsSLWVawu3OzsdlgoHJ4yosqurGAGHsbyg7WhMHH8XaJu1wqm OVV010gyDDzLQjvuPlzBvo+vN5zddx9C6/bp9DGsYCCyK4+fNQKc3wX32K8t Y1O6NvrnjkeAbuWU/fT8MiZjhD+VoBcBe4pr724OLGO8sh98m55EQGG6zWvB t8tYkOBUQYhYJLTeKcA5XF/GvKsChowMo4DvjHzv9C8qtmeGdHm4NQa2ZLMc fJqp2Ff25Cs3VmJg9D+2hc16KlZ5/J7+mcMP4JVEPyt3CRVTMD2+43HrASjz BSn+F0XFJO99j/QTigWHla/PfJSo2GCHQIFUSByUVJk6buVSsFv5/GR7+QQY qA1+JZ5BwcqaQh5I6yUAe8PLJcNECrZb/oDMPqcEuNq2HZwfQsGYtmfZFBIT 4NBk/jN9awr2BX82omEhARL4Vnqy91GwxcbsIZ6yR+B9N0VbI4aMUU/+PiSv mQgvQj4leIWQMfdAw8wku0ToiJzuTfMnYw75uUq4gEQ4kQRX56+SsfwPzbL2 ZYkwVjwZmqpKxuxWQ3u9DyaB6ZB83b/NJUyg5tugw0YSKKgQpeI9l7D4lEtf xNuTIW3pJ/+m0xJG9q6Q2LWQDJs5LcwulkvYl5uMuWz4FMCYsaHz2kuYKUu1 Y9SlFND4kfdwWXgJY9KSzLTtS4FLl73nrHoWsXGjsAep86ng4c5dcuLcIsbR LurNcSYdOgRZ056eWsQmGaNOcNikg0wHfQTzsUVsb1fQHrnwdKDKUK2G9y5i QbGua1yd6RCw2s+VtLCA7S1Ny/zungHRYUXuGzkLGCPjMULc62eQ+1RNspl9 AfO7zV2VJJ4FWsMlPxzoFzB2RY0j9OeygHhRhrg+P48JiYRZ3jfKAudr/SZ2 zfPYkQ0pq/Z7WRDxTNJQKmge0x3xN7rdnQWfWTo1v/2dw0wf2Jkdi84G5QH+ 05u1s5jAyjc9V4YcOBVezONoP42JXOtWSYN84BZnbOwzmMbM6rVNjMzy4e83 M39DmMaC8uadDnvnw3NOlhFlgWms8fevl0wF+cCaZFe+v+cfZo7pUYd5CmDg xV6Tdu1/WNeHn4zr4wUQUR+cpnhyCtMI7/uzklMEpA3jI3i6SSy1f0XDwOU1 8FN0RLhmJzB3+/2DTQ9eg+UMOszWN4Hteu5uaVXyGoYHThykr5zATkjXoFHy a5j4wLRn0ZkWbzDzyTi4BChBlUw/28exfAumW+PP3wA30+6xhMwxbO1y3PDd tVI4z/nrBQ5GMfWmFcZLARWwd/+FvQaSo9gl2dR15oQKmD7yOTr+wCi2HCXU +S2nApKgwot7dQRj7T953LelAiZuJipzlo1gu7mnq/wOVMID0qU+FpER7IXz g7h9HyuhK78Lv8M8jJl5F050clVDW2gxff+zfsxLhWxv0vsOQFpLSutfJ3a3 0O64xvxHcBcUNKlcasCMfOeNf8h/htLdLJsDauHY9oVXSVGEJmjp0tjb3vgJ fvBVaA3HtIB2y6O48+c7AferrVWftQOqRqlt9nT98CzxkfWyYCfoOVwWmj83 CiGCHRbqql0QVv8u+4X+KOzkuFSN6nTBu4P8IqZ2o5D0pagiwKgLhIkDRz7c HwUTFv+IfLsuoOraH3/QMgqvbFZ+dwR1QYacu5y42R8Q0JQ+e7e2C/6xhena +IzBykNcypZ0N4SXlvi3v5wAluarJ305e8DorVfp1ocJaGj8PJ1O6AGhjzJ/ j/+cAPqHSsx1/D1Q11J9OWplAqKcGmFaogcoEx/lVNQmoba+n3GXeg/YH2yn lA9OAv/n0c5DAT2AYua9knFTcC8h5P7n8R7gflRW2CgyBXc66g9LzPTAQIr3 8JLcFKi4O2lHLPWAX96Kvr7VFAznXBWU3umBkvodKdaXUzB6WVxKhq8XDq7w zN5W/QeimxfcV7V6Yd3hPxcr32lwEuAjmuf1ghrCK8pETwNR0ofQ8rIX4gSW 2FkypkEjdd5ctrQXhLoriks/TQOr6PzqYk0vaGjILzByzYCeJ88gX0cvPJZQ 9nuZMwPJu9hqcGu9cGz2QvhKxyz8cTF/G65OBJ/vJ0x//JkF76Z/KVw6RPiQ xyWevTwLhy0IE3F6RDCwbv+mIzAH+Y0H3/tdJoJvuxHnc+c5aE5V+DB/jQgN ZWaJattzYDzE5+EeQwTJ2oqOb3sW4GvGuH9oExFYDzkEPhJcAH6vw4RfzUQY C+U9YS6+AP9qtnMF2oiQpnMjclphAboPb+SkddHi+6SUuS0XwEOD9FFlhAij q0WvLr1YAImMtfUza7T8LM3MBF4tQFbHp498m0RIrWdlGa9YALNcW72FbSLo Rznb+35ZALUC5qZoJhLU7Tuy/+nfBVjKeUR04iFBslxWxJDUIjBYnLlaL0KC G2n6sgXyi/B45PSXY2Ik0N3eHvFEiyDr6tscJ0ECxq9W5+iNFkGaoIydkySB l8kBisitRUjsfLVPXY4EF943Z8/cW4RGXxsPHwUSiB28o18VsQhc7yjmGYok GBwjvtRIXYTOZO65bmUS6Pgk27nULoJVpX/TvAYJjhDVeWQaF+F5yP3UP1ok oFOi1q3/WASvn2UL7TokeMtozBc7tAhhRg+lH+uRQDQR315CvwR/dBPe1ZmQ YKcsVomiuQSpukUphfYkyHd1U79juAQFhK/Vqo4k0BPR1aOzWIJFPrOFbicS PE/isOX0WIJqU9Xi39dIoOwXEyaatARzP3/zR3mQYELaNfblsyU4YCE60u9J god/tZ/8V7AEafzJVWI3aOsxYytQqqFxUnxYtjcJApSimo2HlyBAuyP+uD8t P6rzr76pJViwkMmRv02CH681B2zJS5Di1FWjeIcEBw6xzLkxk6Fy68nSkQAS NPROLC/xkGFKtBjHfY8Erglfd/z3k8HVf15qlsY19BH48BNkUMu9dC0hiAT2 NU78HHJk6DJ9G2IcTAJ2b3WRR0CGU7OtKTwhJDAbYzr9zIgMLXEMb11DafV8 NnZOxJIMC2NvPrKHkaDQpFGjyIkMmnVS9dk0Xv0adqXKnwxGvyRKKu+TICvI we5sKBlubgQ9/S+cBFoKqq6fHpDhma9tQA6NFxaEvTWfkIFexsCUK4IEKUUM Aa3PySBRMSTmQWNl+9H7lwrJ0MiXN/uFxhP8DXGkMjI4HNB4uTuSVs9f2ck2 tWQgcHtYmtNYLjYkc7yRDOtDnYwpNB5Ssyu83kaGnn2yWc00jthCZYu9ZPAe Mj9JpbFUtVCN3wgZdlH3v90bRYJuD7rPW//IEFxz8aQ0jQPEh1vCKLT6HBvI VKax6DDWxbZNhn2/KxnUafwjNXMwnoUCr7h+mp2nsY9h0MQePIXW107lydFY gN1mPp2fAqQvf8cO07ixQXn1sCgFituY9zPR2O2uIH2hJAWYDF6rDNLyIchu s0nJU4D+8S6b1zSumRnkrUQUMLl9/oYPje3zPhxQ1KHARESWvwyN2a2fidZf ooBzr9OtSVp9yvfek9SwokCX8KhzIo3N2y3lflylwEKth4EcjRmilMDIiwLp 8R7SHbT6v0QCWsTbFDghqrfLjsaGaxsG1mEUeJ0a1vmXpt9qWb/ZWCwFWHMf pjj/X0/XWnvXZApIJK0aD9L0Xui/4+NbRIFcTeXa1zR/6MU8bTAvp4BNYnou gcbFCu9wUEsB+zrGshs0P7k8oRaztFKgvvbS6b00v31T3b0x3U0BP817JZY0 P4otyWh3DFFAZf/pi+mBJBjV8xpPXaDA3l/C23Q0/6Kth6furVHg1r0uvATN 75mvXofYMVBBc4FDT/MuCSxZpw8e200FIctLqh60/dL9ycm0Vp4Ko0YtZ6xv kUDW635uJqIC3aOdIg0fEjwWzFkK06YC7j2jjjht/+ndHX6oa0GFuqaigz+9 aPnJWjQNBlIhbbeKTNN1Wn5/bu9piKRCpXsy3HAlwf1HqQ75CVTwOtMZTnAh gcpc947HCyro2uEa0FWafgUGCnRfqTDoVyeobEsCPlPPiLE2KuwZkeB7aU0C X6aHXd96qXBQ0sKE24oEp+xavB5NUWF+iiUbM6PVj1+jSJhrGQ5HNRd+MaL1 m7iz/OrGyyDRpzFtq0qCzbPm145aLYNYZtiooQpN73/+1VxXlyHA76HCWSDB Ps1qox6/Zej/r5F1hdY/E+hOPnBOXwYRxWM3CDIkCPMW24weXYb6NinZEUGa vrFdySrTtHH8qz4nAVq/zws9uUZehoKwQN0/+0lA6R26em3XCriosKZ/200C R6WUnxoSK9D0hUvkHDsJNHaxFjB6rIB926m5djIR7AWrVWp9V+AR/Tfb0QUi BMo7DtwMWoHUF3ONs7NEqHapx48mrIBRsYnb/CQRxNv8A+orVqAzJDrkeT/t /EqZMry3tgL8R/skSj4RQbQ0ZUaWYRWe5lutGnwkAvquHjnDvgpyw4XjMzVE 8N/IrrMQWIU8gucRXCURpmzMxRVhFfqlxuOY8onQLNGyuXx/Fa7V6FUXRBEh tqa4wAu3Bu0THGJzWrTzW+LBs/H9a7A1a6Zjo0YEq2SXRHORNVBr3O74BkSQ uikWpCa3BmH+k/vC5Yjw82iWKZ/lGjCPr/HkiBBh79PEXfUFa9B6Zu+Q/2Yv ZPndceCBdShfE9wsKeyFClmtQyXuG8BVX2B6k3a/MUp1Mg/x3YBlVfW2hIke WNoIfWIctAGxBPPOouEe+O/zB46NhA3oezKZ2NLVA8WGp1Y1KzfgR69+dFtd D+R7CP4cWd+Amq7Jkp4HPZBaSAndE7UJ5akMIrvFeuCeQPZEwIstOG4gEe2p 2w3l6SznDBnpUGxFw/ce+AUjdMWprdL06EL0QWFO7p8wIiCdwavFgJ59ay5c H2kFr866XYz+jOhcx6OIN1e+Q4fy0X11iUyoND1XsUnvC8wwhNUMFe1C+yt3 hhxyP0GK7eTn4l5mJM7DIV8lXgeEW8duqS6yIJ6T8kVfrKrhx6vIe6zLLOhQ BEU1QaMa7o+Ohbeus6BtFnr8delqoOhnJl9mYkXfLpggQ/pqWt/d/e76PlbE 5Gs39juvCpKHt9YTz7Ei6+fx8buWKoFP92fwWDQrUvQ9mOiSXAGCIv6x4cJs 6GTsg4wDPGVQ3uXzdk2MDRm5xP48tlUK6hE3Rt2PsyHZIpSvOV0KblOuCqay bGjEOOPwy6ZSqHljNSamwYaOFeEYeENKwURJVembCxuKCxR91zXzBmJNuGfY y9jQU/+oUI2e17AemXuB9kpGKYG6ikkrRTAz91dgTpUdKWUlEXr7iuC3ieTc BS129FiKCyfzsQgaRaoTWAzZ0aNvry78F14EcVhTd6A9O4qYxdXq7i4CoZV/ Nu7h7Cgg5EDjplwhaFw96aPTwo6cdsqaF+PyQaH1lnphOztaFey5dcQnH47L 1uxl7mJHYeoW657m+YBjUH3/aYAdKQdvOWiL5wPpmfG2whw78rU+FMnZkAdu 3X5R4ngOdNhawLZ5IxceqX3MYLrMgeTMRyO7g3LgX3fagU8WHOib9tubA1dz 4LyzX9o9Ww5kKU73ZPNiDlCi/0tdduFAWXoSalECOWDa/iLxbwAHWrw7VNhS 8wL4zSNjfrzgQHBcwpS6kQ25ngb+SXMcKEpky8QlIQs26SRXDMgcSGbV8fPt O1lg8pjNl2uVAzkpRwVmO2YBc1WDdwQ9J1roCsuUO5MFLuuynv67OdHZ0dPF 018zQSp8/1VLRU60onm4wsf/ObxNG70kGsGJMh7fed63mQ7/8q2p8TGcSInZ FARJ6SBY0Ze88ZATTSm7c0RWpUNESyepM4UTSbAyfGzySAfTzQabkCJOdLI7 5D3DnzSgWuVcH/rBiX40VnpodT6FU4cdw1IJXKjV+j2PdUsKXJUcFmXi40In OIVwe4pTIO2M5VdPAS6kqHaQYS42BRiMjNk0j3AhprA9xrv0U6AzVC2eKseF /JPOjXztop0ZY6LpRuZc6FnpzdNBE0/gTcF4OWc2FwrKkARe4STQGVqj783j QglPU7bjmZJgbDe3YfZLLiRqfan/5GQi8IXKzZ+u5EJPfxLdRooTIdgy8rhN Ey2e68XNmTOJYIA/mls2y4VCy2MUk80fw9IdtyemitzoVh6XimVVAsSWBY8J ATey3PvLSSgjAcT+Jp2aVuVGdVc2a5jCEsDc5MPPoIvc6G9l+V1JwwT4LM3N XWTLjZItP2+sDMZD0tibiI0IbrQ3LqR9zPYhyOmR/bJ+cSMuJ06R8cQHIK2o 725MpMVrRjD8cHkAEmKv7FkHuVGa++eaKXgA/Nv2F70muNGT4THSt5kY2H7d KYzWuNGVE1a9PNox8JWrvPW3IA/S+jyp/4gjGi63eokccuVBUvHiojPVEWDw /gffLw8e9LFp+ad6YgTo5ElwR3rzoBtMsuXtnhGgdG94dS6ABwn27Ch5H40A IUmDto/xPIi5rm+S/Dwc/sZK37au4kGLl3XM3jy+D0pifpN6dDi0WpXtWJEe CvkkH+9gBhy60LC2UxkUCri4mztlTDj06Nrd//odQmGM7L5vDxsO7fNKept0 IhTiPjlq9uNxKPxg08l3WAgMWRoVOIvg0KbFrq+ZM8EQkijpHKyBQ4fm1M8O YIEwo3GcXKaFQ+1uPSTvhEAwXZcI+qODQ3/v1rhdsAuEY3aiKRr6OLSwxWf6 njEQOqUONHFewaGd4TcJURfugWgzq/hTFxySatjP/27iLnylG5soi8UhhbGo yhDt2+Dw/fV33nja/JlVYgqCt4HusV+x9yMcKo8zGZYm+8NZEY6bp5NxKEhM cmzkmT+UqstsvcvEIbY9viaay36QFhNMqC/HIWvyb7rOcl/w3H0QtRFxqCax kv3rFR/gHJwQlu7HoQ5qI4nztA+8zCvdlTCIQ7sFurUe4H1gTE6txXAUh+iD LcYkW7zB3Oy6afc0Ds1NUCUZVLxB7fl7t4FtHHrx07m7UO4m8EmYPv0nikea 9z+2sWt5gUiJJ5eIOB65XomPKznhBVKy0SEWR/Ho9YDwpbt4L9r7vc7lhyQe 9b5WUxV86wmeV4QVS+Tw6InUXyT7xwO+Rs313dDCIx2Nv6TDOu5waypCYO06 HlnJHVHXNXCFYM+shJMeeGT23t2OV8QVYqjvmVy98KgkdkBBcNkFsuhnZ/p8 8OhliXrhrmcu8GP/pQ9192j/530ZyTZ3DUR1DlkHx+NRz/VEr+QMZ+h8+TaT pQKPJm41ydgddYJYDuqEbBUeXRCqujXL5ASabjJS9m/xiOXIIePyYUeok3xd V1eLR/Y/N8rHUh0hr/QF6UYjHtUWFr39w+EI/tVxhIFuPHrzET/AtmkPgg0O kaWreHSDPv7XNoMdEIWz2wbX8Whlf/MqbtwWEsOG9nBs4ZHlxMNWoyZbYFU3 y3Wi50XJOM8Ax1hbWGzS+8TPzovU/pI/vuOzhcbWMxv3D9DGm3NiiN7W4Eri 8TRT5kUDhDdXE89YwBX9/VzViBeJaal+iGayAPUvwq94VXnRB58drqF2cxAq Oz3ZosmLyEja+LmzOfREWdgoG/IiEapmqnu6GZxXKNAXceRF6QcUo5oJV4A/ Rfm/2WheVMHMnoGpmgArl1abdiwvkm0icTvvNwFqqKFb/kNelAD9URbzxtDh 4Vhok8iLnkrPZR/NMIYIjRihzgxe1Pjm4pru2iVYonbj3r7hRbrR+n80PhnB d2P3xeBuXtRWJbw0eN8ARKO+ClX18qJmlZLzQU4GEFx7yGCKxItK5cZkL2sY gJxwZ4nhEC/i8PrzsojVAF7My7kJT/IiN3o7i8xD+nA3hm7y8yovMkF1a2/0 L4JkfeIAswABKXGqpluvaUMUeYbjrCABsZuRZnFN2kC7LJz1FCIgj1KtvwJP tCEtbvVprygB1dlYpoCMNjBbWF0ulCQgma+bFlleWvCbKtapDQS0Ul/912RL Ax4dr2mKtSegAIsZgWkjNeic8klicCKgeNPyf6JiasBbKG3n70xAOUMvW9+v qcJj0bx1BzcCKvL6J7eUrQpJBxMkz/oSUBv+XcyD5fOQzHM1cSqagC6qZp/8 9UYFelqFbG1iCejo7j2Hb0apwN7Y/hPdDwnolviLY/Z2KpDCavi1PpGASD9m pU/tVoFUeqW1lGcENG1ypDLqHoI0Mt5Go4w2n+f7YKYPytBX9uN4XQUBaR/Z t9zvpwz8XpGrJ6sJSJDzVqrqKWVIn9l8dLCWgELPnBfGXp2DjPHJRkojAVFV JH5r5yhBZu+HYzlEArrzffbSt1eKMPzEf4Wvn4DmA2X9xTwVQcj4VOPDQQK6 wvgrmumUImR1FFrdGSUgVNObqVR3Bl58T0wwnCGgvWblAqFdCjAaqWfVNEdA IVUzR76kK4CwBtuxc4sExBz+Pj3YQQFyGgI/SywT0Kt/FcesKPIwFnwm4fkq AYnmJvsGfJAHUaBY7t4gIMfqG0m4SHlw3Co5GrNFQJlavtl8hvKQW+uyvLND QCLZ5nWJB+Thf29aGGM= "]]}, Annotation[#, "Charting`Private`Tag$32558#1"]& ]}, {}, {}}, {{}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ NCache[ Rational[1, 120], 0.008333333333333333]], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJxdm2k0Vm/U/2/zzG0MCc0qiX4ohX2RkChKkiESkmSeSYTMmecxM0lmQp2b kHnmpsg8ZorI7O+/1vO8ec6bsz7ru8519jln7+/e14tz3MDinhEpDoe7T4bD /f+zQDAL/5I3OQH3P8f/5bm7xm8NrMkJPLmu9lYhovABX7nQ/5ic8OmZP6nc gRiYdTHcv32bnJD++WPWoOcVEAp78hm7Qk5YW0zH2vgkYOVeKZ/oKXKC8+uq V0d6rkEhK83bbDw5Afat3XOTJMGmV2eBZ4+M4Fe7E7ziKQ2ikQX3QufICC/G DEWUZBFsPCD/TNFPRqi+QLqhpCoDFRyafM61ZAQW3Ybmz2ay4ET84L2UT0ag cqi5gmJuwPWYg98G8WQE1umR8qIeOdjVvH+P6ENGUMHIDVn55OErV1bFbdtD 5tQoOXBWAPcf27wEfTIC45BvwKVZRZCNv+MtqkJGMHNta/zvmRKQ6aT+zpYg I8Tc3WFP3LwNdTwbasfOkBFauVl9dhJU4O3wrYpQFjICkzyz2C/1u6CYlMhL eUBKyLPnNX0eogq0en+8nH+TEs6eY08rcleDFr6bv5eIpASfkwPhwS73IGg0 Ru1pHSnhC03Qxxse9+HO+4VyYgEpgUTb9js+TB3wBohXOZGUQKFNGBXPfwDd JyK8CH6khIB+9rG1Pg2ImJiZF7UnJRhrLj/0pNGEB+nX1XIMSAkmmfzXeW89 Ag6j4PJjd0kJXhJf0rcjtGDg9MSxsOukhB27nJDbi9oQNy3uRSlASki0OBmH 7umCTpb/vDMbKeG8V8RnirrHcMzkl+oyjpRgzujh8eS4PvwSuFz+dJGE8HOy 6vKdGX1ImfM+NjBIQugfniwdKH4CBrmDnsoNJATxNd/XjD4GcOrFxXlCEQmB micrclv/KUxd8FAVSyYhvPKTs8mQMYTMhd6ynAASQqa86yLbOSMw+ShwjNeR hPDUXoZb+YgxnDd39QwzJCEYBdNL3KZ/BgtCnXOUaiSER2F5iUzUJvBx+aSq ixQJQbbGLjGc9jlYFDiULZ8jIVA9p3rdzmoKwlYtPIYcJIQuhXGzkpMvYFWE z3OAlISwLGG1p3jNDEpWreeUl3GEsWmxPK2HL8G+uOFuzU8c4Zv2NaNfzuZw xZa7TKwRRyCvJPP/mm4Bm6LmPLklOIKjhmC5haklVK7XvOF9jyNEv+U6Hkph Ba5l7HNhQThCNi17cFGaFUg7PL9L5YwjaM/e0W+Rs4aDK19KXYxxhPFEZsOy WWsgbOJ5Vu7hCFEv6aYNg23gzWfDN4aAI9hni52vuWoLcs4VswMXcITq4wHi xZO2QHmd/q4KJ46AS/IeOh5uB9939EpryHGE3+KPOldv2AOL07MrZuMH2P3h 5lraf/YQuc1I/qDqAIOHGa9U8hyA07WsUyriAKNcbiVNeuoI8Xu6iWdeHmD4 tqWPv3icgO81hSmT/AEmbV2v+YfoBKm4j+KbvAfYMe1Zj/IIZzj9Rp1s7N8+ doucy57lvgtkk+12NHXuY/8Wd1wmWFxB0DstoShnHyNKCpDS97rCJ8rbz+Pf 7GOV7bYdL6NewWXfVTEv7X2s6W34h9VHblBKE0f6UnQfEyDx/c+G9zVcDZDp eMCwj7kVbgX1TLyGavq5eOnpPYzAh8Ptq7sDvAsxOYvtYadwPJHPK9yhlumq GD5mD6Puac3i5/GAm6EjJFuWe9g1KSZ5bncPaGLxaR+7tYfJjubJ3Jn0AOUI ofjmE3uY5Mkk9k+Kb6CDvf9Z8c4upvjuZdB/H9/AvehXogm9u5j16pOmAWZP 6Oc8TeL9cRdTkhXUirP3hEdxrW0v3+5iJMnBTnY/PWHoqG2cht4uNpW/JPAc eYFe4tFncHUXk32ifdc+wwsmeL/9J8C8i52oZatPp/UG4xRTHPP8DvbOSf7M hoU3zB1naduq3cEYsusCX/R5g1na59jx+B2soJe8kuP6W1g59cS4xXYHYzvm 1kP6/i3YZFL/V6Kyg91vpA6RoPKBjbMFBwlndrC9hwSatpc+4JTzsNX7YBtj fBKP6+n1gb3zBzHmA9tYIuPBWQNJX3DPyzR6WLiNORQw00Sk+wKZ0J3LyH8b y38wgfdm8IO3n9b3BZ5uY29yLiSoO/gBrUhiC7PkNhYg6IA7Pe4HQUVyMdts 21jS/eSwo3f8AS+6YDixuIUdmTbN1a/yh/DScJHWhi3ssZtCPt/5AOC4cn2/ JHkLs04IjQuMC4C4ivHmRMctzPZ0pFYPfSAcu+Yf/VZtCwu9ciT+pEcgpFSJ GFqc38Lm7Ar5P/8LhJNSg8KaZFvYZ8UjW22WQZD11X0PDW1innl3ZVMXguA8 Emg+V7qJdb8SU3R48Q4+1nREsbzbxL4rO9z3XXwHwjccnu4Yb2JiMKhzxCYY Sup4hSdhEytmi2i32w2GK/INu62cm9gQpZPYmlwIVH5/2VT65x+WoatZNhAU AlK32KOSmv9hjjv2uuyDIVDTXG3gk/YPexya7Np2JhTklA0vWbr+w95IzpZe cAiF7210u5oP/mGbZY6ZD5pDQelucaOM0D9M4UW9jD1/GLR3akWep/qHWb1T PvjsFAaq90gNWEc3sNMF7FsK/WHQ25MjtFuxgcUIhMQqi4eD5gO1ncnQDays IERlKTYcfvRvfm8z3cA2LU5wPSKJgMeaKRFlNzYwgWCa1SKzCBgfVHiSzLOB fQqxpRAYigBD7eWLvuvrWGXdMdzY3UiYHYratmxfx56IvCNSNEaC6WPp74+y 1rGk2/WpX+SiYGlkKlzWfR3beeVtLdQQBdZPgvQvPFrHKOaLJ92Uo+HvuOhF tsvrWM1i8sUuYjQ4Gg5t7dIe6ny3riqYxMDulGfD1MRfzIxVKOtgLwbcnl0I b6/+i8WoXq/kjo0F0rluvfLIv1jsHxq+Uok48DJ1Fkwx/4ttNhi9mBuJA+qF 41u+Cn8x2pSpzY6AeAh82VRvxf8X8+L8WuMmlQCMy5ZhWltrGMkFxTG69QQI s+TUu9G9hhltNT72LEoEtlXsguCHNaxEeMp+3S4JYmyebbJ5rWFk7WoXzCEZ eNYZ6/d01jCaeoebLlQpkGRfFjottoalhUzHKlqnwIlN3ccdjGtY7LdMj+Oj KZDpRHGhYmYVC3cL+Eym9h4EdvL+pRBWsfzmS/uLde8hz1W9zi92FTuo26Mc vp4KQvs7IdbWq5j68RKyltJUKHqdpqt9exVbYp+qLrycBuIkt8/LnVrF+hhy cW+L0qDizeqG4N4fzK3gQ5S0WDpIksd9Y+//g+2WKYm3V6YDwVsmZD//D/au 5kDk7I0MkKWa05nx+YPpab4QvNaeAQ2+Iec69f9gmiXVv9a1M0GR9upGhcQf zMWoyFRhIRNaA0Zq37P8wYzbXw5zv84CVQafYP/fKxjRNO2+Fls2dL8T0rGp W8FopLYDlj5kgwa+X0AncQWbTGfHf7mZAz9CX63L2a9g417WNB/HckCH9XTt xbsrmLzhkn7a61wYjWh9xyGwgh2xxGd68X0AAw5b7QPcCpYoFnZLpOYDtF66 otpZvIw9y/JkCjLMg97Lb+feGy1jcnKhRx1oPsKAWN8bmyPLGOsFpqGOTx9h 9OopnptNSxjXpgqjw8N8mLxuU8rhsoTVH5z+eBv3CRaka+/MCi5hZePdGoK5 n+CvDPPs51+LWLS7tpHr+QLYlNP3CAhZxFy+nzSSdy8AnOInbl3ZRWxEXaLC sL8AqG/vFwv9XcB0Bhu0GgQLgf6OigoucwGzpLp+9ZFnIbCpJUx3PVzA+tMz lxh+FAKn+u/XaTQLWOLkZ7de4SLgf3iNy67qN+Zjc1U60acIBLT8iuRf/sYC 9g/WNX8VgaDuwG1Ovt8YIeTZ303RYhDVPzs11zmPgZoZn0VAMUg+tXerejOP UZ1X9MgfKwZkXH8kSHQee9E8WZxzpQQUn7MVPp6ew3Rnjo+pB5WAstlTJeGY OUxpLqs2Y7wE1C2KJkiU5rCg5iM0oVdKQcea5FXPziwWbyd1ijGwFPTtVDky Ps5i3N6P6NlHS8HEMfmTvd4s9iQ00Tf5vzKwdFlSVGSexXq6Ns2y3paBrZvU ONe3GUxAq2vszGAZuHoEuvy2ncEMnVq+cV8oB3evn2xfzsxg5OfO3PdwLQdf n/P57wamMQqtytlHbeUQ4u+koO8/jeXdyAnPOFYBEUGNoyKS09iTktwOw5cV kBByxJlsaQqbEJSXiq+ugJRwY9a+5Cnso6HKBxW6z5AdVZqXqTaFVbx7cfTN o89QEEsu70g2hVkofl2HrM9QknB/5FbpJCaSyEod8vczVCenOh59Non9Gqch fyVTCXWpf5gXOSex3Q8eZ1neVUJjBvrwtXkCExgMe6XzoxI6s4PlQlwnMN9l GtPnZ6qg98Ov4SdCE5hjF/2monUVDOVfdPhvdBwbv9/mSf+1CiYLXfEUYeNY Fq24Zz1NNcyWtOT03xjHpCo9uXweVMNKOfeN7PUxjH/ApsvofTVsVj4fcsoa w34VhjE6LFbD7pcKu9uPxjC/duUnXRJfgLyGiukY3Rj2/PzfF4FvvwB1nUb2 UvUoRvhYNYz1fAH89wwZgvkodgLCJbyOfwXO5r8/QvlHMT3MNXPN4itcjfOZ bUgfwcIaTlkIYF9BMeX0UVPqEey5ZZexFBMGmpnfVBjMfmGkvMrdKvoY6Oc9 cS/oGMbmWdlV7YowsCw6KLr/3zC29XRnZIaUAI4ViVMbUUOYVQlVpORFAvh+ vc4Zt/0Tq5gs7pbXJEBM3aCS1OOf2IuPR5LZvAiQ0uzwarTmB5aFizpRUkCA gk72As/TP7DlPa6T//0iAKG/ePyM3yDW/OzDQRJ9DTQOqbE3LwxgBT0R5ygk a2BgfFnhpeoA1sBtNmdtVgOjs0HO+BIi1jWQw7KeWAMrSxc+Fh8hYkZyiDOm swZw600jGi79WEsIL5cJeS1Q7zxj2f7Vh72eu1RoKVELnCSUNxNl+zDDKQO/ aota4KdKd0CZvZixvfcdjaxaEGaQzZ2g6cU4WE/8UBitBcQ6OvT2ZQ+m/sHm cRz3N1DkcmM639WNDe8lu2pofANNPh7ZNtFuzJzCbM0z/BuYnK60tYzpwixs LZ3OdX8DywuaWay7ndiRuZNWKix14C6yMVim14nRNAyKr9+vA7yFAFfJ2w7M 5KLxrdPRdSDsYui2rdKOSd0Uix37WQeqPikTiL0NYzkte0XwRD3ohw8p+gy1 YNru4YJUpvXgnsyZ35bWjO0Ixd+0Ka6HlA/qrGwvmrD24G/qlvv1UFAe4qh1 uRH7uWgpvKfUAJ3fWodTthqwt/dyfhyJbYDRDuobM4R67MH9aZovsw2AG5LL vuhbh1FNXAmYlfgO/LPuDLZ3v2EXV+oVIgO/g/DfautKjlpM6EQb25fR76CK 2yLifhGwX16nbz4Sb4RRTlPnd0oY9qPJf1I/qBFwIuNyRwerMY3O+rrmqUZA t7SYsp9VYlVr7WeDoAn0n3QPim6UY5TE2IuJcU2Q4qSUXuNVijmf/t2xtNEE o6G15ndYi7E7EUQlO/VmwOVek/j5vgD7b+Oe/4ni5kN/MaLq1M/DbF4Oic2y tACh5EHC3KssbCTZZ7PMpgXQ1E0RsvhU7Osdqk9ufS3gfsEsUMIyHpPmrHQU utoKuEDlMrPcUGxVP7CmJP6QS4rdX4e9xgZfmlkcHBwy/wW9DpbH4HT3RNyO YRvg0k7FrKn4wEorLjSyuQ3cV0RSG8wiQUDzYdBn4XbAhag5hl9OBkHfJL77 0e3gHn31rLBrOojU/ytR2T/UnymGcejlQJzh1rtwow4giGvu7crkg/iPETmm tg7gJxMtsQorBNlrUZ4PuDthdL5qbpKsBNLEJ/UF7nQCofsGn6ZdGdxzucW9 7tEJ7pUt6i3TFTA84eleUNoJ+qn3/aU1q+D56Ib23blO4Pf/iRU2fQG7Pk37 Bp4uWKkodA47dlh3BF2MVrULRvPs2JU1aoAgMzSL9+wCQopEAUVwLXjSPWhs K+2ClIg9Jez7N9hMi7ISn+2CEN+aKUdcPZyYFMQj7m6wdPV2vyzRAKfqdJdG bneDvuWtowtW3+H9bukbulfdgAwZyjJyG+EzJ6V9xcdu4NfsUtWbaIKRBsGc oeFuwCtH/ubkaQGXspxr5gw9sAKP3nart8KJ2cacp5I9MPrfseOBQW2wXnvH vti0Bwhnx6puNrRDejlXtHpMD6QczdA42O8AY29Ffen6Hmj0KXEciu+E80G2 FiZ/eqDCg0Ne4moXGP3ur2rm6YVsF0fWqN4uMC6YjdVV6IUUux+jq5bd0Gbx 6SuXVS+EWEjm3z2Mw5WkRHYzthd8nye55OX0gDOFTPFqTS84PsXdopHvhcR4 0R+kc71gomvAYTzeC5QPt7lOMvWB/sO6iVq3PjDRPiN+R7QPVNXOFPId7Ye0 wD7V15p9gG77urmW90PlcAhpkUsfXL05f3vwPhFkKMXNxxP7QACUucRXiHD6 rOwUPdYH/BL502GBA0Ber68tNNIH+P/wJcsCg3Bm+uZxuf0+wF209lCuHwS+ 27tDt3n6YfNM752cJz+AMmdk+YZEP8zyi/NQ7v+AB19EPp9/0A8D3DFzBnE/ AYfrlj2w6IdOtu0yTHwIBscfbxH8+oHAqOPF0zMEc3ZmTRap/VBB/VXNyWIY opM6k+kq+yGblJ+vn+4XPBejPBLZ2Q8xux4Ll7N/gdu5z5wM0/0QsjHxOVhu BNwajo3abvcf1sdNn4XREeC43rjbxkCEq+v3c9OlR6EFVu5w8xNBdJWcuSdw FErjA8h0RIgguFzqQPJzFDLfyYVEyhBBYMH416VzYyAvo/apSZUI/HNHbj52 GAND5hc2O4+JwDnd+CGwfgwYnqluXTQjAtuEE0sV6zgM8rCkGDoSAT963mnu yTiQ5F4RSvMkAvXwz5EjBeMwRGJttBhEBNyPQHn5/XF4f6CroBBNhM1+qY+2 yhPAmy/RW5JMhJWeJda0uAkYGN55eC3rkDuTnbtmJ4AvhOna0EcizLapjh2I T8KYPfYnqZgIo80kikLekyAstE/rU0GEge9F+To9kwA0Widiq4nQWfeUPeD4 FNy3Yx4bxIjQWMPm+tliCqzLb2+p1B7y1/rxmS9TgLycTmx/IwKhyv4WB/00 jGSPsk/UEaGi4myBnNY06OU/CGCoJ0JB6QCHTfY0WDKfEXc71LOL/F6935gG W3WxWonD67M/XZvskJuBraE7XXI1REjJ+620HzYD42L5m2lfiRCTk1AoODYD j9rSx7WriBCSqcKpfWkWiktTmyzLieCbtu/m92oWwr6UH58pOuSUT1PlLbNw csgffTt8fvdEfeVprjmwuntPjyabCI5xzMVsJnOA/gamfHlPBMvoWq4bZXNg GvTi6mQcEUwibNytyOdh5nv4gHs4EfRDT80k35uHrlpl/+iAQ37Xp9KeMg+s D/oHLxx+L82AtyW7S/NA2+8RKONMBFXfK0cvSP0GyS8FwkOWRFD0nvV4FPAb 8vKnrh8YEwG9iZ31GTzUM4Tp8nUO+bXS3bKzC7BLUjvxW+0w/1x3SiftFsD+ 3vu1KnkiCDvl8bDWLUCUvde949cP881e11OGZRGOfvhGynfpMN9sGOct9Bdh atR4tfzEIVtiqkn5i5BYpLi7xH6Yfy8ty1t3F2H62u25BurDfDM9zrujtATz ZPFWsjv9QP2s2+tc7BKIKuxKGS72A87Q8/fDmSVwfv51V2jkkJ+I3nsrtgzy 0SqXMg7raVN3qqLEcxkU5t9LNtX0w4pWFN9E1zJQ3LQtSizqh78fTn6jxq+A dJIn7nRaP1ied93gu7ICnDRkwU/C+2Ehu/fclccrgDvdjD3w7Aezsxd173iv wKdHtstkNod+kOEdYpS3AgQ+M3tzg34wPPXrm2vPCsy1j+REq/XDaKr4v/Dt FejeJ1/2QP2gczz4/IfjfyBLjPzdpUv9MJQ8o1ur+AdUX6dUpx7rB01eFDpo 8QfmHXoPhun6oTchpm4l6g+kXUcGE1uH/nf0zz+qr3/g/Qt/jdKZPmiNvXWB b+oPGCtcv6jR1wfKnKmPxelX4beMwpXG2j5ojNoOVflvFQrM1uoZCvpAjv1+ vaHWKkyv1aqfO/RHQviHTRePVQibzZ/h8e8DSRZywfDsVXgmrfVn3r4PqkN0 9HI7VoHbaSQz8umhvzKVhtVsrAIZrs6ZT7UPSoIYGgaOrYEGi0uGv2QfCNMb by3LrYG8fE/EoEAf5Pl/FaQyW4MW5iYDRvZDP6Y5os8bvgbIvFjgAkkfZPtY hItVroFblp7e5cVeOEXZ2KA8tga/Tn4WPjN42E+8+LefUv+Fyyk9adT1vcBD 5nTR5dJfOCac+vFnQS/EeHTph2n8hXirx0nvE3qBE3c+IufVX3inn6uu49sL EW5vvhPS/0KuK0chg20v4Pd+bBNb/oJ1WK1tuV4vBLr8J7S8+hdKPmYUa9/u BertgCeU3OtQXGfItSt+2K8cJyOOyawDtx6vaNyJXiD/J9koarIOw8edwq4w 9oK7XeTO7eB1oAq5lte31QO7a4tCT8vWodBBeMxuqgccreUNnIfXQU5T2JGr qwf+riRFhpJvgMrlS0k11T1ga/GvMfvCBrSQ2hpZZB/268W7u9i9Dfi8OV13 MqIHzMyyLxGdNiBE8nX0yOsemJ3HPV1K2YDF6c74tBc9YPj8URRF4wbMfZvx tnzYA5MzhU08yxtw5J5Jt/yNHtA3pt37j+MfzEX1NZ251ANDkwbCt6X+wdFj B234oz2g+bTqqYHhP2izy2OgoOqB3jHWaKeAf3DZ3SGebK0b1PXNmkOK/gHd wH1z+pFu6PxVt5c1+A/ucV4z4GvpBmXdYyIYbhO2hTeuSpZ3Q+NPO8P+s5vg 3nok3iCtG+S02qMX72xCjgcZV1hwN9QNnGkht98ECdWTgs0uh/PMw9f7RxM3 oSxP9CqtSTdU9xFF/qvbhBSBokA19W64qi5spPR7E9ZDNIyTUTeUdPvGPGHZ ghih8pVVwW4QVhtrcZTYgs85qwq3ubqhoEPiIFh/C+4sWDlnUXSD4J2wy1k+ W7AGFf6Uq12Q3Tpv9DV/C0oawerZry44dftGbF/fFiQ91+Ntaj6cz5riWxd2 t0Dmnbf2+fIu4Ff8e0B2ahvOELnu+Kd1QUKD8n9Hb2/DWXECYSa4CzhvZhhf tt6GyV2WEBnXLoj4thd7K3YbdCNKUqJMugAvq9GmT9gGp7H3P6bUD+c9Qj7O cWYbXNwoLgjJdAE9UIkGM+6A5jetp+YXu8D3i96zTLEdOG6La8jg6gJyyYq4 Lzo74BHQc62HoutwPsW393rugEacYef6n07YvfqcZCF3B1aPDmfS/+oE1/Ia UbLuHbiuu7/A0dwJm2LcJtxbO4Cf0hljLesE2xLreBH+XWBhcushTe2Elcst 7YoKu5Dwsv/URFAnmBWeJNU33wXFmqxbJU6dsHDJVcwhchfeBH9psjPqBJP8 XpN31bvwK5FK5qxaJ0wKXkzImNiFil5m/UbJw3n5g3dHNe0eZCk+WtAU6ISh c79Ie0X2oMfYjTDA2gk62eLivzX3gGIzOyb4cM4cOBP8nNR9DzqYk84p93WA esZMAlfWHqil4f+b+dABnSdRp3D7Hjg7bJg8edMByqkxZIrre0B2IlqxSrMD Wvn/iOvx7EObZonBulAHKCbfMrW/sQ/6OW5+eIoOqDuWmhhkug8+sneLGX62 A0rY7kwP3Qdj2Z9DiwXtUM19n7y6Yh/ie12Eit62w9XYD1d6RvbBZrD5ro5O O1QcIX8xT3kAdNn7DYsi7SAapZNEInQAjNn/Zp9RtUMBW2kX54MDIH28+ah1 qA0EwxkohF0PINsxq5unqA2ymY2vKqQdwGaK1jFtnzYQCPn64nHzAcx9UWP1 02mDdMYjyXZ/DkCtwEk9W6QNQhquPJenx6FollfMVZRt0E4xSdrNh0MlWEDs t5+tQH8zJEH3PxxSzz6h962gFZS9JMXn5HEo6VO0bbV3K/h/m+2w1cKhiUca xwq1WqGRNPI5zhyHEmKfiaZdagVKWRmyQA8cCt+t9IogbwU5j8WEI5E4pDr5 ZuXtYAt4EWLF07JxyK6rRMU1vwVqD252ClXjkJ909VN7zxbAwerzyg4cyslR mbPXbAFptyQy+QkcQnI6b15fbAHXL0qJXRs4lGUp+jWUtAUqdzfEdWlJ0ORk NfsnYjNsX0/rnD1Ggqo55OYG8prhqstdU1sREiR5QUoE/6YZ7Ct3yHA3SVDZ sLyLxsNmKNnKSgzQJEE4j54jHwWbYfWq+pUjZiSosLAkm420GS474rpSX5Og 62IMFO+ITWBZnmcqFE6CFPidy7k+NkH+hiZ5ZSYJ8g9jVql40wQLYhRJNytJ 0EH00SJTzSY4b1d4pauNBK2sTOuKCDWBaYlul84YCfJ5yz9LR94E2Ws0L2b/ kiCaXa6R7cFGmL5cRm5LTYo2axZM9j81wilrg6SDo6QoaSNli/1tIxgUMl4N uESKIvxrKmR0GiFlpbKL4wYpOiGI23O/fLifv/TsRaoGKXqWJFnSQ90IvBas FEKmpCjghhuLxMh30MnHkj6/IkUHnzr5C0q/Q9zii6s3Q0mR+yiJ59XA7zAg yNndmU6K5riljnUZfAdOs7oXOhWk6ArnTwcnie+g8cGSYraFFF33DY0Txn+H iHmeZJsRUiTOtX1rfboBus81XT1YJUV9WyXCDV8aAP/crtufkgwpyp7lSY1o ANXs42Yc3GQovuFHnc+LBng300aRepEMFRpJ99nJNkDrGefkizJkqOo4929T rgagNT4j8VmdDKUhaROjlXpQzOjuljMhQ4T1QSrD7/XgO+lm1ulChho2Mu4a JdVDw8kLlDrBh7rg89/P7OqB/CkxeSaVDH055shmqlwPsqmeEjZlZIinmfu6 6cl6cB+71LPfRIZUX/W1Gm/XwVf+ITP/YTLUqfRF7HFXHezr+VJy/CFDu4ND vHez60AyWTTlPTk5urnscP/K6zpw/jUqcZGTHHF/sh5n16iDimNBPRUXDtmu lmpOsA42dCReygE5Wv1+8fQnsjoQT5ii7LxHji7pRmcZ//gGtj9DU7SNydFd JslnjIXfoIhb+tqMEzkayimMSff5BiuP5nusg8jRtXtDkgKPv4FQbNTL/RRy hJHfrIkW/QbmA7JU/iXkaLx0nfiH9hvkHVlOYW8kR34x8T9Fx2phXiP+2vuf 5Eh4sSFGr7wWBKIUegWXyRHFuWJrq6BaMO5be1lBSoFYowPnTJ7WQjpbCpUc BwX600t27qZELUzeV37fcY4CWeGecFAw1cKJ8M1r2lIUyK0i+VPWZA3od6f3 TqtSIGYtEy7ByhpIYlYztzakQAaXhQNCg2tgSHWPat+BAn30zxEjGtYAT0jO e78ACtTS7/ZqV6IGtDoeXGdPpkA2SWtEHFMNxDCS9qUUUSAOKsqrkxME6FfJ NxdsoEBFxmGzGRUEYAvSoq4YpEBP9EVibwYRQL2VMvXGIgVyiNOeqX1CgDC6 4usdOEqkeaL3Bq84ATqV9Pq02CiRmr372Ye0BGD0p7OYPkuJLOWbxYeqMVBu Kqe2vk6JwqgvWjQYYhBIbZi6d4cSefCF2b6kx6BZAS/pZ0CJJN3kTnQXfwVq n+o+NntKxHyXPHBd6yvIN5hYpPhRoptClUYDJF/Bi4KdRjCREtlRfnF5lf0F auVqUssLKJEVc7XI1J0vQOr1UvJGHSXqqs34w7xeDegbV387kRI5422eUMVX gxtpg4XWb0r0/uXwSAOqhmoZa5rpfUo0wvmG8/50FWy786ZZsVCh6o1I0k8B VXCN0Cy5d5oKbVOd6R0WrgLHA/t+XwkqJBekQTrRVwll0ict2VSo0BUJL5la 50r4+6qDJkWfCv08ocj1mq8SLn9xSbtgS4W0Z1xseOs+g/XuWalyHyq056Pz Pt3kMxRc7+2XjadCEVbC8ewMn2HJ2d2yPZ8KhY0EujkUVoBgpSCtVi0VcvvP vLP9QQWYbg2kTfVRoYolo3n+7XLIveotZTVHhbIV/eusk8ph1kGEuLtLhRw5 wkqaZcvhTPmwpS+eGgm91F27NFMGhht+tGynqNEPNX297IAySBUTT0++Qo3c 5+7TXBMug1HbcakLt6lRu4aE++/eUuAveUcse3zIahSS35xK4fHaNStZa2rU P0X1uYm3FBIuz9C2e1Ojz/0fCRR1JfDDKjz9USw1ynb6FOH2vAQ4C0F6Ko8a ZR0X/HmdqQQ0V34TLQnU6F39S4ObpcUQdSnGareHGvk9teBN0y6GXnM5Ot8Z anSSSrNUh7QYWPJX0ll3qNEGxUSdc04RqC4mSCcz0iCRHNcgCrUiCBG8NXD+ BA0i+7qrQrlVCO0v1q3KxGiQra/Dptf7QqD/8J5O9hYN0pjKyPZTKgSleZWM Nh0atGARl33sbwH4ntuWfmRJgypdNKpuJRVAg0nmwKQnDXq6WmnGcasAKLPv WVtG06BRTyc+rrlPIDezT7ebS4NUPnDmPpf5BG/OfMjw+UqDLvTIl16KzweC 0UNg7aZBHQsYjdvGR9hPJxtMmjqM99Mw27P7H0F68pP1+S0aNODCobNTmAeu J3Xoy+hpUc4A8ZkySx5UGlBnyvDTomo76YwXth9g830JtP1HiybjfuiZDuSC +Jj+oKYCLdKI9Kx6JJ0L9vwMNpNatGilQjJfKTMHSvQ+01ua06KuW0LbKvgc WE0yytzxoEUPDEvO2rpmg/AvZuQTSYtaPnu/bpvPAvNjXwdZcmgRN5vy7efa WZCvY2qTVE2L+JVa0h+2Z8JCPAfD+U5apPUriSnnRiac/1mbWTpBi/oTBk3M qjLAhNsCyfyjReNC5zs/iWVA5qOjP1pp6VCG0p0Ej6J0mIz5bqPJS4cklh9+ XRZJh1MDNgyTInQoq9nAkKokDQyO8GdZ3KRDX+peevddTYMUjVa0o0mHrFJ5 RUwIqfAr0vHHWzM6VNE+ENOslAo8fadsWdzpkMV8/3Pqgfegw9bFkBROh0ry EzoETd5D3P1XWeey6JBhesOuzE4KDISdkymtpEMmwzFwLzQFOLr7fqB2OjS3 4Hfd5HwKqDO/sW0do0MfgxlOcAYlQ4SqEKPmOh36PZysFNiSBN3BP7ImqOmR oLGxjyQ+CfAdb2UseOjRziXVflHtRLjD+N/P7Uv0SCb+xy2fvAQIVBmxfXuD HmW6Rx2RIk+A5sAARpaH9OjG75VifYN4oG29kp1oSo9QtZbCTkMcKNJNypxz o0dc6bYJbJfj4K1SyM+SUHoUd4b/T2FaLNT5SdqhDHqkZPbOYfBoLJA2zTK2 VtCje7qbFMFxMSBLHZn9sJUeRa3K8PTyxYC7gozsxAg9OpkubZbzIRq+vl38 ab5Gj5adQ8popaNhtz7WbpuSAc1f2j232x8F1yjkmd5yM6C5urVwJ/socJZb zWYWYkCprzh0nXmioMIzSTZRhgEtiMPTjcZI2KhVGhJ4wIAomCabp1wiQZT0 n12JCQNqFqnslRKLBGuZNCbkyoDiXr9/vP43Aorc7+a0BDOgh672s7uVEbCC 7cg+TGNAe1JUm3I+ESB0kDU0XsaAfu91FlY/igAzaXV782YGZCTOG6p2OQJy X+Hw28MMaE18yXgZHwGz1Xk53n8Y0DerPIPX6+EgsKt5g5mCEdkpXI+bHwkH 4+sUwwmcjOihlWEvV2c4pDsX2gsIMqI1j7jolfpwGP+siy8BRnTu4b7RvZpw 4N+iyYX7jOjdbCcDX2046F8tu9FizIj64427rzWGQ5KDwbCGMyOa7Mksf9MT DkNljA7jQYzIyWjDoGciHLg3KvHm7xlRxumg29Rb4aAp9ix3q4QR5YkY6+6w RECMLaucdyMjSnsxhfMWiYD+YmwYP8SI3P+anHRVjwC2tRcOCcuM6NapWs4y lwi4d5mTWYCMCZnV6tNRZEVAiFVdbjEHEzLy+/RIuj8COgss5eA8E5q488JP lCYSGFd4fjVLMSFP/zv+ZRAJypeaHDTUmNAKBWdbmFMk+JvbMY8bMiFNrbxT 0WWR0Pjx+IeXjkzo5aSWashGJFAutsltBTAhLu47DEoSUSAv6PzLK5kJFdf9 FQh2iwKvF2cc8cVM6LS7XsS5hiioze1mTmhgQuqk9r2jTNGAm3f7cPYHE7p4 e4jDXTsapM9duFm8yIRKiWob7dnRACUvLJJxeGTZajMX/i8afvXISBrR4pFB 1eP+SIUYeLV2hOYCGx4x+t1TiY+JAR7Wpb6VY3hUGdL33nQ+Bqou16WWncWj qHYn8mbJWNC+F2fhKoJHb7REE18Hx8K2laWk7HU82iMoDqiOx0JsqDwN9U08 ikvKv0ouFgdXC3n62+7gUXPHlzkDnzggdq6mhmvi0eEGS+TyYBzYrzRaPDLA o0v66VkS5+OBA58syWeGR/diTryRcY6H0kt2NFN2eORYkHKWuSke1O/e7s99 jUdcjy2+2nIkwJr58TRLPzxKnQ39J2aQAGHv/lmIh+MRZaZNNf+hH1zOb5Pc TcAjUgsjY7K/CdDVlkZTm4lH2+1XB7IlEsFy0anfp+Dw/qnenJOuicDEoJqm UolHN49cvOz9JRHyBc9YstbhEXeuz4XHO4d+o7wrOdiGR+/or96REU+CxRfd NMlEPNLW0nGnNk+CwIDsfsMxPGo7237NPzUJLnxwSzv/G49OBmr9Su5JguZm dcuVv3iU3jYse5okGUznz0uV7eNRTuhFjc3zyUBDS0LrSs2Mqj6RCm2pJkP2 OWK/DAszMqPw4qS1SQaFWx/TqHiY0b+nTz4whSbDtImnZdtpZiS6b961kpsM 3r6PpMIvMaNzX/w8IgnJcDr7Eu0jCWbk1R4r+rsrGeq+UxB5bzCj5CuMg6O/ kuHpzM+0SWVmdD8z95vhTDKQUhVZ5mowo6JZBaEXv5Ph/RlfKUt9ZjR1KfH5 3HwyyMg/phU3ZUadkylBg1PJMGokStyxYUaqjvsvxYaS4bU3bXrNK2ZkrMuc u9WWDLwZo5Y+PsyoxuIYxZmqZPhSVyalEsqMTOtSv1anJYPuZCAtazwzuk50 Daj1SYZdsqfEgXRmVCqkFCT9LBniT0qkJ+Uzo4PMU4rXZJPh2g0mK8MKZmT4 oCSqhjMZBg2mpM7XHq6fkp0wPp8Ejm+qaFdamNFaR3r5x4ok4EwNJZb2MSPe 0XxzsTdJUF7zLN1lhBlprArrv1NIAo0xKSuZOWZURp8s1EGdBOs4NmmqtcP3 e733Bb4hESL452nbdpkRweSTn+nrRBBFBGIYJQuy6X3quCeaCD16UemaeBbE tjpQNTWdANavzax4uVnQ12tJsrKRCcCcLCs9eZIFcWfVLv+HEqDgKydd7kUW ROMbTTY8Ew+qv5aIFldY0KqoY+XjwHhY3qtLF5NhQTpO6RNjF+Ph3bF4qx0l FtSdNCbo1xoHQlJW0jXqLEiVWsLEzSQOWnUU6HwesyD9n1K/p0niwMz12ICy yeF66meG52NigTZhLZ3FmgX146l3iy7GQm5Vk9WACws6dmv3tQkhBpR+Jksn ebMg7xsv90XVYmB2247OMJgF3e/LUJEdjQZfbuWBc7EsaAlVmVS+jIYz105k LKeyIJifvf99KwoaHm1aleaxIH8fW5JwrygwdmqXdik71F8LX1FgjALy2HQ6 GQIL4uQutGWIjoT0CucBymYWZMau+IORLxJkB1QzWnsO41sewNtmRsD4vzPW YcMsSKHiGq/hxQhwP7InrTnDgpoHC8ypSg77xZUeOt4/LCjtwOHe22vhQNDI GZjYZkEr/UfFKWrC4LH964wcclYUzFFxOkchDPYjH1hbMLIiVl3Sa1HtoZBQ egHEOFnRN5b3PssPQkGyj4R+5zgr4vpTzUQcDoGhv8QBwgVWRL7ZXfjSOASc 2fIz3ood6reipDJHgoFb1MtaGVjRJ4d7Ebf+voOK+1rAcosV6Xms3SGhewea NsL0A/dY0eJG0z3qU0GwGUY5mKjDingsbNWCIBCiioYynhqzohuajkotugEg 3l1kfc6SFckpFu4vuPlD7x9fWHZiRSK9/93mS/MDW2Y9+lJPVnQmtVoysNkX 2ETEBp2DWNG8qhO99roPFKnSZaJoVkTp+9blw0kfuGc5Zk35nhXd4vNsyH7w FlaCy6E1lxXJMGp+NwvwhpBPQfRhJaxojjNJnrXeC4Q7ng4+/MqKSpwmnEtJ vaB9SSLzWCMr8uPkH3su5wnmjHibiS5WZP6PqCDn/wbohaYh5ycrOvJ15ueD Xg/IU6mmt5hiRZW/R8Q/nvAA5Zdhg6LLrOhccLe5hp07zAeaZG5vsiLntsU7 ZTGvwT9P2oZAyob85+lued91A4FWNvSWng0Rmo0qTzK9gsbf8/TKHGwojF/u eDTRBUzoagaZ+dmQMrdn2Wi2M1BeiM4knmNDETOtsXtvnCBT6aVN4n9s6EbK qYNpI0eQM72BnkqxoflAP90wNQeY9ONiOKfAhgL/uST9uWkPb3KWB5dU2dAV NqE7a7J2cKKpPrNEiw2pnbvY+kbRFmpn422cDdmQ8Ziqq6+GDehTWyNkzob6 0wn/5sysASegyEDpyIaeToxK+QdYQZIC748WDzaUYbk7eavIEqSf/c0MDWBD hRgukrHWAn69bbZ5GMmG2kzkvaUumYNrZgo6lsyGlEwy3vV9MAOeBnuGiWw2 lPo4UNn3yguonFL+kV3EhrQLRXR3u56DFsXJLPNqNlTBoGY54WwC26e2bEQb 2NATcP+9LvIMYuQ60HYHG9I5E13dvmEEVw0zGAiDbIhnR2yatckQ+j1dfnhP sCHTT+K0ptlPwT5NLev2IhsazT9WYhthABzfztoy/2NDrSUmKf2BT6BkfA8R cezou1oG7nKoPqiT9jIk0rIjvVpnRzVZPVg9nvvDgI0dWYoMaH921IUwGfcs AV52NGeYUTVSpw2Xn2jYLp1lR+Fhdy1pzmhBp7ugTIkIO2pNxXm4xmuCZQop o/N1dtTX+NzT/dRDYCQM/ICb7IhpqPvvY8IDyB/Jz6K4y44+iHsEPjVXhzsH XrYtmuxoIe+dz9DF+7DAqy0TasCORjfvLHHvq0GgtAjjQzN2xEYw7rH+pQrn H1P95LFnR59VHbkcEu5C86vhrPHX7OgI1Y/W5FgVME0sts32Y0f/DP8m8xTf BuovfjLm4eyo0rKMqmjmFmQP6TGKJrKjqFt69wXFFUF+V+znVuYhdwRO6yXK w/RR+mysgB058Jo+P8dzE95eH7f1rjyM77vt8svCG3BKu0Lmdh07uqh9j/2o jizUOb9jZG5nRyTUIhxnj8qAQZzhz34iO1JKf1x0/CcAaeW17IQxdnR0IWgJ S5eClEG8ncFvdsRs/tL2Vuh1QFvTMgLr7KiarPXcSpIEjHJ+YVzaZ0dySQ4X /rVcAber4T+LqTmQcAwhs4hDHHg1n2c7sXAgzcXqbJ9XolDtAHbAw4H+9/+n /8v/D8Dqnas= "]]}}, {}, {}, {}, {}}}, 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, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-2, 5}, {0., 0.39894223465260964`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.797657923210126*^9, 3.79765800765413*^9}, CellLabel-> "Out[122]=",ExpressionUUID->"664e0023-fd19-4bb7-b85c-461f8fd44140"] }, Open ]] }, WindowSize->{759, 533}, WindowMargins->{{Automatic, 154}, {-12, Automatic}}, FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (March 6, 2018)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 362, 8, 28, "Input",ExpressionUUID->"8f4a81ff-c408-4b9e-8b99-2188fa2b089d"], Cell[923, 30, 2029, 40, 181, "Input",ExpressionUUID->"11bc7468-c8a5-4b84-842b-bfee844f3021"], Cell[2955, 72, 824, 23, 67, "Input",ExpressionUUID->"884247de-f751-4b59-bf7d-c075f0f51f2c", CellID->611158005], Cell[CellGroupData[{ Cell[3804, 99, 208, 3, 28, "Input",ExpressionUUID->"97256653-4e9d-4d8d-92f5-fd27805f6fc7"], Cell[4015, 104, 169, 2, 32, "Output",ExpressionUUID->"e4d7aec6-8609-48b9-9a48-e04d6cd109e1"] }, Open ]], Cell[CellGroupData[{ Cell[4221, 111, 640, 14, 28, "Input",ExpressionUUID->"5ba9a587-f2db-4eb5-b884-0495c85f0a1f"], Cell[4864, 127, 297, 6, 36, "Output",ExpressionUUID->"7320db76-645c-49d3-970e-0c78c7e6f0a4"] }, Open ]], Cell[CellGroupData[{ Cell[5198, 138, 1025, 29, 67, "Input",ExpressionUUID->"24df3250-9593-4576-8058-649cc52a0fa6"], Cell[6226, 169, 2222, 50, 238, "Output",ExpressionUUID->"0ffa5c6a-5263-4fa4-bf15-655979f1f05f"] }, Open ]], Cell[CellGroupData[{ Cell[8485, 224, 307, 5, 48, "Input",ExpressionUUID->"b455722a-c7cc-4b7f-bea9-981f030bf21f"], Cell[8795, 231, 195, 2, 32, "Output",ExpressionUUID->"92d3e439-31eb-4bfc-bc04-491ab1cb8979"], Cell[8993, 235, 193, 2, 32, "Output",ExpressionUUID->"f783d7cd-ba94-446a-b666-92bc46c6facf"] }, Open ]], Cell[9201, 240, 154, 3, 28, "Input",ExpressionUUID->"b80fbc2b-6307-4d1e-8c3d-6ce373331dd5"], Cell[CellGroupData[{ Cell[9380, 247, 437, 8, 28, "Input",ExpressionUUID->"7c6e2986-a64f-4076-97de-bca9956d0a4c"], Cell[9820, 257, 290, 6, 32, "Output",ExpressionUUID->"66dae3b1-18c7-4a14-af93-3f2968ef7e37"] }, Open ]], Cell[CellGroupData[{ Cell[10147, 268, 254, 4, 28, "Input",ExpressionUUID->"30076909-d65e-4f88-9b2c-3b1ea8c41a08"], Cell[10404, 274, 219, 3, 32, "Output",ExpressionUUID->"dd68ee4e-b629-448c-939f-9a712faab320"] }, Open ]], Cell[CellGroupData[{ Cell[10660, 282, 377, 6, 28, "Input",ExpressionUUID->"3df33554-2d7e-4f3e-9010-285e9321aa72"], Cell[11040, 290, 824, 18, 49, "Output",ExpressionUUID->"c73d0bda-0efc-4580-b3c0-ae193492eb44"] }, Open ]], Cell[CellGroupData[{ Cell[11901, 313, 572, 13, 48, "Input",ExpressionUUID->"231887c2-60f1-498a-b998-a6f8535f4bca"], Cell[12476, 328, 393, 8, 32, "Output",ExpressionUUID->"75918519-83d7-44eb-b7b0-d7ea6cf6f68e"], Cell[12872, 338, 887, 19, 49, "Output",ExpressionUUID->"f031966b-9df0-4e93-be7c-893427b285df"] }, Open ]], Cell[CellGroupData[{ Cell[13796, 362, 324, 6, 28, "Input",ExpressionUUID->"29be7bba-1f94-4d9e-af93-750652834aca"], Cell[14123, 370, 1121, 22, 134, "Output",ExpressionUUID->"1b9a10e0-f652-4328-aba3-707338a14ff7"] }, Open ]], Cell[CellGroupData[{ Cell[15281, 397, 1033, 29, 67, "Input",ExpressionUUID->"3e0ed055-ca13-4af1-b3ec-3c6a105f3898"], Cell[16317, 428, 3112, 68, 246, "Output",ExpressionUUID->"3a200309-6141-448f-abe9-feaad2f635ae"] }, Open ]], Cell[19444, 499, 294, 5, 28, "Input",ExpressionUUID->"2987890f-2185-4a24-ac34-b0b4065f98fb"], Cell[CellGroupData[{ Cell[19763, 508, 390, 8, 28, "Input",ExpressionUUID->"d8cb6046-4dae-4584-a11c-1b558a0dd3a2"], Cell[20156, 518, 858, 19, 72, "Output",ExpressionUUID->"1421626a-e8a8-45b2-84b8-61f864156907"] }, Open ]], Cell[21029, 540, 369, 9, 28, "Input",ExpressionUUID->"53998ea7-c8ad-45bb-8822-f7cf3aef31d7"], Cell[CellGroupData[{ Cell[21423, 553, 533, 12, 48, "Input",ExpressionUUID->"e232e6a4-340a-4246-ba23-539e9c5d2424"], Cell[21959, 567, 1119, 24, 100, "Output",ExpressionUUID->"e4048c3b-fddf-4bbd-8da1-b4e23b210ee4"] }, Open ]], Cell[CellGroupData[{ Cell[23115, 596, 432, 9, 28, "Input",ExpressionUUID->"8a2cd921-08ee-4806-bb1b-bbf91e3aea55"], Cell[23550, 607, 881, 19, 72, "Output",ExpressionUUID->"06391982-6f23-4cc6-b8ce-72542d9fdcdf"] }, Open ]], Cell[24446, 629, 1514, 33, 124, "Input",ExpressionUUID->"99d1751d-9dfa-4be7-81f2-111cef5d59f7"], Cell[CellGroupData[{ Cell[25985, 666, 243, 4, 28, "Input",ExpressionUUID->"72210537-2720-4512-bb0b-25f85f33d8b3"], Cell[26231, 672, 225, 3, 32, "Output",ExpressionUUID->"656948c0-11a7-44c0-a3f0-ff233ea2bf06"] }, Open ]], Cell[CellGroupData[{ Cell[26493, 680, 611, 16, 48, "Input",ExpressionUUID->"97ef6115-1960-4c3f-92b6-a7e8b849b55b"], Cell[27107, 698, 1675, 42, 242, "Output",ExpressionUUID->"539545dc-e1ba-4b5b-b722-471d4442180f"] }, Open ]], Cell[CellGroupData[{ Cell[28819, 745, 431, 8, 28, "Input",ExpressionUUID->"73e61e64-b023-4add-b1e6-87f8d137d61b"], Cell[29253, 755, 1012, 20, 83, "Output",ExpressionUUID->"f155aea3-c893-4d57-9154-74bdb9360e57"] }, Open ]], Cell[CellGroupData[{ Cell[30302, 780, 327, 6, 28, "Input",ExpressionUUID->"4d684bd8-1047-4fcc-a2da-b24e727f40a6"], Cell[30632, 788, 219, 3, 32, "Output",ExpressionUUID->"e6a3cf3a-65ce-4e67-9473-40862990ecfa"] }, Open ]], Cell[CellGroupData[{ Cell[30888, 796, 845, 26, 67, "Input",ExpressionUUID->"09f55ec7-f43c-4b6d-b825-ddadc42b34a6"], Cell[31736, 824, 3059, 67, 245, "Output",ExpressionUUID->"c066265d-e421-45ac-88c3-f7c0a9c8de3a"] }, Open ]], Cell[CellGroupData[{ Cell[34832, 896, 680, 18, 48, "Input",ExpressionUUID->"c4224b61-9552-410f-b07c-5efdc76a78a3"], Cell[35515, 916, 2791, 61, 245, "Output",ExpressionUUID->"5437c82f-65c5-40f4-8918-32cbcbbb0074"] }, Open ]], Cell[38321, 980, 1350, 24, 143, "Input",ExpressionUUID->"23c5471d-e561-4751-a759-2d68f1c7a7a1"], Cell[39674, 1006, 328, 7, 28, "Input",ExpressionUUID->"8c41949f-abb0-4ec2-8a82-071e6798fc5d"], Cell[40005, 1015, 384, 11, 28, "Input",ExpressionUUID->"d9f17c0a-1226-4b4a-a993-3b6f22abe206"], Cell[CellGroupData[{ Cell[40414, 1030, 194, 3, 28, "Input",ExpressionUUID->"9f4e41c4-ad00-44b3-bec5-800a5d3df57f"], Cell[40611, 1035, 1839, 38, 242, "Output",ExpressionUUID->"913752cd-a87f-42fc-8873-c8b158f1ae8b"] }, Open ]], Cell[CellGroupData[{ Cell[42487, 1078, 353, 7, 28, "Input",ExpressionUUID->"4c23a3a8-aab8-4453-988c-74d3839e0f26", CellID->206459738], Cell[42843, 1087, 14402, 282, 71, "Output",ExpressionUUID->"58c4ac2d-52b2-410c-9732-53f99ec0edf0"] }, Open ]], Cell[CellGroupData[{ Cell[57282, 1374, 239, 5, 28, "Input",ExpressionUUID->"5e223368-17be-4f57-931d-41014c34dd62", CellID->505051326], Cell[57524, 1381, 745, 16, 49, "Output",ExpressionUUID->"eea4bc07-22ee-44c8-b8f5-968601977b09"] }, Open ]], Cell[CellGroupData[{ Cell[58306, 1402, 219, 4, 28, "Input",ExpressionUUID->"a194df69-23f7-4f48-ae36-de6120f9ad61"], Cell[58528, 1408, 169, 2, 32, "Output",ExpressionUUID->"b7cb063e-6817-4120-94d4-5e28ef9f285f"] }, Open ]], Cell[CellGroupData[{ Cell[58734, 1415, 212, 4, 28, "Input",ExpressionUUID->"62b7bf5b-a3f9-467d-bfd6-f3abad5fcb27"], Cell[58949, 1421, 153, 2, 32, "Output",ExpressionUUID->"26b89b71-d0ea-4f02-8ba0-153cbc815cb3"] }, Open ]], Cell[CellGroupData[{ Cell[59139, 1428, 214, 4, 28, "Input",ExpressionUUID->"dbe16ce3-5980-409b-b1c0-a14623b5e7c5"], Cell[59356, 1434, 216, 4, 32, "Output",ExpressionUUID->"67f04ecd-e5ef-458a-8f36-157211670d1d"] }, Open ]], Cell[CellGroupData[{ Cell[59609, 1443, 200, 3, 28, "Input",ExpressionUUID->"d7668cba-db45-4196-990b-4f2eebdbb68c"], Cell[59812, 1448, 773, 17, 49, "Output",ExpressionUUID->"08e9e164-5365-478b-b1c3-0e45e8e0f386"] }, Open ]], Cell[CellGroupData[{ Cell[60622, 1470, 169, 2, 28, "Input",ExpressionUUID->"7ba57ecb-4dbe-456f-9b5b-1bc4e8875d2e"], Cell[60794, 1474, 172, 2, 32, "Output",ExpressionUUID->"20bd9133-0d59-4ad5-9b2e-48fcb732f0fa"] }, Open ]], Cell[CellGroupData[{ Cell[61003, 1481, 293, 6, 28, "Input",ExpressionUUID->"40eceadc-f703-4df3-9825-3643073f1476"], Cell[61299, 1489, 993, 22, 49, "Output",ExpressionUUID->"e267b69a-1759-4e7a-aa80-4163b38446f9"] }, Open ]], Cell[CellGroupData[{ Cell[62329, 1516, 232, 4, 28, "Input",ExpressionUUID->"dae5afb9-45f1-4981-8ddc-d06ef9b02396"], Cell[62564, 1522, 191, 2, 32, "Output",ExpressionUUID->"63ff4af2-e765-4ff8-be47-8788e9d92392"] }, Open ]], Cell[CellGroupData[{ Cell[62792, 1529, 211, 3, 28, "Input",ExpressionUUID->"e0900d8b-cf98-4ff7-9548-5d02afcf72bd"], Cell[63006, 1534, 174, 2, 32, "Output",ExpressionUUID->"ab8366ad-936f-4ba7-93f5-2adae494fd1c"] }, Open ]], Cell[CellGroupData[{ Cell[63217, 1541, 273, 5, 28, "Input",ExpressionUUID->"31b45529-073e-4f39-b9c1-cf21debe8fb8"], Cell[63493, 1548, 736, 16, 52, "Output",ExpressionUUID->"fbf564da-9132-454f-99c1-da9e7e31259b"] }, Open ]], Cell[64244, 1567, 260, 5, 28, "Input",ExpressionUUID->"40ba5716-8fca-4d18-934c-a95a7160c52f"], Cell[CellGroupData[{ Cell[64529, 1576, 285, 6, 28, "Input",ExpressionUUID->"6121e02f-ca43-4aac-b610-fcf38702ed5f"], Cell[64817, 1584, 171, 2, 32, "Output",ExpressionUUID->"e1c7d8c5-75d2-4b32-b34b-0cd43277b43f"] }, Open ]], Cell[65003, 1589, 689, 15, 48, "Input",ExpressionUUID->"b995c8b8-cece-42bb-88e4-2b26f97e7363"], Cell[CellGroupData[{ Cell[65717, 1608, 915, 25, 67, "Input",ExpressionUUID->"8b932d75-2e52-4b0a-86ed-8e0c5ddc0ecc"], Cell[66635, 1635, 15568, 324, 241, "Output",ExpressionUUID->"bcc62ba3-dbab-4215-b054-2399e288bcad"] }, Open ]], Cell[CellGroupData[{ Cell[82240, 1964, 218, 4, 28, "Input",ExpressionUUID->"7d21ce8a-dccf-4829-8e0f-8ee13ef0ad2b"], Cell[82461, 1970, 4528, 93, 247, "Output",ExpressionUUID->"a96e6658-e6d6-4292-beee-678ca6df0665"] }, Open ]], Cell[CellGroupData[{ Cell[87026, 2068, 221, 4, 28, "Input",ExpressionUUID->"e4ef26dc-1198-4a13-92cd-9ece5219fd7f"], Cell[87250, 2074, 3556, 77, 247, "Output",ExpressionUUID->"7af62cc2-ae33-456a-8467-148b76927402"] }, Open ]], Cell[CellGroupData[{ Cell[90843, 2156, 354, 8, 28, "Input",ExpressionUUID->"c13dc179-0f8b-437a-be12-2f4629afd273"], Cell[91200, 2166, 18346, 451, 238, "Output",ExpressionUUID->"7b78ef4d-71ad-4606-a55a-7413df60fd6e"] }, Open ]], Cell[CellGroupData[{ Cell[109583, 2622, 410, 10, 48, "Input",ExpressionUUID->"65169be1-655a-4fd4-8ffb-5b17ba9ef865"], Cell[109996, 2634, 29181, 500, 245, "Output",ExpressionUUID->"664e0023-fd19-4bb7-b85c-461f8fd44140"] }, Open ]] } ] *)