(* 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[ 85784, 1727] NotebookOptionsPosition[ 81870, 1653] NotebookOutlinePosition[ 82213, 1668] CellTagsIndexPosition[ 82170, 1665] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{"(*", RowBox[{"testy", " ", "dobr\[EAcute]", " ", "shody"}], "*)"}]], "Input", CellChangeTimes->{{3.824355561821058*^9, 3.8243555763829813`*^9}},ExpressionUUID->"ad366c4c-e272-4850-8b44-\ fe342b8aded8"], Cell[BoxData[ RowBox[{ RowBox[{"d1", "=", RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"0", ",", "1"}], "]"}], ",", "25"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.824355596499779*^9, 3.824355658710704*^9}}, CellLabel->"In[75]:=",ExpressionUUID->"8a2a45c1-9a18-4310-a462-1fdd1797f9c2"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"QuantilePlot", "[", RowBox[{"d1", ",", RowBox[{"NormalDistribution", "[", RowBox[{"0", ",", "1"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.8243556668974047`*^9, 3.824355677181196*^9}, { 3.824355791341675*^9, 3.8243558025106373`*^9}, {3.8243558492949944`*^9, 3.8243558604948087`*^9}}, CellLabel->"In[77]:=",ExpressionUUID->"804930b3-fc3f-4d83-b514-a524688262bc"], Cell[BoxData[ GraphicsBox[{{}, {{ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6], Dashing[Small], LineBox[{{-5.75383204799417, -2.472130248124184}, {-2.215245785628986, \ -2.472130248124184}}]}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6], Dashing[Small], LineBox[{{2.2671926360301207`, 1.9709812543183662`}, {5.753832047994166, 1.9709812543183662`}}]}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6], Dashing[{0, Small}], LineBox[{{-2.215245785628986, -2.472130248124184}, {2.2671926360301207`, 1.9709812543183662`}}]}}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQbRDSIvBs/b/95VqWlm+OMR/QfOzTrvrn+36fwpsr vv/9t3+3fMi98o+f97/i3frQgu/H/pznKpP5Hn3YL97aeoNz67f9HtxRczev e7Pf/7COzMrMr/uP7Ji/qsHmxX5Olzb177Zf9y/0PNSqb/5k/63LT9iWrnm5 Xyysnu927YP9Xjs0SrQFX+zv/1pT4/n15n69PTc7d7o+2f/b9/2lvdaX94fV XVxoM/fB/j0b524WzDu53ynnx7/663f2d8VwtrP77dx/lP1jwunLN/ezqX+T n8y7ZM/GLt+vrlnX95dB5O2fc51yfDr3+P7tEP32MXHM8xKZtthDzbc/y3d+ 5RL3A/adEPvti6JE5Le8PmgPdZ99WPZJZwXfM/bzIe63n2q/wueV7WV7qP/s 0+q7n4q8eGwP9b99+rxgprs/ntlnQcLHfs/x28+jAl/bQ8PPfq7gptj9DR/s oeFrb/p47tfl0T/ttSHhby9teXSxcud/ewDAKdwo "]]}, {}, {}}}, {}, {}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Epilog->{{}, StyleBox[ LineBox[{{-5.75383204799417, -5.9796705299336885`}, {5.753832047994166, 5.427030444266416}}], 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.9179440159980565`, 1.9179440159980554`}, {-2.472130248124184, 1.9709812543183662`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.8243558036523714`*^9, 3.8243558617816696`*^9}, CellLabel->"Out[77]=",ExpressionUUID->"a989394c-c84f-4e6d-859d-097273481fd8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"QuantilePlot", "[", "d1", "]"}]], "Input", CellChangeTimes->{{3.8243558130102034`*^9, 3.8243558206485825`*^9}, { 3.8243558725164213`*^9, 3.82435587331958*^9}}, CellLabel->"In[78]:=",ExpressionUUID->"f9ba11f2-f7c2-4221-a714-fced23654b8b"], Cell[BoxData[ GraphicsBox[{{}, {{ {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6], Dashing[Small], LineBox[{{-6.832865291261652, -2.472130248124184}, {-2.590614070510135, \ -2.472130248124184}}]}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6], Dashing[Small], LineBox[{{2.128391615966529, 1.9709812543183662`}, {5.282132662671691, 1.9709812543183662`}}]}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6], Dashing[{0, Small}], LineBox[{{-2.590614070510135, -2.472130248124184}, {2.128391615966529, 1.9709812543183662`}}]}}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAAnthfwpE4AsB3Kjk57MYDwNDiSdfV Yv2/THHZqPf9/r/Ps67fjCH5v+oNteE4Dvi/ZOjxFcvo9b8XhYXYCbX2v6xr Gsa+O/O/T8MsHKlp9b/YevFSnOTwvwlEhif3PfW/aLckopSN7b/a0+QGpazp v64CxvDvoem/SrgodCsR6L9RisGSRO/lvy682Ym5ReS/H5zDCBFl4r9WftGh PJ3gv4SECJJb7d2/Qmz4/n/X3L8KjTNcgzPXv8UH8WDL09m/MsOGrYiK0L+x ik31RWrXv7Pys/0bw8O/5wrKQeWdx7/oDihIrj2pv1xeA55hArQ/AI/Ns4Wo rT/NDs+ppEfAP3wc65TvksU/cloUH7TrwT/9fn6Gzi7SP1ZryUMgTcw/beg7 6RcG2j+VP6hM6j3TP4AyXPivPuE/Zn+L5RTo4z8qFK7e9OzlP2eeUwLd+OY/ lA1dfg1H6z+8x9vnWlHrPzdS64hI3PA/nRGyXb+A8D84gYaAkR31PzXjnfWn W/k/nk/8Ld8r/D8bOcWjI4n/P69b4cg= "]]}, {}, {}}}, {}, {}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Epilog->{{}, StyleBox[ LineBox[{{-6.832865291261652, -6.466360483783218}, {5.282132662671691, 4.940340490416883}}], Directive[ RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Dashing[{0, Small}]], StripOnInput -> False]}, Frame->{{True, True}, {True, True}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-2.277621763753884, 1.7607108875572304`}, {-2.472130248124184, 1.9709812543183662`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.8243558742223644`*^9}, CellLabel->"Out[78]=",ExpressionUUID->"8477ec3d-7f61-477b-bca4-ec00605c010b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"H", "=", RowBox[{"EstimatedDistribution", "[", RowBox[{"d1", ",", RowBox[{"NormalDistribution", "[", RowBox[{"mi", ",", "so"}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.8243558858753743`*^9, 3.8243559714276543`*^9}, { 3.824356292143014*^9, 3.8243562928151817`*^9}}, CellLabel->"In[91]:=",ExpressionUUID->"45e60faa-7033-46bd-9377-62396f716d10"], Cell[BoxData[ RowBox[{"NormalDistribution", "[", RowBox[{ RowBox[{"-", "0.2584554380983261`"}], ",", "1.052776467307273`"}], "]"}]], "Output", CellChangeTimes->{{3.8243559219298267`*^9, 3.824355942242117*^9}, 3.8243559742352858`*^9, 3.824356294821415*^9}, CellLabel->"Out[91]=",ExpressionUUID->"1124b475-684b-4d2b-99fd-56cf77a712f8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"g1", "=", RowBox[{"Histogram", "[", "d1", "]"}]}]], "Input", CellChangeTimes->{{3.824355985355647*^9, 3.824356026848321*^9}}, CellLabel->"In[83]:=",ExpressionUUID->"510c13e6-9357-4962-af49-487de4547cb3"], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.651], Thickness[Small]}], {}, {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.651], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-3., 0}, {-2., 1.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{15.465772618094519`, 83.12349879903928}, { 69.9718642864904, 95.60230332938998}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-2., 0}, {-1., 5.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{82.62349879903928, 150.28122497998405`}, {-30.549891885107925`, 95.60230332938998}}], StatusArea[#, 5]& , TagBoxNote->"5"], StyleBox["5", {}, StripOnInput -> False]], Annotation[#, Style[5, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{-1., 0}, {0., 8.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{149.78122497998405`, 217.4389511609288}, {-105.94120901380667`, 95.60230332938998}}], StatusArea[#, 8]& , TagBoxNote->"8"], StyleBox["8", {}, StripOnInput -> False]], Annotation[#, Style[8, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0}, {1., 8.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{216.9389511609288, 284.5966773418736}, {-105.94120901380667`, 95.60230332938998}}], StatusArea[#, 8]& , TagBoxNote->"8"], StyleBox["8", {}, StripOnInput -> False]], Annotation[#, Style[8, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1., 0}, {2., 3.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{284.0966773418736, 351.75440352281834`}, { 19.710986200691238`, 95.60230332938998}}], StatusArea[#, 3]& , TagBoxNote->"3"], StyleBox["3", {}, StripOnInput -> False]], Annotation[#, Style[3, {}], "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{-3.1, 0}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRange->{{-3., 2.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.8243560084083414`*^9, 3.824356027751074*^9}}, CellLabel->"Out[83]=",ExpressionUUID->"ed521d53-1b54-41a7-9e03-86af66a89134"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"g2", "=", RowBox[{"SmoothHistogram", "[", "d1", "]"}]}]], "Input", CellChangeTimes->{{3.824356029719968*^9, 3.824356042060197*^9}, { 3.824356095601053*^9, 3.824356105785181*^9}}, CellLabel->"In[84]:=",ExpressionUUID->"abe7b005-1e7c-4573-8a0e-763c75c9fb67"], Cell[BoxData[ GraphicsBox[{{}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ NCache[ Rational[1, 120], 0.008333333333333333]], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJxdm3c01X/8+K9xbZkVQlRkRSSfSD3fSbKSUUgUopAikVmUEZEQiiSbrOzN +23vPUPZe2Tv8X1/z/n9/vn6x3mcx33c13Xc5/s+387Ba2ylaUpKIBAkyQiE //1uQ3Ez8GI0HUb4f1//l413TFm8Augw1Qbp5ZhLSqC56BHS40qHVX51kSov Vwa50djjZ63osD87nQqpD1VBoqcizP4BHXYhwJZVkUUNTjWMnKi7RYdF/kzd fPPnNjCXESLZrtBhQf6+XVFD6kCadZLHXIQOo0OoIyoHNWAl/mpM4Qk6zMEu 8U3CpCaMhhmcoaGlw4plY+Qb97Wg86NLgt4OLVa/KFGbd+ouVL79JpAyQ4t9 yXoxtnRXG7LtipJ3+2ixgbwZC/KvOhBr/ltEtY4Wc0UbmVxndOGzwVZ6RD4t 5ngsRW9ZWQ/cNY6LLyTQYsc5slwXS+7DyxtS2VdCabHn+ZytVxEDeCR996K/ Jy3mIeoY9a37AWids83/a0uLiTl8kH921RCu836WFjOhxVaefzvndcIILhzN KnbVosUylGslzUiN4TR1+5U2OVrsvPIqwWTVGFj2/6E8ErTYZ6Ms3sbFR0C2 fETuBS/+eLmVrX9rJrA6fq6qnJEW4+qTiOWjeAxjfaoKzARajJr/5l/01BPo bHpaZ/yPBrN++WORWcUMKrEPytl/abAo6h8Wta7mkJ3zs4mshQZDS0qlwjAL iE2qU7tTSoO9f4gVcR+xhM8RU21xqTSY3HT01SyzZ+AeQKG1/o0G05xnJ/nZ 9hxeevB13/ClwYjLw0SR09bwyEFeJ9SJBuMbN6akmbAGLctHvyfNaTDu30nf 2dJfwHXDd/f/u0eD1TiZ+L99YwOSd6L/vFfEWbwi9Ln2SzijiD3s+48GS42f uCopZQusskMjAmdpsIxK4vcaLjsgP3/wyPEYDRY6RVF+k/4VrJ3mmqwn0mAO pW6PRsjtYfy4rBnHOjV2l4k4VE3uAF2092ctxqkxXxqd9xz0jlB16GhZ3EmN pdlxZJNxO0HO6tdF2kpqjIKrJy7uP2eIm8q31s+ixiyEG16e1HOB4IGeldRo aqw1/+dasOdr8Ghdt90PoMYImjdjzhS9AdtK1s1bbtSYNdMNr/lNVzDJv+AY aUWNRUTPB3j8cIM7KZq7iw+osa0S/ZSGm29B/seL16BGjZGePinQvfYWJD8H HH66Qo0Ji5rn/Up4B2fe/3o7LEKNHUgPs5gauAOrcwuZOCc1xl1SSHLI5gHk Vgueb2mpMdSXW8brtwesGdNRdexQYcKvBkxJf3jCuLbwh1OzVJjoY3NmJ3Mv 6FJWpnv5mwoLttBJWrn0HqqumvtX1lFhVCS8xtb03pAj4c3IWkCFXdpzur4x 6Q1x/IlBJolUWJQhL5NXtQ8Ec9Sw5oZSYSOvzivx/PwAHkcmQoleVJi8DAtn VaAv2JKSs2vbUWEHPEyPrVz9wGTj1LcEEyrsDo3nT26bj3Bn9hrXphYV9u9P DXWzuT/I/zX8cfM6FSbN365g+/gTSHa48n6VoMI+NnTrU0gGwJmayNhpXips z6M9SSE/AFiLSvmkmagwkVjh+nXZQCBPH0z0IVBho6Ra9fTVgbAWvSvY/48S M9K/cvD+dhCMh3CkCg1RYuJ1VRQGg0HQ5SMt6txCiV05eN3k8fQzVL3WzWgs pcTKGWg8N/Y+Q84LewnONErsHM1kdlJAMMSZhuZYRlBiteFFIoH8IRB8L1eq 1JcSG39+7lh8WQh43OoqoHemxBJSLy706YaC7bVVmQcWlNhvlzVvnvVQMLnI XJp+jxKLlmY+afX5C9wRFIdDRUrsplmUYv6FryDPpV5++xIlxn7FjXKu+ytI MlldjzpLiWGrqk27jmFwhuhfvXQMf32DdS79J8OBdTv15jUKSszDq9HJvjYc yBca6wPXKbBrB+kpFdbfYG14VmV0nAJrT5R2SzkRAeNd1C0SXRSYLUayz1MX AV11AurulRSY/JmblUyvvkNVyc2OziwK7MU74LDki4ScjMd3zsRQYP45bVtc PZEQF+fZYxtIgT1+m8Nw1PsHBH+N0612o8Di1QkWP7iiwMOvsv+oNQWmWUhx o8o+CmzdRvUfP6TARjP0kqw6osDElmQoT40CE9B4eezruWi4Y8ZjRHmVAguQ xWgkfaJBXh/GdM7hr9+56FB6Ihouqj8wTeKkwAq6WOyirsUAn/zrqS1aCmwQ I2wYRMbA0UsR5kq7RCxbZtrAYjcGiCLFc2GzROxL2ohhmW4srJ/sfzb7m4j9 6/MvVsqLhQmW7X8y9URs2pRBi5I1Drop2Wx8C4hYx3y82uKLOKjelVobSCRi qQxXqTZa4yD3391XIl+IGDkXuekx0XiIH7PdcvEiYseino2o+MVDSO9np2Y7 Iub56uqcx2w8eDZm7XGZErGVc/ZJZYoJYIe2v3l+h4gdCJh2LickgGn2EgG9 TsR+OP1wPU5MhLuJDO4MF4jY5F0uHsFHiXDjmyjR8BQRE7l29iNPeSJc/HTr fQYTEbO4y02zxZ0EfO6W1CQkRKx6ilUl2SUJjtr7+moskWMpNJJOEv1JQHya TB8zRI6NPp+R9fvvJ6w/qP+00kKODd74XZAd/BMmNKeZrpeRY/xTn77GL/+E HgXK4M9p5JgZxz+Gh2rJUCPDf2w8ghxbachKH05OhjzRG18l/cixKNGpa/yU KZBwyoTD05kc67K03xB+lAKhx9wjui3IsaCPQq2rZSngRRPDza9HjgU6KUy/ 5kiFVwdY1CslcqwUydxtsEuFxytDp2ovkWPYFNejwbZU0J48iDsuQI7F2fez 5wingUI/11mz4+TYfKVs2R2vNJBqkf1ZQEGO6TanBJUPpwF/xX1h6g0ybKr2 +psDmXQ4lueUdm+CDBNmZKFnDEkHiuQwseQuMoz4ddFqdzEdNr4XZO5UkmG/ gwadaxR/wWRg7wWVbDLMR9BO2SnmF/R4buR+iyHDaB6fXDmx9wtqHI9emg8k w+o45XZ6hTIg75lkkexbMiwtyTY5SicDEoy0ZD9ak2Hlng3ulh4ZEHrXpuzP QzJMgeSpKpKZAV5KgYjobTIsvwdl5f2bAa+uZFS8uUqGEXTfXGSlzYTH4q3y refIsB87Y69OXsoEbb7FmpNc+PmWYgwqppmgwE6vZE1HhnE1fbr1NSgTpOhF GrFdUoxjdWeVAcsEfhKVW0xzpNjjipGogoVMOLZu3mrUT4opZ7EIh53IAooZ b42selLsrK2qSaFSFmwMJnaSFpJi3t6a7LwOWTDZVnNXK4kUE9/NCOlKyIKe qone2C+kWKvB62t/urOgpoBcb82LFPvzsbpPjpgNeamnB+VfkWL2dXU0DBez ISFK7kGIKSnW4RRicNM0G0KDjYYn7pBiSjMtGash2eDl7WYsJU+KJWuVMXDV ZsMrlx/jXhdIsf1pk5zGrWx4bF32uPcUKSZgOTFGKZwD2iZ/ps8yk2K8wmEz vw1yQEF3z8KBhBQr2qBlVg7MASnVEwt1SyTYruNIvGF1DvAjMlbswySYlnHC ON9ODhyTvLds3kqCPRj8dBgtlgsUAg4vi8pIsMBtYdY/prmwceLLOk06CfYv jnh2KCIXJhny7O9/J8GcB69yZ3TlQg9Z93aKHwn2cP10iQ59HtRsrjrvOZNg QWhR2B+FPMibYz5QfUqCLViq8yq9zYOEIXG373ok2P1z1D7RJXkQ2qlOuqhE gl12tW1e2MqD97VWHlelSbBniGCqpFQ+2Bf7U3wSIMHov1pGutjmw5Nfad5D x0mwjsHJzsbsfNCJbaI5T0mCpXOOyguu5cPNL3N+bhsEjEurnjf8YgH850vD 0D5BwAY0PIx5HQrgrKtgIG83ATvz6Nrj6uICOP5SkcWmioClp3dHfSAUAuWT JyEV2QTs9Nd4bjuFQtjU8zrOEkvAXiqyuXl/LIQptfiwR0EE7FzChfXa7kLo las6kfOWgJVxmUhLnSyCWqmx7+QvCNitby8/dZsXQb4QKc9dQwIWfDS7NDG3 CBK5eWPibxMwPgo9mnTSYvjCjJzZuErAnPlOXppRL4b3FA8TFEQJmFARvfu9 qGKw33kt8IWLgG2g4d8PlorhyWJE8hQdAUs5uZ/WK1cC6VX296y3DtE03iaV sZAS8E/NNWDqPUSzLky9PjlbAs+DV42ycg/RImJygQ+UgpqL+GOt4EOUc85q kDu0FERNrCzWbA7RBk1zyYGFUjiimvY8ROMQHaWtsStSKIPFC3M2UucP0fQ5 KTQ/qgxaTgja9x45RGkV6r8275ZBOtkTZ4eFA/TTO+61dR0U/OfiXNmbDlC+ BZJzQrkoPO8cdS9KPkA59MQ8M6kxUCvm8b7vc4CWzDQ+VJXGQDT2gd/ekwNU v5jX3sgcgyO+EQHfFQ7Qy5/57syHYbBo0x98le8A9Zm9JD3dgEGLHlvYENkB mqIRdVp9D4N0Oe3vbqP76PVzVGQnRcvBXyg4mrd8Hx18ncGublgOz5k74it+ 7KND0V+CBoLKQW2HIfnRm310nkLOuaS6HERHb6WTG+yj9smtwfNb5XCkwTcr /vI++rZU3cxUpAIWM+vzFDj2Ue5MBUcewwpoC6MsntraQ0tuPq8+HlwBGW9v oN69e2iLKDYtV1cBAebulYJ5e6gdmd5E+F4FWGuU1zYE76F5HnyTx8UrQV36 sPHpyz108dHz9SzTSjjPe6WNTnMPFWXKsDIJrwRGaueutPN7qJOhf8iZ1kpY WiroU2PYQ2tSuAPmyKqgrW9j8N/CLorwa9tlXqqCDExyJKBpF10n/ab6/FkV BCTZTIin7KL043YsHDFVYB2QMdPhs4vG3CF8S+upAnWHxYWXZrsoDTdP60na ajhvKLLCenMXJbtfYWoG1cCoaLGRy7eLmn92nnB9WQ1LYkk72uS7KLPTpsmD xGpoOz55sDm6g6Lp0gx7/dWQcXiaLKx8B007/kdA40gNBEwZUcpE7aB87+8d 1b5WA9atP2gH3uyg3O0q+mS2NaCe/4fBxWAH/ahXkq6RUAPnf5xg5ZLdQQsV HrJf7qsBxvf32Mo4dtBdZ7dfedS1sPT8C+fD7W101uSocZlMLbRpd/MQ+rbR OrX7/1Se1kLGVRa+6LxtdCgqi+/et1oI4NcQlAvZRvlMA08MN9SC9ZFP58Ze bqMx7CqSA9u1oL7RJO6huY06ns89c0OgDs7/pZHiE99GX27EbrJp1wFjjaJM DcM2mh9zmVnTvQ6W0ryuPlncQp2NmC7N/6qDtpAqOarmLVT1KtunsYE6yHhN evNnyhZ6e/ZurCRlPQSYIirKH7bQrlf3LQbF68H61pvbc2ZbaKnsG4W++/Wg frFEy+/mFhp9q5ma37MeznPt6Jzj30LD1tCtyrR6YCRe0m8h30KttsOaMrrr YWneztBqbBNN8HmXO7dXD21d2SaMFZso+7Cyvu3pBsgoWTbLjNpEBfZGxpSV GiAgTuyZpusmur9uM2v1vAFs/J69WDXYRPdKhD+MBzWApm2KXbDsJnpVPfle cl4DSOjPOF48sYn+V3vEsvJ3AzDLn33Ts72BbtZlqEvsNcCKsOk7+74NlKBv z7zD1QgdLLFebPkb6PsbHVLc0AhZu8MfCkM2UBPXOyUxDxshaIz7k57tBpr+ 7R+bn2sj2DTqf97V3EDzkbb/hiIbQTM7/EuE+AZqITP4Krq0ESS+9X27wriB nlrtiO0baARm92NRfxfX0TVHpu0P242wYnEnzrV5HZUK3GVHjzVBh2ZQEk/q OiodTMvgcqEJsmTaUss/rKM12r7X6m83QdCpI5nG5uuoxcutV+lPm8CGRjWX THEdbWg51nThfRNorvgUxvGvo7MlKzLGMU0g0V9beoO4jka+Y9GUK20C5gpi xeTYGvp6W3htoLcJVn5er3lfsYay3SAVlF7Bzw982yAQvYay9Kw/e0TXDFmO aEu96xrapiNua8LfDEFG+x0WD9ZQVp5pdgWkGWyULvfSXllD5a2MHzHrNYOm uONA6ok1VPzXn5edL5tBgj1/6NbOKirGqOD1+WMzMJOsjy32raIqTK0T+onN sDItMf0pfxUtS7KelC5vho426/nzoavoXfm1sosD+PkF6UvttqvoJ7M3X+6t 4+dHza/ZaK2i3f2v3v1iaAEbb6FtFolV9HtUDa+cUAtoWpvt5zCuokbKI+9O 3GgBCd0EEu1/K6jHN0r/G4YtwIyMEzebV1DZlPSDeucWWDl7iuZr6gr62Xvv ftaXFuhgMDwi7buCtvoZLlPmtEDW5nfmfvMVlMHhVm1nWwsEDQ0cc1ZcQZEH JyK4F/Hza9lPcJ5dQYtuH/+zRNsKmr90TpYSV9D/3tf80BRqBYkvIacfjC+j d8qNv6kotQKra+fZw4pllONiyKkxs1ZYe8wkEhW9jDrb2nHx+LRCl9rt89fc ltGnN9rJqJNbIUfqo+Tog2VUTH1DLL6xFYK5Gy+5X1lGY4E8dXOhFWwpqK+c 4VxGnXK01dyp2uDOosK16p0lVCzmtNJTjjaQ7PG48fj3Ejrx34eqXJE2YC2r UKIsWEKl2YYdTKAN1uIJakmhSyjFaYZeB8026Pp4VVPJbgndUxGkXDNtgxw7 F+1ZrSVUJlh8qsexDYINivR8JZZQL7ETNKf828D2xtYDEaYl1OzXYV53TBsk 6VnWhA/9Qz/99Ztezm8DM6HplsGIf6hrbbLqq+Y2ENh51Mut9w8NPa8nbzzW BtP1Q0OGx/+h8wmNYznbeB92fzqmaxEtJfxasWRsBzPz3qXxwEVUlqF43vts OwhIa23z315EdSmfkVJCO0xTtZKY0y2i1VsH7BPa7ZDUp0yTUr+AGjgHt/FY 4X1SDfOC1wL63C/COf893jvInRCTX0DZrTXlE6Lw/mbZ6RckCyiLcYTBbCHe H5cRyS6bR1V7zRRcO/F+Kldy3Xke7dY80m60gPf54lf+k55H6wJuUflTdsC0 V9oNx405lNEnoPiQtwOStAXVirPnUEHy0LdZsh1gxh+vvW89h66CfHG0TgcI bPA8BNE5tFMmKrTOBu+rI568nZtFg7mmmE75430Im3Vl0izawVN7kPQT702D HYiPZ9FN8VyibjXeX2R8e/P0LHrLU/+n4Ajek/v5+AzPoBGifMps+3jfRRnU +H0GPVvfIsjN3glmce7h9PdnUEZBTquLFztBwPYw5jbbDPqX/KOgrkYnTF93 TgnsnkYpX5+66/asE5JYNrM7g6bROCPhv4k+nWA5ZlNyVH0a1WQ5Gl8X3wki 2YtVOvTT6PXBK+8Gyzth/p1Fc1jDFHouulrpz59OSNWc7B54P4Uat95rrdrG +1PGf7luTKFjdtszfke7QGTlz+RD0ilU8l26vZh4F8yX3/sXjU6iQ2eljRJU uyA1sHtzzGUSpfiQ/H3uSRdYGmkQ+GUm0bz2uYvb7/BevJnKbHMCFVsWVaz/ jvcEJabknAkUtVSg1S7A+7Yq9vkXEyhdxEh7WAfeRyGnRMUm0JjVZPpP83hv XSJkPT+OniIqaJ6n6IZ5uHQh6+c4mkwU1nU42Q2pDDmX1x6Po/pNBodGl7rB ckhMXurMONr58EBjWr0bRH6lqDqMjKH/1DK9KMzx/s3Zu0WRY6iK9F/SAje8 V4s12Ls/hl5hrdTf+oL33CcfX2UfQ/XH9Awq0/F+Mfy5W88oalhzjPRoNd6X HrOv+DyKClmYvZnpx/uPQa7kGqNo8zGuK1eW8N7giLfCkVF0rNx7hI7YAyLn PgR4N46glwvdFO+y98D8HjGswXsE/ZzI58NyrgdSm95G0ymMoI9HXdblkR6w jNj/qUY2gr5xfX4wqYn3lo5ZAdgw+vFtx+lNE7y/vF7U8XoYdeNhM7J9hfe0 LypZLw+jP7PmjPXf90Bf3u8vaUtD6G6ORlzalx7Q1W5PEn86hHZdHuh/nIj7 9brC3Im/qKLk5rpXHu5DsAZpw7+oqxcbN3017iULBkr7/6Dt7lnZWx247/o1 f+3uH5REjF5NaRj3LxP3q1sH0QsMq4UH87hn+XFEWXkQ9Xkgs8W2jfus0JMt VQOoh7uw7FfyXtDV9D+vCQPoo+GaGReGXhhe9rzWU9iPJnDNf65l7wXDwNea epL96AUR0x2H07g/b/fob/pvlFWjlzJIBPdtlrbGgr/R5siIVpaLuLcy8ZyM 7UN31b19D2Vxz6AfasHdh8b7fg3Tlsd9ulbi4tdelJ72qyOHCu7VVApsWHpR c7Yjy6oauF+Qq9/42IMGTVESlrRx/1Gm34mqB8W+sISS6+NeRGLu4F03Sh2g wfPREPdNgnvv9rtQ2g+lMb4muH/KS0/p0IUu7YtKkprhnpad23elE4116Nxd scB9MqMYw7NONN4nTdTwGe6VqZDPUx2odzEHvaoV7mcO1Y8bd6AKO8bDBda4 99k0+jbYjh4v0NpKeoF7gX82J3Xa0R90M0ncNrivm3SPbW9DuVcpFDlxHn7y N/isahsqlS0vHIc/HjuSqqLzsRX1N2mK/9/nw2/0nj1814IGG6pT6OPnYX4f Pj2xb0b9tdlCAvDXgzU6ZlpZNqHjIWeDdJ/iTGPeaW/UiD4lvLmQh/88mJLu uqt2A/pi1TY2xRRn75vHvVXq0WAN6UMZY5xrpaQDkDrUPuvR3ccPcKbgv//1 Yi3aEforTkwP5xtHX0cJ1aBbuh39X+/i7EH+I+lkNWpuYdMZq45z5SqWwVqF VtwEHU3894ORjo0WUFeiDiZCJxJu4Hytg7z8oBxdFihHowBnt3L++lUMjVhP bLsu3QturkaBMe0omrZ5sSpAAud96M4qLkXt7cR3vYVxduZmr4wvRmtZUrFz Z3De3tPv/FSIhlofKLlx4mw/EDXmmI8K3BrNe8uK83rh+OqjXPTKw2SmC3Q4 v/wqQK6WjR4pD70dQobz8itL1kuZ6FifvMbPnR4gDCUbKsmno7q20mNWyzgP PJk2Z0tGN/Ldy2amcO49Y/1hPh69/tTe5/hfnDtHNpOxaPQP0+u+7U6cI68c hgp+Q3vObYgG1uMcmn+krz0InVq7QPhbhjPnI1mJNQ/0TNabjOFsnM/rP2tn NkL7DoVDw5JwprKg/dztAP7BPClU33FmLX98k+MjTNUevhMNxDloMnZ0PBTC z2/E0nriHG4ZHC37Azgf3n0R5YCzhqPc+YZYeMrVeGz+Kc53S4oYNhLBcub5 9uIDnO8dSvzjTQVBLUvVnxo94CYafXeKPwMiWl+dOiGPc0YFU69sFvR9dvKV l8JZYry5RjMHZqP+hvAJ4JxD/JBnlgd8/djtMvx65yZ1ViHhTQGUvRCqO0Lb A0iBImlocBEsUV9mPL7XDYiMRZlncgko7inK9s7jXOLrZIeVAentdZPbf7qB 54f2N4mnGNhuiie5NuNs+MRR6FU5LPFKC5mV4szroHPqbQUwa9oeo07DedT7 IodfJZxT1owyjsA5NoyF+UsVNFbTkNv54mySvEwdUw0y4rffI0448xW3kqTV QEfClGO1Gc6TjWnb+bXwJPyyFLkOzomDvssVdSBXXM27L4+z2YL5THM9XMq1 ScuQwFnw4OZIXwOQhM/ePcmD8+wR/t9jjWAxWBWrRI9zykny9sUmIEwlCJ/f 6QIey/OjddvNUGd/y79zEudz1zCMvBXiqN86SHZ2AeOmwO1ByjaYylqP0UK7 IEBH/Kruxzao3z/WIZ6C+wLpc13M7WCuj3W3huKeTY5T/Ws7XFgf9RbFP28Z HZVpm7g6YCGSvV3tGe5/a+7cjO2A5V3hSHFd3Mvcn6kU6ISo4rczvXK4D3/U B+mdwMT9PlfuHO53n9YWX+gCilky+pfHcX/fNu+/wi7IOvaY1IIE9yUu8dlX u+GzE8kvgblOCOD0DBar6oYff29IZHR1AuPrj+4pSj3wYng+g6QM939CbM62 9kDmcd473Im4vxppFHunF0x2fihSBuA+MkH9ZH8vVBD6SksdcH+YDt8e9oGe H/mEnBHuH+aLHp/og5JjSktflHCPoVyfLX5DtlAzU5k47nnq6BiWfoNoYr9T Hr4/Mb5t2/1g1w8W1Yd670hwP9I3S7HbDxNaUkOnZjqAUW7k9zu3ARj7yCQe 1tYBATEzdQfEQXC/7qY4mY97spV8J99B0PTGxGl/4P7RTsIG4x845bVdS+2F +yrSUJvQP1DvbfZj1BL3Z2g9F0/8hRajvOpQLdx7sthaRP+Fl9RU187K4H7i xKNJ/iFoD37NEMKDe4UzmsapQ8BcjfGPUHSAolYozz+2YRBfiX1Jh++r3u4c bGn3hyF7p/33cXyfrcuOZHgaOQzH6z5dIMf3XarxU5SCI8PAtGxW1B7ZDoqs iQeTp0dA6Vyn2TsPvJcX3oh7PAK0rBrmxyzw3vbXgvHPEUj3Tjbxv4338Rcm eOZHYOI+D3FOEu+78wf/io5CK8WXOREOvCfKdkW8GAWOR/2/7hy2Qd1FrFEv ZxRiY1aHjcfbgOqxfCXb5igsngok6ta3gWJoXVGP9Bi05wp/k0xvA+8a1axg lzE42464bAXh/UbbT010DPgzZjbi7PH+7N1oRtJxeOxs4yajj/c6v7+2yI+D lhrypBDB+/cGAX7vx+FvuVUPLx/e54+8V24YB9eXIsK21Hg/bepKRT8Bk6bm rkYDraDINvuq5vYEbMm59/2KbQVvxefPPYImQCpviaHraSvUOayYynVPwK22 6s6WC61A9fOVAYFtEvTvDHVG7baA4u+dO2V6k0DZP1epXNkC3tSuqi7fJ2HP 0cWg+UML1EmTycsMT4KaDIexoGYLUFm8v7x1agpMnxh8f8iO9+G0F/JMp+CA QD5lPdwM3g2fhGyTpiDeiJzvAX6/XLfDckpibgpmFcNuCTxvBirhr+xL56Yh 65W8eZtkMyje52RKt56GWwzVwTq7TeDtG0VlmT0NR+kPSdHyJqgrPkMQ2pgG Ldb2A0rvJqCaT9qcujQDVMw98xfUmgDhPPcv3nkGqs4w3pJnbQI31czJR2Uz kGPmVCLT3wiYy8W/vCSzAPquG2xRjUBIK+weuj4LEVkaPcOmjYD8udL83WsW Yj7w6QYLN4IbfUXV/fpZiOVTDL+43ADYFYUSdro5YH3I+rcmrwEIzxuye9Xm QPF2hbeySwMgkWopIYFz0JDKeKbyWgO4tXTEaHXNwWpKzYMLlHh/oB3OdHwe yJXo6SOb6oEgNhDYem8elo/9EKAIqgfk4UOfjxHzcGSwue25Tj24fRpzUxma h3t2BsoDnPWAoU8cqE8tgEPShUO10TogLM1Z1ZoswE7J4OvmxDpAeKyfeCYu gObEuIPeszpwU197cH12AV79oqjZlqjD9wcHbZJzi/BgXNTg11YtEDL3bqFW iyBnqa3jWlYLyIjbjddZixC/I7HwzKMW3JiIVy6vL4KiDWrnqlyL7yM+ktv/ /YNPJ76bFDDivQ29SL7TP9BbUVPk6q0BJCbwtF3pP/hmr16X9R3nmQ8f2QlL sBNGHfvapAYMSW75OPAugZZldMo74RpwY2fw7JVbghD3zNqalWqIEm93kzJZ AtH1gXm1omp8//rsEuK5BP/oFLh53lXDsNFdh7WEJTCY3zYH5WogOB231apb AoYH4pOZzNXAE/TbKmtmCb5c8Ut3GagCJPnbUybaZeCalhyJi6sCwwqDJ9Yi yzAgvf5N7HkVuPWffNR6axnOpFzd5r1UBVErIw9ErZaBXkiA/i1pFb4Pxul9 DFgGV22TUY3mShg+9Vh7PnMZyhsl7MO+VgLhsoCmSucycPDdLtI3qQQerdlb yWvLIPd0+H3U+UpAnqYqUR9bAYeQpwnm+xVg6P78htl/K+BLwe1S0lABbt/O X6vVXYFHeyL/ff9aAVHZK7L8TivgeTqcmvlJBb6f5lzy/LYCHxtTxLilKmB4 7JXkeMkK0Jnp91YTK4Cwd+n89b8r8ILHlZK+pxx4WHeFYw5XwJHhy4fNhHJA RErPkvCuQuTUTSpvh3IwlHc9bSi3Cv++az+tUi4HN/1rJ9FHq6BpeD47nasc omzJTnB7rgJPd82e0jKG78vVx14nrMJPo6tiYdUYDMe9Zx6sXQWNlIntyHAM CKVKRy7PrIIp0+0OA2sM72hpwmnW4CD440qvAgbIQjNxW3gNv88O1WHgxsCQ GECie2sNlE4FudLOo+DGpbmf93wN/zyX1nL8jkLURdbtowFr0H5jJc5CHcX3 954128w1+GZo+nSEHIVh069LnR1rMJjy9PhQURkQ3ujNS6ytQUfy2duPbMqA J5RzOvDoOhyVC+63Ei4DJP3v2JLUOnSfX2siTpaCYU3U0G3ddUhXoGE+HVMK bn+NB9Id1yHvgpl1zcNSiNo400v/bR08PofyLXKX4vcTUx2WJeugNJA3+WWo BIb5f7Y0/lmH/dsOI1h0CRDgaYPQ4ToETD0oNTUtAR6dczU+PBvAWaz3/Z1Q CSBW/8qnr21AjF06L8tyMRi+zyy9+WgDElZOWTAXFoPbj5eFCR4bADRebM7v iiEq/2IuMWED/O/aaN28VQxY62aGSe0GuPmxhVuxF8PwVGFq5fQGBGe33Fqc LAICwSXpFM0m6AdmZJXmFgEP29W4t8KbYLqT9LPLswiQ84SoYdVNMJYeOCOs UwSGihXf4PkmPETkMwsEi8DN0ONL5KdNOCoi5Wy7XwhRDgqf9zM2oVqOqHW3 oxCwAKpP+h2b+L7yxU8jqRAGkxo+FK9uwgU2hasGroWwh/l5cRzdgpt8T1he 6hQC52+1d45SWzBrem7f83whyC4zvunT2QJDcidVX5pC0KfudPzPcQtM452O OkwUgAtviF1o+BbwjTC4I+UFECGt82K9eAseOQpO9H0vgBIN9md3/mzBr9L5 ukvOBTBoPmCWfbAFNAJED817BbD39rsJM882xNmlanBcKgDO8IeGL65tA+JJ kvHueAHIZvHqtxlvwzjljMy7zXzQbxjTEfPYhp8x2tt0ffngMhqv5R+/DYcn HKaPFuZDxM6T2ws128B+kXQ/IDwfSpiFVFSnt6Ema1XUxiUfBoXmFVKod2Dc 6I5r2oN82JNLl6MR3gHWkZF9qWv5wHnf+qq56g6wCSS2kJ7JB9mXEjJ1z3aA MOwsRqTEz/ddu3j20w7cKjZ7LTGbBy6xeeJeGTswyr4o7dqcBxHFDucm2ndg yFiIcTgjD0o6ZQTlV3cg9Puf30rBeTA4t3cmlnUXLq/cjMu0z4M9MpSHVGoX jAaGc+ju5wEn51tOI51deLsy/lH9ah7ISl5nwxx2odO4YMWGNw/0VYmsJ8N3 IU6Mc96cHD/fpJbhTfEuXP8u2SQ8lQsRLj60fwZ3IeLcQ4lf9blQEqxCKXuw C72VPUfmUnJhMJWe7NvJPXgZa57c/TEX9qpaD7aRPTipwC34xCoXOP8E7uga 70H0Xk5MmHouyK5r4beCe9Cxu5b/SDwX9OmPrRyL3wPkzEuuMqZccOHrW7Cr 2YMBZbbZ6OUciLgSPtM1tQcTaaphVO05UHJXf+IC9T5otc/Szf/KgcFn3CNB Qvtw7e22v4J/Dux5Dg8uq+xDda9IJ7NlDnBGxvSpP9uH4WuiWypKOSCbZ9L1 y38fNiNSvBf4ckC/hb/tSMY+sMSec1klyQGXyenGZ+370LiV+5/en2yIOEiu bVrZBwEVPn/ugmx8z35WKcx6ALUUFtiVoGwYFBVDP1w8gGEVh9e5T7NhT2G5 aEb7AE4O0o66y2fj95XZeYoOB9DXK+mQyJkNsvZ2WYlhByB2KUPq5FoW6H/6 L52i+ACKaejdZhuywCVx+6fp4AFE+vzgpY7Oggi0OL5q/wBokOuazq+yoKT3 dfTpk4dg5raQcU0lCwb/wfd3yCFEejBdNziZBXuUpGEjRoeQHttr07qSCZw8 VcGI+yEEcQjSh1dnguwlr4AfcYcQshEI6JdM0FdX9DuoPgR6bCfkmnkmuJjR eBtMHYLD58tbp2UyQQ2ZvPaAnIC4mn5INKfJhAeqtSj9UQLy/nLN5WP9GfBc N+lKKR8BGc+IgHM/M+CNiU+xpRQBaVMk+ZppnwH+1hbSnDcJSBDvn+GUGxkQ 6aKS36hDQAp4+AK4WTLwvVvkorMZASH8Z+nJhf2CsmD6bCFHAlJMlpZFdu8X tEQtnu/3ISCVqZNXd5bS4W9qa7pPOAGhZseWqb3TYbEgQ0Q6hYAkndj5LM+d DgdVgcnTxQQkTue/iNzsNDjSbiPwtYmAaF3gCXyqmAbcf7QSbv4hIJGrI/de DKaC6Izkmc0FAvI27VpSl1UqXF0/GpNwQEAuu/A6x5KmghrJ5kltBhIkiv/P sfngFHhA3/edyEOCHLsTvV/CnwLP2QtP5J4nQbidyqfOFCTDG77wMJNrJIhP JGOJhFIy+Is7H2fVJEFYCdXOK79/QuQV/ZBKYxLkG7Vlmb3FT0hXusLy8iUJ 8kOCKqhjJwl/f3MHnvIgQcwok9gYfZOgyejwSEcwCdJS+iATTiTh7/dhv7fx JEgSobvEOiUR5h3LacTzSJBfu2dCsy4n4u//GO/hGhKET7nXl7UpAeiC3CkC ekmQNW7y3/H6Cfg8mHjANAni1/8t0m4hHkSSb5D+2yJBQs4+jPJ/E4/PB79b JDUpMqh8u42SMR5UKygPbnGQIqs1x7rmo+PweZl23hciRUjjOuRUJOPAsr9+ O/UyKeJMJWogXhuLz0+yvb4qKfKBm58vTS8W/FZ812kNSJF2/zzdpsUYfJ4s XxY/I0X6YsstI9xjIJVGbdniDSkCMxe9hdhj8PkSs+L4hPfzNq7uv6Kh6RTj Qv0PUiTqy2JrtkI0Pm/LFo4Z+PM954yo/RsF8zId0wLlpIh185fEBvsofP6y H/e1kyKa9EFadUxRQKcVPP5+lBS5mk7z35d7//t3Hjvj/1ZJkRite2fKAiNB 5Kn28CQZGeK++q6Uvek7Pp//PQhlJUN8JQ5sS6m+g6o72+ANPjLk2VDvYPHN CHxet++tX8Q5uS2G3+cbWH7r741TIEPIXYkfjzSH4/NbfPeODhmy+prX3p0l HPyyIzrJzMiQIjk29WD9MHyeX2tkO5Ahus2P2W4nfYXUxgetxj5kCBvH72Fs 4ws+33CLOZwMqePtqF+/+QWaxngay5PJkMt5LGTb30LxeSdRelFMhvCbkjV1 rYTA/O5oDU8TGeKjbG4bpBqCz3+VfNsgGSLuGG8g8zMY6FjjK1wXyBB4orvX SRWMXw+8ELEDMkQl0Knf9OlnEBF5Uvb3CDny8s5Q2HpbEH59UJT1P0mO7DZz b76XDgJVecGiK+fJESnT0Sae+ED8ekFzaQEhR2SdPh2vZAkES/253AgNckQx SGXb2jMAv340XVA1Jkduvkp20Vn7BH62aZm7NuTIxvt7lVNj/hDh5i+W4k6O fF++devD74+Q6meVphdMjvSXm7Nc6/aDkq/qwjTx5EjHV4237L2+0BQn/rMw lxz56WtaTxj6AIMZzGfNa8gR00IH3aV5H5gvWY1j6yVHlv6pXB4m+MBeXdep uin88fcEhWs5vIGuOzfKfoscCYptDg+XeQ+cI6HcZ6mJyAuP4Eo1Qy8QWbCP 6GEnIq4pf7N6fD1BdluXw0uIiEhdTtQ5U+oBqkSZrxcvE5EgfggQWHMHfaYT xyZUiAgzg7BHzXl3sOTa+xysT0QiyO7rEF6+AxfBP0zyz4hITIj0x+qit+B3 sezT6msiwqnXxLhL+RYirv2gj/UnIqwfdq591HOD1Ftuvpo/iEjvBWmvVhNX KLlnRE2aQUS6jcLo57jfQJOp3PtMjIjwq4gVXxtzgcEXp4lG7UREI/IIZWKm M8y/JndnHCUi9hkHegs+TrDnM0HAVoiImGSTyORTR6ALrXljRUaB9Dbzsxnr OABnTOIeNysFYnHkcPO8qj2IpHs7tZyhQGgE9Q55lV+BbJH51uuLFMhTi8B2 Mg07UK1RfnVOgQIpvLMWFmdoC/odwmuD2hRI/EbVqQ6Hl2D5l87G7wkForWg LnQhzAZcZhf+XXagQIKY97rHy1+A30bLszlvCsTU9PdbvxVriCDNmAsPo0Dy WAQT1oWsIfVIoLlyMgUS1jY93N/9HEo4bKa2iyiQr9Jpau9MnkETv5bpz0YK RCw+xcGFxBIGJSTHdAcpkDiB/kKTVAuYv3rUiGqBAvl135fYa2IOe8obf/P3 KZA+vysU1kJmQKfTq//kCCUyklgt07z3GDgeFfQfO0mJnGHtYfo4YApCVmG6 NWKUSAvlGNntGhOQcXbqsUMokc9/H6dklzwC5ff37/BpUCIY44cB/TJj0Pss 29FlRInc1r6Qu9BgBBY/uNQ9bCgRKi/PIppRQ3BKOWi+4E6JkHi0D98jM4QP +UMqY58pka1NCjmiwQMIr8Tqg+IokeaP/PT6NfqQ3Bp9Uy4XZwsSJ3q5+1A0 8K56uZoS+XVdd0iv9R40TD26Ht1DiVR9+BF985ku9K/Kl6tPUSINCGuqDKcO zB7yAWGLEinvOGF+0H8XdmgpS39RUSHJqsx120l3gIZtWuYhOxXC13HnwRdP LeA4U19wRIgKuUNtbH3DWhOEzidLlclQIWO/i7bszDRARtY355kKFZJiEpEa +UwdlBUtJbj0qRDBBd39FwdqoHfnVkaTJRVCZfsIPKRvgYWhqKjLaypEWGl0 x85XBZwsGVKF/akQDY5gV/VVJfjgsCQ4EEmF/P//h/m//D9AUldm "]]}}, {}, {}, {}, {}}, 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->{{-3.5787154531288303`, 3.0775664593230134`}, { 0, 0.366340317679894}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.8243561069818506`*^9}, CellLabel->"Out[84]=",ExpressionUUID->"7efbbfc3-9b87-41ef-8d16-1366ef7714fe"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"g3", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"PDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"0", ",", "1"}], "]"}], ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "3.5"}], ",", "3.2"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.82435611409982*^9, 3.8243561879931955`*^9}, { 3.8243562453155403`*^9, 3.824356254783188*^9}}, CellLabel->"In[89]:=",ExpressionUUID->"e71dfdde-9233-4682-9f76-a8f1867fbdb3"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwV13c8Vf8bAHAu914XRWVVIpGspCL5Ks+ptK0QZZWZkT0yMpLMCtkzZc9s MjqnkL3Cda8iKyu7jMzf/f11Xu/XeZ3nPK/P8zyfz+sjYGSrboqjo6Mro6ej +/9zpjd9bneXBTPLGimPjVUCnyrZqJZNFow78Cpm1a4E3CnNF6LWWDDdzf3a sThlULSaCxFbYMHqv3xVorNRhmR6GbG7QyyYx3Mhg0M3VUBDst4sp4YFe8Kr 0+jKpAY1AaM/Nd1YMOuM1PQ3K3dA3dopgN+ZBUuxuGLEz6UO0+qEUzN2LBi9 4Pr+0XPqwMUn5uVtzoIJnxIKZXZTB7tSe94cbRZMOqW7dnFXHY6P0N3flWHB wt1mY+7zaMLr//i/ZS8zY021Ag8WnLVgeIc6cHCeGbM3fMou/04LztRFjgVN M2PfGt+3fWvTAvJt5hWLYWZs+iKdwpSQNvDpr3CLdTBjG2InD1RStKHAu1U/ J5sZ+70q8Peu6n1or38ynfOQGXvlgtPf8dADvqAzy4f0mDGDhe5f1UV6YKc8 txGszYyttWJWfZN6wEE2YrVSYcbczx6O5burD3qTyqfELzBjrIl9FTzSBjBL EnLO5WbGVmaOnOfAPQRW1S66vA4SVsEbrmqwbgiRMxW2Fi0k7MDX5GFNbiM4 7P92SPgrCXv65vo7j3NGIFZrU/OuloTFROaX6zgbwXXxPa4xeSSs96OUmdmK EfgSby34BpMw7tRMs/kdY/iH1g3ev0bCiu9wa6bJmYGPbq4S92USNnvNolro gRkwrb2p7r1IwlzGLxOH/MyAS9IoTlWGhAkfrHbZ6jID6US6u1eFSNj5jp7Z RatHYOd6sU0KR8L8siz+buSZw4RURRXxExNWMLbl/VHfCo5n8L8e+MiEuY1U MpGCrcDkcKBhfhkT1lDIXRdbbgWj+PtMGvlMmHgpG4s7+2MYHNi4m5zIhD2p qM1TanwMvX4KS9IeTNh15TVtt0s28JnScMLoPBPGZrsSzltmB3QqkpvS0kxY ul6xXkynHSjURXcQpZiw199XfGVn7KAm/5Fz/gkm7Fl9VuQUvz1U+pLq1rmY MGOd9xX7X9lDgYSyQegKEVNL8iMX2DhAok9vZE0xEdvfExulrOYE0b2mzdIF RCylqabG3cEJwkTWtvOyidib9a3mgUgneNF18FFSChFrWiVHSg84gc3RB3Je r4nYMf+kmbuPnAHBpgfBkohJ8DjeCAxxgfHdHeE6ASKWYKd+znPbFYY0wnTl jxAxUb0dK39hN6BkCoSV8BAxJyrdRIuqG7SrKv5LZSNiPAqkL4RUNyh/G9Tq t03Ach2Wxu4ouUMgcNhdoxKw8KwXg045HiDuLfqxOYyApcdjfMvRXqCTM6kR +pKA3XAY3JdT7wXBfenzmoEELOi1dWnSshfMiB8TGvYmYL0KGXg5VW/IohwK XbUhYHf4Tlmk4n1A+AyrqaAyAePn9a3yaPQBgV/z7J4kAibWsuVwwdgX1Njz cy/jCdhDR3Dd7+ULPvJW15joCdj6OUEX5jhfGA6f9IhYx2Nnr7/99bDTF5IV hieyJ/HY4yCyXu7F58Ab211DbsBjBSkzF/uO+gH37VJzKV88tr7KVeSM8wfc 3QSTBE889nl4ts5OyB/mDXwfEtzw2C3jwJ3Ya/5Q76B274ctHsM/G8u0D/EH u/jZ64H6eOxDGuvmDe4AaJoWOjF8Ho/VZDJ5fpQNBPfAqF+hC4zYJ6Fx1dXE YDB983RkY4YROzZxsv9PfTCoJRoPmk4wYv9mYlKE5oJBuPB0n/wgI/akaLHu qEII9PS310+2MGJBYoLUwNEQkDhBSIMMRiyWw2lJUeYVDDa4GC3oMWJZZVx5 v+nDwCd76IvtPUZsZe7S4ihPGBx7dU1wUYMRKzrBRlo9FQbmmlzji7cYMRep tCN2BmGwPFpmunyeETv37kFseU0YEOhWzFc4GDGTnGn+VK9wkPzP0XazjQFz sz6aUcATAV1Hvnd6NDFg4Znd/OpnI8CR/orUVh0DtrckO5NDJQIqm/YvbVUx YCIjnLfXnkfAZe1ih50sBixxTbtOZikCtJyWnOlfMGD7v7KkFnRHgleB7VPi RQZM2ywg81ZuNGhZMF7pO8+AqUzElS41RoOkUBwpVZoBS27UySsfj4ahuC/R ChIMmCMltCSeLwYUXnAWOR9mwBYTNvzbI2JgR7f619g/HJYmkOix9DwWPElE Vawch2VmDXS3ecSDZn0C5+tiHNbRtb9XNzEeJLylfugW4DCudJwvS208/Ph7 32ItHYdtDtjJte/Ew4XhvOeSUThs7PO9Zz+eJ8BWuXploiMOi+/JbrkYmQhP TZIF3KRwWOVX/ar0jmRg39G9OSuOw1T2+fuHryZDasxB+wcncNhyRspWBt9b aGmJxK7y4TDKo0daqrZvgft0yIP9rDiM/l2WmRIpBYq3nyTlTtJjO//4wiIK U2Aq+s7BoWR6TIzz7yM3tveg0cy478oeekw6S1QkYV868P63kMxAosfcRRzp vUTTYTyHKlHPSI/tN+Bdcr6UDi4vC25c3aLD/oaPXki3T4d41Xs+13/TYQL8 pzJwPekw3Je7cLuZDsvQWcr+HJcB1qPqHZov6LALERL3o2WzYM/aJe72jV3U +7m0w4fyXNj7kmfLdXkXrU6Z2BPWQ7PAwrDQzC7afCdZMmCR5tuJOU+puygn cf7IR7E8YH+7elGichfF/J2CJFLygON6rkmI8y6qEKrJey80H3hjOIpvLu6g 7tcExf96fQBx2Umlr7+20ayG/v2a34rgfRDb35of22gm3zJO7FcRHPohm1DS s43i3rEc3bteBEzPAqdTPm+jQazoLB1fMUy0iPp7JG2jG54WfOGWxZBi8BiV uruNRr62Pm1AKAEO/6XTCfVbaENz2KXqG6Ww3bvJZZe6iappvnL7vl4OgXue rrUF/EP3FnRzrcTUwNdUq8cDCmsoZ/etYKavn6Gas0kgnm4FnZh1UjKNaACL Y2FzrNPLaOFEclSdaTO0vGxUlkpbRLuax7blq9uhWbAvcA/rHJqATy07P90F ptP/kg87T6Ec32STK9l7wNZsXeb1nzF0f5thWSG+D87XEuNqR8fQtiLrfW9Y +wDHwb012z2Gyi+e+mF7oA+iP8t8uV04hn4aZMg5KtAHn3gdVUjWY6hehnWi 1oU+2NszZ+Y3MYpGDEi9YnPog3wYi3GnjqAkifduEQN9QD6d+Kfd6yfq1TH+ gpJMhqt99HXaOj9Rb/HOGyfTyVDq+ujNiMxP9KreB+enuWR4g545vTI7hOad rFglVZJBRbnZhld3CPUhBa8Pd5Gh0Xx12lJ2EDVkf3fEnb4fKt+qDRMXB9Bf f+qHzhj0w4kr5R/CWwfQq4dH5FuM+yF64rD34cwBdMNaUkvXoh+cTk4eOWUw gCp5ruRbOvXD6WpPXa02KqrK6ap3Mbgfcsg55LQsCnqsflq7oLQfEvbg2y8Z klEezbMLiYwUKLfsbj8HZHT8GmvKPhIFuhqTOsSPkFGhKRUtnz0UIPie6+Kk 9qFBcqn1t7koYLf6qGdarQ+dJHkrxp+gwNWfLdRwpBct0PBF99+kwEJh2MQI /zc00liApBNAAea9+pPk7W703EVejCmEAkJWolOt37vRa+++7yt6TQGd41+m y2K6UQHuKLf5KArUx/2ZDWLrRhcC/Qm8aRQ4g8+fMN7pRHVW4kMApUBA1nk6 xtpW9Hl/70bkIgWkd4ZuKrq3okd3TcH4DwWGNV5E+Mm2og1JLCziqxQ4v9st jC9uQSOGsyUzNykwdddKmZDZjCq2jVvcIVDhFkNyPFN4IxpGiiNbHaLC6j3F 8RsqjehGhldINy8V3hfMnAxiaUR7rvBlSPFTYeO+7GeS/1f0oNw043dBKuQW dk0yezSgM1+NpIclqMBqwCCzx7QOLWFpas65SIXKkmwv5WN1qEWHMF0GUMGE pNb06ucXdLGMxyf+EhVqShN19+p8QQXYzbRsr1LBmuWcL5vqZ/S1XtrpJiUq HDL80arK+hl9cMMp6JUKFb6W+3KGNWNorUkdn5IaFfiMOrPYFTHUo1l+q1SD Con23cmCDp/Q6GhlPRkdKvzl5TuTNluL5npmu9XrUkGpybJB6FEtuudMa7OS PhW2+Rhnj+vVoD44q+0bD6lg0HZOTuRaFQo2iWELplQof/K8LQv7iJKyfI7d eEQFNsGuB6LyH1EOz87BOHMqYG4W/mJSlegzFvM2ESsqCJxI7JE4VI7OcFAe /7WlwkQ248v7QWUoU/1dB0l7KuRJWCv6r5eiaQ4cRg8dqHDujELZT3IJaqDY tJnrRIXN0gxr1mslaIR1cGqDMy2+LJuwXFkxupJ+4nS/C61eF4ej30QUobX3 R/+NuNLywW6oorgilFzNfPa7GxV6LxcRZ+0L0bRtQZU2dyrUhjEuBacUoNIX I4Wjn9LyybhRungwBxWPZb3Z5E0Fu7yDx2+tZ6HmCcLuPj60+hbNRKWSM9H2 X93+Us9o8WtfPtGKSEeXnyFSrr5UiP+iP/XBPg3Ns21uZXtOBaEmyfsktVTU bcgGeUvz+Z6u/2pY36FEs8XidD8q+BVd0RYnv0XVkrs+8L6gQlzNr/NDb5JQ 9di+5yE0FzQGHApXTUDt/kRKLtP85Zvo1hXWOPSeYN4HNX8qkAdbB1ebotH3 dhghk+bfU9Zo9otI1PCf19kVmun+sr3Tu/wGTS9KlJEPoILIjjGefycUXTEm s7rRfIcjq8nvSQhaXbRYWUCzu9hsyMyiP/r+QKXcD5pTESlVNUtfdIpKF0of SIXY/Cmhx40eaIZEZiUfzTNUu1zZKgcUzxpafpZmV9ZlY4KOMeqglhaI0Izd EWbv/yeIlucMSF6lGbk896x14CHsTzuZfYnmDieb/+Ld7eFicsqaDM1Pb0yU dAS4g1mPwqFjNHPu/RD9rOUZCGgd3kegeXbNsufwHX9Q3Hfnxwgtv7oRYfby /mDAGnFPy2iObx1VUjMIBQsO3UUfmit1OhWdl8OhyOKlnCLNaaonjb/IRMLd fd3au7T1CVMMecbmFg14CavbxTR7yE2/1auJhdXCNA59ms0kr3/K3o0HG+vO kl3a+qsLpv9YvZwECoxXReNpvsjDsHnF/y2cnzNzlqA50r/wZdN4CgQ7JceW 0+rr47E3l1MklbbvHTIrptV/1fnifzU30+AY3/19QjQ/tnvcbGSVDkaxKVGv aP2jbdoy+aEgE+qPRorfoPVX24N/LlpdWRBm5aoQR+u/yzoihO2lbGj5jywx SutPSVV/oVsyedBQXJ+s60WFG0+9RWKu5MNmxT8k3pMKhtmuEuN3CuBWkn5H N62/W57JHALZQsiLuJsv7kGFre8njlE1aOf4gebQ4CdUCHQQStsdKAbHjL1v w2jzxEkSEBY2KgFFdeO3obR5kzx3SMzRrhRc6uJcXB2p8DCM9cyeV+UQ/FMg dsWGVh9hUulZjgqYm0u6UWdNBbda/DmdhApYmvFZCnpMhTczO3KZ2ZVwITpa CmdJhQbFpUuXvlZBdRvON9mECmL/+u44736CnpVVp4B7VKgI/daT4I9CayPr 2V9aVDgWMSk2QsCgVCNqS/4ubT5Ex/OIrzE4cTykovcOFZq0Bgs1Ez+DhZbA SvEt2rwWdlbOV9aBiLH+qKA8rf+22v8926qDi5M/SQfkqOB/ve0/TqQe7l+K v7t5jgoHhppq5Bvroftf3sOKM1SQYPmCBfY1wIgo8mRQlAoPTEubji03wknn jetjXFSYrxdaeyDfBG7BRe2nOKjgJRR1PMmvCeymyOZO+6iQPObsy83dDL9t 9878YqHCkKHsBdYLLbDcDiaWdLT91KDqw8qLNlCdeFy4OUmB+VqxoTOdbSBF 1v3eMk4BryMJrHY87XBvOO7mmxEKJP/wsJjJaYf0TPct0ncKDOpcFPzZ2QGL 9akcSe0UKBB/eHv8ZRcMOz6f1SyigItu7KhvURdIMh/uzs6ngEJIl5sAuQtK Fzgk17Ip0DGDZBnwdwOds/kDj/e0/2cL4KlF3TB1KJ5RLIICkiJjn9rJ3+Bs R26MoCMF8oXMzlQc7QMvHZNTqScpUOUfk56j2AdHWb03BEUp8HWqiSfZvA90 u+23k4Ro522e+K5fYR9I+RhXex6mwH6ZpVZ1hAyOcUovZ5lo+V19ajr/oB82 +3f+CxntBwWzN7HH31KhRG4o93dYP3RkftqJODIEbZrlhsh3MpxSC0J4YQhO hRfpJPSRIWxdwzft4RAE/DByXuokg/rNaXxZ6hAoJZ0UCK0nQ9/MgT1k0Z/w ln2xNSyfDPPRpXtYDw/DlZLeK0VeZFilknhVTozA0Gfi+osjZMA/LD3/DcZA rab9go9KH9QWit10a52E2OeWdn76PcDQ1ixRRZqF0+fXkipMumEupvH67YOL wD0Xw7XQ2AHCs1XjTLrLcHQz80S2fQtkpF+2OuDyF+pi9pt8C/5Ku8/p6lt/ WgXZP9weWMwXCPhClOMYXgc1fYc7md6fYDzzei/T2gacN3odUV9QCa9O8XxX kt8G17yj/CQoAaSOyld3ZRsulTpXuEiUwF+tBCM5pW2oifsxtniwBPS8+GaO 629DenX8EvNKMYi3C/3b8dqGZRHmvL7cYmi2PM1d9GUb9ikSBuoOFwM+45YG 560dmN6OUvnDWASevJ6tg/d2QZEtkWXPej5ULc8qkYx2IfH0bRMncj6sNul1 SFvtwg7j+7S10nywc77QHeK5C/GVteV3HPLBpGOTLPd+F/7FX+HSmM8DJR/3 0ajfuyBq90LO9zft/rJcvSUMdMjeq8ORtzayYfDuxwM/u+kQpcZ2g4OPMkDx 0aLtAzId0uF5ui1NKQPyXE+0/RygQ3o+KNrdOJMB7glRfsNjdAifYKgEZTsd uEbsV0ZW6JCuF4+EeKLTQeWxWP/4QXpEucnaiq01DT75JsTPGNIj44TsCL9r qXA88tuqpRk9oufAxbwrmQov00kavy3pkf2Rh0TDuFNBp+kJy6wjPeJCNDy5 OvUeVvdoPp17QY/cymD41fnyPZyKYzVYzKZH1CN5Cwso7yDlg6fA6hI9onso rqLWJwW+TQdwi67SIywcoWX3rFOAQejNHr0NegTkFLbxOilgFpvx7zMOh/Bz yCrEnE2Bk886u18dwCF5NldzhDvfQpW6gO9xGRyi6ZgT1JWeDL0r9aOarjjk 7bZykJ11IhCkOikBT3FIKqe/O+0uCLKW1I4qHxxiPvAVOkQSIX5orupoEA7Z Wzg6VzyeAIaNXBGzcTiExav78V6DBJiPNb/iV41DHFfXoza04oF4gTWtZAeH lNkxx7IaxoJXzNz5SwwMSBrRUeokEgt/lzvaO4gMiD3x+20H/lgYzg5fm2Zn QOh/H0+wGIqBSm7u20cFGRARv4JAkkEMWP4RWH55nQHZuGa0f9U4GjpyZBGz MAZEZcvnxqegSFAkHOz7E8mAuC/k4eWsI6HKcMPiWRwD8kBNsblXLRIyeWoj Et8zIIyxXis2PJHg43958lspA3LWmm1YLDsCThspvwYqA3JqM4whu+sNRB40 /sFzjBFJWdeXp5MNh74kbpb7woyIwo+fokxHw4HrWJtcnBgjcrovfV6UFA4x YjIxB88yIpyqAWlV38MgXp6ofkiREWlY/mO61zcMUvRzGw+bMSIPfnr9pWSE Qt67P8V8OYyIUDh35g/2VzB3PGvEoIAR0WXitGWbfgmSOXrsb4sZkSijp3F2 n1/Ch+IGa/5qRmSnLMKu1uElFNfFiBxto8V3Zsl+2h8Clb/kkwXmGRE6421/ 6+xgqBf1CxI6g0duxxQM7FgHgnJvhYbqOTyy2KOYoasUCGSv30fc/8MjTYvM 0sNigTDdo17ceRmPXG4MZXg4FQB7vQS+u2vgkUOGxk7nTAPg/rdPEt1OeEQq wnuaz8wf5t3/dXpW4BH8STvT8ed+4Hr8ZHxWNR6JZrKl/DHzA/quhyY9KB6Z JM4lCt/yA47jTesiTXikU8k4fIXdD+Q6owV6KXgkYMLDWiblOfgJSjuKbeCR a0l4A/4GXzjYZsPVf4GAKDpkpJSceAYTMW7eepcIyOZi+8Y31mdQauw3NXKV gIjOJhC5l31AbTOualaFgNR0nYthrfWBQLEGA5whAfnuvSOcrekD64GHM0++ ICAcKlXazJzeQL7aJOvXTkC0Ro4n2fI/hbR9PSmkbwSkpcFb6/KyBzgMDpJC yQTE9dZAnWaDB+x1/vM97icBeb0cESH72AOupfH5fFgiIHOkcdxcjTuU4Zyb BjiJiPSlrdp+CzeIRAXunzYgIgRtnEvtggtIlO7qWhgREZzqQoVPmws0ZA0a vDMjIvqlpE7HbBdYDY8z2WdLRLwvh6RNGbvAPZN9dkveRGTyThYr8bsz8JLo A4reEZHjE0cfTHU7QZr6cOnpX0TkzXy8zrdhB7hw/VOFxTQR2RulXClW5wB9 8olV7+aIiFRrnUdeugMQjt/D9q0SkYhnV+zFrRzAfK2zdYnAhLx2aWvbt24P EonoaJEIEzLmxu+rddAeSn4ls595zISwW48U/l20AfIjt4JJOyaERyVW2P+j DWxMayglOTMhqiyX79n52gAyzxTI5M2EfEhGWZQ5baBj1WF3KJwJScrYE3UI rGGKeH0+pIIJmct42J/83gp4xRZaf+FIiI1obJhYhjlAXrNFApGELN1Verjs ag5GkmnEO6y09573PzIqmUP2mftXajhJyHB56UPin0dwTr6u6o0ICdlXFrrX TfERqCnFZIMKCQHt2rKSv6bg2GF/fUWdhMi/KvP502oK0WpKv3K0ad/Xv7B5 kmoKg5r0AlyGJERtf43ILQ1TsNS3ip11JCFzaJAle7kJvPp59dx7VxLiZyKV aBZqAoWGR3u1PUlIDll6atvcBNZM+9jq/EmIsaWRxjyvCRya+pDvGkJCMl6l l11bMwYFy+DbkmEk5My0W+VQtzEYzppMj0WSkM9+3jtlecbgZwMBcXEk5Mtw nVhbgDH8DyfXYcQ= "]]}, Annotation[#, "Charting`Private`Tag$58338#1"]& ]}, {}, {}}, 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->{{-3.5, 3.2}, {0., 0.39894227576830177`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.824356189934828*^9, 3.8243562562199793`*^9}, CellLabel->"Out[89]=",ExpressionUUID->"aaefb756-39f0-4928-84e4-7ae4d5bd359e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"g3", ",", "g2"}], "]"}]], "Input", CellChangeTimes->{{3.824356200517558*^9, 3.824356234404419*^9}}, CellLabel->"In[90]:=",ExpressionUUID->"a8f4a5ef-5060-43be-bf2e-f3912d05750c"], Cell[BoxData[ GraphicsBox[{{{{}, {}, TagBox[ {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwV13c8Vf8bAHAu914XRWVVIpGspCL5Ks+ptK0QZZWZkT0yMpLMCtkzZc9s MjqnkL3Cda8iKyu7jMzf/f11Xu/XeZ3nPK/P8zyfz+sjYGSrboqjo6Mro6ej +/9zpjd9bneXBTPLGimPjVUCnyrZqJZNFow78Cpm1a4E3CnNF6LWWDDdzf3a sThlULSaCxFbYMHqv3xVorNRhmR6GbG7QyyYx3Mhg0M3VUBDst4sp4YFe8Kr 0+jKpAY1AaM/Nd1YMOuM1PQ3K3dA3dopgN+ZBUuxuGLEz6UO0+qEUzN2LBi9 4Pr+0XPqwMUn5uVtzoIJnxIKZXZTB7tSe94cbRZMOqW7dnFXHY6P0N3flWHB wt1mY+7zaMLr//i/ZS8zY021Ag8WnLVgeIc6cHCeGbM3fMou/04LztRFjgVN M2PfGt+3fWvTAvJt5hWLYWZs+iKdwpSQNvDpr3CLdTBjG2InD1RStKHAu1U/ J5sZ+70q8Peu6n1or38ynfOQGXvlgtPf8dADvqAzy4f0mDGDhe5f1UV6YKc8 txGszYyttWJWfZN6wEE2YrVSYcbczx6O5burD3qTyqfELzBjrIl9FTzSBjBL EnLO5WbGVmaOnOfAPQRW1S66vA4SVsEbrmqwbgiRMxW2Fi0k7MDX5GFNbiM4 7P92SPgrCXv65vo7j3NGIFZrU/OuloTFROaX6zgbwXXxPa4xeSSs96OUmdmK EfgSby34BpMw7tRMs/kdY/iH1g3ev0bCiu9wa6bJmYGPbq4S92USNnvNolro gRkwrb2p7r1IwlzGLxOH/MyAS9IoTlWGhAkfrHbZ6jID6US6u1eFSNj5jp7Z RatHYOd6sU0KR8L8siz+buSZw4RURRXxExNWMLbl/VHfCo5n8L8e+MiEuY1U MpGCrcDkcKBhfhkT1lDIXRdbbgWj+PtMGvlMmHgpG4s7+2MYHNi4m5zIhD2p qM1TanwMvX4KS9IeTNh15TVtt0s28JnScMLoPBPGZrsSzltmB3QqkpvS0kxY ul6xXkynHSjURXcQpZiw199XfGVn7KAm/5Fz/gkm7Fl9VuQUvz1U+pLq1rmY MGOd9xX7X9lDgYSyQegKEVNL8iMX2DhAok9vZE0xEdvfExulrOYE0b2mzdIF RCylqabG3cEJwkTWtvOyidib9a3mgUgneNF18FFSChFrWiVHSg84gc3RB3Je r4nYMf+kmbuPnAHBpgfBkohJ8DjeCAxxgfHdHeE6ASKWYKd+znPbFYY0wnTl jxAxUb0dK39hN6BkCoSV8BAxJyrdRIuqG7SrKv5LZSNiPAqkL4RUNyh/G9Tq t03Ach2Wxu4ouUMgcNhdoxKw8KwXg045HiDuLfqxOYyApcdjfMvRXqCTM6kR +pKA3XAY3JdT7wXBfenzmoEELOi1dWnSshfMiB8TGvYmYL0KGXg5VW/IohwK XbUhYHf4Tlmk4n1A+AyrqaAyAePn9a3yaPQBgV/z7J4kAibWsuVwwdgX1Njz cy/jCdhDR3Dd7+ULPvJW15joCdj6OUEX5jhfGA6f9IhYx2Nnr7/99bDTF5IV hieyJ/HY4yCyXu7F58Ab211DbsBjBSkzF/uO+gH37VJzKV88tr7KVeSM8wfc 3QSTBE889nl4ts5OyB/mDXwfEtzw2C3jwJ3Ya/5Q76B274ctHsM/G8u0D/EH u/jZ64H6eOxDGuvmDe4AaJoWOjF8Ho/VZDJ5fpQNBPfAqF+hC4zYJ6Fx1dXE YDB983RkY4YROzZxsv9PfTCoJRoPmk4wYv9mYlKE5oJBuPB0n/wgI/akaLHu qEII9PS310+2MGJBYoLUwNEQkDhBSIMMRiyWw2lJUeYVDDa4GC3oMWJZZVx5 v+nDwCd76IvtPUZsZe7S4ihPGBx7dU1wUYMRKzrBRlo9FQbmmlzji7cYMRep tCN2BmGwPFpmunyeETv37kFseU0YEOhWzFc4GDGTnGn+VK9wkPzP0XazjQFz sz6aUcATAV1Hvnd6NDFg4Znd/OpnI8CR/orUVh0DtrckO5NDJQIqm/YvbVUx YCIjnLfXnkfAZe1ih50sBixxTbtOZikCtJyWnOlfMGD7v7KkFnRHgleB7VPi RQZM2ywg81ZuNGhZMF7pO8+AqUzElS41RoOkUBwpVZoBS27UySsfj4ahuC/R ChIMmCMltCSeLwYUXnAWOR9mwBYTNvzbI2JgR7f619g/HJYmkOix9DwWPElE Vawch2VmDXS3ecSDZn0C5+tiHNbRtb9XNzEeJLylfugW4DCudJwvS208/Ph7 32ItHYdtDtjJte/Ew4XhvOeSUThs7PO9Zz+eJ8BWuXploiMOi+/JbrkYmQhP TZIF3KRwWOVX/ar0jmRg39G9OSuOw1T2+fuHryZDasxB+wcncNhyRspWBt9b aGmJxK7y4TDKo0daqrZvgft0yIP9rDiM/l2WmRIpBYq3nyTlTtJjO//4wiIK U2Aq+s7BoWR6TIzz7yM3tveg0cy478oeekw6S1QkYV868P63kMxAosfcRRzp vUTTYTyHKlHPSI/tN+Bdcr6UDi4vC25c3aLD/oaPXki3T4d41Xs+13/TYQL8 pzJwPekw3Je7cLuZDsvQWcr+HJcB1qPqHZov6LALERL3o2WzYM/aJe72jV3U +7m0w4fyXNj7kmfLdXkXrU6Z2BPWQ7PAwrDQzC7afCdZMmCR5tuJOU+puygn cf7IR7E8YH+7elGichfF/J2CJFLygON6rkmI8y6qEKrJey80H3hjOIpvLu6g 7tcExf96fQBx2Umlr7+20ayG/v2a34rgfRDb35of22gm3zJO7FcRHPohm1DS s43i3rEc3bteBEzPAqdTPm+jQazoLB1fMUy0iPp7JG2jG54WfOGWxZBi8BiV uruNRr62Pm1AKAEO/6XTCfVbaENz2KXqG6Ww3bvJZZe6iappvnL7vl4OgXue rrUF/EP3FnRzrcTUwNdUq8cDCmsoZ/etYKavn6Gas0kgnm4FnZh1UjKNaACL Y2FzrNPLaOFEclSdaTO0vGxUlkpbRLuax7blq9uhWbAvcA/rHJqATy07P90F ptP/kg87T6Ec32STK9l7wNZsXeb1nzF0f5thWSG+D87XEuNqR8fQtiLrfW9Y +wDHwb012z2Gyi+e+mF7oA+iP8t8uV04hn4aZMg5KtAHn3gdVUjWY6hehnWi 1oU+2NszZ+Y3MYpGDEi9YnPog3wYi3GnjqAkifduEQN9QD6d+Kfd6yfq1TH+ gpJMhqt99HXaOj9Rb/HOGyfTyVDq+ujNiMxP9KreB+enuWR4g545vTI7hOad rFglVZJBRbnZhld3CPUhBa8Pd5Gh0Xx12lJ2EDVkf3fEnb4fKt+qDRMXB9Bf f+qHzhj0w4kr5R/CWwfQq4dH5FuM+yF64rD34cwBdMNaUkvXoh+cTk4eOWUw gCp5ruRbOvXD6WpPXa02KqrK6ap3Mbgfcsg55LQsCnqsflq7oLQfEvbg2y8Z klEezbMLiYwUKLfsbj8HZHT8GmvKPhIFuhqTOsSPkFGhKRUtnz0UIPie6+Kk 9qFBcqn1t7koYLf6qGdarQ+dJHkrxp+gwNWfLdRwpBct0PBF99+kwEJh2MQI /zc00liApBNAAea9+pPk7W703EVejCmEAkJWolOt37vRa+++7yt6TQGd41+m y2K6UQHuKLf5KArUx/2ZDWLrRhcC/Qm8aRQ4g8+fMN7pRHVW4kMApUBA1nk6 xtpW9Hl/70bkIgWkd4ZuKrq3okd3TcH4DwWGNV5E+Mm2og1JLCziqxQ4v9st jC9uQSOGsyUzNykwdddKmZDZjCq2jVvcIVDhFkNyPFN4IxpGiiNbHaLC6j3F 8RsqjehGhldINy8V3hfMnAxiaUR7rvBlSPFTYeO+7GeS/1f0oNw043dBKuQW dk0yezSgM1+NpIclqMBqwCCzx7QOLWFpas65SIXKkmwv5WN1qEWHMF0GUMGE pNb06ucXdLGMxyf+EhVqShN19+p8QQXYzbRsr1LBmuWcL5vqZ/S1XtrpJiUq HDL80arK+hl9cMMp6JUKFb6W+3KGNWNorUkdn5IaFfiMOrPYFTHUo1l+q1SD Con23cmCDp/Q6GhlPRkdKvzl5TuTNluL5npmu9XrUkGpybJB6FEtuudMa7OS PhW2+Rhnj+vVoD44q+0bD6lg0HZOTuRaFQo2iWELplQof/K8LQv7iJKyfI7d eEQFNsGuB6LyH1EOz87BOHMqYG4W/mJSlegzFvM2ESsqCJxI7JE4VI7OcFAe /7WlwkQ248v7QWUoU/1dB0l7KuRJWCv6r5eiaQ4cRg8dqHDujELZT3IJaqDY tJnrRIXN0gxr1mslaIR1cGqDMy2+LJuwXFkxupJ+4nS/C61eF4ej30QUobX3 R/+NuNLywW6oorgilFzNfPa7GxV6LxcRZ+0L0bRtQZU2dyrUhjEuBacUoNIX I4Wjn9LyybhRungwBxWPZb3Z5E0Fu7yDx2+tZ6HmCcLuPj60+hbNRKWSM9H2 X93+Us9o8WtfPtGKSEeXnyFSrr5UiP+iP/XBPg3Ns21uZXtOBaEmyfsktVTU bcgGeUvz+Z6u/2pY36FEs8XidD8q+BVd0RYnv0XVkrs+8L6gQlzNr/NDb5JQ 9di+5yE0FzQGHApXTUDt/kRKLtP85Zvo1hXWOPSeYN4HNX8qkAdbB1ebotH3 dhghk+bfU9Zo9otI1PCf19kVmun+sr3Tu/wGTS9KlJEPoILIjjGefycUXTEm s7rRfIcjq8nvSQhaXbRYWUCzu9hsyMyiP/r+QKXcD5pTESlVNUtfdIpKF0of SIXY/Cmhx40eaIZEZiUfzTNUu1zZKgcUzxpafpZmV9ZlY4KOMeqglhaI0Izd EWbv/yeIlucMSF6lGbk896x14CHsTzuZfYnmDieb/+Ld7eFicsqaDM1Pb0yU dAS4g1mPwqFjNHPu/RD9rOUZCGgd3kegeXbNsufwHX9Q3Hfnxwgtv7oRYfby /mDAGnFPy2iObx1VUjMIBQsO3UUfmit1OhWdl8OhyOKlnCLNaaonjb/IRMLd fd3au7T1CVMMecbmFg14CavbxTR7yE2/1auJhdXCNA59ms0kr3/K3o0HG+vO kl3a+qsLpv9YvZwECoxXReNpvsjDsHnF/y2cnzNzlqA50r/wZdN4CgQ7JceW 0+rr47E3l1MklbbvHTIrptV/1fnifzU30+AY3/19QjQ/tnvcbGSVDkaxKVGv aP2jbdoy+aEgE+qPRorfoPVX24N/LlpdWRBm5aoQR+u/yzoihO2lbGj5jywx SutPSVV/oVsyedBQXJ+s60WFG0+9RWKu5MNmxT8k3pMKhtmuEuN3CuBWkn5H N62/W57JHALZQsiLuJsv7kGFre8njlE1aOf4gebQ4CdUCHQQStsdKAbHjL1v w2jzxEkSEBY2KgFFdeO3obR5kzx3SMzRrhRc6uJcXB2p8DCM9cyeV+UQ/FMg dsWGVh9hUulZjgqYm0u6UWdNBbda/DmdhApYmvFZCnpMhTczO3KZ2ZVwITpa CmdJhQbFpUuXvlZBdRvON9mECmL/+u44736CnpVVp4B7VKgI/daT4I9CayPr 2V9aVDgWMSk2QsCgVCNqS/4ubT5Ex/OIrzE4cTykovcOFZq0Bgs1Ez+DhZbA SvEt2rwWdlbOV9aBiLH+qKA8rf+22v8926qDi5M/SQfkqOB/ve0/TqQe7l+K v7t5jgoHhppq5Bvroftf3sOKM1SQYPmCBfY1wIgo8mRQlAoPTEubji03wknn jetjXFSYrxdaeyDfBG7BRe2nOKjgJRR1PMmvCeymyOZO+6iQPObsy83dDL9t 9878YqHCkKHsBdYLLbDcDiaWdLT91KDqw8qLNlCdeFy4OUmB+VqxoTOdbSBF 1v3eMk4BryMJrHY87XBvOO7mmxEKJP/wsJjJaYf0TPct0ncKDOpcFPzZ2QGL 9akcSe0UKBB/eHv8ZRcMOz6f1SyigItu7KhvURdIMh/uzs6ngEJIl5sAuQtK Fzgk17Ip0DGDZBnwdwOds/kDj/e0/2cL4KlF3TB1KJ5RLIICkiJjn9rJ3+Bs R26MoCMF8oXMzlQc7QMvHZNTqScpUOUfk56j2AdHWb03BEUp8HWqiSfZvA90 u+23k4Ro522e+K5fYR9I+RhXex6mwH6ZpVZ1hAyOcUovZ5lo+V19ajr/oB82 +3f+CxntBwWzN7HH31KhRG4o93dYP3RkftqJODIEbZrlhsh3MpxSC0J4YQhO hRfpJPSRIWxdwzft4RAE/DByXuokg/rNaXxZ6hAoJZ0UCK0nQ9/MgT1k0Z/w ln2xNSyfDPPRpXtYDw/DlZLeK0VeZFilknhVTozA0Gfi+osjZMA/LD3/DcZA rab9go9KH9QWit10a52E2OeWdn76PcDQ1ixRRZqF0+fXkipMumEupvH67YOL wD0Xw7XQ2AHCs1XjTLrLcHQz80S2fQtkpF+2OuDyF+pi9pt8C/5Ku8/p6lt/ WgXZP9weWMwXCPhClOMYXgc1fYc7md6fYDzzei/T2gacN3odUV9QCa9O8XxX kt8G17yj/CQoAaSOyld3ZRsulTpXuEiUwF+tBCM5pW2oifsxtniwBPS8+GaO 629DenX8EvNKMYi3C/3b8dqGZRHmvL7cYmi2PM1d9GUb9ikSBuoOFwM+45YG 560dmN6OUvnDWASevJ6tg/d2QZEtkWXPej5ULc8qkYx2IfH0bRMncj6sNul1 SFvtwg7j+7S10nywc77QHeK5C/GVteV3HPLBpGOTLPd+F/7FX+HSmM8DJR/3 0ajfuyBq90LO9zft/rJcvSUMdMjeq8ORtzayYfDuxwM/u+kQpcZ2g4OPMkDx 0aLtAzId0uF5ui1NKQPyXE+0/RygQ3o+KNrdOJMB7glRfsNjdAifYKgEZTsd uEbsV0ZW6JCuF4+EeKLTQeWxWP/4QXpEucnaiq01DT75JsTPGNIj44TsCL9r qXA88tuqpRk9oufAxbwrmQov00kavy3pkf2Rh0TDuFNBp+kJy6wjPeJCNDy5 OvUeVvdoPp17QY/cymD41fnyPZyKYzVYzKZH1CN5Cwso7yDlg6fA6hI9onso rqLWJwW+TQdwi67SIywcoWX3rFOAQejNHr0NegTkFLbxOilgFpvx7zMOh/Bz yCrEnE2Bk886u18dwCF5NldzhDvfQpW6gO9xGRyi6ZgT1JWeDL0r9aOarjjk 7bZykJ11IhCkOikBT3FIKqe/O+0uCLKW1I4qHxxiPvAVOkQSIX5orupoEA7Z Wzg6VzyeAIaNXBGzcTiExav78V6DBJiPNb/iV41DHFfXoza04oF4gTWtZAeH lNkxx7IaxoJXzNz5SwwMSBrRUeokEgt/lzvaO4gMiD3x+20H/lgYzg5fm2Zn QOh/H0+wGIqBSm7u20cFGRARv4JAkkEMWP4RWH55nQHZuGa0f9U4GjpyZBGz MAZEZcvnxqegSFAkHOz7E8mAuC/k4eWsI6HKcMPiWRwD8kBNsblXLRIyeWoj Et8zIIyxXis2PJHg43958lspA3LWmm1YLDsCThspvwYqA3JqM4whu+sNRB40 /sFzjBFJWdeXp5MNh74kbpb7woyIwo+fokxHw4HrWJtcnBgjcrovfV6UFA4x YjIxB88yIpyqAWlV38MgXp6ofkiREWlY/mO61zcMUvRzGw+bMSIPfnr9pWSE Qt67P8V8OYyIUDh35g/2VzB3PGvEoIAR0WXitGWbfgmSOXrsb4sZkSijp3F2 n1/Ch+IGa/5qRmSnLMKu1uElFNfFiBxto8V3Zsl+2h8Clb/kkwXmGRE6421/ 6+xgqBf1CxI6g0duxxQM7FgHgnJvhYbqOTyy2KOYoasUCGSv30fc/8MjTYvM 0sNigTDdo17ceRmPXG4MZXg4FQB7vQS+u2vgkUOGxk7nTAPg/rdPEt1OeEQq wnuaz8wf5t3/dXpW4BH8STvT8ed+4Hr8ZHxWNR6JZrKl/DHzA/quhyY9KB6Z JM4lCt/yA47jTesiTXikU8k4fIXdD+Q6owV6KXgkYMLDWiblOfgJSjuKbeCR a0l4A/4GXzjYZsPVf4GAKDpkpJSceAYTMW7eepcIyOZi+8Y31mdQauw3NXKV gIjOJhC5l31AbTOualaFgNR0nYthrfWBQLEGA5whAfnuvSOcrekD64GHM0++ ICAcKlXazJzeQL7aJOvXTkC0Ro4n2fI/hbR9PSmkbwSkpcFb6/KyBzgMDpJC yQTE9dZAnWaDB+x1/vM97icBeb0cESH72AOupfH5fFgiIHOkcdxcjTuU4Zyb BjiJiPSlrdp+CzeIRAXunzYgIgRtnEvtggtIlO7qWhgREZzqQoVPmws0ZA0a vDMjIvqlpE7HbBdYDY8z2WdLRLwvh6RNGbvAPZN9dkveRGTyThYr8bsz8JLo A4reEZHjE0cfTHU7QZr6cOnpX0TkzXy8zrdhB7hw/VOFxTQR2RulXClW5wB9 8olV7+aIiFRrnUdeugMQjt/D9q0SkYhnV+zFrRzAfK2zdYnAhLx2aWvbt24P EonoaJEIEzLmxu+rddAeSn4ls595zISwW48U/l20AfIjt4JJOyaERyVW2P+j DWxMayglOTMhqiyX79n52gAyzxTI5M2EfEhGWZQ5baBj1WF3KJwJScrYE3UI rGGKeH0+pIIJmct42J/83gp4xRZaf+FIiI1obJhYhjlAXrNFApGELN1Verjs ag5GkmnEO6y09573PzIqmUP2mftXajhJyHB56UPin0dwTr6u6o0ICdlXFrrX TfERqCnFZIMKCQHt2rKSv6bg2GF/fUWdhMi/KvP502oK0WpKv3K0ad/Xv7B5 kmoKg5r0AlyGJERtf43ILQ1TsNS3ip11JCFzaJAle7kJvPp59dx7VxLiZyKV aBZqAoWGR3u1PUlIDll6atvcBNZM+9jq/EmIsaWRxjyvCRya+pDvGkJCMl6l l11bMwYFy+DbkmEk5My0W+VQtzEYzppMj0WSkM9+3jtlecbgZwMBcXEk5Mtw nVhbgDH8DyfXYcQ= "]]}, Annotation[#, "Charting`Private`Tag$58338#1"]& ]}, {}, {}}, {{}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ NCache[ Rational[1, 120], 0.008333333333333333]], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJxdm3c01X/8+K9xbZkVQlRkRSSfSD3fSbKSUUgUopAikVmUEZEQiiSbrOzN +23vPUPZe2Tv8X1/z/n9/vn6x3mcx33c13Xc5/s+387Ba2ylaUpKIBAkyQiE //1uQ3Ez8GI0HUb4f1//l413TFm8Augw1Qbp5ZhLSqC56BHS40qHVX51kSov Vwa50djjZ63osD87nQqpD1VBoqcizP4BHXYhwJZVkUUNTjWMnKi7RYdF/kzd fPPnNjCXESLZrtBhQf6+XVFD6kCadZLHXIQOo0OoIyoHNWAl/mpM4Qk6zMEu 8U3CpCaMhhmcoaGlw4plY+Qb97Wg86NLgt4OLVa/KFGbd+ouVL79JpAyQ4t9 yXoxtnRXG7LtipJ3+2ixgbwZC/KvOhBr/ltEtY4Wc0UbmVxndOGzwVZ6RD4t 5ngsRW9ZWQ/cNY6LLyTQYsc5slwXS+7DyxtS2VdCabHn+ZytVxEDeCR996K/ Jy3mIeoY9a37AWids83/a0uLiTl8kH921RCu836WFjOhxVaefzvndcIILhzN KnbVosUylGslzUiN4TR1+5U2OVrsvPIqwWTVGFj2/6E8ErTYZ6Ms3sbFR0C2 fETuBS/+eLmVrX9rJrA6fq6qnJEW4+qTiOWjeAxjfaoKzARajJr/5l/01BPo bHpaZ/yPBrN++WORWcUMKrEPytl/abAo6h8Wta7mkJ3zs4mshQZDS0qlwjAL iE2qU7tTSoO9f4gVcR+xhM8RU21xqTSY3HT01SyzZ+AeQKG1/o0G05xnJ/nZ 9hxeevB13/ClwYjLw0SR09bwyEFeJ9SJBuMbN6akmbAGLctHvyfNaTDu30nf 2dJfwHXDd/f/u0eD1TiZ+L99YwOSd6L/vFfEWbwi9Ln2SzijiD3s+48GS42f uCopZQusskMjAmdpsIxK4vcaLjsgP3/wyPEYDRY6RVF+k/4VrJ3mmqwn0mAO pW6PRsjtYfy4rBnHOjV2l4k4VE3uAF2092ctxqkxXxqd9xz0jlB16GhZ3EmN pdlxZJNxO0HO6tdF2kpqjIKrJy7uP2eIm8q31s+ixiyEG16e1HOB4IGeldRo aqw1/+dasOdr8Ghdt90PoMYImjdjzhS9AdtK1s1bbtSYNdMNr/lNVzDJv+AY aUWNRUTPB3j8cIM7KZq7iw+osa0S/ZSGm29B/seL16BGjZGePinQvfYWJD8H HH66Qo0Ji5rn/Up4B2fe/3o7LEKNHUgPs5gauAOrcwuZOCc1xl1SSHLI5gHk Vgueb2mpMdSXW8brtwesGdNRdexQYcKvBkxJf3jCuLbwh1OzVJjoY3NmJ3Mv 6FJWpnv5mwoLttBJWrn0HqqumvtX1lFhVCS8xtb03pAj4c3IWkCFXdpzur4x 6Q1x/IlBJolUWJQhL5NXtQ8Ec9Sw5oZSYSOvzivx/PwAHkcmQoleVJi8DAtn VaAv2JKSs2vbUWEHPEyPrVz9wGTj1LcEEyrsDo3nT26bj3Bn9hrXphYV9u9P DXWzuT/I/zX8cfM6FSbN365g+/gTSHa48n6VoMI+NnTrU0gGwJmayNhpXips z6M9SSE/AFiLSvmkmagwkVjh+nXZQCBPH0z0IVBho6Ra9fTVgbAWvSvY/48S M9K/cvD+dhCMh3CkCg1RYuJ1VRQGg0HQ5SMt6txCiV05eN3k8fQzVL3WzWgs pcTKGWg8N/Y+Q84LewnONErsHM1kdlJAMMSZhuZYRlBiteFFIoH8IRB8L1eq 1JcSG39+7lh8WQh43OoqoHemxBJSLy706YaC7bVVmQcWlNhvlzVvnvVQMLnI XJp+jxKLlmY+afX5C9wRFIdDRUrsplmUYv6FryDPpV5++xIlxn7FjXKu+ytI MlldjzpLiWGrqk27jmFwhuhfvXQMf32DdS79J8OBdTv15jUKSszDq9HJvjYc yBca6wPXKbBrB+kpFdbfYG14VmV0nAJrT5R2SzkRAeNd1C0SXRSYLUayz1MX AV11AurulRSY/JmblUyvvkNVyc2OziwK7MU74LDki4ScjMd3zsRQYP45bVtc PZEQF+fZYxtIgT1+m8Nw1PsHBH+N0612o8Di1QkWP7iiwMOvsv+oNQWmWUhx o8o+CmzdRvUfP6TARjP0kqw6osDElmQoT40CE9B4eezruWi4Y8ZjRHmVAguQ xWgkfaJBXh/GdM7hr9+56FB6Ihouqj8wTeKkwAq6WOyirsUAn/zrqS1aCmwQ I2wYRMbA0UsR5kq7RCxbZtrAYjcGiCLFc2GzROxL2ohhmW4srJ/sfzb7m4j9 6/MvVsqLhQmW7X8y9URs2pRBi5I1Drop2Wx8C4hYx3y82uKLOKjelVobSCRi qQxXqTZa4yD3391XIl+IGDkXuekx0XiIH7PdcvEiYseino2o+MVDSO9np2Y7 Iub56uqcx2w8eDZm7XGZErGVc/ZJZYoJYIe2v3l+h4gdCJh2LickgGn2EgG9 TsR+OP1wPU5MhLuJDO4MF4jY5F0uHsFHiXDjmyjR8BQRE7l29iNPeSJc/HTr fQYTEbO4y02zxZ0EfO6W1CQkRKx6ilUl2SUJjtr7+moskWMpNJJOEv1JQHya TB8zRI6NPp+R9fvvJ6w/qP+00kKODd74XZAd/BMmNKeZrpeRY/xTn77GL/+E HgXK4M9p5JgZxz+Gh2rJUCPDf2w8ghxbachKH05OhjzRG18l/cixKNGpa/yU KZBwyoTD05kc67K03xB+lAKhx9wjui3IsaCPQq2rZSngRRPDza9HjgU6KUy/ 5kiFVwdY1CslcqwUydxtsEuFxytDp2ovkWPYFNejwbZU0J48iDsuQI7F2fez 5wingUI/11mz4+TYfKVs2R2vNJBqkf1ZQEGO6TanBJUPpwF/xX1h6g0ybKr2 +psDmXQ4lueUdm+CDBNmZKFnDEkHiuQwseQuMoz4ddFqdzEdNr4XZO5UkmG/ gwadaxR/wWRg7wWVbDLMR9BO2SnmF/R4buR+iyHDaB6fXDmx9wtqHI9emg8k w+o45XZ6hTIg75lkkexbMiwtyTY5SicDEoy0ZD9ak2Hlng3ulh4ZEHrXpuzP QzJMgeSpKpKZAV5KgYjobTIsvwdl5f2bAa+uZFS8uUqGEXTfXGSlzYTH4q3y refIsB87Y69OXsoEbb7FmpNc+PmWYgwqppmgwE6vZE1HhnE1fbr1NSgTpOhF GrFdUoxjdWeVAcsEfhKVW0xzpNjjipGogoVMOLZu3mrUT4opZ7EIh53IAooZ b42selLsrK2qSaFSFmwMJnaSFpJi3t6a7LwOWTDZVnNXK4kUE9/NCOlKyIKe qone2C+kWKvB62t/urOgpoBcb82LFPvzsbpPjpgNeamnB+VfkWL2dXU0DBez ISFK7kGIKSnW4RRicNM0G0KDjYYn7pBiSjMtGash2eDl7WYsJU+KJWuVMXDV ZsMrlx/jXhdIsf1pk5zGrWx4bF32uPcUKSZgOTFGKZwD2iZ/ps8yk2K8wmEz vw1yQEF3z8KBhBQr2qBlVg7MASnVEwt1SyTYruNIvGF1DvAjMlbswySYlnHC ON9ODhyTvLds3kqCPRj8dBgtlgsUAg4vi8pIsMBtYdY/prmwceLLOk06CfYv jnh2KCIXJhny7O9/J8GcB69yZ3TlQg9Z93aKHwn2cP10iQ59HtRsrjrvOZNg QWhR2B+FPMibYz5QfUqCLViq8yq9zYOEIXG373ok2P1z1D7RJXkQ2qlOuqhE gl12tW1e2MqD97VWHlelSbBniGCqpFQ+2Bf7U3wSIMHov1pGutjmw5Nfad5D x0mwjsHJzsbsfNCJbaI5T0mCpXOOyguu5cPNL3N+bhsEjEurnjf8YgH850vD 0D5BwAY0PIx5HQrgrKtgIG83ATvz6Nrj6uICOP5SkcWmioClp3dHfSAUAuWT JyEV2QTs9Nd4bjuFQtjU8zrOEkvAXiqyuXl/LIQptfiwR0EE7FzChfXa7kLo las6kfOWgJVxmUhLnSyCWqmx7+QvCNitby8/dZsXQb4QKc9dQwIWfDS7NDG3 CBK5eWPibxMwPgo9mnTSYvjCjJzZuErAnPlOXppRL4b3FA8TFEQJmFARvfu9 qGKw33kt8IWLgG2g4d8PlorhyWJE8hQdAUs5uZ/WK1cC6VX296y3DtE03iaV sZAS8E/NNWDqPUSzLky9PjlbAs+DV42ycg/RImJygQ+UgpqL+GOt4EOUc85q kDu0FERNrCzWbA7RBk1zyYGFUjiimvY8ROMQHaWtsStSKIPFC3M2UucP0fQ5 KTQ/qgxaTgja9x45RGkV6r8275ZBOtkTZ4eFA/TTO+61dR0U/OfiXNmbDlC+ BZJzQrkoPO8cdS9KPkA59MQ8M6kxUCvm8b7vc4CWzDQ+VJXGQDT2gd/ekwNU v5jX3sgcgyO+EQHfFQ7Qy5/57syHYbBo0x98le8A9Zm9JD3dgEGLHlvYENkB mqIRdVp9D4N0Oe3vbqP76PVzVGQnRcvBXyg4mrd8Hx18ncGublgOz5k74it+ 7KND0V+CBoLKQW2HIfnRm310nkLOuaS6HERHb6WTG+yj9smtwfNb5XCkwTcr /vI++rZU3cxUpAIWM+vzFDj2Ue5MBUcewwpoC6MsntraQ0tuPq8+HlwBGW9v oN69e2iLKDYtV1cBAebulYJ5e6gdmd5E+F4FWGuU1zYE76F5HnyTx8UrQV36 sPHpyz108dHz9SzTSjjPe6WNTnMPFWXKsDIJrwRGaueutPN7qJOhf8iZ1kpY WiroU2PYQ2tSuAPmyKqgrW9j8N/CLorwa9tlXqqCDExyJKBpF10n/ab6/FkV BCTZTIin7KL043YsHDFVYB2QMdPhs4vG3CF8S+upAnWHxYWXZrsoDTdP60na ajhvKLLCenMXJbtfYWoG1cCoaLGRy7eLmn92nnB9WQ1LYkk72uS7KLPTpsmD xGpoOz55sDm6g6Lp0gx7/dWQcXiaLKx8B007/kdA40gNBEwZUcpE7aB87+8d 1b5WA9atP2gH3uyg3O0q+mS2NaCe/4fBxWAH/ahXkq6RUAPnf5xg5ZLdQQsV HrJf7qsBxvf32Mo4dtBdZ7dfedS1sPT8C+fD7W101uSocZlMLbRpd/MQ+rbR OrX7/1Se1kLGVRa+6LxtdCgqi+/et1oI4NcQlAvZRvlMA08MN9SC9ZFP58Ze bqMx7CqSA9u1oL7RJO6huY06ns89c0OgDs7/pZHiE99GX27EbrJp1wFjjaJM DcM2mh9zmVnTvQ6W0ryuPlncQp2NmC7N/6qDtpAqOarmLVT1KtunsYE6yHhN evNnyhZ6e/ZurCRlPQSYIirKH7bQrlf3LQbF68H61pvbc2ZbaKnsG4W++/Wg frFEy+/mFhp9q5ma37MeznPt6Jzj30LD1tCtyrR6YCRe0m8h30KttsOaMrrr YWneztBqbBNN8HmXO7dXD21d2SaMFZso+7Cyvu3pBsgoWTbLjNpEBfZGxpSV GiAgTuyZpusmur9uM2v1vAFs/J69WDXYRPdKhD+MBzWApm2KXbDsJnpVPfle cl4DSOjPOF48sYn+V3vEsvJ3AzDLn33Ts72BbtZlqEvsNcCKsOk7+74NlKBv z7zD1QgdLLFebPkb6PsbHVLc0AhZu8MfCkM2UBPXOyUxDxshaIz7k57tBpr+ 7R+bn2sj2DTqf97V3EDzkbb/hiIbQTM7/EuE+AZqITP4Krq0ESS+9X27wriB nlrtiO0baARm92NRfxfX0TVHpu0P242wYnEnzrV5HZUK3GVHjzVBh2ZQEk/q OiodTMvgcqEJsmTaUss/rKM12r7X6m83QdCpI5nG5uuoxcutV+lPm8CGRjWX THEdbWg51nThfRNorvgUxvGvo7MlKzLGMU0g0V9beoO4jka+Y9GUK20C5gpi xeTYGvp6W3htoLcJVn5er3lfsYay3SAVlF7Bzw982yAQvYay9Kw/e0TXDFmO aEu96xrapiNua8LfDEFG+x0WD9ZQVp5pdgWkGWyULvfSXllD5a2MHzHrNYOm uONA6ok1VPzXn5edL5tBgj1/6NbOKirGqOD1+WMzMJOsjy32raIqTK0T+onN sDItMf0pfxUtS7KelC5vho426/nzoavoXfm1sosD+PkF6UvttqvoJ7M3X+6t 4+dHza/ZaK2i3f2v3v1iaAEbb6FtFolV9HtUDa+cUAtoWpvt5zCuokbKI+9O 3GgBCd0EEu1/K6jHN0r/G4YtwIyMEzebV1DZlPSDeucWWDl7iuZr6gr62Xvv ftaXFuhgMDwi7buCtvoZLlPmtEDW5nfmfvMVlMHhVm1nWwsEDQ0cc1ZcQZEH JyK4F/Hza9lPcJ5dQYtuH/+zRNsKmr90TpYSV9D/3tf80BRqBYkvIacfjC+j d8qNv6kotQKra+fZw4pllONiyKkxs1ZYe8wkEhW9jDrb2nHx+LRCl9rt89fc ltGnN9rJqJNbIUfqo+Tog2VUTH1DLL6xFYK5Gy+5X1lGY4E8dXOhFWwpqK+c 4VxGnXK01dyp2uDOosK16p0lVCzmtNJTjjaQ7PG48fj3Ejrx34eqXJE2YC2r UKIsWEKl2YYdTKAN1uIJakmhSyjFaYZeB8026Pp4VVPJbgndUxGkXDNtgxw7 F+1ZrSVUJlh8qsexDYINivR8JZZQL7ETNKf828D2xtYDEaYl1OzXYV53TBsk 6VnWhA/9Qz/99Ztezm8DM6HplsGIf6hrbbLqq+Y2ENh51Mut9w8NPa8nbzzW BtP1Q0OGx/+h8wmNYznbeB92fzqmaxEtJfxasWRsBzPz3qXxwEVUlqF43vts OwhIa23z315EdSmfkVJCO0xTtZKY0y2i1VsH7BPa7ZDUp0yTUr+AGjgHt/FY 4X1SDfOC1wL63C/COf893jvInRCTX0DZrTXlE6Lw/mbZ6RckCyiLcYTBbCHe H5cRyS6bR1V7zRRcO/F+Kldy3Xke7dY80m60gPf54lf+k55H6wJuUflTdsC0 V9oNx405lNEnoPiQtwOStAXVirPnUEHy0LdZsh1gxh+vvW89h66CfHG0TgcI bPA8BNE5tFMmKrTOBu+rI568nZtFg7mmmE75430Im3Vl0izawVN7kPQT702D HYiPZ9FN8VyibjXeX2R8e/P0LHrLU/+n4Ajek/v5+AzPoBGifMps+3jfRRnU +H0GPVvfIsjN3glmce7h9PdnUEZBTquLFztBwPYw5jbbDPqX/KOgrkYnTF93 TgnsnkYpX5+66/asE5JYNrM7g6bROCPhv4k+nWA5ZlNyVH0a1WQ5Gl8X3wki 2YtVOvTT6PXBK+8Gyzth/p1Fc1jDFHouulrpz59OSNWc7B54P4Uat95rrdrG +1PGf7luTKFjdtszfke7QGTlz+RD0ilU8l26vZh4F8yX3/sXjU6iQ2eljRJU uyA1sHtzzGUSpfiQ/H3uSRdYGmkQ+GUm0bz2uYvb7/BevJnKbHMCFVsWVaz/ jvcEJabknAkUtVSg1S7A+7Yq9vkXEyhdxEh7WAfeRyGnRMUm0JjVZPpP83hv XSJkPT+OniIqaJ6n6IZ5uHQh6+c4mkwU1nU42Q2pDDmX1x6Po/pNBodGl7rB ckhMXurMONr58EBjWr0bRH6lqDqMjKH/1DK9KMzx/s3Zu0WRY6iK9F/SAje8 V4s12Ls/hl5hrdTf+oL33CcfX2UfQ/XH9Awq0/F+Mfy5W88oalhzjPRoNd6X HrOv+DyKClmYvZnpx/uPQa7kGqNo8zGuK1eW8N7giLfCkVF0rNx7hI7YAyLn PgR4N46glwvdFO+y98D8HjGswXsE/ZzI58NyrgdSm95G0ymMoI9HXdblkR6w jNj/qUY2gr5xfX4wqYn3lo5ZAdgw+vFtx+lNE7y/vF7U8XoYdeNhM7J9hfe0 LypZLw+jP7PmjPXf90Bf3u8vaUtD6G6ORlzalx7Q1W5PEn86hHZdHuh/nIj7 9brC3Im/qKLk5rpXHu5DsAZpw7+oqxcbN3017iULBkr7/6Dt7lnZWx247/o1 f+3uH5REjF5NaRj3LxP3q1sH0QsMq4UH87hn+XFEWXkQ9Xkgs8W2jfus0JMt VQOoh7uw7FfyXtDV9D+vCQPoo+GaGReGXhhe9rzWU9iPJnDNf65l7wXDwNea epL96AUR0x2H07g/b/fob/pvlFWjlzJIBPdtlrbGgr/R5siIVpaLuLcy8ZyM 7UN31b19D2Vxz6AfasHdh8b7fg3Tlsd9ulbi4tdelJ72qyOHCu7VVApsWHpR c7Yjy6oauF+Qq9/42IMGTVESlrRx/1Gm34mqB8W+sISS6+NeRGLu4F03Sh2g wfPREPdNgnvv9rtQ2g+lMb4muH/KS0/p0IUu7YtKkprhnpad23elE4116Nxd scB9MqMYw7NONN4nTdTwGe6VqZDPUx2odzEHvaoV7mcO1Y8bd6AKO8bDBda4 99k0+jbYjh4v0NpKeoF7gX82J3Xa0R90M0ncNrivm3SPbW9DuVcpFDlxHn7y N/isahsqlS0vHIc/HjuSqqLzsRX1N2mK/9/nw2/0nj1814IGG6pT6OPnYX4f Pj2xb0b9tdlCAvDXgzU6ZlpZNqHjIWeDdJ/iTGPeaW/UiD4lvLmQh/88mJLu uqt2A/pi1TY2xRRn75vHvVXq0WAN6UMZY5xrpaQDkDrUPuvR3ccPcKbgv//1 Yi3aEforTkwP5xtHX0cJ1aBbuh39X+/i7EH+I+lkNWpuYdMZq45z5SqWwVqF VtwEHU3894ORjo0WUFeiDiZCJxJu4Hytg7z8oBxdFihHowBnt3L++lUMjVhP bLsu3QturkaBMe0omrZ5sSpAAud96M4qLkXt7cR3vYVxduZmr4wvRmtZUrFz Z3De3tPv/FSIhlofKLlx4mw/EDXmmI8K3BrNe8uK83rh+OqjXPTKw2SmC3Q4 v/wqQK6WjR4pD70dQobz8itL1kuZ6FifvMbPnR4gDCUbKsmno7q20mNWyzgP PJk2Z0tGN/Ldy2amcO49Y/1hPh69/tTe5/hfnDtHNpOxaPQP0+u+7U6cI68c hgp+Q3vObYgG1uMcmn+krz0InVq7QPhbhjPnI1mJNQ/0TNabjOFsnM/rP2tn NkL7DoVDw5JwprKg/dztAP7BPClU33FmLX98k+MjTNUevhMNxDloMnZ0PBTC z2/E0nriHG4ZHC37Azgf3n0R5YCzhqPc+YZYeMrVeGz+Kc53S4oYNhLBcub5 9uIDnO8dSvzjTQVBLUvVnxo94CYafXeKPwMiWl+dOiGPc0YFU69sFvR9dvKV l8JZYry5RjMHZqP+hvAJ4JxD/JBnlgd8/djtMvx65yZ1ViHhTQGUvRCqO0Lb A0iBImlocBEsUV9mPL7XDYiMRZlncgko7inK9s7jXOLrZIeVAentdZPbf7qB 54f2N4mnGNhuiie5NuNs+MRR6FU5LPFKC5mV4szroHPqbQUwa9oeo07DedT7 IodfJZxT1owyjsA5NoyF+UsVNFbTkNv54mySvEwdUw0y4rffI0448xW3kqTV QEfClGO1Gc6TjWnb+bXwJPyyFLkOzomDvssVdSBXXM27L4+z2YL5THM9XMq1 ScuQwFnw4OZIXwOQhM/ePcmD8+wR/t9jjWAxWBWrRI9zykny9sUmIEwlCJ/f 6QIey/OjddvNUGd/y79zEudz1zCMvBXiqN86SHZ2AeOmwO1ByjaYylqP0UK7 IEBH/Kruxzao3z/WIZ6C+wLpc13M7WCuj3W3huKeTY5T/Ws7XFgf9RbFP28Z HZVpm7g6YCGSvV3tGe5/a+7cjO2A5V3hSHFd3Mvcn6kU6ISo4rczvXK4D3/U B+mdwMT9PlfuHO53n9YWX+gCilky+pfHcX/fNu+/wi7IOvaY1IIE9yUu8dlX u+GzE8kvgblOCOD0DBar6oYff29IZHR1AuPrj+4pSj3wYng+g6QM939CbM62 9kDmcd473Im4vxppFHunF0x2fihSBuA+MkH9ZH8vVBD6SksdcH+YDt8e9oGe H/mEnBHuH+aLHp/og5JjSktflHCPoVyfLX5DtlAzU5k47nnq6BiWfoNoYr9T Hr4/Mb5t2/1g1w8W1Yd670hwP9I3S7HbDxNaUkOnZjqAUW7k9zu3ARj7yCQe 1tYBATEzdQfEQXC/7qY4mY97spV8J99B0PTGxGl/4P7RTsIG4x845bVdS+2F +yrSUJvQP1DvbfZj1BL3Z2g9F0/8hRajvOpQLdx7sthaRP+Fl9RU187K4H7i xKNJ/iFoD37NEMKDe4UzmsapQ8BcjfGPUHSAolYozz+2YRBfiX1Jh++r3u4c bGn3hyF7p/33cXyfrcuOZHgaOQzH6z5dIMf3XarxU5SCI8PAtGxW1B7ZDoqs iQeTp0dA6Vyn2TsPvJcX3oh7PAK0rBrmxyzw3vbXgvHPEUj3Tjbxv4338Rcm eOZHYOI+D3FOEu+78wf/io5CK8WXOREOvCfKdkW8GAWOR/2/7hy2Qd1FrFEv ZxRiY1aHjcfbgOqxfCXb5igsngok6ta3gWJoXVGP9Bi05wp/k0xvA+8a1axg lzE42464bAXh/UbbT010DPgzZjbi7PH+7N1oRtJxeOxs4yajj/c6v7+2yI+D lhrypBDB+/cGAX7vx+FvuVUPLx/e54+8V24YB9eXIsK21Hg/bepKRT8Bk6bm rkYDraDINvuq5vYEbMm59/2KbQVvxefPPYImQCpviaHraSvUOayYynVPwK22 6s6WC61A9fOVAYFtEvTvDHVG7baA4u+dO2V6k0DZP1epXNkC3tSuqi7fJ2HP 0cWg+UML1EmTycsMT4KaDIexoGYLUFm8v7x1agpMnxh8f8iO9+G0F/JMp+CA QD5lPdwM3g2fhGyTpiDeiJzvAX6/XLfDckpibgpmFcNuCTxvBirhr+xL56Yh 65W8eZtkMyje52RKt56GWwzVwTq7TeDtG0VlmT0NR+kPSdHyJqgrPkMQ2pgG Ldb2A0rvJqCaT9qcujQDVMw98xfUmgDhPPcv3nkGqs4w3pJnbQI31czJR2Uz kGPmVCLT3wiYy8W/vCSzAPquG2xRjUBIK+weuj4LEVkaPcOmjYD8udL83WsW Yj7w6QYLN4IbfUXV/fpZiOVTDL+43ADYFYUSdro5YH3I+rcmrwEIzxuye9Xm QPF2hbeySwMgkWopIYFz0JDKeKbyWgO4tXTEaHXNwWpKzYMLlHh/oB3OdHwe yJXo6SOb6oEgNhDYem8elo/9EKAIqgfk4UOfjxHzcGSwue25Tj24fRpzUxma h3t2BsoDnPWAoU8cqE8tgEPShUO10TogLM1Z1ZoswE7J4OvmxDpAeKyfeCYu gObEuIPeszpwU197cH12AV79oqjZlqjD9wcHbZJzi/BgXNTg11YtEDL3bqFW iyBnqa3jWlYLyIjbjddZixC/I7HwzKMW3JiIVy6vL4KiDWrnqlyL7yM+ktv/ /YNPJ76bFDDivQ29SL7TP9BbUVPk6q0BJCbwtF3pP/hmr16X9R3nmQ8f2QlL sBNGHfvapAYMSW75OPAugZZldMo74RpwY2fw7JVbghD3zNqalWqIEm93kzJZ AtH1gXm1omp8//rsEuK5BP/oFLh53lXDsNFdh7WEJTCY3zYH5WogOB231apb AoYH4pOZzNXAE/TbKmtmCb5c8Ut3GagCJPnbUybaZeCalhyJi6sCwwqDJ9Yi yzAgvf5N7HkVuPWffNR6axnOpFzd5r1UBVErIw9ErZaBXkiA/i1pFb4Pxul9 DFgGV22TUY3mShg+9Vh7PnMZyhsl7MO+VgLhsoCmSucycPDdLtI3qQQerdlb yWvLIPd0+H3U+UpAnqYqUR9bAYeQpwnm+xVg6P78htl/K+BLwe1S0lABbt/O X6vVXYFHeyL/ff9aAVHZK7L8TivgeTqcmvlJBb6f5lzy/LYCHxtTxLilKmB4 7JXkeMkK0Jnp91YTK4Cwd+n89b8r8ILHlZK+pxx4WHeFYw5XwJHhy4fNhHJA RErPkvCuQuTUTSpvh3IwlHc9bSi3Cv++az+tUi4HN/1rJ9FHq6BpeD47nasc omzJTnB7rgJPd82e0jKG78vVx14nrMJPo6tiYdUYDMe9Zx6sXQWNlIntyHAM CKVKRy7PrIIp0+0OA2sM72hpwmnW4CD440qvAgbIQjNxW3gNv88O1WHgxsCQ GECie2sNlE4FudLOo+DGpbmf93wN/zyX1nL8jkLURdbtowFr0H5jJc5CHcX3 954128w1+GZo+nSEHIVh069LnR1rMJjy9PhQURkQ3ujNS6ytQUfy2duPbMqA J5RzOvDoOhyVC+63Ei4DJP3v2JLUOnSfX2siTpaCYU3U0G3ddUhXoGE+HVMK bn+NB9Id1yHvgpl1zcNSiNo400v/bR08PofyLXKX4vcTUx2WJeugNJA3+WWo BIb5f7Y0/lmH/dsOI1h0CRDgaYPQ4ToETD0oNTUtAR6dczU+PBvAWaz3/Z1Q CSBW/8qnr21AjF06L8tyMRi+zyy9+WgDElZOWTAXFoPbj5eFCR4bADRebM7v iiEq/2IuMWED/O/aaN28VQxY62aGSe0GuPmxhVuxF8PwVGFq5fQGBGe33Fqc LAICwSXpFM0m6AdmZJXmFgEP29W4t8KbYLqT9LPLswiQ84SoYdVNMJYeOCOs UwSGihXf4PkmPETkMwsEi8DN0ONL5KdNOCoi5Wy7XwhRDgqf9zM2oVqOqHW3 oxCwAKpP+h2b+L7yxU8jqRAGkxo+FK9uwgU2hasGroWwh/l5cRzdgpt8T1he 6hQC52+1d45SWzBrem7f83whyC4zvunT2QJDcidVX5pC0KfudPzPcQtM452O OkwUgAtviF1o+BbwjTC4I+UFECGt82K9eAseOQpO9H0vgBIN9md3/mzBr9L5 ukvOBTBoPmCWfbAFNAJED817BbD39rsJM882xNmlanBcKgDO8IeGL65tA+JJ kvHueAHIZvHqtxlvwzjljMy7zXzQbxjTEfPYhp8x2tt0ffngMhqv5R+/DYcn HKaPFuZDxM6T2ws128B+kXQ/IDwfSpiFVFSnt6Ema1XUxiUfBoXmFVKod2Dc 6I5r2oN82JNLl6MR3gHWkZF9qWv5wHnf+qq56g6wCSS2kJ7JB9mXEjJ1z3aA MOwsRqTEz/ddu3j20w7cKjZ7LTGbBy6xeeJeGTswyr4o7dqcBxHFDucm2ndg yFiIcTgjD0o6ZQTlV3cg9Puf30rBeTA4t3cmlnUXLq/cjMu0z4M9MpSHVGoX jAaGc+ju5wEn51tOI51deLsy/lH9ah7ISl5nwxx2odO4YMWGNw/0VYmsJ8N3 IU6Mc96cHD/fpJbhTfEuXP8u2SQ8lQsRLj60fwZ3IeLcQ4lf9blQEqxCKXuw C72VPUfmUnJhMJWe7NvJPXgZa57c/TEX9qpaD7aRPTipwC34xCoXOP8E7uga 70H0Xk5MmHouyK5r4beCe9Cxu5b/SDwX9OmPrRyL3wPkzEuuMqZccOHrW7Cr 2YMBZbbZ6OUciLgSPtM1tQcTaaphVO05UHJXf+IC9T5otc/Szf/KgcFn3CNB Qvtw7e22v4J/Dux5Dg8uq+xDda9IJ7NlDnBGxvSpP9uH4WuiWypKOSCbZ9L1 y38fNiNSvBf4ckC/hb/tSMY+sMSec1klyQGXyenGZ+370LiV+5/en2yIOEiu bVrZBwEVPn/ugmx8z35WKcx6ALUUFtiVoGwYFBVDP1w8gGEVh9e5T7NhT2G5 aEb7AE4O0o66y2fj95XZeYoOB9DXK+mQyJkNsvZ2WYlhByB2KUPq5FoW6H/6 L52i+ACKaejdZhuywCVx+6fp4AFE+vzgpY7Oggi0OL5q/wBokOuazq+yoKT3 dfTpk4dg5raQcU0lCwb/wfd3yCFEejBdNziZBXuUpGEjRoeQHttr07qSCZw8 VcGI+yEEcQjSh1dnguwlr4AfcYcQshEI6JdM0FdX9DuoPgR6bCfkmnkmuJjR eBtMHYLD58tbp2UyQQ2ZvPaAnIC4mn5INKfJhAeqtSj9UQLy/nLN5WP9GfBc N+lKKR8BGc+IgHM/M+CNiU+xpRQBaVMk+ZppnwH+1hbSnDcJSBDvn+GUGxkQ 6aKS36hDQAp4+AK4WTLwvVvkorMZASH8Z+nJhf2CsmD6bCFHAlJMlpZFdu8X tEQtnu/3ISCVqZNXd5bS4W9qa7pPOAGhZseWqb3TYbEgQ0Q6hYAkndj5LM+d DgdVgcnTxQQkTue/iNzsNDjSbiPwtYmAaF3gCXyqmAbcf7QSbv4hIJGrI/de DKaC6Izkmc0FAvI27VpSl1UqXF0/GpNwQEAuu/A6x5KmghrJ5kltBhIkiv/P sfngFHhA3/edyEOCHLsTvV/CnwLP2QtP5J4nQbidyqfOFCTDG77wMJNrJIhP JGOJhFIy+Is7H2fVJEFYCdXOK79/QuQV/ZBKYxLkG7Vlmb3FT0hXusLy8iUJ 8kOCKqhjJwl/f3MHnvIgQcwok9gYfZOgyejwSEcwCdJS+iATTiTh7/dhv7fx JEgSobvEOiUR5h3LacTzSJBfu2dCsy4n4u//GO/hGhKET7nXl7UpAeiC3CkC ekmQNW7y3/H6Cfg8mHjANAni1/8t0m4hHkSSb5D+2yJBQs4+jPJ/E4/PB79b JDUpMqh8u42SMR5UKygPbnGQIqs1x7rmo+PweZl23hciRUjjOuRUJOPAsr9+ O/UyKeJMJWogXhuLz0+yvb4qKfKBm58vTS8W/FZ812kNSJF2/zzdpsUYfJ4s XxY/I0X6YsstI9xjIJVGbdniDSkCMxe9hdhj8PkSs+L4hPfzNq7uv6Kh6RTj Qv0PUiTqy2JrtkI0Pm/LFo4Z+PM954yo/RsF8zId0wLlpIh185fEBvsofP6y H/e1kyKa9EFadUxRQKcVPP5+lBS5mk7z35d7//t3Hjvj/1ZJkRite2fKAiNB 5Kn28CQZGeK++q6Uvek7Pp//PQhlJUN8JQ5sS6m+g6o72+ANPjLk2VDvYPHN CHxet++tX8Q5uS2G3+cbWH7r741TIEPIXYkfjzSH4/NbfPeODhmy+prX3p0l HPyyIzrJzMiQIjk29WD9MHyeX2tkO5Ahus2P2W4nfYXUxgetxj5kCBvH72Fs 4ws+33CLOZwMqePtqF+/+QWaxngay5PJkMt5LGTb30LxeSdRelFMhvCbkjV1 rYTA/O5oDU8TGeKjbG4bpBqCz3+VfNsgGSLuGG8g8zMY6FjjK1wXyBB4orvX SRWMXw+8ELEDMkQl0Knf9OlnEBF5Uvb3CDny8s5Q2HpbEH59UJT1P0mO7DZz b76XDgJVecGiK+fJESnT0Sae+ED8ekFzaQEhR2SdPh2vZAkES/253AgNckQx SGXb2jMAv340XVA1Jkduvkp20Vn7BH62aZm7NuTIxvt7lVNj/hDh5i+W4k6O fF++devD74+Q6meVphdMjvSXm7Nc6/aDkq/qwjTx5EjHV4237L2+0BQn/rMw lxz56WtaTxj6AIMZzGfNa8gR00IH3aV5H5gvWY1j6yVHlv6pXB4m+MBeXdep uin88fcEhWs5vIGuOzfKfoscCYptDg+XeQ+cI6HcZ6mJyAuP4Eo1Qy8QWbCP 6GEnIq4pf7N6fD1BdluXw0uIiEhdTtQ5U+oBqkSZrxcvE5EgfggQWHMHfaYT xyZUiAgzg7BHzXl3sOTa+xysT0QiyO7rEF6+AxfBP0zyz4hITIj0x+qit+B3 sezT6msiwqnXxLhL+RYirv2gj/UnIqwfdq591HOD1Ftuvpo/iEjvBWmvVhNX KLlnRE2aQUS6jcLo57jfQJOp3PtMjIjwq4gVXxtzgcEXp4lG7UREI/IIZWKm M8y/JndnHCUi9hkHegs+TrDnM0HAVoiImGSTyORTR6ALrXljRUaB9Dbzsxnr OABnTOIeNysFYnHkcPO8qj2IpHs7tZyhQGgE9Q55lV+BbJH51uuLFMhTi8B2 Mg07UK1RfnVOgQIpvLMWFmdoC/odwmuD2hRI/EbVqQ6Hl2D5l87G7wkForWg LnQhzAZcZhf+XXagQIKY97rHy1+A30bLszlvCsTU9PdbvxVriCDNmAsPo0Dy WAQT1oWsIfVIoLlyMgUS1jY93N/9HEo4bKa2iyiQr9Jpau9MnkETv5bpz0YK RCw+xcGFxBIGJSTHdAcpkDiB/kKTVAuYv3rUiGqBAvl135fYa2IOe8obf/P3 KZA+vysU1kJmQKfTq//kCCUyklgt07z3GDgeFfQfO0mJnGHtYfo4YApCVmG6 NWKUSAvlGNntGhOQcXbqsUMokc9/H6dklzwC5ff37/BpUCIY44cB/TJj0Pss 29FlRInc1r6Qu9BgBBY/uNQ9bCgRKi/PIppRQ3BKOWi+4E6JkHi0D98jM4QP +UMqY58pka1NCjmiwQMIr8Tqg+IokeaP/PT6NfqQ3Bp9Uy4XZwsSJ3q5+1A0 8K56uZoS+XVdd0iv9R40TD26Ht1DiVR9+BF985ku9K/Kl6tPUSINCGuqDKcO zB7yAWGLEinvOGF+0H8XdmgpS39RUSHJqsx120l3gIZtWuYhOxXC13HnwRdP LeA4U19wRIgKuUNtbH3DWhOEzidLlclQIWO/i7bszDRARtY355kKFZJiEpEa +UwdlBUtJbj0qRDBBd39FwdqoHfnVkaTJRVCZfsIPKRvgYWhqKjLaypEWGl0 x85XBZwsGVKF/akQDY5gV/VVJfjgsCQ4EEmF/P//h/m//D9AUldm "]]}}, {}, {}, {}, {}}}, 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->{{-3.5, 3.2}, {0., 0.39894227576830177`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.8243562105091105`*^9, 3.8243562595450654`*^9}}, CellLabel->"Out[90]=",ExpressionUUID->"e1e08260-47f8-4d5d-8960-4f7e2c09ef88"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"KolmogorovSmirnovTest", "[", RowBox[{"d1", ",", RowBox[{"NormalDistribution", "[", RowBox[{"0", ",", "1"}], "]"}], ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.8243564292426453`*^9, 3.8243564795857563`*^9}}, CellLabel->"In[93]:=",ExpressionUUID->"3283ee74-49b8-47fe-a30f-e28f3d8e43dc"], Cell[BoxData[ StyleBox[ TagBox[GridBox[{ {"\<\"\"\>", "\<\"Statistic\"\>"}, {"\<\"Kolmogorov\[Hyphen]Smirnov\"\>", "0.1627657518442729`"} }, 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.8243564576316056`*^9, 3.8243564815717697`*^9}}, CellLabel->"Out[93]=",ExpressionUUID->"ae8a449b-ff81-4124-a105-00148943e968"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.824356312858986*^9, 3.8243563133222556`*^9}, { 3.82435638940701*^9, 3.8243563901713934`*^9}},ExpressionUUID->"f215f28c-a83b-4390-b347-\ 553f6a7a2264"], Cell[BoxData[ RowBox[{ RowBox[{"\[ScriptCapitalH]", "=", RowBox[{"DistributionFitTest", "[", RowBox[{"d1", ",", "Automatic", ",", "\"\\""}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.8243565306986294`*^9, 3.8243565320188684`*^9}}, CellLabel->"In[94]:=",ExpressionUUID->"632d7a4d-203c-470e-9898-c63c1dec8ea7"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[ScriptCapitalH]", "[", RowBox[{"\"\\"", ",", "All"}], "]"}]], "Input", CellLabel->"In[95]:=",ExpressionUUID->"d9d0e85d-e9ad-4514-a82a-095ea21ad6b5"], Cell[BoxData[ StyleBox[ TagBox[GridBox[{ {"\<\"\"\>", "\<\"Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"}, {"\<\"Anderson\[Hyphen]Darling\"\>", "0.13331574203455077`", "0.990371241374883`"}, {"\<\"Baringhaus\[Hyphen]Henze\"\>", "0.005864505347785709`", "0.999997235764665`"}, {"\<\"Cram\[EAcute]r\[Hyphen]von Mises\"\>", "0.019577990224453633`", "0.9760452346216681`"}, {"\<\"Jarque\[Hyphen]Bera ALM\"\>", "0.034424719771554965`", "0.9833583981555343`"}, {"\<\"Kolmogorov\[Hyphen]Smirnov\"\>", "0.0850839532125788`", "0.9188282820141058`"}, {"\<\"Kuiper\"\>", "0.11050196554639338`", "0.9347918722627846`"}, {"\<\"Mardia Combined\"\>", "0.034424719771554965`", "0.9833583981555343`"}, {"\<\"Mardia Kurtosis\"\>", RowBox[{"-", "0.3606687318775089`"}], "0.7183471019110798`"}, {"\<\"Mardia Skewness\"\>", "0.004980789637053379`", "0.9437362390145686`"}, {"\<\"Pearson \\!\\(\\*SuperscriptBox[\\(\[Chi]\\),\\(2\\)]\\)\"\>", "2.84`", "0.7246366749552864`"}, {"\<\"Shapiro\[Hyphen]Wilk\"\>", "0.9911026545554672`", "0.9978596958070479`"}, {"\<\"Watson \\!\\(\\*SuperscriptBox[\\(U\\),\\(2\\)]\\)\"\>", "0.019565527527241566`", "0.9854574701640786`"} }, 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.8243565450591483`*^9}, CellLabel->"Out[95]=",ExpressionUUID->"93e7c71d-23ec-4df3-88f6-f9b5ea325d47"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"KolmogorovSmirnovTest", "[", RowBox[{"d1", ",", RowBox[{"ChiSquareDistribution", "[", "2", "]"}], ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.824356573105211*^9, 3.82435660065885*^9}}, CellLabel->"In[97]:=",ExpressionUUID->"586ae945-5caa-4348-9b86-ec84486bced9"], Cell[BoxData[ StyleBox[ TagBox[GridBox[{ {"\<\"\"\>", "\<\"Statistic\"\>"}, {"\<\"Kolmogorov\[Hyphen]Smirnov\"\>", "0.6204265684031361`"} }, 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.8243565840462427`*^9, 3.824356601244667*^9}}, CellLabel->"Out[97]=",ExpressionUUID->"1e2c3bd2-d6de-45ac-b09c-bbf2e5311a80"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PearsonChiSquareTest", "[", RowBox[{"d1", ",", RowBox[{"NormalDistribution", "[", RowBox[{"0", ",", "1"}], "]"}], ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.824356609970831*^9, 3.8243566434009047`*^9}, { 3.824356675860921*^9, 3.8243566967987056`*^9}}, CellLabel->"In[99]:=",ExpressionUUID->"cebe7364-791d-4aa0-854a-cbff1f515a2a"], Cell[BoxData[ StyleBox[ TagBox[GridBox[{ {"\<\"\"\>", "\<\"Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"}, {"\<\"Pearson \\!\\(\\*SuperscriptBox[\\(\[Chi]\\),\\(2\\)]\\)\"\>", "8.6`", "0.28266364107523084`"} }, 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.824356626466556*^9, 3.824356698735975*^9}, CellLabel->"Out[99]=",ExpressionUUID->"1565fc74-c859-4eac-980f-2a28d06cc958"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "\[CapitalUAcute]kol", ":", "\[IndentingNewLine]", "Ov\[EHacek]\[RHacek]te"}], ",", " ", RowBox[{ RowBox[{ "zda", " ", "dan\[AAcute]", " ", "data", " ", "mohou", " ", "poch\[AAcute]zet", " ", "z", " ", "rozd\[EHacek]len\[IAcute]", " ", "N", RowBox[{"(", RowBox[{"1", ";", "5"}], ")"}]}], ":"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"d2", "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.824356725545871*^9, 3.824356769016794*^9}, { 3.824357245954366*^9, 3.8243572953105507`*^9}}, CellLabel-> "In[102]:=",ExpressionUUID->"1e92f83f-f3f6-4b38-a20d-60a5d0cd8356"], Cell[BoxData[ RowBox[{"{", RowBox[{"5.003917318249572`", ",", RowBox[{"-", "4.932926422949633`"}], ",", "0.9909194652593827`", ",", RowBox[{"-", "0.8470884296040071`"}], ",", RowBox[{"-", "4.0994933078273`"}], ",", RowBox[{"-", "2.2993269253680317`"}], ",", "2.818130759222506`", ",", "7.214947132182987`", ",", RowBox[{"-", "2.2448720000049414`"}], ",", RowBox[{"-", "4.541197532517268`"}], ",", "4.660907304780221`", ",", RowBox[{"-", "12.31923196735567`"}], ",", RowBox[{"-", "1.9898234690129226`"}], ",", RowBox[{"-", "3.5355408515828897`"}], ",", "0.9636011251061218`", ",", RowBox[{"-", "1.3314201508718289`"}], ",", RowBox[{"-", "2.153519750885626`"}], ",", "3.7257729754712825`", ",", RowBox[{"-", "0.9282136436004964`"}], ",", "6.959126500050116`", ",", RowBox[{"-", "2.4015438462296657`"}], ",", "3.8954674532295073`", ",", "0.43948669024360076`", ",", RowBox[{"-", "1.864176384232282`"}], ",", RowBox[{"-", "5.037749345355113`"}]}], "}"}]], "Output", CellChangeTimes->{3.8243573066924467`*^9}, CellLabel-> "Out[102]=",ExpressionUUID->"98b920b1-1ffa-434b-bdd9-df3790f2123b"] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{ "\[CapitalUAcute]kol", ":", "\[IndentingNewLine]", "Ov\[EHacek]\[RHacek]te"}], ",", " ", RowBox[{ RowBox[{ "zda", " ", "dan\[AAcute]", " ", "data", " ", "mohou", " ", "poch\[AAcute]zet", " ", "z", " ", "rozd\[EHacek]len\[IAcute]", " ", SuperscriptBox["\[Chi]", "2"], RowBox[{"(", "12", ")"}]}], ":"}]}], "*)"}]], "Input", CellChangeTimes->{{3.8243573219343233`*^9, 3.8243573613708267`*^9}},ExpressionUUID->"8ea1f53b-7d73-45b2-b89d-\ 425df0d614dd"], Cell[CellGroupData[{ Cell[BoxData["d3"], "Input", CellChangeTimes->{{3.8243573697270546`*^9, 3.8243573704292345`*^9}}, CellLabel-> "In[104]:=",ExpressionUUID->"07d5d017-651d-41c8-99d5-8e7eb4ddd871"], Cell[BoxData[ RowBox[{"{", RowBox[{ "27.9093242500384`", ",", "10.235093502775499`", ",", "23.309557429345368`", ",", "19.285595015846944`", ",", "17.540295605643003`", ",", "32.10224455144293`", ",", "22.518832866579658`", ",", "17.502678189727753`", ",", "17.959658620446692`", ",", "9.86867807429958`", ",", "12.591782575328839`", ",", "18.261142508367325`", ",", "9.881468697199143`", ",", "16.765488961810316`", ",", "11.61898063438811`", ",", "31.11728809368002`", ",", "14.62148292138389`", ",", "20.108500710303275`", ",", "12.680649679997757`", ",", "24.25057553795879`", ",", "20.99870674982284`", ",", "31.817912189865716`", ",", "13.354974652787403`", ",", "10.503028747025152`", ",", "18.567976645006144`"}], "}"}]], "Output", CellChangeTimes->{3.8243574152330275`*^9}, CellLabel-> "Out[104]=",ExpressionUUID->"ada63a18-fddf-4024-8779-0409b32e9d16"] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{ "\[CapitalUAcute]kol", ":", "\[IndentingNewLine]", "Ov\[EHacek]\[RHacek]te"}], ",", " ", RowBox[{ RowBox[{ "zda", " ", "dan\[AAcute]", " ", "data", " ", "mohou", " ", "poch\[AAcute]zet", " ", "z", " ", "rozd\[EHacek]len\[IAcute]", " ", "binomick\[EAcute]ho", " ", "Bi", RowBox[{"(", RowBox[{ RowBox[{"15", ";", "0"}], ",", "6"}], ")"}]}], ":"}]}], "*)"}]], "Input", CellChangeTimes->{{3.8243574925872755`*^9, 3.824357513300169*^9}},ExpressionUUID->"b518c931-1bdb-4e2e-9cef-\ 13deaf097f4e"], Cell[CellGroupData[{ Cell[BoxData["d4"], "Input", CellChangeTimes->{{3.824357519332898*^9, 3.824357519802656*^9}}, CellLabel-> "In[106]:=",ExpressionUUID->"491270d4-b297-45b5-904f-1c4ff58893ee"], Cell[BoxData[ RowBox[{"{", RowBox[{ "9", ",", "11", ",", "8", ",", "11", ",", "7", ",", "13", ",", "5", ",", "10", ",", "13", ",", "10", ",", "10", ",", "9", ",", "10", ",", "12", ",", "13", ",", "11", ",", "8", ",", "11", ",", "12", ",", "10", ",", "11", ",", "13", ",", "11", ",", "13", ",", "10"}], "}"}]], "Output", CellChangeTimes->{3.8243575206199055`*^9}, CellLabel-> "Out[106]=",ExpressionUUID->"38f3be94-ffb5-48cd-88c3-0cdfbfcd339f"] }, Open ]] }, WindowSize->{759, 653}, WindowMargins->{{Automatic, 284}, {24, 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, 232, 5, 28, "Input",ExpressionUUID->"ad366c4c-e272-4850-8b44-fe342b8aded8"], Cell[793, 27, 352, 8, 28, "Input",ExpressionUUID->"8a2a45c1-9a18-4310-a462-1fdd1797f9c2"], Cell[CellGroupData[{ Cell[1170, 39, 411, 8, 28, "Input",ExpressionUUID->"804930b3-fc3f-4d83-b514-a524688262bc"], Cell[1584, 49, 2892, 65, 246, "Output",ExpressionUUID->"a989394c-c84f-4e6d-859d-097273481fd8"] }, Open ]], Cell[CellGroupData[{ Cell[4513, 119, 265, 4, 28, "Input",ExpressionUUID->"f9ba11f2-f7c2-4221-a714-fced23654b8b"], Cell[4781, 125, 2915, 66, 250, "Output",ExpressionUUID->"8477ec3d-7f61-477b-bca4-ec00605c010b"] }, Open ]], Cell[CellGroupData[{ Cell[7733, 196, 397, 8, 28, "Input",ExpressionUUID->"45e60faa-7033-46bd-9377-62396f716d10"], Cell[8133, 206, 349, 7, 32, "Output",ExpressionUUID->"1124b475-684b-4d2b-99fd-56cf77a712f8"] }, Open ]], Cell[CellGroupData[{ Cell[8519, 218, 232, 4, 28, "Input",ExpressionUUID->"510c13e6-9357-4962-af49-487de4547cb3"], Cell[8754, 224, 4026, 113, 246, "Output",ExpressionUUID->"ed521d53-1b54-41a7-9e03-86af66a89134"] }, Open ]], Cell[CellGroupData[{ Cell[12817, 342, 287, 5, 28, "Input",ExpressionUUID->"abe7b005-1e7c-4573-8a0e-763c75c9fb67"], Cell[13107, 349, 18294, 316, 251, "Output",ExpressionUUID->"7efbbfc3-9b87-41ef-8d16-1366ef7714fe"] }, Open ]], Cell[CellGroupData[{ Cell[31438, 670, 575, 14, 28, "Input",ExpressionUUID->"e71dfdde-9233-4682-9f76-a8f1867fbdb3"], Cell[32016, 686, 10687, 193, 245, "Output",ExpressionUUID->"aaefb756-39f0-4928-84e4-7ae4d5bd359e"] }, Open ]], Cell[CellGroupData[{ Cell[42740, 884, 227, 4, 28, "Input",ExpressionUUID->"a8f4a5ef-5060-43be-bf2e-f3912d05750c"], Cell[42970, 890, 27882, 477, 245, "Output",ExpressionUUID->"e1e08260-47f8-4d5d-8960-4f7e2c09ef88"] }, Open ]], Cell[CellGroupData[{ Cell[70889, 1372, 356, 7, 28, "Input",ExpressionUUID->"3283ee74-49b8-47fe-a30f-e28f3d8e43dc"], Cell[71248, 1381, 735, 16, 49, "Output",ExpressionUUID->"ae8a449b-ff81-4124-a105-00148943e968"] }, Open ]], Cell[71998, 1400, 204, 4, 28, "Input",ExpressionUUID->"f215f28c-a83b-4390-b347-553f6a7a2264"], Cell[72205, 1406, 353, 7, 28, "Input",ExpressionUUID->"632d7a4d-203c-470e-9898-c63c1dec8ea7"], Cell[CellGroupData[{ Cell[72583, 1417, 194, 3, 28, "Input",ExpressionUUID->"d9d0e85d-e9ad-4514-a82a-095ea21ad6b5"], Cell[72780, 1422, 1844, 38, 242, "Output",ExpressionUUID->"93e7c71d-23ec-4df3-88f6-f9b5ea325d47"] }, Open ]], Cell[CellGroupData[{ Cell[74661, 1465, 330, 6, 28, "Input",ExpressionUUID->"586ae945-5caa-4348-9b86-ec84486bced9"], Cell[74994, 1473, 733, 16, 49, "Output",ExpressionUUID->"1e2c3bd2-d6de-45ac-b09c-bbf2e5311a80"] }, Open ]], Cell[CellGroupData[{ Cell[75764, 1494, 399, 8, 28, "Input",ExpressionUUID->"cebe7364-791d-4aa0-854a-cbff1f515a2a"], Cell[76166, 1504, 802, 17, 52, "Output",ExpressionUUID->"1565fc74-c859-4eac-980f-2a28d06cc958"] }, Open ]], Cell[CellGroupData[{ Cell[77005, 1526, 709, 19, 86, "Input",ExpressionUUID->"1e92f83f-f3f6-4b38-a20d-60a5d0cd8356"], Cell[77717, 1547, 1160, 22, 71, "Output",ExpressionUUID->"98b920b1-1ffa-434b-bdd9-df3790f2123b"] }, Open ]], Cell[78892, 1572, 547, 14, 48, "Input",ExpressionUUID->"8ea1f53b-7d73-45b2-b89d-425df0d614dd"], Cell[CellGroupData[{ Cell[79464, 1590, 181, 3, 28, "Input",ExpressionUUID->"07d5d017-651d-41c8-99d5-8e7eb4ddd871"], Cell[79648, 1595, 916, 17, 71, "Output",ExpressionUUID->"ada63a18-fddf-4024-8779-0409b32e9d16"] }, Open ]], Cell[80579, 1615, 606, 17, 67, "Input",ExpressionUUID->"b518c931-1bdb-4e2e-9cef-13deaf097f4e"], Cell[CellGroupData[{ Cell[81210, 1636, 177, 3, 28, "Input",ExpressionUUID->"491270d4-b297-45b5-904f-1c4ff58893ee"], Cell[81390, 1641, 464, 9, 89, "Output",ExpressionUUID->"38f3be94-ffb5-48cd-88c3-0cdfbfcd339f"] }, Open ]] } ] *) (* End of internal cache information *)