(* 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[    176227,       3557]
NotebookOptionsPosition[    166107,       3378]
NotebookOutlinePosition[    166450,       3393]
CellTagsIndexPosition[    166407,       3390]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "v", " ", "t\[EAcute]to", " ", "lekci", " ", "se", " ", "budeme", " ", 
    "zab\[YAcute]vat", " ", "poprv\[EAcute]", " ", "parametrick\[YAcute]mi", 
    " ", "hypot\[EAcute]zami"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", "  ", 
   RowBox[{
    RowBox[{
    "Nulov\[AAcute]", " ", "a", " ", "alternativn\[IAcute]", " ", 
     "hypot\[EAcute]za", "\n", "Mnohdy", " ", "je", " ", 
     "nejlep\[SHacek]\[IAcute]m", " ", "zp\[URing]sobem", " ", 
     "anal\[YAcute]zy", " ", "a", " ", "zve\[RHacek]ejn\[EHacek]n\[IAcute]", 
     " ", "v\[YAcute]sledk\[URing]", " ", "srovn\[AAcute]vac\[IAcute]ch", " ",
      "studi\[IAcute]", " ", "pou\[ZHacek]it\[IAcute]", " ", 
     "interval\[URing]", " ", "spolehlivosti"}], ",", 
    RowBox[{
    "proto\[ZHacek]e", " ", "v\[YAcute]sledky", " ", "se", " ", "tak", " ", 
     "netv\[AAcute]\[RHacek]\[IAcute]", " ", "jako", " ", 
     "skute\[CHacek]n\[EAcute]", " ", "hodnoty", " ", "bez", " ", 
     "n\[AAcute]hodn\[EAcute]", " ", "odchylky"}], ",", 
    RowBox[{
    "ale", " ", "nejistota", " ", "v", " ", "m\[EHacek]\[RHacek]en\[EAcute]", 
     " ", "veli\[CHacek]in\[EHacek]", " ", "je", " ", "odhadnuta", " ", 
     RowBox[{"explicitn\[EHacek]", ".", "Statistick\[EAcute]"}], " ", 
     "testov\[AAcute]n\[IAcute]", " ", "hypot\[EAcute]z", " ", "je", " ", 
     "ale", " ", "st\[AAcute]le", " ", "je\[SHacek]t\[EHacek]", " ", 
     "\[SHacek]iroce", " ", "roz\[SHacek]\[IAcute]\[RHacek]eno", " ", "ve", 
     " ", "v\[EHacek]deck\[YAcute]ch", " ", "prac\[IAcute]ch", " ", "a", " ", 
     "t\[EAcute]m\[EHacek]\[RHacek]", " ", "povinn\[EAcute]", " ", "v", " ", 
     "n\[EHacek]kter\[YAcute]ch", " ", 
     RowBox[{"\[CHacek]asopisech", ".", "Je"}], " ", "proto", " ", 
     "vhodn\[EAcute]"}], ",", 
    RowBox[{
    "abychom", " ", "se", " ", "pou\[ZHacek]it\[IAcute]m", " ", 
     "takov\[YAcute]ch", " ", "test\[URing]", " ", 
     RowBox[{"zab\[YAcute]vali", ".", "V\[EHacek]t\[SHacek]ina"}], " ", 
     "statistick\[YAcute]ch", " ", "anal\[YAcute]z", " ", "zahrnuje", " ", 
     "porovn\[AAcute]n\[IAcute]", " ", "r\[URing]zn\[YAcute]ch", " ", 
     "zp\[URing]sob\[URing]", " ", "l\[EAcute]\[CHacek]by"}], ",", "metod", 
    ",", 
    RowBox[{"\[CHacek]i", " ", "skupin", " ", 
     RowBox[{
     "p\[RHacek]\[IAcute]pad\[URing]", ".", 
      "\[CapitalCHacek]\[IAcute]seln\[AAcute]"}], " ", "hodnota", " ", 
     "odpov\[IAcute]daj\[IAcute]c\[IAcute]", " ", "tomuto", " ", 
     "porovn\[AAcute]n\[IAcute]", " ", "se", " ", "naz\[YAcute]v\[AAcute]", 
     " ", 
     RowBox[{"efekt", ".", "Tvrzen\[IAcute]"}]}], ",", 
    RowBox[{"\[ZHacek]e", " ", "efekt", " ", "je", " ", "nulov\[YAcute]"}], 
    ",", 
    RowBox[{"nazveme", " ", "nulovou", " ", 
     RowBox[{"hypot\[EAcute]zou", ".", "Znamen\[AAcute]"}], " ", "to", " ", 
     "nap\[RHacek]\[IAcute]klad"}], ",", 
    RowBox[{
    "\[ZHacek]e", " ", "pr\[URing]m\[EHacek]ry", " ", 
     "b\[IAcute]lkovinn\[EAcute]ho", " ", "s\[EAcute]ra", " ", "jsou", " ", 
     "stejn\[EAcute]", " ", "pro", " ", "mu\[ZHacek]e", " ", "i", " ", 
     "\[ZHacek]eny", " ", "nebo", " ", "\[ZHacek]e", " ", "dv\[EHacek]", " ", 
     "l\[EAcute]\[CHacek]by", " ", "bolesti", " ", "hlavy", " ", "jsou", " ", 
     "stejn\[EHacek]", " ", 
     RowBox[{"efektivn\[IAcute]", ".", "Nulov\[AAcute]"}], " ", 
     "hypot\[EAcute]za", " ", "je", " ", "obvykle", " ", "opakem", " ", 
     "toho"}], ",", 
    RowBox[{
    "co", " ", "chceme", " ", "v\[YAcute]zkumem", " ", "prok\[AAcute]zat"}], 
    ",", 
    RowBox[{
    "kdy\[ZHacek]", " ", "zahajujeme", " ", "studii", " ", "a", " ", 
     "za\[CHacek]\[IAcute]n\[AAcute]me", " ", "sb\[IAcute]rat", " ", 
     RowBox[{"data", ".", "V"}], " ", "na\[SHacek]em", " ", 
     "p\[RHacek]\[IAcute]kladu", " ", "by", " ", "zkoumanou", " ", 
     "hypot\[EAcute]zou", " ", "mohla", " ", "b\[YAcute]t", " ", "existence", 
     " ", "rozd\[IAcute]lu", " ", "v", " ", "pr\[URing]m\[EHacek]ru", " ", 
     "b\[IAcute]lkovinn\[EAcute]ho", " ", "s\[EAcute]ra", " ", "mezi", " ", 
     "mu\[ZHacek]i", " ", "a", " ", 
     RowBox[{"\[ZHacek]enami", ".", "T\[EAcute]"}], " ", "se", " ", 
     "\[RHacek]\[IAcute]k\[AAcute]", " ", "alternativn\[IAcute]", " ", 
     RowBox[{"hypot\[EAcute]za", ".", "Obecn\[EHacek]"}], " ", 
     "tvrd\[IAcute]"}], ",", 
    RowBox[{"\[ZHacek]e", " ", "efekt", " ", "nen\[IAcute]", " ", 
     RowBox[{"nulov\[YAcute]", ".", "Shr\[NHacek]me"}], " ", "tedy"}], ",", 
    RowBox[{
    "\[ZHacek]e", " ", "pokud", " ", "budeme", " ", "testovat", " ", 
     "hypot\[EAcute]zy", " ", "statistick\[YAcute]mi", " ", "metodami"}], ",", 
    RowBox[{
    "mus\[IAcute]me", " ", "na", " ", "za\[CHacek]\[AAcute]tku", " ", 
     "na\[SHacek]\[IAcute]", " ", "pr\[AAcute]ce", " ", "zformulovat", " ", 
     "dv\[EHacek]", " ", 
     RowBox[{"hypot\[EAcute]zy", ":", 
      RowBox[{
      "nulovou", " ", "hypot\[EAcute]zu", " ", "a", " ", 
       "alternativn\[IAcute]", " ", 
       RowBox[{"hypot\[EAcute]zu", ".", "Alternativn\[IAcute]"}], " ", 
       "hypot\[EAcute]za", " ", "p\[RHacek]esn\[EHacek]", " ", 
       "vymezuje"}]}]}], ",", 
    RowBox[{
    "do", " ", "jak\[EAcute]", " ", "situace", " ", "se", " ", 
     "dost\[AAcute]v\[AAcute]me"}], ",", 
    RowBox[{
    "kdy\[ZHacek]", " ", "nulov\[AAcute]", " ", "hypot\[EAcute]za", " ", 
     RowBox[{"neplat\[IAcute]", ".", "Pot\[EAcute]"}]}], ",", 
    RowBox[{
    "co", " ", "zformulujeme", " ", "nulovou", " ", "hypot\[EAcute]zu", " ", 
     "a", " ", "nasb\[IAcute]r\[AAcute]me", " ", "data"}], ",", 
    RowBox[{"spo\[CHacek]teme", " ", "pravd\[EHacek]podobnost"}], ",", 
    RowBox[{
    "s", " ", "jakou", " ", "bychom", " ", "mohli", " ", "obdr\[ZHacek]et", 
     " ", "pozorovan\[AAcute]", " ", "data", " ", "nebo", " ", "data", " ", 
     "stejn\[EHacek]"}], ",", 
    RowBox[{
    "\[CHacek]i", " ", "je\[SHacek]t\[EHacek]", " ", "v\[IAcute]ce", " ", 
     "odporuj\[IAcute]c\[IAcute]", " ", "nulov\[EAcute]", " ", 
     "hypot\[EAcute]ze"}], ",", 
    RowBox[{"za", " ", "p\[RHacek]edpokladu"}], ",", 
    RowBox[{
    "\[ZHacek]e", " ", "je", " ", "nulov\[AAcute]", " ", "hypot\[EAcute]za", 
     " ", 
     RowBox[{"pravdiv\[AAcute]", ".", "Tato"}], " ", 
     "pravd\[EHacek]podobnost", " ", "se", " ", "naz\[YAcute]v\[AAcute]", " ",
      "dosa\[ZHacek]en\[AAcute]", " ", "hladina", " ", "v\[YAcute]znamnosti", 
     " ", "a", " ", "zna\[CHacek]\[IAcute]", " ", "se", " ", "p", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"p", "-", "value"}], ",", 
        RowBox[{"p", "-", "level"}]}], ")"}], ".", 
      "\[CapitalCHacek]\[IAcute]m"}], " ", "men\[SHacek]\[IAcute]", " ", "je",
      " ", "p"}], ",", 
    RowBox[{
    "t\[IAcute]m", " ", "neudr\[ZHacek]iteln\[EHacek]j\[SHacek]\[IAcute]", 
     " ", "\[CHacek]ili", " ", "m\[EAcute]n\[EHacek]", " ", 
     "d\[URing]v\[EHacek]ryhodn\[AAcute]", " ", "je", " ", "nulov\[AAcute]", 
     " ", 
     RowBox[{"hypot\[EAcute]za", ".", "Nap\[RHacek]\[IAcute]klad"}], " ", "v",
      " ", "na\[SHacek]\[IAcute]", " ", "studii", " ", "o", " ", 
     "b\[IAcute]lkovinn\[EAcute]m", " ", "s\[EAcute]ru", " ", "bychom", " ", 
     "mohli", " ", "zjistit"}], ",", 
    RowBox[{
    "\[ZHacek]e", " ", "pr\[URing]m\[EHacek]rn\[AAcute]", " ", "hladina", " ",
      "albuminu", " ", "je", " ", "u", " ", "mu\[ZHacek]\[URing]", " ", 
     "vy\[SHacek]\[SHacek]\[IAcute]", " ", "ne\[ZHacek]", " ", "u", " ", 
     "\[ZHacek]en"}], ",", 
    RowBox[{
     RowBox[{
     "p\[RHacek]i\[CHacek]em\[ZHacek]", " ", "po", " ", 
      "v\[YAcute]po\[CHacek]tu", " ", "testov\[EAcute]", " ", "statistiky", 
      " ", "bychom", " ", "dostali", " ", "\[RHacek]ekn\[EHacek]me", " ", 
      "p"}], "=", "0"}], ",", 
    RowBox[{"10.", " ", "To", " ", "by", " ", "znamenalo"}], ",", 
    RowBox[{
    "\[ZHacek]e", " ", "pokud", " ", "by", " ", "ve", " ", 
     "skute\[CHacek]nosti", " ", "byla", " ", "hladina", " ", "albuminu", " ",
      "u", " ", "obou", " ", "pohlav\[IAcute]", " ", "stejn\[AAcute]"}], ",", 
    RowBox[{
    "pak", " ", "s", " ", "10", "%", " ", "pravd\[EHacek]podobnost\[IAcute]", 
     " ", "dostaneme", " ", "rozd\[IAcute]l", " ", "stejn\[EHacek]", " ", 
     "velk\[YAcute]"}], ",", 
    RowBox[{
    "nebo", " ", "je\[SHacek]t\[EHacek]", " ", 
     "v\[EHacek]t\[SHacek]\[IAcute]", " ", "ne\[ZHacek]", " ", "ten", " ", 
     "n\[AAcute]mi", " ", 
     RowBox[{"pozorovan\[YAcute]", ".", "M\[URing]\[ZHacek]eme"}], " ", "z", 
     " ", "pozorovan\[EAcute]ho", " ", "rozd\[IAcute]lu", " ", "usoudit", " ",
      "na", " ", "to"}], ",", 
    RowBox[{
    "\[ZHacek]e", " ", "je", " ", "hladina", " ", "albuminu", " ", "u", " ", 
     "mu\[ZHacek]\[URing]", " ", "a", " ", "\[ZHacek]en", " ", 
     RowBox[{"r\[URing]zn\[AAcute]", "?", "Jak"}], " ", "velk\[EAcute]", " ", 
     "nebo", " ", "mal\[EAcute]", " ", "by", " ", "m\[EHacek]lo", " ", 
     "b\[YAcute]t", " ", "p"}], ",", 
    RowBox[{
     RowBox[{"abychom", " ", "zam\[IAcute]tli", " ", "nulovou", " ", 
      RowBox[{"hypot\[EAcute]zu", "?", "Nejprve"}], " ", "zave\[DHacek]me", 
      " ", "testovou", " ", "statistiku", " ", 
      RowBox[{"(", 
       RowBox[{"testov\[EAcute]", " ", "krit\[EAcute]rium"}], ")"}], " ", 
      "vhodnou", " ", "p\[RHacek]i", " ", 
      "ov\[EHacek]\[RHacek]ov\[AAcute]n\[IAcute]", " ", "hypot\[EAcute]z", 
      " ", "o", " ", "parametru", " ", 
      RowBox[{"polohy", ":", 
       RowBox[{"Testov\[AAcute]", " ", "statistika"}]}]}], "=", 
     RowBox[{"pozorovan\[AAcute]", " ", "hodnota"}]}], "\[Dash]", 
    RowBox[{
    "o\[CHacek]ek\[AAcute]van\[AAcute]", " ", "hodnota", " ", "\n", 
     "sm\[EHacek]rodatn\[AAcute]", " ", "chyba", " ", "pozorovan\[EAcute]", 
     " ", "hodnoty", "\n", "Testovou", " ", "statistiku", " ", 
     "vyhodnot\[IAcute]me", " ", "tak"}], ",", 
    RowBox[{
    "\[ZHacek]e", " ", "spo\[CHacek]teme", " ", "pravd\[EHacek]podobnost"}], 
    ",", 
    RowBox[{
    "\[ZHacek]e", " ", "bychom", " ", "mohli", " ", "pozorovat", " ", 
     "n\[AAcute]mi", " ", "zji\[SHacek]t\[EHacek]nou"}], ",", 
    RowBox[{
    "nebo", " ", "je\[SHacek]t\[EHacek]", " ", 
     "extr\[EAcute]mn\[EHacek]j\[SHacek]\[IAcute]", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"tj", ".", "m\[EAcute]n\[EHacek]"}], " ", 
       "pravd\[EHacek]podobnou"}], ")"}], " ", "hodnotu"}], ",", 
    RowBox[{
    "pokud", " ", "by", " ", "byla", " ", "nulov\[AAcute]", " ", 
     "hypot\[EAcute]za", " ", 
     RowBox[{"pravdiv\[AAcute]", "."}]}]}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.796625173632859*^9, 3.7966252096598554`*^9}, {
  3.7966265059190207`*^9, 
  3.7966265382613926`*^9}},ExpressionUUID->"746beb32-1be7-4057-a8eb-\
aae3f4684c8b"],

Cell[TextData[{
 "P\[RHacek]\[IAcute]klad 1.\nP\[RHacek]edpokl\[AAcute]dejme, \[ZHacek]e m\
\[AAcute]me v\[YAcute]b\[EHacek]r 216 pacient\[URing] a zm\[EHacek]nili jsme \
jejich b\[IAcute]lkovinn\[EAcute] s\[EAcute]rum.Pr\[URing]m\[EHacek]r vy\
\[SHacek]el 34, 46 g/l se sm\[EHacek]rodatnou chybou 0, 397 g/l. \nChceme ov\
\[EHacek]\[RHacek]it nulovou hypot\[EAcute]zu, \[ZHacek]e \
pr\[URing]m\[EHacek]rn\[EAcute] b\[IAcute]lkovinn\[EAcute] s\[EAcute]rum v\
\[SHacek]ech pacient\[URing] tohoto typu (popula\[CHacek]n\[IAcute] \
pr\[URing]m\[EHacek]r \[Mu])  33, 5 g/l proti alternativ\[EHacek], \[ZHacek]e \
pr\[URing]m\[EHacek]rn\[EAcute] b\[IAcute]lkovinn\[EAcute] s\[EAcute]rum se \
li\[SHacek]\[IAcute] od hodnoty 33,5 g/l \nZformulujeme tedy \
hypot\[EAcute]zy:  ",
 Cell[BoxData[GridBox[{
    {"H0", 
     RowBox[{
      RowBox[{"\[Mu]", "=", "33"}], ",", "5"}]},
    {"H1", 
     RowBox[{
      RowBox[{"\[Mu]", "\[NotEqual]", "33"}], ",", "5"}]}
   }]],ExpressionUUID->"e114f488-abdb-474b-acad-1223b08df806"],
 "\nM\[EHacek]\[RHacek]\[IAcute]me-li spojitou veli\[CHacek]inu a \
m\[AAcute]me-li dostate\[CHacek]n\[EHacek] velk\[YAcute] rozsah v\[YAcute]b\
\[EHacek]ru (v\[EHacek]t\[SHacek]\[IAcute] ne\[ZHacek] 60), \
m\[URing]\[ZHacek]eme pou\[ZHacek]\[IAcute]t norm\[AAcute]ln\[IAcute] rozd\
\[EHacek]len\[IAcute]. V\[NonBreakingSpace]takov\[EAcute]m \
p\[RHacek]\[IAcute]pad\[EHacek] se testov\[AAcute] statistika \
ozna\[CHacek]uje Z nebo U. Dostaneme tedy testovou statistiku  Z = ",
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{
     RowBox[{
     "v\[YAcute]b\[EHacek]rov\[YAcute]", " ", "pr\[URing]m\[EHacek]r"}], "-", 
     "\[Mu]"}], 
    RowBox[{"sm\[EHacek]rodatn\[AAcute]", " ", "odchylka", " ", "chyby"}]], 
   TraditionalForm]],ExpressionUUID->"9c4335fb-d145-494f-a039-034e7aa8c0d9"],
 "= ",
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{"34", ",", 
     RowBox[{"46", "-", "33"}], ",", "5"}], 
    RowBox[{"0", ",", "397"}]], TraditionalForm]],ExpressionUUID->
  "39873b13-e50a-48c2-b44b-00a6a38d9b13"],
 "= 2,418 . Toto je hodnota testov\[EAcute] statistiky. V dal\[SHacek]\
\[IAcute]m je stanoven\[AAcute] hladina \[Alpha]=0,05  \
p\[RHacek]ijet\[IAcute] alternativn\[IAcute] hypot\[EAcute]zy. K t\[EAcute]to \
hladin\[EHacek] nalezneme dv\[EHacek] mno\[ZHacek]iny : Mno\[ZHacek]inu p\
\[RHacek]ijet\[IAcute] a kritickou mno\[ZHacek]inu. Kritick\[AAcute] mno\
\[ZHacek]ina pro statistiku Z je v tomto p\[RHacek]\[IAcute]pad\[EHacek] pro \
oboustrannou hypot\[EAcute]zu a dan\[EAcute] \[Alpha] rovna \
(-\[Infinity];-1,96)\[Union](1,96;+\[Infinity]). V tomto \
p\[RHacek]\[IAcute]pad\[EHacek] tedy hodnota testov\[EAcute] statistiky le\
\[ZHacek]\[IAcute] v kritick\[EAcute]m oboru, tedy zam\[IAcute]t\[AAcute]me \
hypot\[EAcute]zu H0 a p\[RHacek]ij\[IAcute]m\[AAcute]me hypot\[EAcute]zu H1( \
v\[SHacek]imn\[EHacek]te si, \[ZHacek]e ne\[RHacek]\[IAcute]k\[AAcute]me, \
\[ZHacek]e H1 plat\[IAcute]).\nPro \[RHacek]e\[SHacek]en\[IAcute] budeme pou\
\[ZHacek]\[IAcute]vat bal\[IAcute]k procedur pod n\[AAcute]zvem Location \
Test. Tento bal\[IAcute]k obsahuje v\[SHacek]echny mo\[ZHacek]n\[EAcute] \
procedury. Jeho v\[YAcute]sledkem je u ka\[ZHacek]d\[EAcute] u\[ZHacek]it\
\[EAcute] procedury p-value. Jestli\[ZHacek]e je tato hodnota v\[EHacek]t\
\[SHacek]\[IAcute] ne\[ZHacek] nastaven\[AAcute] hladina \[Alpha], \
nem\[URing]\[ZHacek]eme H0 zam\[IAcute]tnout, v opa\[CHacek]n\[EAcute]m p\
\[RHacek]\[IAcute]pad\[EHacek] H0 zam\[IAcute]t\[AAcute]me. V na\[SHacek]em p\
\[RHacek]\[IAcute]pad\[EHacek] je       p-value=0.0156261. H0 zam\[IAcute]t\
\[AAcute]me.\n"
}], "Text",
 CellChangeTimes->{{3.796627253091589*^9, 3.7966272964890876`*^9}, {
   3.796627328854411*^9, 3.796627386908334*^9}, {3.7966275105164623`*^9, 
   3.796627535692007*^9}, {3.796627636549755*^9, 3.7966277440326676`*^9}, {
   3.796627811249357*^9, 3.7966279322411776`*^9}, {3.7966279642058835`*^9, 
   3.7966280573291645`*^9}, {3.7966281266569185`*^9, 3.796628178190319*^9}, {
   3.7966282181888742`*^9, 3.7966282484251404`*^9}, {3.796630587838235*^9, 
   3.796630859141575*^9}, {3.7966308896585193`*^9, 3.7966309326340194`*^9}, {
   3.796631616597351*^9, 3.79663165048759*^9}, {3.7966317157216334`*^9, 
   3.7966318560904293`*^9}, {3.7966319802740936`*^9, 3.7966319991892447`*^9}, 
   3.796641705592618*^9, {3.796699286473217*^9, 3.796699323189288*^9}, 
   3.7967032166419044`*^9},ExpressionUUID->"33ce42d4-4d5a-4df2-b23f-\
ddea36b8503a"],

Cell[BoxData[
 RowBox[{"<<", "HypothesisTesting`"}]], "Input",
 CellLabel->"In[61]:=",ExpressionUUID->"48f01f35-df10-42e0-83a6-a6feef72ccd1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"kontrola1", "=", 
  RowBox[{"NormalPValue", "[", 
   RowBox[{
    RowBox[{"-", "1.36"}], ",", 
    RowBox[{"TwoSided", "\[Rule]", "True"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7966319227129254`*^9, 3.7966319734195395`*^9}, 
   3.796642537785447*^9, {3.7967035375741673`*^9, 3.796703540896982*^9}},
 CellLabel->"In[64]:=",ExpressionUUID->"44a6606d-cc74-41e0-a85d-ad7eae041911"],

Cell[BoxData[
 RowBox[{"TwoSidedPValue", "\[Rule]", "0.17382992389417`"}]], "Output",
 CellChangeTimes->{3.7967033394426694`*^9, 3.796703542378728*^9},
 CellLabel->"Out[64]=",ExpressionUUID->"1b3d4cc1-a91c-4aca-bf30-d334b1a92aa0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"kontrola1", "=", 
  RowBox[{"NormalPValue", "[", 
   RowBox[{"8.715", ",", 
    RowBox[{"TwoSided", "\[Rule]", "True"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.796703450426621*^9, 3.79670345444211*^9}},
 CellLabel->"In[63]:=",ExpressionUUID->"6a7fb19f-4119-43d5-b9b8-a22d60be074f"],

Cell[BoxData[
 RowBox[{"TwoSidedPValue", "\[Rule]", "2.907586627374823`*^-18"}]], "Output",
 CellChangeTimes->{3.7967034570828695`*^9},
 CellLabel->"Out[63]=",ExpressionUUID->"77c7f7ff-6f5d-4028-886e-49e7d285e709"]
}, Open  ]],

Cell["\<\
Pojem \[OpenCurlyDoubleQuote]hladina v\[YAcute]znamnosti\
\[CloseCurlyDoubleQuote] se hojn\[EHacek] vyskytuje v\[NonBreakingSpace]medic\
\[IAcute]nsk\[YAcute]ch (i jin\[YAcute]ch) v\[YAcute]zkumn\[YAcute]ch prac\
\[IAcute]ch, tak\[ZHacek]e je nezbytn\[EAcute] p\[RHacek]esn\[EHacek] rozum\
\[EHacek]t tomu, co znamen\[AAcute], ale tak\[EAcute] tomu, co neznamen\
\[AAcute]. 
Jak jsme ji\[ZHacek] uvedli, dosa\[ZHacek]en\[AAcute] hladina \
v\[YAcute]znamnosti p je pravd\[EHacek]podobnost, \[ZHacek]e pozorujeme na\
\[SHacek]e data nebo data stejn\[EHacek] \[CHacek]i v\[IAcute]ce \
extr\[EAcute]mn\[IAcute], kdy\[ZHacek] je nulov\[AAcute] hypot\[EAcute]za \
pravdiv\[AAcute]. 
Interpretaci dosa\[ZHacek]en\[EAcute] hladiny v\[YAcute]znamnosti (p) m\
\[URing]\[ZHacek]eme uv\[EAcute]st t\[IAcute]mto p\[RHacek]\[IAcute]kladem. \
Kdy\[ZHacek] porovn\[AAcute]me dv\[EHacek] l\[EAcute]\[CHacek]by a dostaneme \
vysok\[EAcute] p, \[RHacek]ekn\[EHacek]me vy\[SHacek]\[SHacek]\[IAcute] ne\
\[ZHacek] 0,10 (neboli 10\[NonBreakingSpace]%), pak m\[URing]\[ZHacek]eme \
tvrdit, \[ZHacek]e takov\[AAcute] data, jako jsou na\[SHacek]e, bychom mohli \
dostat celkem \[CHacek]asto i v\[NonBreakingSpace]p\[RHacek]\[IAcute]pad\
\[EHacek], \[ZHacek]e plat\[IAcute] nulov\[AAcute] hypot\[EAcute]za. Nelze \
proto vylou\[CHacek]it mo\[ZHacek]nost, \[ZHacek]e nulov\[AAcute] hypot\
\[EAcute]za je pravdiv\[AAcute], tj. \[ZHacek]e ob\[EHacek] l\[EAcute]\
\[CHacek]by jsou stejn\[EHacek] efektivn\[IAcute]. 
Naopak je-li p velmi mal\[EAcute], \[RHacek]ekn\[EHacek]me men\[SHacek]\
\[IAcute] ne\[ZHacek] 0,001 (neboli 0,1\[NonBreakingSpace]%), pak se nulov\
\[AAcute] hypot\[EAcute]za zd\[AAcute] b\[YAcute]t t\[EAcute]m\[EHacek]\
\[RHacek] nemo\[ZHacek]nou, proto\[ZHacek]e na\[SHacek]e data by mohla sotva \
kdy vzniknout pouze n\[AAcute]hodou, kdyby platila nulov\[AAcute] hypot\
\[EAcute]za. M\[URing]\[ZHacek]eme tedy tvrdit se zna\[CHacek]nou \
spolehlivost\[IAcute], \[ZHacek]e nulov\[AAcute] hypot\[EAcute]za \
nen\[IAcute] pravdiv\[AAcute] a jedna l\[EAcute]\[CHacek]ba je prokazateln\
\[EHacek] lep\[SHacek]\[IAcute] ne\[ZHacek] druh\[AAcute]. 
Mezi t\[EHacek]mito dv\[EHacek]ma extr\[EAcute]my le\[ZHacek]\[IAcute] \
\[SHacek]ed\[AAcute] oblast nejistoty. Postupuje se tak, \[ZHacek]e se zvol\
\[IAcute] jist\[AAcute] mezn\[IAcute] hodnota \[Alpha], \[RHacek]\[IAcute]k\
\[AAcute] se j\[IAcute] hladina v\[YAcute]znamnosti, a pokud je p \
men\[SHacek]\[IAcute] ne\[ZHacek] tato mez, zam\[IAcute]tneme nulovou hypot\
\[EAcute]zu. Test nulov\[EAcute] hypot\[EAcute]zy tedy spo\[CHacek]\[IAcute]v\
\[AAcute] v\[NonBreakingSpace]tom, zda p p\[RHacek]ekro\[CHacek]\[IAcute], \
nebo nep\[RHacek]ekro\[CHacek]\[IAcute] zvolenou mez. Za tuto mezn\[IAcute] \
hodnotu se \[CHacek]asto bere 0,05 (neboli 5\[NonBreakingSpace]%). Jin\
\[YAcute]mi slovy - v\[YAcute]sledek, kter\[YAcute] bychom mohli za platnosti \
nulov\[EAcute] hypot\[EAcute]zy dostat m\[EAcute]n\[EHacek] ne\[ZHacek] \
jednou z\[NonBreakingSpace]dvaceti p\[RHacek]\[IAcute]pad\[URing], vede k\
\[NonBreakingSpace]zam\[IAcute]tnut\[IAcute] nulov\[EAcute] hypot\[EAcute]zy. 
Zam\[IAcute]tneme-li nulovou hypot\[EAcute]zu, p\[RHacek]ijmeme \
hypot\[EAcute]zu alternativn\[IAcute], kter\[AAcute] v\[NonBreakingSpace]na\
\[SHacek]em p\[RHacek]\[IAcute]kladu \[RHacek]\[IAcute]k\[AAcute], \[ZHacek]e \
l\[EAcute]\[CHacek]by nejsou stejn\[EHacek] \[UAcute]\[CHacek]inn\[EAcute] - \
jedna se ukazuje b\[YAcute]t prokazateln\[EHacek] lep\[SHacek]\[IAcute]. 
Je-li p men\[SHacek]\[IAcute] ne\[ZHacek] zvolen\[AAcute] hladina \
v\[YAcute]znamnosti, \[RHacek]ekn\[EHacek]me 0,05, pak v\[YAcute]sledek je \
statisticky v\[YAcute]znamn\[YAcute] (je-li men\[SHacek]\[IAcute] ne\[ZHacek] \
n\[EHacek]jak\[AAcute] ni\[ZHacek]\[SHacek]\[IAcute] hodnota, jako nap\
\[RHacek]. 0,01, pak m\[URing]\[ZHacek]eme mluvit o\[NonBreakingSpace]vysok\
\[EAcute] statistick\[EAcute] v\[YAcute]znamnosti). Pokud je naopak p v\
\[EHacek]t\[SHacek]\[IAcute] ne\[ZHacek] 0,05, \
\[RHacek]\[IAcute]k\[AAcute]me, \[ZHacek]e v\[YAcute]sledek nen\[IAcute] \
statisticky v\[YAcute]znamn\[YAcute]. 
\
\>", "Text",
 CellChangeTimes->{{3.796641561106409*^9, 3.796641586407457*^9}, {
  3.796641669330572*^9, 
  3.7966417622488246`*^9}},ExpressionUUID->"1a7d0cbb-341a-486d-aa11-\
f7408ebdf613"],

Cell["\<\
Vra\[THacek]me se znovu k\[NonBreakingSpace]situaci z\[NonBreakingSpace]p\
\[RHacek]edchoz\[IAcute]ho p\[RHacek]\[IAcute]kladu , ale tentokr\[AAcute]t \
budeme zji\[SHacek]\[THacek]ovat, zda je popula\[CHacek]n\[IAcute] \
pr\[URing]m\[EHacek]r \[Mu] v\[EHacek]t\[SHacek]\[IAcute] ne\[ZHacek] hodnota \
 33,5 g/l. \
\>", "Text",
 CellChangeTimes->{{3.7966418163734818`*^9, 3.796641822784248*^9}, {
  3.796641862287154*^9, 3.7966418830962567`*^9}, {3.796641926329747*^9, 
  3.796641948649787*^9}, {3.7966419829845304`*^9, 3.796642033125882*^9}, {
  3.7966425253507137`*^9, 
  3.7966425253516703`*^9}},ExpressionUUID->"c4307e50-0936-4a0b-bf8f-\
6980b331cf00"],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
  "v\[YAcute]sledkem", " ", "je", " ", "nejvy\[SHacek]\[SHacek]\[IAcute]", 
   " ", "mo\[ZHacek]n\[AAcute]", " ", "hladina", " ", 
   "p\[RHacek]ijet\[IAcute]", " ", "hypot\[EAcute]zy", " ", "H0"}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.796703757915727*^9, 
  3.7967037858119335`*^9}},ExpressionUUID->"005e967c-7156-49a1-8633-\
9d4e12c74a03"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"kontrola2", "=", 
  RowBox[{"NormalPValue", "[", 
   RowBox[{
    RowBox[{"-", "1.36"}], ",", 
    RowBox[{"TwoSided", "\[Rule]", "False"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7966425569426413`*^9, 3.7966425575744896`*^9}, {
  3.7966426049050612`*^9, 3.7966426059811835`*^9}, {3.7967038154181952`*^9, 
  3.7967038177238483`*^9}},
 CellLabel->"In[67]:=",ExpressionUUID->"5402d20a-f572-402a-8667-ebdd52b7748e"],

Cell[BoxData[
 RowBox[{"OneSidedPValue", "\[Rule]", "0.086914961947085`"}]], "Output",
 CellChangeTimes->{3.7967037535678263`*^9, 3.7967038194027843`*^9},
 CellLabel->"Out[67]=",ExpressionUUID->"e5ce932c-8cec-43bc-88c0-92257e528d70"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"OneSidedPValue", "\[Rule]", "0.00780303840769736`"}]], "Input",
 CellChangeTimes->{{3.796703742263407*^9, 
  3.7967037497660985`*^9}},ExpressionUUID->"c9584788-242c-4eef-b555-\
6a74ba7c2dfd"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"data1", "=", 
   RowBox[{"RandomReal", "[", 
    RowBox[{
     RowBox[{"NormalDistribution", "[", 
      RowBox[{"1", ",", "3"}], "]"}], ",", "150"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"prdat", "=", 
  RowBox[{"Mean", "[", "data1", "]"}]}]}], "Input",
 CellChangeTimes->{{3.796633100324279*^9, 3.79663310339307*^9}, {
  3.7967039528622622`*^9, 3.796703968017207*^9}},
 CellLabel->"In[71]:=",ExpressionUUID->"6f2f9fb2-64f8-4821-a0d8-a103fd6ad6b4"],

Cell[BoxData["1.3183391967949964`"], "Output",
 CellChangeTimes->{3.796703969517166*^9},
 CellLabel->"Out[72]=",ExpressionUUID->"a402d414-86e3-4fd0-8155-dea84c882852"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"LocationTest", "[", "data1", "]"}], "\[IndentingNewLine]", 
   RowBox[{"LocationTest", "[", 
    RowBox[{"data1", ",", "1"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.796632907102022*^9, 3.79663298940963*^9}, {
   3.7966330265788684`*^9, 3.796633052622352*^9}, 3.796633089014906*^9},
 CellLabel->"In[73]:=",ExpressionUUID->"b7756526-9020-42b7-a497-e6b05a7f0ccb"],

Cell[BoxData["6.943008489872395`*^-7"], "Output",
 CellChangeTimes->{3.796633054885155*^9, 3.7966331088888693`*^9, 
  3.796703929891085*^9, 3.7967039995512514`*^9},
 CellLabel->"Out[73]=",ExpressionUUID->"328504e7-928a-42f9-887e-f9cdd6e0dcf4"],

Cell[BoxData["0.21255929993800177`"], "Output",
 CellChangeTimes->{3.796633054885155*^9, 3.7966331088888693`*^9, 
  3.796703929891085*^9, 3.796703999561224*^9},
 CellLabel->"Out[74]=",ExpressionUUID->"ea2c6a24-f79a-4e04-9c7e-d2a526d3fefe"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"LocationTest", "[", 
    RowBox[{"data1", ",", "x"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0.2", ",", "1.8"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7966331217533035`*^9, 3.796633234761307*^9}, {
  3.796633324923175*^9, 3.796633328131154*^9}, {3.796633370345603*^9, 
  3.7966333725722947`*^9}},
 CellLabel->"In[75]:=",ExpressionUUID->"4440cb96-128f-4796-89e3-934ffb4a4b50"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVV3k0FV4XlcxFIhKhDIUyRCXCLiFJ5kxFqGSORIYoRUkIRQihQZnnqQil
n6nM8/RMz+whT4ZHn++vu866Z527711nn7v3Qavbejepqaio/LZRUf1/dWws
HoyJqQXCYrTjM8hKcZkmmpmfa8FNVrV26CYrNYSsFVeV1EJYsjY6jHZZ6aim
QsR0dy2u712p7TFfVpqq+aaiyF2HovB7xKccf5Wsq35+JsTWof3mobW2lytK
UUm3OMmpdRCT3qmgXL2iVP2Q4THjlzpsrA9vsPxdURKCxlXp3joYifdU1V5Z
VRr+8ovFn6ceqonFg52ia0rmBW2uh+PqoTJj37/cta4U+sqNcDq9Hvo7nurn
sFKUylw5L+l8rYdtWP1AhzpFab+08SHPvnoc8exTsy6lKPVk9nbV7W+AF5/g
ofTkDSXDT8OKTvENiF0rIDwJ/Kek9WaeviDhFyyWX6uld24DU+9kvmD2LxjY
Kr+l3tyGau4Ry4jKX+B3PrqcIkQNhdj2L7dHf4HR+eWO4TvUEI0pvS0m9hte
1P7MwuzbQfPav/NtwW/IBr1bc71Og28dPv4s//1G1+NIQ9oXNPDivHfMp+s3
1FLZpkilNFiItH1uuv4bsfGjt1vZaTHwSgscZxvxi+ylNl5Li5IIrpSghkZY
OdH/Jpynx92W3Qar/Y3QdFTtNfGkhxTbjm02pEaUNnVHyqbRo7XGN0OAsQn7
vWj5hVgZoKHuQk91tAm7k84Jdg4wQPa84ZdSlyaUS0ymGoYxgU31gKDURhMC
OpI5Xl9gwY2I1Df6tM1ILChx/ufPgoLB43vuMTcjdOWKXGcFC4y9LtCW8zbj
2QE98S65XYjPujN+UakZgwnhjbFcrBDhrk679aAZ+WHWPow8u6FEsj3+dlsL
QoUO7T2ozY4whaX0KsYW+HU+PRpzlx1Dz3yFibtbEHu1MMswlh3+Qi85xQVa
oCWkO/6OyI5ak68rpcoteBOskfDq0R4Y/GAp63jcgheDgwTFGg7YxuSpstC1
Qub3oTGdUC7wcaQNMrC04sVs6rD/Vy60hSV7budsxdyYwI8d01w4ExiesSLc
iukL2Tf3XNgHrnu3OUZUW/FA+krRAUZu/DQ4MlYU0Ipr0iz8H2J4IMD6zt+S
tg0vq3YFP6PiR9fzWL6rzG2w+DmWfVqeH6H0EcWGHFuxTM4ug7v8WN18OHNR
uA1CP8QOl07yo2nW3OCkahv4+qgMixwO4EE9t9COgDaw9fZRnlkfRN+TiO/5
NO3Ilc9QlwoQRJd0oc9V5nZkMCVLHEkXRNtAtywNZzuUNlt3O7cKov7kwXT9
w+1IvSo11C0ghFJi1qvFC+0QOJSkqVAthGi1XzelXrTD881D73yuQ9CnY2BI
39eBcnubFatNEWjlHqnSF+iAhX1YUaakKDTMte+vi3WA2XihyNBSFMqFUfMa
Ch2g+WRJW14tCilr4e5J8w6YZbTWr0eIgeWncurh9x2w25WL/3AUdQE+mu8k
OiHXkJXoPC4J+cFMkaKTnXDm96UuYJXC51MEmnqlTsRUM0WPiEshcFq5bFGr
Ewx3Tmd12khBVZdBQvl2J+K4r7kJDUmhYv/LXUNZnWBZyBWL6T2GorxPLXzH
ulCV9E9Ve00Gh5h7MqXlulAxSHAS5zuOKOsdz9XOdqF6j7anuvJx3N3ndM5J
twv6ZxQKTj4/DukHMvllLl3g4aP23OQ/gUyN8siruV04LXLrUcTlk3g/1Goc
K9ONef87Nh/+nIKJ/bHLVxS6sSqd6BgvKAcWcqjuftVuGJn9dZ/Rl4Mng4ZG
gmE3PKyahsML5KAlWXE62bMbCvezbJl85LF6P50v9Vs3SmVYH8jyKkCLK2C0
5GIPMg2a+Ps/AjTJwwQvgx58EH93ZHQYKDlypv+0WQ8kVtmOp+06AyGst5c5
9eA0nX38N80zWL3p8l9leA/sJGzXvWrP4H2eWWptZw9Knq5eD/51FqtaJ527
r/fi3ExvRSm1Ctjot4W6OPRidEH+pcdhFRz9Vp/G6NaLtcdiP900VWAhaTku
96QXgb8ahyVfq+C/XcHmsZ96cYrtu1impCoim4Y0r8z2Iv+XjqeEoxqO6YWI
9rv3geNFS6Qc7wVoMBmfd3vQB12uhNZcjQu4USVwkzmwD+8lJZU8PS4gWro4
UTGmD2f+U/UhtV3AP7aRvQlf+pDMtbntRbgGfrWeortG1Q/Pcw/06Lk1YXt5
dJjwrB/f/h5ZsLPXxnLpV4Gx8H4IW4+wl7zVhv+BSKvJmH6o3hxJMm7TRsK0
6vDC537o/NmcUOPXQZtfyhB1XT/W5n1znJ7r4EymHUGIaQCmTU68Zfa62Eu/
0G8TNABa1X5WRi19vHeo5XWMGMDOs/02ZY76kG5JMnOJHcCw2CH95BB9aMbr
9XumDqAixYC0+Usfj2Ty+4LqBqCfTv+bSdcAc9fu9aYzDcJ7r4ZvqsVlVBdv
dM0HDeJAjl4o3ScjRGtRyyW/HAS9a0t/ZLMRHEbpYvTjBhH+RIrXdt0IbKys
JoUZg3iYzbytX9sYFrcEur2bBhG/TzCclmKMjaB3Dtt3EODxfuFogaUpouVq
HEJ1CKCZ+RQZcNMMj/zr9o8bEMDwYpedZbQZHBobGmBCwO9P6cOh9WbAzeaj
C5YEaNr9jSNIm4MY1jOj70pAEheDuQPtNchMzDjsiyIg19v6kLqZBX5H7XZ8
30sAz+1KGuXjVrhTzC2RN0gAh4m0vbSuFTh6BEmVIwSk041YXHKywlXeky6D
0wQM8br3bf9shal3pm7cFAKubNTpex64Drqcdz5h+4egmkThLNl7A0r1J0Lv
mw2hIS3ESkrUGsMzStrPLYcg7uV4aeyiNQJY1Fljbw6hXyv6SoOTNRp0TSOK
HIeQJBJHPFZgDdMu36hFnyEUzoxNWKrcgvvYfwk2CUOY6Dy3P8zBBln/TLIM
BodAjLv5koFoB//ifdu0R4Zw+VD7iXwWe5i6dOtdGB+CYei3G9Gy9qAbMV5W
JA2hSSLXb0eQPcx+Gike/jcEYVHu+++POWBHyOX6Vb5h1IuaBhGeO+IWt+54
gvkwir0zK1VknaHQyioXYzUMqpxcCzttZ7AFNwW9tB7Gm6Av5Oxbzijf0JYI
dBrGcU3J5KRoZ3AMabm5+A7D5eHIbQ6KM76naG5XSRgGQdaiwq7WBfwn1Pkn
+4exO5xu/I+vK7jo+LbJDw8jclz950q8K1g7/wwHEYehmrDtq1iZK6g93348
ShqGrDFzKyfFFaNfl8WdqUZwRvsjJ+f9u0hV+aDwV2AExtZaa6P+bjhpQG1K
azMC5U9H7rt8uQdJ4a7Thg4j+JZHpxNKuAeR5QzeFOcRlJtHkwdpPbAv2mRI
3XMEj3bcKxfQ9QClN9smOGgE0wv7I8SnPFB5/do99owROJ0x9Xx5yAuarl9f
HVwcgZW50MXAuvvY5I55KrI8glluLmLDn/vIqXLzklwbwZ6cIP7zvD7gZJO0
UKQeRfp5S8t+Zx8QspOOmLCNQv64TPtrbl/cnXtSFSY9ijX/S11eHg8Qb6s7
/+/OKGyrvo72SvpBZ7fECN29UQS4PxfmUPcDdQlTB7P3KD77Bco5WvjBhuHH
F57Ho0gmCF73CveDdMrJp7IvR5H2jeK9k+yHn6M8fLfzRkGjpsEvUfVoi8/E
iwN/RqGVt1Pews0fP/i7f59e2cL3ariL+5U/YgbrdWMooxD/ab68mesPlWs5
Rga0Y1jWPuKksuCPWPP71+s4x0Bsq0ysvR0ANTM270K5Mcgp9/NN3H2CBFOl
1NAHY7hDa7bSkRiIu9zHxGcej+HwU1kugepAXOgRzL4QOAafv9vZ4icDsWTC
WEgTPga3jiQ7QZln0DBpq/RKHsNDG+W4ezXPsGxk121dPQbTl5lrjpQgaF2O
YsAOIibrPJZ5nofAMB37A3cRkRngEE9bEALz7ZOSzexEgFR4TGgwBI45p42u
7yfC6vbm9m3HQxHMPPThqThxS6c0+oMQirrqI+eatInovhHM7XcwDKonK30s
XxFhImKUHxcTDs0Qu/DUaCIYt6WmcuWGw2CU/cOfOCLOhFFqcuvCt/SjdUPA
ByI4tHNXz1LC8WhuB09q4Vb+YNurRosIVHw0LF7sImKdZK3+XfIlFPbOLD7m
HYfj60aGubFX2FSJ2/v44DiORbbse0gViW93NBUeCY/jS2XYhCRPJJR/pwc8
FB+HTqmg+KROJNQDHLl8FMehZFlkVF0Wict/5hTdzcZRY3ntlUJ8FJwaFwJt
4seh3ip4adY1GlIbSRm3ksbBzlYW4xgRjQUxvRbrD+MIvHzn+K6caNx9kstz
M2Mcd4Pr6wrnouGl6JppWTYOmjCUxdrH4GnaUqtp/zjeJWpSN9nHIvHpX75L
vBOY9i0fqn4SB/9fZa3JBycQ9N78YGJ6HGzZ/QNXhCeQlzi/52NLHKTfsi6+
k5jAXXv10hP88fhRKFq9hglILvq52pTGY2Lsiv0nqwm4vJmPxWoCpFQqirZ/
msCtkqSMmYZE7Al64mCSPoG4qMMKZcOJWG3UPJiVPbHlG/RUPq4koupKd5Bp
yQTqHEK5qoSSYOC6aJZTNwFq3mYZQd8keCQL0VybnUDGoTbXhBPJqKR6plMq
PYk20hkdjuJ3sOA15Px5chLhHYRddxvfYVNOsK9ZfhJ0faLhU8R3kHctuzWp
PAnqfd2C/JzvkT+24MulP4no85djPrm9R0qdaYa76yQ+83dcuST3ASGvjjLJ
5E+CNSgj+EbrRxzNWW1UKt7aZyZ4EGY/ou7Xz0iNr5O4KO8X6s6QAjp6y4NW
PyZR173uv6CYgoeekafC2yYxUttZI5SaAlfzTWvS0iROdd9hj3j6aasvm76n
nZhCMo+T4R6jVHCb5e1jkZ8Ct8mGps+9VPSFR912VprC2aSJBfroVJivX+U5
cX4K8Sf8sh51p+LG78k75cZTMOrQ62I1T4PT3e0Czd5TeCujOv/RMR3+FScf
LldOQYxFzPBuSibUyPs6jH9OIUTmww21hkzQi20c+VI3hXGDNTfFhUwEvfze
+aB1Cs12n5nfnM7CC2sdScaxKayW/se4tyULsTvtBngYpnFZLpie43E2sozj
Fc5qTYObEiVaXp2DZCFZwRd60yCYrMVK9eQgar6Jsd9wGp/eygYVzuXAN5Cm
0+PaNFIHBzg39uZCs9jeJdt5GinLH03c7XMxsVf+I//LaQSfvr5bmDMPBzo7
dm12TqPkUTFVk1c+Ii6zjpRazoCpR9JQ1b8IZ1aye8pvzkBVRY1LNa4Is7G6
LVW2MzjySKHAOL8I6oSIyjqXGSxxHkj7MlqEDTuOxB6/Gcj4MRe6qBXD5iG3
2VrSDFJO9lWkMJdAKU2oU254BtdDac49TSvFFJVcfbHVLM6G3C1yOFyO0i8k
PfZbs9AZuOQodb4cz90/9jjaz4L54pu3LLfKcXSGfUrg7uyWX2zJ5E4ph2Pn
HENIwCz6j0dN3xH5hvmM92qWn2ZhwHeqeC9XBcimrFWMc7Nweicrwi1WCaqC
8WJTzzkI3/k7FefxHUFqH3TtfeaQSEX2LQr6jj1dVlPefnM4HShFNRj3HaLr
/Tzxz+ZAw1HWb1D5HXpn23wHY+YAGYbgPqYfePerQuVG6RxM8q8NX0v8ATVi
TJPj+hwCmFZljdqrEbxXc+KhDwlDtizq221qoC+YlqyqNA+hynSbwb2/Afxp
jauZx9kuGaGI5BZYS3MeKrywAB7VYOMcjw5Mi1K8ktoXkEs0/acp2osi+gLi
pvkixrOy7zkKEVD+Vd2Vb3AREQvRHiPlwxByf0vNavcHns7vDSa3/oFquubc
79N/wK4sGm1ZucVrn3bPSbsl1FKncO+rnUbsG4rxbsclVN1+G2zfMY3AEsFT
creXcGN0m+i3kWlYkV2WA12XYMp8tcV2cxqcjiyuIveXwKAS/rBBZga+V887
3ApZgpK37u4fCTPQOV1iPpa1hF6qAUYrt1komhAUmXOXMOLqk9DyaBZi9+h5
T+QvoWYpnngubBY0eZd7/YuXwGJs8EgkbRYlYotGQpVLOLXI4btKmIUA9xHd
6y1L2KEsLFekOYellbhzQ0tLmDQ9LftUiASlR+ePjC4v4cP+DXv+YyQE7lhk
G19ZAt3upNYiRRL2850fnqFsnc8rLjlpSILKuYWHKzRkhF6Kr7j0jITQhjc2
63RkxKmUnBiPJKHrsprOJgMZErdIPx4mk+Bg84afhpkMGxMV4fwvJBQuqNLT
7yIjmUNq/lINCVTe83OMu8k40ttYM95GggbNm46d7GTQUzOl+w2R8CpEtXwX
Bxm6PT+ieOZIGOCc/8C2l4zHmcSAgjUSRBJjQzj2kSEtn/ose4WEO6Kqblw8
ZLyKoX/DOUPC11zSVR5eMjhELubcHySBTiFWhY+fDO/Y0MbhFhJ0qlWOHjy4
dZ+30yvqP0kY7YxZPyRMBtuCsSdHBgkSliojoofJ0LKJ6/BOJMFjaq7uqOgW
3u/XLg6/JGHnxrlYaXEyztTUP83yIuGEwNwppRNkWOWtJ19UJ+FhWvSBs7Jk
bFzexp53moS64+cYVOTIUErQzuOWJMH8fHTnBUUynh8TCZ/iIOGJg7L7ZVUy
uFacuEJG5tBRGJXncJmMgB9DjATfObhfhMQbNzIoFbSsrQWzaCEsmdXeI+Pk
jo9+p7Z4K+6eGvLXcyvfQjoxIXYWo4kcs/q+ZCS1f/jj8GAWesvTaTufklE9
8ceC7cIsJJKiRX2jyfBJHip93DcD4vKCkOUXMsoa8+/w0MzAMPk9z+Fty3j3
L/fYkuEUXJpGRd0eL0O/syB6j/o4Wkf/ap3Y/heZNkw6PLajeLXxy/2/kL84
HBu/Sus9hLBZ3288u1YwL01FCiT2Y3pokUn5zQrOubMUf57sQshXOcceoVV0
t0hY6Qa3wc7pyvzxD6uQ9E8m0iw34YPQGXdLqTWIaExzjkvUgyf3336d3DXc
MJsz8WitxtQ6+e2l/DXckWcTlqioRrHqjMDFwjVoTgf1zqdXw7C7S0StdA16
d1JW455UI4Iq97hC1RpmLHf5v5CvBpP2DU2RljUEl59g73n/A2vTNd5Ui2t4
lLfxhPjoO7qEI3qyj62DTfLJ/MD1yi2f8vJDt8w6nv6bHNfUq0RM8ytn6pPr
INa0f605UwlTn9d0BvLr2O7hQJzkrURfW5z0X+V1pHHvDmruqsDg45QgRYN1
EL56R0npVoA49FW+zn0dvToBX6mjy7EUPx478mUdLoy5evTNpZC+5uA0XraO
0I9pkoaFpbh9YOHs9Ld1PI8xsCx9szX/k9cmFr+vw3PT6HWVdSkGU5hlqRvW
IeCtyde8UYK6HJnWA33r8JJt3NMvWYLE6gc7zCnr+LuTV/fGuyJcnN17v0uB
gnEpBon66nxI5Mhe4gIFtRbVQa8y8sHmZsRnfJaCoJZsNrfIfHRRoio6VSlY
/0/6lvfNfNzYyUnbqUUB56lNjzd0+fA5sie03YKCZ0SHJZ5LeciyZU1s8d+q
N22klD+VgwhxKRe2pxQcGvwRr9qeA/cFbWW9ZxQYj0qozHzLgYLni9HmEAp8
96+IekbmoCaQRbQ5ioIQzYGCF2dzMJSyM7fxEwUc5LQvyfHZ+GF/9PGuNAoi
9vIG+j3LxidJTQPtDApGU0vT77plw6no+fLvHApo6o9+f30pG2s/mU7/LqUg
b5m88+1GFvqDxHaylFHgbhM2ndCRhQotjf5L3yj4ensx5GdWFp50PHvw6zsF
753OfQq2yoJt7Gcd5p8U6A6Yj4kpZEHTvPbgpRoKbNZinec5siAlMLkYXEeB
XOHbo/2kTLATGX40NGy9l+J+ynxtJv4HlIrbyg==
       "]]},
     Annotation[#, "Charting`Private`Tag$34116#1"]& ]}, 
   {AbsoluteThickness[1.6], StrokeForm[RGBColor[
    0.368417, 0.506779, 0.709798]], EdgeForm[GrayLevel[0]], EdgeForm[None], 
    LineBox[{{0.19520313264806666`, 0.043945715466406465`}, {
     1.8501223671209959`, 0.043945715466406465`}}]}, 
   {AbsoluteThickness[1.6], StrokeForm[RGBColor[
    0.368417, 0.506779, 0.709798]], EdgeForm[GrayLevel[0]], EdgeForm[None], 
    LineBox[{{0.8139990222449351, 0.10082658119795829`}, {
     0.8139990222449351, -0.05430304937650643}}]}, 
   {AbsoluteThickness[1.6], StrokeForm[RGBColor[
    0.368417, 0.506779, 0.709798]], EdgeForm[GrayLevel[0]], EdgeForm[None], 
    LineBox[{{1.8165442976212895`, 0.10599756888377376`}, {
     1.8165442976212895`, -0.04396107400487548}}]}, 
   {AbsoluteThickness[1.6], StrokeForm[RGBColor[
    0.368417, 0.506779, 0.709798]], EdgeForm[GrayLevel[0]], EdgeForm[None], 
    LineBox[{{1.3224669609525603`, 1.0264333769589329`}, {
     1.3224669609525601`, -0.05430304937650643}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.2, 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->{{11.05102, 1.5}, {6.263236, 0.5}},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0.16666666666666669`, 
   1.8333333333333335`}, {-0.05551967417004832, 1.054873809230918}},
  PlotRangeClipping->True,
  PlotRangePadding->Automatic,
  Ticks->{Automatic, Automatic}]], "Input",
 CellChangeTimes->{{3.7967042158209977`*^9, 3.7967042537680993`*^9}, 
   3.7967043403289576`*^9},ExpressionUUID->"a6deb26e-6e8b-4b48-8cc4-\
ba4a4a9bdb18"],

Cell[BoxData[
 RowBox[{"(*", " ", "*)"}]], "Input",
 CellChangeTimes->{{3.796633493869313*^9, 3.796633496358635*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"ae3f4940-8ff1-4687-828e-a8196ab26fab"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"data", "=", 
    RowBox[{"RandomVariate", "[", 
     RowBox[{
      RowBox[{"NormalDistribution", "[", "]"}], ",", "100"}], "]"}]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{
   "vygenerov\[AAcute]n\[IAcute]", " ", "100", " ", "n\[AAcute]h", " ", 
    "hodnot", " ", "z", " ", "N", 
    RowBox[{"(", 
     RowBox[{"0", ",", "1"}], ")"}]}], " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.796633512158824*^9, 3.796633561211563*^9}},
 CellLabel->"In[76]:=",
 CellID->71227355,ExpressionUUID->"8053f216-57e7-49a0-b851-e694f2c55d0a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"prdat1", "=", 
  RowBox[{"Mean", "[", "data", "]"}]}]], "Input",
 CellChangeTimes->{{3.7967044578274727`*^9, 3.7967044720922756`*^9}},
 CellLabel->"In[77]:=",ExpressionUUID->"26bcdf2f-323b-424b-9a75-367a1f066ad4"],

Cell[BoxData[
 RowBox[{"-", "0.0043003479302996285`"}]], "Output",
 CellChangeTimes->{3.7967044732875795`*^9},
 CellLabel->"Out[77]=",ExpressionUUID->"fcfb5eae-716e-4c27-907a-bf18f6b7e133"]
}, Open  ]],

Cell[TextData[{
 "Test ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SubscriptBox["H", "0"], ":", "\[Mu]"}], "=", "0"}], TraditionalForm]], 
  "InlineMath",ExpressionUUID->"b2d58956-3f98-4159-8380-c26af2097f16"],
 " proti ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["H", "1"], ":", 
    RowBox[{"\[Mu]", "\[NotEqual]", "0"}]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"47c0edd1-d75c-423b-9ffc-2628103f2f8c"],
 ":"
}], "ExampleText",
 CellChangeTimes->{{3.7966335675846615`*^9, 3.7966335743012185`*^9}},
 CellID->564009008,ExpressionUUID->"f501d56f-4ae1-4fa6-a66d-8abf20be2365"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LocationTest", "[", 
  RowBox[{"data", ",", "0", ",", 
   RowBox[{"AlternativeHypothesis", "\[Rule]", "\"\<Unequal\>\""}]}], 
  "]"}]], "Input",
 CellLabel->"In[78]:=",
 CellID->431224218,ExpressionUUID->"99dbec20-7cc1-474c-8c9f-0f2bf9ef9007"],

Cell[BoxData["0.9659896505466272`"], "Output",
 CellChangeTimes->{3.796633639324215*^9, 3.796704517019593*^9},
 ImageSize->{62, 16},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[78]=",ExpressionUUID->"071d25d4-5925-4480-a0e5-94312d7d4099"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LocationTest", "[", 
  RowBox[{"data", ",", "0", ",", 
   RowBox[{"AlternativeHypothesis", "\[Rule]", "Automatic"}]}], 
  "]"}]], "Input",
 CellLabel->"In[79]:=",
 CellID->571992946,ExpressionUUID->"73b7ec4b-32d6-43de-b489-12ad698b50ef"],

Cell[BoxData["0.9659896505466272`"], "Output",
 CellChangeTimes->{3.796633643777562*^9, 3.7967045541093984`*^9},
 ImageSize->{62, 16},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[79]=",ExpressionUUID->"b5d2a940-f30b-431e-b5ba-a6be2d8b0d58"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "data", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{"RandomVariate", "[", 
    RowBox[{
     RowBox[{"NormalDistribution", "[", 
      RowBox[{"0.5", ",", "1"}], "]"}], ",", "100"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"prumer", "=", 
  RowBox[{"Mean", "[", "data", "]"}]}]}], "Input",
 CellChangeTimes->{{3.796697650147525*^9, 3.796697660216166*^9}, {
  3.7966977079722457`*^9, 3.7966977110063934`*^9}, {3.7967045950833807`*^9, 
  3.796704603026738*^9}},
 CellLabel->"In[80]:=",
 CellID->642189963,ExpressionUUID->"ef6f76e5-1ff7-4228-959b-2545eb831f5c"],

Cell[BoxData["0.6177479510838477`"], "Output",
 CellChangeTimes->{3.79669766423234*^9, 3.796697712420018*^9, 
  3.796704609905881*^9},
 CellLabel->"Out[82]=",ExpressionUUID->"bfc67126-ce3a-430e-bd40-9660f893556d"]
}, Open  ]],

Cell[TextData[{
 "Test ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SubscriptBox["H", "0"], ":", "\[Mu]"}], "=", "0"}], TraditionalForm]], 
  "InlineMath",ExpressionUUID->"75e70868-cb24-4249-b31d-bdae0142514e"],
 " proti ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["H", "1"], ":", 
    RowBox[{"\[Mu]", "\[NotEqual]", "0"}]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"ef833c41-84e0-4e5d-98f2-e291ef51e5aa"],
 ".5"
}], "ExampleText",
 CellChangeTimes->{{3.79663361842498*^9, 3.7966336253554506`*^9}, {
  3.7967047219373035`*^9, 3.796704723121477*^9}},
 CellID->11672917,ExpressionUUID->"64ae5fc3-ec48-461f-89a8-e99e66d2ed6a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LocationTest", "[", 
  RowBox[{"data", ",", "0", ",", 
   RowBox[{"AlternativeHypothesis", "\[Rule]", "\"\<Unequal\>\""}]}], 
  "]"}]], "Input",
 CellLabel->"In[83]:=",
 CellID->222929570,ExpressionUUID->"175d7d15-c8c7-4f01-a16c-26f4739bf4da"],

Cell[BoxData["3.525501148926795`*^-8"], "Output",
 CellChangeTimes->{3.7966336521227183`*^9, 3.796697674601536*^9, 
  3.7966977176577063`*^9, 3.7967046331915207`*^9},
 ImageSize->{62, 16},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[83]=",ExpressionUUID->"bc66485b-0d6e-4ca4-8c8a-6a2dd9ce1238"]
}, Open  ]],

Cell[TextData[{
 "Test ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["H", "0"], ":", 
    RowBox[{"\[Mu]", "\[GreaterEqual]", "0"}]}], TraditionalForm]], 
  "InlineMath",ExpressionUUID->"5a5a893e-9cbd-478f-b351-031ec2df07b9"],
 " proti ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["H", "1"], ":", 
    RowBox[{"\[Mu]", "<", "0"}]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"28a01349-831a-4133-832b-165d6c4d8f52"],
 ".5"
}], "ExampleText",
 CellChangeTimes->{{3.796633673377331*^9, 3.796633678346783*^9}, {
  3.7967047255019975`*^9, 3.796704727480161*^9}},
 CellID->108884413,ExpressionUUID->"1095496b-21c2-4343-8d1c-8fc6b83e3b3b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LocationTest", "[", 
  RowBox[{"data", ",", "0", ",", 
   RowBox[{"AlternativeHypothesis", "\[Rule]", "\"\<Less\>\""}]}], 
  "]"}]], "Input",
 CellLabel->"In[85]:=",
 CellID->420273143,ExpressionUUID->"201cc50d-6d0e-4986-9a9b-5de4ed133aba"],

Cell[BoxData["0.9999999823724942`"], "Output",
 CellChangeTimes->{
  3.7966336610274196`*^9, 3.7966976873205028`*^9, 3.79669772999807*^9, {
   3.796704656009531*^9, 3.796704677869486*^9}},
 ImageSize->{62, 16},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[85]=",ExpressionUUID->"d723fac9-08d5-44b1-b1dd-c2df013a68de"]
}, Open  ]],

Cell[TextData[{
 "Test ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["H", "0"], ":", 
    RowBox[{"\[Mu]", "\[LessEqual]", "0"}]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"c203ce65-128e-4079-bc40-bb14c0bbb515"],
 " proti ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["H", "1"], ":", 
    RowBox[{"\[Mu]", ">", "0"}]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"2efaebc7-3b42-4659-ba32-f13d2164a38d"],
 ".5"
}], "ExampleText",
 CellChangeTimes->{{3.796633681955759*^9, 3.796633690442835*^9}, {
  3.7967047304535537`*^9, 3.796704732365508*^9}},
 CellID->1883359,ExpressionUUID->"5a314e2b-9e7c-4ed9-b6b0-79f9cb706da5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LocationTest", "[", 
  RowBox[{"data", ",", "0", ",", 
   RowBox[{"AlternativeHypothesis", "\[Rule]", "\"\<Greater\>\""}]}], 
  "]"}]], "Input",
 CellLabel->"In[86]:=",
 CellID->349344961,ExpressionUUID->"22941335-a05c-4d28-a25d-f8b338f694af"],

Cell[BoxData["1.7627505744633975`*^-8"], "Output",
 CellChangeTimes->{3.7966336658662505`*^9, 3.796697700147214*^9, 
  3.7967046851088257`*^9},
 ImageSize->{62, 16},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[86]=",ExpressionUUID->"4aa3e554-2970-4301-a2e8-2eeffc30af56"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7966398484218245`*^9, 
  3.7966398530691824`*^9}},ExpressionUUID->"33311dfc-b44d-44a5-b5f8-\
2c0d651921ff"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"data2", "=", 
   RowBox[{"RandomVariate", "[", 
    RowBox[{
     RowBox[{"NormalDistribution", "[", "]"}], ",", "80"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"data3", "=", 
   RowBox[{"RandomVariate", "[", 
    RowBox[{
     RowBox[{"NormalDistribution", "[", 
      RowBox[{"1", ",", "1"}], "]"}], ",", "90"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Mean", "[", "data2", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Mean", "[", "data3", "]"}]}], "Input",
 CellChangeTimes->{{3.796639854047533*^9, 3.7966398893258476`*^9}, {
  3.7966399264843874`*^9, 3.7966399709413643`*^9}, {3.796704747244543*^9, 
  3.7967047624445753`*^9}, {3.7967048571906443`*^9, 3.796704860265465*^9}},
 CellLabel->"In[92]:=",ExpressionUUID->"08bba505-aeab-46c4-8d3f-1feb6f79eef3"],

Cell[BoxData["0.13210349918432546`"], "Output",
 CellChangeTimes->{3.796704764019621*^9, 3.7967048649184904`*^9},
 CellLabel->"Out[94]=",ExpressionUUID->"14fe175d-18fb-4d84-959d-4a03b0d3247f"],

Cell[BoxData["1.079708453836946`"], "Output",
 CellChangeTimes->{3.796704764019621*^9, 3.796704864924507*^9},
 CellLabel->"Out[95]=",ExpressionUUID->"e0cd2b4d-238c-4a09-9039-947a5d631f3d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LocationEquivalenceTest", "[", 
  RowBox[{"{", 
   RowBox[{"data2", ",", "data3"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.7966398951020803`*^9, 3.7966399064266663`*^9}, {
  3.7966399489565897`*^9, 3.796639956789004*^9}},
 CellLabel->"In[96]:=",ExpressionUUID->"943749b6-15ec-484f-8dd7-50ae80d2b859"],

Cell[BoxData["8.915150651273461`*^-10"], "Output",
 CellChangeTimes->{
  3.796639908206463*^9, {3.7966399588168025`*^9, 3.7966399761893263`*^9}, 
   3.7967048297221804`*^9, 3.796704881088278*^9},
 CellLabel->"Out[96]=",ExpressionUUID->"dbfa2bdc-80b8-4571-8eb8-be9593616e5e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"tab", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"LocationEquivalenceTest", "[", 
     RowBox[{"{", 
      RowBox[{"data2", ",", 
       RowBox[{"RandomVariate", "[", 
        RowBox[{
         RowBox[{"NormalDistribution", "[", 
          RowBox[{"i", ",", "1"}], "]"}], ",", "90"}], "]"}]}], "}"}], "]"}], 
    ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", 
      RowBox[{"-", "0.5"}], ",", "0.5", ",", "0.1"}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"ListPlot", "[", 
  RowBox[{"tab", ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Blue"}], ",", 
   RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.796639988452703*^9, 3.7966401301549883`*^9}, {
  3.796640187526693*^9, 3.7966402051794977`*^9}, {3.7966402438472834`*^9, 
  3.7966403117903233`*^9}, {3.7966403553648233`*^9, 3.796640356449901*^9}},
 CellLabel->"In[97]:=",ExpressionUUID->"b13423ff-10a8-409a-ac14-89592993d6fc"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.009045910079251778`", ",", "0.0031619095914173665`", ",", 
   "0.015376937624849296`", ",", "0.018389821788230152`", ",", 
   "0.16580987921704451`", ",", "0.14537376699142945`", ",", 
   "0.7279548547190242`", ",", "0.7152392368798696`", ",", 
   "0.06153605396409874`", ",", "0.8598527727687559`", ",", 
   "0.3478240965393924`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.7966401169858465`*^9, 3.7966401606556187`*^9, 3.7966402072763453`*^9, 
   3.796640260862731*^9, {3.796640301266197*^9, 3.7966403135005283`*^9}, 
   3.7966403599868097`*^9, 3.796704938188058*^9},
 CellLabel->"Out[97]=",ExpressionUUID->"d8796e6c-1e26-4a10-b0ab-5528329dd7e5"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {RGBColor[0, 0, 1], PointSize[0.012833333333333334`], AbsoluteThickness[
     1.6], LineBox[{{1., 0.009045910079251778}, {2., 
      0.0031619095914173665`}, {3., 0.015376937624849296`}, {4., 
      0.018389821788230152`}, {5., 0.16580987921704451`}, {6., 
      0.14537376699142945`}, {7., 0.7279548547190242}, {8., 
      0.7152392368798696}, {9., 0.06153605396409874}, {10., 
      0.8598527727687559}, {11., 0.3478240965393924}}]}}, {}, {}, {}, {}},
  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., 11.}, {0, 0.8598527727687559}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.7966401169858465`*^9, 3.7966401606556187`*^9, 3.7966402072763453`*^9, 
   3.796640260862731*^9, {3.796640301266197*^9, 3.7966403135005283`*^9}, 
   3.7966403599868097`*^9, 3.7967049382628603`*^9},
 CellLabel->"Out[98]=",ExpressionUUID->"7fb6fc75-6e65-44fb-b1df-95b7c0c7abf7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"pneu", "=", 
  RowBox[{"{", 
   RowBox[{
   "12", ",", "16", ",", "18", ",", "18", ",", "19", ",", "19", ",", "19", 
    ",", "19", ",", "19", ",", "19", ",", "19", ",", "19", ",", "20", ",", 
    "20", ",", "20", ",", "20", ",", "20", ",", "20", ",", "21", ",", "21", 
    ",", "21"}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"pr", "=", 
  RowBox[{"Mean", "[", "pneu", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"s", "=", 
  RowBox[{"N", "[", 
   RowBox[{"StandardDeviation", "[", "pneu", "]"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"s", "*", "s"}]}], "Input",
 CellChangeTimes->{{3.796697797623731*^9, 3.7966978552091117`*^9}, {
  3.796697923175088*^9, 3.796697995583243*^9}, {3.7966981434021187`*^9, 
  3.796698145518366*^9}},
 CellLabel->"In[99]:=",ExpressionUUID->"cf1d55d1-47ef-424b-b941-719b74b53991"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "12", ",", "16", ",", "18", ",", "18", ",", "19", ",", "19", ",", "19", ",",
    "19", ",", "19", ",", "19", ",", "19", ",", "19", ",", "20", ",", "20", 
   ",", "20", ",", "20", ",", "20", ",", "20", ",", "21", ",", "21", ",", 
   "21"}], "}"}]], "Output",
 CellChangeTimes->{{3.796697958920151*^9, 3.7966979967451305`*^9}, 
   3.796698147014428*^9, 3.7967050513229914`*^9},
 CellLabel->"Out[99]=",ExpressionUUID->"64f49aea-e021-4747-aadc-747aa7439770"],

Cell[BoxData["19"], "Output",
 CellChangeTimes->{{3.796697958920151*^9, 3.7966979967451305`*^9}, 
   3.796698147014428*^9, 3.7967050513289742`*^9},
 CellLabel->
  "Out[100]=",ExpressionUUID->"32b6c1e6-f15c-4839-8cbe-ee3316ab6914"],

Cell[BoxData["1.9748417658131499`"], "Output",
 CellChangeTimes->{{3.796697958920151*^9, 3.7966979967451305`*^9}, 
   3.796698147014428*^9, 3.796705051335955*^9},
 CellLabel->
  "Out[101]=",ExpressionUUID->"78f96409-13c6-47af-871b-0ebcf4849187"],

Cell[BoxData["3.9`"], "Output",
 CellChangeTimes->{{3.796697958920151*^9, 3.7966979967451305`*^9}, 
   3.796698147014428*^9, 3.796705051345931*^9},
 CellLabel->
  "Out[102]=",ExpressionUUID->"4a14b346-7970-46e6-bccf-35257a5de4f8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "12", ",", "16", ",", "18", ",", "18", ",", "19", ",", "19", ",", "19", ",",
    "19", ",", "19", ",", "19", ",", "19", ",", "19", ",", "20", ",", "20", 
   ",", "20", ",", "20", ",", "20", ",", "20", ",", "21", ",", "21", ",", 
   "21"}], "}"}]], "Input",
 CellChangeTimes->{{3.7966979467085547`*^9, 3.796697947900669*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"c76e222a-b2bd-4c05-ba91-cfd8a7dc276c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "12", ",", "16", ",", "18", ",", "18", ",", "19", ",", "19", ",", "19", ",",
    "19", ",", "19", ",", "19", ",", "19", ",", "19", ",", "20", ",", "20", 
   ",", "20", ",", "20", ",", "20", ",", "20", ",", "21", ",", "21", ",", 
   "21"}], "}"}]], "Output",
 CellChangeTimes->{
  3.796697858303585*^9, {3.7966979370248685`*^9, 3.79669795091556*^9}},
 CellLabel->"Out[13]=",ExpressionUUID->"0a1ad163-8287-448d-b659-0a46b9566cdd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LocationTest", "[", 
  RowBox[{"pneu", ",", "20", ",", 
   RowBox[{"AlternativeHypothesis", "\[Rule]", "\"\<Less\>\""}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7966978715442977`*^9, 3.796697919294677*^9}, {
  3.7966980482463365`*^9, 3.796698056526422*^9}, {3.796698170552101*^9, 
  3.796698221205739*^9}},
 CellLabel->"In[29]:=",ExpressionUUID->"f35f058f-b5a1-4937-a530-730b2d3ff34e"],

Cell[BoxData["0.017578125000000003`"], "Output",
 CellChangeTimes->{
  3.7966980581534204`*^9, {3.796698178335163*^9, 3.796698192087157*^9}, 
   3.796698223731315*^9},
 CellLabel->"Out[29]=",ExpressionUUID->"d270a208-2d19-434d-be22-9860e6cd9007"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LocationTest", "[", "data", "]"}]], "Input",
 CellChangeTimes->{{3.796698264904292*^9, 3.796698282100498*^9}},
 CellLabel->
  "In[103]:=",ExpressionUUID->"de2487a9-c832-4670-89b2-c2cca8d4ceb2"],

Cell[BoxData["3.525501148926795`*^-8"], "Output",
 CellChangeTimes->{3.796698283260373*^9, 3.7967051378569665`*^9},
 CellLabel->
  "Out[103]=",ExpressionUUID->"205148cf-348d-462b-9ae9-f6e807ea7f7c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[ScriptCapitalH]", "=", 
   RowBox[{"DistributionFitTest", "[", 
    RowBox[{"data", ",", "Automatic", ",", "\"\<HypothesisTestData\>\""}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"\[ScriptCapitalH]", "[", 
  RowBox[{"\"\<TestDataTable\>\"", ",", "All"}], "]"}]}], "Input",
 CellChangeTimes->{{3.7966983590551167`*^9, 3.796698360460318*^9}},
 CellLabel->
  "In[105]:=",ExpressionUUID->"542e60d4-29a7-43ae-b288-036dea156c4f"],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"\<\"Anderson\[Hyphen]Darling\"\>", "0.45212275938902735`", 
      "0.2753925724482399`"},
     {"\<\"Baringhaus\[Hyphen]Henze\"\>", "0.3232164358445573`", 
      "0.39723524204360594`"},
     {"\<\"Cram\[EAcute]r\[Hyphen]von Mises\"\>", "0.060139082873919274`", 
      "0.3840755269784537`"},
     {"\<\"Jarque\[Hyphen]Bera ALM\"\>", "1.7965207575700874`", 
      "0.34440326135572685`"},
     {"\<\"Kolmogorov\[Hyphen]Smirnov\"\>", "0.056779301793302206`", 
      "0.5970456422864524`"},
     {"\<\"Kuiper\"\>", "0.08915836192688041`", "0.6128513153634896`"},
     {"\<\"Mardia Combined\"\>", "1.7965207575700874`", 
      "0.34440326135572685`"},
     {"\<\"Mardia Kurtosis\"\>", 
      RowBox[{"-", "0.10537107275265843`"}], "0.9160813688565772`"},
     {"\<\"Mardia Skewness\"\>", "1.6921110636504486`", 
      "0.19332291815857092`"},
     {"\<\"Pearson \\!\\(\\*SuperscriptBox[\\(\[Chi]\\),\\(2\\)]\\)\"\>", 
      "16.22`", "0.0935054614713285`"},
     {"\<\"Shapiro\[Hyphen]Wilk\"\>", "0.9846302850959661`", 
      "0.2985912611064029`"},
     {"\<\"Watson \\!\\(\\*SuperscriptBox[\\(U\\),\\(2\\)]\\)\"\>", 
      "0.05242199515566833`", "0.43663834694016873`"}
    },
    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.79669836170457*^9, 3.796705355425804*^9},
 CellLabel->
  "Out[106]=",ExpressionUUID->"6d38ace3-4c54-4416-87e9-cf6a6f3d0018"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"Histogram", "[", 
    RowBox[{"data", ",", "Automatic", ",", "\"\<ProbabilityDensity\>\""}], 
    "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"PDF", "[", 
      RowBox[{
       RowBox[{"\[ScriptCapitalH]", "[", "\"\<FittedDistribution\>\"", "]"}], 
       ",", "x"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Thick", ",", "Red"}], "}"}]}]}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7966984102276783`*^9, 3.796698435225255*^9}},
 CellLabel->
  "In[107]:=",ExpressionUUID->"ab0a42ce-e1d2-427d-8a35-e9b174ced477"],

Cell[BoxData[
 GraphicsBox[{{
    {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
     Opacity[0.644], Thickness[Small]}], {}, 
     {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
      Opacity[0.644], 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.05}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{24.29283426741391, 79.31645316253}, {
           67.82274728715366, 93.54742547103275}}],
         StatusArea[#, 0.05]& ,
         TagBoxNote->"0.05"],
        StyleBox["0.05`", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[0.05, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{-1., 0}, {0., 0.26}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{78.81645316253, 
           133.8400720576461}, {-38.12090108513853, 93.54742547103275}}],
         StatusArea[#, 0.26]& ,
         TagBoxNote->"0.26"],
        StyleBox["0.26`", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[0.26, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{0., 0}, {1., 0.37}, "RoundingRadius" -> 0]},
          ImageSizeCache->{{133.3400720576461, 
           188.3636909527622}, {-93.61519308967253, 93.54742547103275}}],
         StatusArea[#, 0.37]& ,
         TagBoxNote->"0.37"],
        StyleBox["0.37`", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[0.37, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{1., 0}, {2., 0.23}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{187.8636909527622, 
           242.88730984787827`}, {-22.986094174811072`, 93.54742547103275}}],
         StatusArea[#, 0.23]& ,
         TagBoxNote->"0.23"],
        StyleBox["0.23`", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[0.23, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{2., 0}, {3., 0.08}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{242.38730984787827`, 297.4109287429944}, {
           52.687940376826205`, 93.54742547103275}}],
         StatusArea[#, 0.08]& ,
         TagBoxNote->"0.08"],
        StyleBox["0.08`", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[0.08, {}], "Tooltip"]& ], 
      TagBox[
       TooltipBox[
        TagBox[
         DynamicBox[{
           FEPrivate`If[
            CurrentValue["MouseOver"], 
            EdgeForm[{
              GrayLevel[0.5], 
              AbsoluteThickness[1.5], 
              Opacity[0.66]}], {}, {}], 
           RectangleBox[{3., 0}, {4., 0.01}, "RoundingRadius" -> 0]},
          
          ImageSizeCache->{{296.9109287429944, 351.9345476381105}, {
           88.00248983425693, 93.54742547103275}}],
         StatusArea[#, 0.01]& ,
         TagBoxNote->"0.01"],
        StyleBox["0.01`", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[0.01, {}], 
        "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}}}, {{{}, {}, 
     TagBox[
      {RGBColor[1, 0, 0], Thickness[Large], Opacity[1.], 
       LineBox[CompressedData["
1:eJwtmnk4Vd/3x83jxR1USmWMEBFShrMOylBIxpQoUz5IRclYQlKpDKEyq5Ah
QpFwt3kMZbqFzGPIFEL53e/z/P4553mdvZ591l5r7ffe+zxHxO6KiSMTAwPD
e/rlf/eACcPFrS0KSjqb0KH9LRAb99v+u3eTgiKumeUrCd/BjIgDq8V/KKj0
Esc2Hec7mPDRq3+vLFHQeoj+gb6NO1jVgyiOwXEK2qudcNhcIRiTETrHXTZC
QafCpO813gnGnhaK8T4bpCBxQnJocEcw5thXRDH+TkHPyptv9PmGYBxyPXvR
ZwpKzBx1evftLnatKlkkoYmCeNU/Mg0rhWLfLZzFvesp6O3B88xBkaFY9u0/
UvKVFLRrXO2uxKl7mNEXQeWUIgoqkaVap/WFYU+vXzgZGE9Bai1ejwuPh2N/
OaSMrJ/Rx6fx5tur0nDMKXHB+EgMBU0lyrc5KzzCVOqCLOYfU5DLOZeGEPHH
2Pcdry9eCKKgURI59CcxAtPOueygfpuCrh0VfkAxjcBy8MOXBPwpSGL1tr5W
bAQW8F+9W/sNCpJal39XLRSJCX+auon/R0H1JjtP1UMUdv9Uge9uJwq64W+1
GvMgClsc8Q1Ys6MgT7F2nfDuKKyaQAjOt6ag6du5Howe0ZiTjdxjYWMKMum+
kx5e/BTLZvR8xaBCQQqmrwZN7sRhR0yz2J4r0v3bvioxMRmH1b0aclaQpyC/
xwRZRZNn2KCusaydFAUZ75J9wiv9HNv+WPZDtSAF5VrQTif+eoG9GnAQsBag
IDFLlZCPjvGYgkKC7zI/BV0KuO3f0B+PGXRywT5eChqK1nX90ZGABe2arA9l
oCBR7drSVloSRnQTkhb6S0a+TU/rHGyTscRyi/DiP2TEJPdORH4yGSu5UGs8
uUhG596Iqx0PTMFm09O+6Y+REWHt2K2M9FTsjOL5n4QmMrqUIpDRcvAVNh7y
1PB1HRkpLK4++hf6CvPsbs7TqCaj1qWv1S8GXmGPfVSvu5eR0eti2eL9Ma+x
auqOv21vyeg8w4t3GuQMzJh0ytY5m4wqPz657nAjA/thF1rJkElGDzeXVsS/
Z2BrrL/vKqSSUfvL/16GZ2ZicgZfeaOjyYgarVGTa5WFlSVyXpOJIKMI/A+n
VVMWpv8L76gOJyOWj2G2HerZmENUXtzyXTJKufe99rRkDvaCFi5s4U1GXvpn
lLUpbzFWR91DO8+TUZrPbpMhiXfYVxsFy59WZGSnLPYz2eUdlnRG0L/cgowS
yq7fsc17hx02+FV70ZiMBELi8Hm1AsxJMc4qS5uMqgSEOCsvFmINjBOBatJk
9Dz6Pn/0yHvs6Ub7ax5JMprl9yw8dPQDduF3adOAGBkFkDWqKBEfsD+Tj/lD
9pCRiqU8lqNZjEm3H85sIZJRd4++T0lRCRaeFNp2fpWELsUfEbrz4xN25tnV
5YPLJJQRwX3L60QZJh51difTAgm1PRcY2Swuw8rvytmnT5NQUI8LS0dcOTbn
1r0y109C3FdM0465UjFjNYm9gTUkRLs8hrDCSmy3MlHbpJKEju50KhdbrcQm
5dYviVeQkIyfDTCpV2F3RFvfNRST0Id/rHc/NlRhBZxex0nZJCT0XPuq51w1
RqHVuqVFkhBznuY9I/c6DMmkhoU8JqHhZXesvbIOc7vt/8rpIQmJ605F+G2v
x+okFPuk75KQ7kORbzbV9ZjvjZSThd4kxLb207dRphEbJvtJ19iS0EbHy6Rx
1RbsiZOFTro1CZXkRdasprVg6qUKdmFWJGQYs9lzk/AZi704+dzAlIT87vYS
aCOfsRP55pxdOiQkoTo8n/aqDSswlJ8ckyWhrP2jN65//ILZpnKzNEiTkDMD
8ce+9S8Y4fe4UJYkCXnKaE6XqH3FnBISLd1FSMjsq9qrJ5VfsV0/uepX+Elo
Nxx4ZkrrwILCxl6zbxJRtUtu9LJSN3awD1VOrRGRRtkmRfFuN9Z3MKG/+TcR
SeT6OYd2d2OHe0y2RfwiohmFiQof/x5seh8KERghoksxQz/WumiYSfULe6km
IiKynD+UU9WLiXeO/qivI6IHUh8Oesr1YSujcmedqonoux5FszG+D3vOVm38
soyI1tsrHx/x68cG9X9q7MkjIisD5zOVhgPY5XY1AdJTIkrZmOo2eTmEYUN3
o/MiiKi+4bI598QQRlxs4zV6RERN2okPP8kMY0UUB9aHofT+7jM+IpYMY+sW
4YssPkTU4hJ9crZvBAvr72tZO09Eh+YKdF6cHcfOzknoxZ0lItXL2/y988ax
A1tXq5UtiUiB543JfdYJrE2YtdTDmIiCzKz0TN9PYNsdZDNmtIjILP/Tn79i
U9jL6YA7g5JEtBlgaRumOYNd36jfvCVORLNn9YOfZc9gOgSy9x4RIgqbW9oh
tmMWm5ZNdz+7i4ge938M/bQ4i8lfaz3XSSCiziD76LCyX5jfLw23iBE+FNNJ
GktpW8ASLqpM4v186F7HlKQezyJW1iHvsNDNh2aImYTSk4vYv2Ixa5MmPhSi
c/wxe/MiFhTIacD/jg9pJjtVPulYwh6QumSe3eJDgm3UwGTeFSw7uDVDz5sP
lZC5X0ucXcFafteL/bnGh1wNbPlepq9gvN9LBc868iG/Y9FX72mtYlFpKdy7
DfhQbvUlE5PQNeyFotvP5J18aDrur3EOvoF9eu14yZjCh9RMFNz+JGxgfTts
Rxh4+BBnpHyG+/oGtnfzdO9FBj50WqfEc6BkE0urUWkWm+BFU4aXDbFj/7A3
5szZGUW8iLDfLl+ghQGa6jclzrzlRet71XZZszDC9NGVNI5MXrRZgLWf1mCE
A3unXvwXz4vWfp9xtX7HCPnjrQ9kgnjRnl7BTKk0Jii5+cIl7xQv+hR0byIy
kwVEHa69punxIiUByYPViyzwyFhvkFGLF8VLianMa7CCndSKuZkSLypXn+Y+
0cMK3L2nNf8I8CKHPVJOFtvZwQbjFNAe5kHvdttvljdwQoP0oIlbLw/SjFnS
OizOBYd2FD+K6eRBCzJH8gYDuYB93oF5so4HbRzsWPquwQ35qWguPJsHuW+3
u9ReRwBmVu/a7us8aHvCf4V7CURwXzBiYHDnQQY6SvJnjhGB1r9PTeoSD9oR
c1LzZAARcj505PtZ8aDMC0t8lxaIYOF8MEEY40GbEWZG74dJkNk87uHCzoO2
jEvkK39SgFxSnhvNwIPYBiTcc+X5IeDV08myPwQ021i36uPFDyYBWjZ8MwR0
8b7vkwqWbbAhl6Rf1E5AGUpRLZoHtoNRlLnwv+cEFDendeLNGwHwPcSnrxtN
QH2McxPWmwKQ/rXhWkQ4AUmle/zmN94J/8jq1aK3CUjnUale0vpOyI0WddJ1
IKDdWnzTLtaCQIj5lR0hR0DbtTc/5ZnvhSPKbzq/SRJQVe5/l4VL94JDl91f
URECevKp4WeDkBCUbes2ek8hIK2hbLO2OSFwjS1b+LbGjWaTM/5xtQpDU9x9
FbFqbhRtr+rgGC8KKyraF9zKuNFPEbF9R2iiIErbDHv/nhuNXR/crNkmBr4C
V7/rZnIjb5sC6W3RYiD13CLA7RE3cuWzUGuKFYewF2LV7y250RGFJy3uNRJQ
pNr/858xN3J2PjY8yiMJg99j+fVOcKOra9yXj5yRhCOCXE7f1bmRGQoKvPNL
Eibj5zm2RLgR/yK77uB+KdBNLDfSm+FCg06GvZyNMjD/qG+TZZwLfZ/W5n4g
eABe3NrIqhzgQuUayflz7gdgxvYou1oHFwqo8fRwF5CFKNH3VNlSLmRp6BsT
5iUHPzJy5ClhXGhPd7h7cr48hD1r/tF2hwsl9e1ljBySB4X70+Hhflyo6FuN
AgdFAUJc9k+xXuFCzDqGGeE3FUBa9lXqmjkXEpLM303RPQReBfHkH2JciLQT
1eszKoHwy1L0Yg8XYlG/KntETQkao7+5W+7gQtdU5G5U3VCC3Td2NLdzcSF3
oenM/BklqFKJDq5e4EQaD8VO7h1WBt7yB8uZVE4ksXW8KmlGBdLrfbo9z3Gi
p3w7+OceqsPzQ17ab8w40ckgvm0WI+oQnuiR/8OQEwle/171Xk0DPDxdH+jj
nMjftU3Q6ZcGaAidx4T2cSKL14UVX+wAOr3w9KY5DsTmzFrDh2lC/ZA6hWGS
A9mmbYvY7aEJpQZHA5WH6O0z9VdK0zUhRfTQ2ZQODiTZ6yaaR9IC11YxXq8S
DqTGp8f3ek4LmCTYvUSCOJBlu9glSt0x+B3BPGLhx4ESb9uljzAfh8mNrVPh
1zmQaTzf6fNax6H1y5rUqhMHOv2nxNO08jg8D5jubznJge7T1G771OuAfNfn
497bOFDWcvXsgRU9sAl5uq0tkx19ePlBfGXKEFphhd07jR3V1Gs0JqkaAWxY
rgsnsKPaz2creMONQNhDcMDjCTtaimrzO6lwCoZt0zK3e7Ejrc6AyCItY3BS
y1ez0WZH/06LXR/JOg3dKyQ5dg12xDdoONb37TToFngK5x9mR0FNknf0OE1g
v5QKK5M0O0pcX+T3/c8EprdXtL4msiNrx/cUu4Om4L7YfHG2nw35TygGS3w1
gx+5smaxPWwohPeXQCmHOZz674kOfGFDLnKFO9vBHOQHTWQia9iQpulKzr08
c1j8/G1ZKZsN2RGjPmrHWIDXm4l7/t5saM8NVeq07xm4dYH5LTeFDdlGD31R
KbaG/Dbdx50ENjTnHbh/5J81DGPh7olsbKj57p40ed3zoLNn28GD66wIc9Jh
Lf52Hni/S+SbDLGiPgKbXAybLSSZnih4nseKUoVar51HF6C96nGU3RtWhLuY
VEROXQCmQx0eMi9Z0cF6+TQRykVwIlorlseyIvjgsmJx6SLIfb5cNBjAijRm
43xl+O2AqhP5QdKAFfneXfq2O9AeFt93xc4fZ0UczvtFLuTZg/i+XTc/Aiti
bOZ7zjVgD2HML1VOKrIi/SuP9z8DBzBGRSXuu1iR7dUWx2xWRxg8Sit9P8mC
Pm9NiNunOwGDrBBV+y4LqlNTPtEHLuC/XdPm7i0WZHqDlNkb5AKrW3Z/626y
oFjhvYzX61xg7mu62gkXFqTAzXr6+ilX6PWWKzE+xYKyU5gDO53d4EONxrvz
O1lQrgvKEil1h0NvbY2TySzIrj8tGme/Arlxd34NcrOg0qaAFW7zK/DKpVbW
4R8zcqls1stdvAJRRMMslxFmxO8SKicUfxUuW1u/vJnLjDyLHfcM/boGk8dv
aX1MZ0bJT25vE9vtAQ4HU4bWk5nR7H7GpVo9DzjLNCp0K4oZWd1kkFJ46QF6
ma4JITeZEaPvMc131p4gvuwbE6nJjAInOI/9Gb4O3x8+v5fdxYSMeqTXRjS9
oaNWOOdCGxM6zbS84/NNb2jZymjf1siE/pStRgq99YYKzw87A8uY0AURXQ3m
3T6Qdq4j2+wlE1JNqjpM2/QBFxme9r9XmdC8hJ7p6Q4/2GgKFDAmMKEZbhlp
N9ptWGbh0GBlY0KDIntE3XgDYQ57crF0ixH5tg8oDssHwmBBYpb4EiPaTbKa
euIVCDUvStX/fGNE305tnthkuQPhLssX0jIYkZC5ZPQVuSDYzeX8ZlmLEXnf
9bgf9iEEbCpawkXVGVGq/SBFZCwEUj0UrhorM6JelvezFP67ING7fjhHkhGV
lDCUcHnehYM5j2rsCYxIbflF30nlUNAyKhz42sWAFkNLn8c134P/ov5te+fM
gI6ccbTW0X4IOTr2f35cZEAirYE7NW49hLn1+j7COQZ0s4BDN+XjQ/Cwj3zp
bMiAmtU1zd4qhIO/kriC8CEGVKBJXfoj8Qj25kY/27u6RQ0MjHDvlngCrsrS
rL27t6gRTvzn1qiR4MH6McOLb4ua9q7srfhoJPh26Z4gM21Rd45oVD/miIIH
Nxyf6E/8o6ZLJ9nvMYmCrPcpO0ve/aOeZSxaPzAZBVPKO+RidP5RP/en5VoJ
P4VLh1ksT139SyUceMNJrI4Fd7boP9N2f6nGsVcOhP+KBa9ukYRQ87/UDGWR
6VO74yDUC4bKVf9SfY51eOV5xUH6B1/XA6x/qaqM4/E9cs9g7PDCbc4Xm1RU
bnCJnPsc7FV+ZFZXb1Arx27edRxJAKdMFQud4g1qD5ft98ZtieCyM5K5MWuD
qiItIn9DLxGubmjbtEZuUD211YZT3yaCP/UN5ZvtBjV30cP37K0keKp749bc
xjr16huZx2hbCtRZEsx2Kq1Tv3lrNxwaSIXGBkfGBMl1akR3iiPlbyq0HKW+
3Su4TjU68ClIUDANvgp6cIozrVN9sKqSNMs0GBjoqZBr/0NdKo/1jviaBmuX
Xkodc/tDFRJJkWNpfwnS3qpb7q/WqFZLxReEpl8D6jeSHoldo3aKqPwQI6aD
hba9ueX9Nap7lovaucPpEMQbng3udOZk2GcfnA7fXvVbEo+sUcvvEBN6hTIg
7Etg/rvmVeqwVRZ6ZJcJ49L1F5cXV6ibGqX8w3zZ4B/RG+48tkJtU/jQG6Ke
DeSVX8V9PSvUkFNM6Tb/ZQNWKcBbW7ZC1fpxorS4OhtiLF1KY0JXqC3H3nIz
++XAsRAeisquFSrT9ZXa7cu5kNpvWuOj+Zt6jj+22jMsHw6NHlrvVPpNbddO
tItJyYeaaZK8/P7fVHmTJIv2knwYX22LH+f9TZUh77WJmsoHabKBp2nfMrW3
OL9e1+AdFOgcE5W9uUxNWj/vc2t7AdTkKQUO5ixRE5NePNOtKISJO9vUdQUW
qWUJfzSkrYuBKyDvVzTXInX5TNOBswHFIOet/3Jwc4H6dlfD98ykYvByD+Dy
HVqgTicMOKcNFQPbuTFaTtYCdVQ5Zo71vxIQV3p/g6yxQGWUuVXzIOAj2I2b
5fVfnKd6517ksSn/BKUx+49PWsxSbx9uTRk5gUB+6tvywcRxqlpgblltRi0c
K+3l/GsxSL0cJeCXoNAMV9/krZEoHdRXVaItO4rawcJJLPWr/0dqaIGrm79P
Bzy45hkW9b6ECnoZ6bXBHVDuX33FZK6YStOO3sH5uAPEo+2xr7YfqJxPpO1u
pXXAIvVl7xetQqq6QOqGcHMH7FXUO5BGyqKeaPzP9KhgJ8w/e+6w8NyOeu3c
2OqpD53gz/S0VueIPmwUSjyspnaC3Av7ev7DV+Bh0tM7Bxs7wVSRVhaqGQLS
s4M2872dcM3JdarmaSwwq+835GfsAgaG91v2FRlwf2M0mabfBfUt3x4ompbA
TH0N+2JnFzh7f68/J/MRwri4uwk/uoBDvJclhLkUrEyPp++e6IITfn23Ogs/
weHsK5yCf7qgRWrA4wY/FUzP/2WP3N0Nztoeub3TVVAY9SzU9GI3uKXcjNmT
0witS7mS1UPdoL6yWqgg0AQdLHJzNlPdQDDw/no8pAmu1tVUzM53Q+6qN5+7
dTN4jVgeG93qhjkj3/sVhM9goF9jrLinB0puVVTkHW4HF8kEZUPzHlCVrSww
jusA+0QWZcqnHlDu7I6taOyAhv+KiyJRD8j7zfge2OwAJxXj28x1PSDRuEOb
42InRM0xtqP2HqA4undQpbtA7G2QbepYD8wkCC7LVXTDsQcC/osEGkxoK9AS
6H79rlP0SSXRYHhap4xLrAc65geUtbfT4NsRj5Dxez3gnMjYaiNEg7rOBv6k
0zRQP05L+i1Pg2SClzLP2DfImrdSiac/f1H4cKffju9QGCyW5GFOg9izqX8n
9b/DGveKkboVDcIzW2pr3n6HpMqr19Mv0MD7mJiFv3cvDKTOC3a508Dz5xHV
6axeaFB8KoR50MA9ymjvmf5eMKVsV3t+gwaOgz7jilp98FTKNm2fPw1M/Nu9
fnL3A2nfRHRsGA0MxcbPWmH9cJ6hpPjJQxroNW1g9Vf7wWpJqt73MQ0wAUn2
l139sEsu4anEUxrIFAXEnU3+AStMpRc6k2ggcS7ar+HLDxjzn7a0TqWBKNMb
28MsA3DBP5y/+yUNBIw7Jcn/DcChhwMtSZk0YPLa1uewcxDIfsfrQt7R4OyF
rK8lSoPgWbAYVldIg4IT0EgwHoSJU1Puq+9pYCf034ei0EHYHC6PkiilQSnn
vxyOtEFwXFqtFy+jAXk56qV1+SBIlyvykStoUNVQFsGyPAjyWePVHytpsKvw
9L0zfEMgut4mdb2aBh6J4wE50kPQ7ZUctaeW7q8H0dXs4hAoRprbajTQwNf6
9cVM/yEo56krK2ykwVcd1TObcUPA91CeuLOZBsGCDsdftQ4Bduv+o/zPNOhj
/aO2NjUEt6Z2FQy30kBp/tEhA9ZhaDOZqWRup+fvu6hUivAwrFtmlFK+0GC0
plhoWW0Y2CYEXpC/0usiz2C7nuUwNBxXsGHooMHT50OEBI9hYN7JwtpP55lg
L+b5R8NAdG0Iz+ykwTF37nXtN8Ow9Y62ZNdFg4QzKfNxNcNg0FVwhNBNg2Ut
5YmfA3R7xTWrV3Q2kG3qh41hoL66bCHTQ4NXO2w7o7ePwKXgjQOpdN5kXG6a
UBiB69m5faw0GpjNhFWqGY7A5u1CBys653TvKXniPAIRs7Y18XRmqSx4OxI8
AlFuUhstdLbO1n2tkjwCvMxZHLN0Lorpi39YOgKCOskzG3QmBF6LGugageqz
0+l/6OzgwnZfcWEEnFeeqIzTucws/vY9wiiU2pQkVdKZH+S9eiVHYf9/eX0P
6ewmVet2UHsUaD6jC8foXEs5ax9sMwoHg6Z/zND93/tvzqrHZxRa/t18FUxn
r8lgY5mYUdj+20mbk86tXwV0b+ePgsF8UVkAPR4S5bkaHc2jsONfEGmIHr9b
GVpKkhOjkJm1TVuRzt2RPdJ+TGNwerPT5Do93qFOjAJiR8fg3Kw0pZqerx/G
sbw3zcaAvVWrvp2ez8NqMqzNV8ZAt+n+hc/0fI/zmS96pI8Bb92Bk9H0esDW
pybrKsegZkY81ZpeL7GjtwZ29Y9B2OWQMf4WGuh8zGypoozDUqbyMRN6vSW9
1KjefnAcjnpoOPTU02Dl0dePLifGYVeywK2TdTRIt9tMJ98ZBw1flRwGej2z
E4zv2M2NA6+DtlnyJxqckTyLDnNOAMoylE//SIMsLYctLvEJOD+0GyUU08DI
xzug0GoCRhouclvR51vseIoPS+0EGLQtNPJm0WCSMbuENjABsz9yy6IzaKC6
5/1qzvoEFEcK3eN4TR+/aeMNc/lJ4D7kW1yZTI9n5cK19PhJuFxuKuhJ1wfv
vo183w+TkOG278LNSBo0rbLOG32ZhOgXjzJd6XriLrfLfZVtCihxjtbidP35
EK/loucxBT78vQw9vjQ47hVtN603DU69nJK65+n+RSamVthPQww7f7kRXQ8n
czIGo25Ng5ZfXq0OXS/DRz7ZqBVNw48vvkYchjToNB49Gy70E6Ka/ol9VaPX
m4yyqdzKT3A+ddM1jK7PH3Qgiok0AwbtT8Ti6frNYaf/pVtmBna8nv+eRNf3
nGfnT92+OAMp/cnuPkz0+cQaerK9ZQbetZlp+s/2QPBgt7bHy1nITS3KqqSv
Jz8+nrzsXTYLpqNdOkb09UY1GsXe6pqF51eKL7W+74H541lTD9jngLGHZv0m
qwdssgOevHSdgxnO5N3N0XR7L/HeTsVf0Ly4dLXOvgf+sB79KGg3DwMn2CVG
17sh3WPpc5L7PDxlFni/vNQNZgO5wyJ+88D0rZt/faYb8ktECfufzgNonr0+
8qMbnFwJtkp18zDK0LCmUNUNne0DLIbSC8Czyni9IZRuHx9qfGtxASZbS/gV
OLqhmRI6wcewCBHzLF74VheMP7x7K5VnEWIf+gcdW+mC3f4hOTX7F2Hlk+ug
9GgXhFkHcXDbLoJ12qFwD2oXXNhzC8U1L8K7moSiTc8uICbfkH/3agnUFeZz
b3Z1wpU0B+KoxW9I3H7En+NWB9i4vNhz784aVIVuJMh9aof7p72OKiZswNLX
m6oaTc3Awh8zfnv9H+yt7r5U8aUWeprvzofwMeJjbPXpJdUInmKJx823M+Ia
bhv7tfMQmLwrerFvDyMepG+k2vsCQWvsyLE6aXq7VpGKkgeCuouaz9l1GHGn
Y7u/PhChH/tXNzUf+DPiJ9PfaGewUiFW7Hr0kylG3EOq2GR/ShmY+9kdflHN
hJsv9sS9li2B2ER+ttVGJjzD7HikGm8JdFPrukzbmXD9YgLrzFwxWLDI3ODp
Z8LVlnQvJeQXw5lHS4WBK0z4NoZn1mrKxXA2OUThkhQzzutSGOup/QEuVKcf
UHrCjOdddUpv8yyClLEzmxExzHhSOPvoB8siGGLnbpmNZ8bZ9b/El6gVgZ3B
FdeMTGZ8R0XlZW6WIrDvUsnaVcWMZ2wOqs/FFILTRIMk429mXDFrgvt1RQG4
cf8UbT3LgsvOsaoWir2Dnz6lLNwXWfCPBQ9Ez3O/A5fJ++O6l1hww+1Z3UJL
+XCpdn9WpScLvtY4GvyrKh/sbjspvA9nwWNpobuK7fPp+4AhSKhgwe+1r+xH
pnmg00uzdhFlxX8YCu4sisiBWv1MLGM/K36qnP/6Tif6eaHkpvCoHCseVSkv
8FYtBzRjto+eV2PFWZbnRhwmskH9lJnraTNW/M+97h1smtlwqLrN50goK54f
btDM9PcNCGXXxbJNs+IzwXWaanEZYJZc8rFpnhVX80lwwK5kwIPorL7Hq6y4
Eve+Bzd0M2DZ77HoDlY23MCmx+T2Wjo0GVi8lRRmw219Q9j/WqeD19xYrZ4F
G/5IQKfrzsHX8FmB9feDKjY8SaniVd6fNGCSWN1xqpENt2Ia+TvTkwZHdk2p
UtrZcJ67rqVWH9IgjelzYHw/G16utq8SeaaBd8dTQs4aG75atbcEzaeC+A1x
8c9y7Pj3VSzWcSkF/Eq0Tfni2fFznhUvTJSS4JB1+7xtKjs+TXj1uHErEaa3
rB/nZ7DjNd/SDB80J8JZXa/G00Xs+N2jCcKT9omg2p0JTz+z4yJl6ZU8zxJg
bYnnwE4GDrzlVR1HHU88eB2ksYg5cuCGe3k0ybLPQK7DIc3TlQMfubqfF2d8
BuNeC1BzjQMHUecjeV1xYF7B5ed4iwMXLWmONb4dB0qGGgsZcRy4uKjM3mdd
sbDkktZ/oIkDrxCYe7L1KAauprt9OHyQE0/mqLhpfSAafrQJxvAe5sR5tgnb
yrNGg+GfJs9xdU58dlpCTfdHFEgbSCnEnuDE2aWOhqhHRsHowlj2b0dOPOGY
vq76eiRYatimFiVw4quGjK56tAjAOk+HH+Liwq9onWorDHkEOX8ZXLlIXHhY
YFdx7/FHICiZrz+8gwtn/xZveIP9Eaz58LJH7ePCc/lDiBsPw6FAqPnOAs6F
qzv0r8CLh7DP9djN/JtcOK2HkLe/+T4QmFTs5Ma48Ggm6nZL31D4eJPZdPwn
F65atuFwQz8UnGbbtJMWufC7rwI0fgmEAqI57+Nl4MbJuz55LJXcBc+8F5Oz
u7jxh63PDQ7+DYHv1v/cc425cSE+FknG2GC497XJ1tGSG/+p3DL+3CUYlPTi
jPfYcOPmieLrdyEYHivKH3rkyo03PincYzEdBJpcdr/dQrnxa7kOdxq0gyCz
uNbvQBk3jlYqHoSx3gFz2Si30SpuPDOL4ZPgQCAwvbQ5n9DIjXsZRQSslwSC
9eNVjNDDjf96VfXt2eVA4HOUYppZ4MZFb/p0xhXdBi/yo7BsSQLu8sbzg35Q
ABy/bBYjHU3AnbY5/McT7APXoz4xXHlOwJuaxYzOnPSBV8WiboXJBJyv9J42
L78PMDEtaKnnEHCPe70lJenegGIfzRvWEnAV11W73+03QRXVnby2SsAfNY5V
+x/xgv/GZIvf/yXgAjynn0mze8EzrhjRdWYe/I7pNaWj3Tdg1cz+TxCRB2/f
x3zS68YNKJraSn8qxYPvkMZbbEqugxzlKFPJOR5cpivAxO6UJ5w/knJ58yIP
vmywttoh5gnh59m/4c48+Gnji10Jax7wM6Mrr/E6D96Qyjf7v++Lmeoe53sf
8eA/nZeyrDavgZhTdsk/Kg/+7sZomGjFVRD4uOfKcXFe/O6/UuW8VTf4Z58h
SJLhxcebI9Kfv3WDUV6Fhj4FXryAWEGWcnKDfIdjIteBF3cVMx5X6HEFXaJr
R9pZur3gQZFG5AJel0pUGCJ5cSPhKiLjO2ewJmuNNsfx4uKnPXmzrjmDVnlz
RFwSLy7sb/xv9JAz8FIGpuRyePFe2Qx5QvElSK9gTThfz4vbqUqlM9Q5Qdc2
U4ZPf3lx/e6td4/+OkAp6ssJZeHDPdzKF7/UOUCKq5OVCTcfHu862h8b4QBu
lT4FUwJ8+NcbBQlJ+xyA5XKKg4ASH37uyTOf++b2oFQz23DDhQ8Xrmtd/tV8
EaI8wiLle/jwLGUm414BG1hvySkJ6+fD5aS3rsp/Pg92kl8GBkf4cA3+WdVD
QedBsW+nXOQ8H57P7eN4eM4aptPMx9ZYiLhZVViHYOs5CCdM3LHaS8SXy7LE
juRYATrqE3NXhIh/tdV7XupiBctO3G/eiRPxBCY90S4pK7CuPNjOKUPEo3VY
oj+/OQOyXt57S1WIONvhc3ZZ+ZbQOsD5addpIh7k4DPP880cmHgSWnXMiDhj
j7JASIo5HFaVG/awJOI3HY3abjubQ9JTE87m80S8q/HUE+Z1M7iiH2/p50LE
/2WJqu0VMwNi4YHl3mAi3k3rv/8+3ARMQk/JJn4g4r+GA+an3U5ButW8/seP
RPxQ83eV6V2n4M+BSKeuMrq/pMffcxuNIKXjazJPNRH/++HrSz8pI5gVtiDf
aiPivbvPcbIsGkDYJ+tVm0kiXhk40HHp9Qnoe/yX4veT/n6eebU5mxNw0C5J
Pm6OiN9JeCsgvPMEdHMM/te2TMQ57z62CnyiD2IW9n3ASMITVMsLuEL0oGL+
v0rhXST8B1O5Jc9DHSDXcP1Q30PCbThPeaQa6YBjXPb6GWESbiD1t7eJrAME
bFYxUoKEB1cXXaYlHAerh1fTGRVJ+MTLspbS4mOwvO/mw+GTJPxz1u97oeza
IH0uxPxVAAmft86PYWXHweraBzLLHRKuIqEV5/wWIOzeZJt9CAmPiNmu0XoK
YKzQ4ITYQxKuWaM1khGDQQphG6Q9I+Emof2PDGU1YFvF6/0phSRcWdGOrP5A
FY519oxtfSDhoZervyweVQWPac6XtqUk/JiG8vqD6aPQvt19j1AlCT8avPbA
wugoPLhymJzUSsKFdE3GdwsfAQaR+o34KRKumOZ9I2xaGQ6q/CnZmCHh/oFv
w00ylMHGUMbr3DwJP0PZsuhzUIZPPk/md62S8AZbFnXJYSXw+mo59pyFjI/N
nqx2GFOEn8GTrXFCZFzzWuTiIOEQ7HqxK3xVlIyzKanU1HYqgF6+gb6lBBm3
ZSnebZioAOl9+dXbZcn4yDrbG3V5Bbig7FMSo0rGa/Ivb1w9Lw/d45xp0eZk
3MjaRyg6QxbqzO4nfDxDxh8coVZfMJaFD1UccQPnyPiJz3db9qwfgNgk9nAZ
OzI+PpCeam18AMwtWL2q3cn4NVpEQg67DHTWMpxYukfGmZwWOlKS90ONYuCx
nQ/J+K3b3yjmFvuhKHULg8dkfKmFx6GLZz88Dfin+PApvZ31K+HQbUkwVd7c
I5ZK7/9p+39irhLw9dXqgkkpGffdUnum5CQOVeSbM97lZPyMtGFCxX5xKAhc
GU9CZDz3wr/dKz/FIMr6d+90HRlP9sm653RdDE7zL9UGdZBxnoCuiN2PRKE9
eO55wQwZN9hns/1SnzCghctPab/o8T2n3/g3UxjybWcf/1sk41byGrGSXsIQ
oTYTfOIPGf/NnuIqRxaGU0tTl4dZKfgVda/nFal7odVuTJMsRMElDUj+O9oE
YYglYy1GlILHV2yIXrgiCMvpznk7JSj4W99Ajx9EQdj58+duEVkKPld1/8ll
y13g4Lm4elCNQl/vokM8FgVgPXgr19CSgq/VvinYfX478EhUOnw5S8H3ftmH
ifBtB+GGIEFzGwoe1fTi876qbXCcwHbf2pGCJ7BaN4nKbIOIpwQHV08Knsn+
oP0ZBz9IvN656/4TCp7mYxO2PEeCo7q97YRoCm4d/2M1IY8EBlMJ9yJiKfhj
IbWLAtdIcE1W+HdcIgUfePR9JmCFCGXvJdrTsym4n7UeVwUXEUzqFENr6in4
bVet/OVcAjg6/1bXa6bgFx+6R5zXJYA3V/FScysFt7I5wiEyzA2JRqoXO7oo
eBvHZGG6IDdMduPqwyMU/MLhM7ZHkjhh3ZtpyXGCHh/9ZHZGLU7gEax5MzVN
wYublC4zT3DAIVvdHQsLFNz/3ZGR10occJyRs/X6bwoumH1fH+tnhzMvm0LW
1ij4pYgCAcZ77OByPFzNf5OCC2U+iJtWYIf//38WP6vWv2O1nw3+D1D6e1s=

        "]]},
      Annotation[#, "Charting`Private`Tag$47869#1"]& ]}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{-2.12, 0},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  PlotRange->{{-2., 4.}, {All, All}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.7966984255592375`*^9, 3.7966984378591843`*^9}, {
  3.796705343625503*^9, 3.7967053624893312`*^9}},
 CellLabel->
  "Out[107]=",ExpressionUUID->"f5db2c58-fa42-4e76-830a-15c967dd044b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{"RandomVariate", "[", 
    RowBox[{
     RowBox[{"\[ScriptP]", "=", 
      RowBox[{"ParetoDistribution", "[", 
       RowBox[{"1", ",", "2"}], "]"}]}], ",", "100"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"DistributionFitTest", "[", 
  RowBox[{"data", ",", "\[ScriptP]", ",", 
   RowBox[{"{", 
    RowBox[{"\"\<TestDataTable\>\"", ",", "\"\<AndersonDarling\>\""}], 
    "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.7966985261441708`*^9, 3.7966985362144213`*^9}},
 CellLabel->
  "In[108]:=",ExpressionUUID->"62cfdd61-98ba-4607-8be6-6a7eda5b5bbb"],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"\<\"Anderson\[Hyphen]Darling\"\>", "1.3963173757328065`", 
      "0.20300280204823162`"}
    },
    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.796698529271854*^9, 3.796698541913519*^9}, 
   3.796705447119811*^9},
 CellLabel->
  "Out[109]=",ExpressionUUID->"b7ba773e-94a7-4cf0-bcb4-809796a6af20"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"ProbabilityPlot", "[", 
  RowBox[{"data", ",", "\[ScriptP]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"QuantilePlot", "[", 
  RowBox[{"data", ",", "\[ScriptP]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.796698575644766*^9, 3.796698605751268*^9}},
 CellLabel->
  "In[110]:=",ExpressionUUID->"ac64a221-6c7c-427d-b1b4-f4bc0ad24592"],

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:eJwtlA1Q03UYx+dLSiq5PMthBwGiIVI3ExVT/EKpgC8koIYKl5qKBB46kDw4
cSaachZMOVAErQNfCFmCMFDQE2QCwnI4xpABe9/YO5ZwZGbxf+K52+1+99//
+T3fz+e5ee1Jjto3kcVi7R37MN/8qBuskcijyJgtDNWkZ4EfYrzIEh4bP+ch
+OKB3CbRJdR5nLJG1l0BK/Wyw2dT0fjzUnj6DC8MNxej8BJTZeB7bvP/9ORV
3KXfC8ENM9QLTSWwRTIdKpF74GhvreeN8ferwX37RArLpQLTFCWHgqbVYjTk
Iw8TrwrU7tJdcK+0WSRxd+Abm9M07NuAnzdHpOaEV6OW+j+ANFjvVxxUA+Zt
RclDxERZThTsrIGV7mtEz7S4vR5T67CE6hEevn6VsNS1bvz+ZnAFpVLBrHo8
GmZuEIPbZl3w1bN6TKd5WtA8Xb6k0N6IaALQCk5dzUn5yCNcpvnaEFAbf8hz
khi6dKbhE/QESuATKMYimrcDPruUf/iJWpDCjHdIAvVUvynVrq2op/l/R+lL
3eIQUxsmsJiSwiU97PoitOMa5ZGied0MQfQ/7QjXMBd0Qvq4XFqbLoGd8nXC
ZU77Vn6NBIImJsAz5M0TekpMEiylvDIE6jvcbcuf4jkBkuGV+pvkF9s6cYzy
d2HdavcPj7R3wosZx0OOjuVpoRwvGcTEQw59kBvv3zAZEvYz1Y3q6gpXv30y
uBIfBSYHJU1oSJShMpQZUAFOcrRYGdGFrcSrB2GXeTkZ+i78RQLHzjO7b3wZ
Kkcx8XuOvuGM7tICOUJoAXrB3SC4/ZtGDgPx7MVIydf3PGIUOEtClWAHXVu1
7IUCHxPfPhh5U64Lvn+Ozg6m+iBNW1j0JqcXR4h3P4LXShOLTyvhxsSdPYCH
L2Yc9JvUh/vEfwC3VlnnNyzux26mXawKn22/ujtf3I+J5EMN6YXaIeVgP7ZQ
HjXOxdjjNxwcwHXyo4b6tmLOykYVRimfGunsisPnbCqsJ18a1MnfL2uep0YR
5dUgQH42KyxXDQf508DGdps1v1yNYMqvhf951+9+XKPBefKpxYwO0YOE4xro
qZ0Wol8j4zLPabCM/OogjJcW/q3V4Azx0SHmtfHMShctekmPDqPv7czlpI71
JV56NJ+Y18Qq1yKT/OvBqSpjL6zQQkr89PDoGlidoNLCm/bBgCcD+VGjWTqk
Ek8DpqgU6tOVOjym/TBAFOf6S0SVDhzia8Somyi5wF+Pb2lfjNiz4nWDbOzc
QLyNGErL2BEUrMc7tD8m8DneRbdOGbCL+JvwecfVm9HlBlTRPpkwEsHqul9p
wGTyMYhB0Rr50cNGbCMfg+ieGt6d0mPETfIxCO93w978qTLiFfkYhNDMfhrz
0oiN5MMMS1zuPTvXhCvkw4wod3yR32TCEPkwY1l5/OyoobE5yIcFMYa3podO
NiOPfFhwD5uTzG5mGMmHBUlNlSFLGswIJB9WBGQ3OrufmJH9/x8Qfor/YOTl
dgv6yIcV7BWqRF6sBZ+QDxuy07qGs3gW8MmHDTsEre79fCuekQ8bMkvFG5Vj
fXzIhx0BXjXJaYk2pJEPOx5vStnSmm1DK/mwY+4PvJn1hTbMJR8OBFoD3Ebv
2JBEPhxYsN5XubfIjgfkw4HYi8nHhaccYJMPJ261PNXudzqwh3w40Rva2LJ2
pxPV5MMJ74K7EeoLTkwiH0P4D4T0JlU=
       "]]}, {}, {}}}, {}, {}, {}, {}},
  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.796698608141507*^9, 3.7967055369434195`*^9},
 CellLabel->
  "Out[110]=",ExpressionUUID->"a08c3ba4-31d4-455a-b98d-da86f9d1ba6a"],

Cell[BoxData[
 GraphicsBox[{{}, {{
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], Dashing[Small], 
      LineBox[{{-1.0035043912158874`, 0.}, {-0.24895975354397237`, 0.}}]}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], Dashing[Small], 
      LineBox[{{4.455140332679863, 3.7627983122399913`}, {35.92850042594519, 
       3.7627983122399913`}}]}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], Dashing[{0, Small}], 
      LineBox[{{-0.24895975354397237`, 0.}, {4.455140332679863, 
       3.7627983122399913`}}]}}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJwVU3s0lfkC9cwhUiLM4DhGpTgzlVee+5dHuugWM9GgUklerdaoYYxHEQ2V
0aKuW1E5V1GRaooyFFGMPE8yZUw1SJ7T953vvI/DuH/stdfar/82Z9/h4ANq
KioqUQv4P2/jDV4OW0Kh1iFlwkmXQsMSXgP7CwpxVo+eTS3oegM1fk4bKRQr
Rc/jHCj0/H7m26tbKWwtOd7Y5UJBq3IXO3I/BauHl75f60HBP7l3MDmFQtL7
0P9mEwp7x01GJgooSOwd5RrBFLo65dceXqdQmH/9RuseCn+9Gq0ca6Tg2xGx
YttCL2S32amkVxS0Cwb9DUso1OQqVONnKHRw8+u3l1Pw0/Yefa5JYxM7y76s
ioL30kxOvgWN5Vzf1n89oHD/48/tTc40Bu+6S8JqKRxVrmIdCKIht5p0HO+m
wHY+vy49noanY8Q9y56FvQsnHuiepMEbOuB7aIqCyY8fvjIuo/GUv5z6SUDh
8S31yKsNNFq21IbPERo2PlVfVb2mkZ3JtMXH0Tj2Mfe+p4hGmWx1iMNxGvrN
lzdEGAgguTYqPZ1NY2+5wkJ7nQDdQWGzvY9osFefs/L/twCtdvFmm5tpNI2G
mFsfEqB2cHTYe5KGd27KmpIzAkRnjB1pZAmw4Y7GlboqAS7VFEcOmgpQsLnc
OK1LgDszmbJmdwE+pj5N/PS3AJl9uz0dvQRwdRe+MV7GwGWqXmdkswC/1zx+
prBn4K9LncyOXshxH6vxQhkYXvjLaVmjAIaUc92yNAbnvtx2n9cvQNaMZWxw
GYPWp1XCF58zqAi7ppHQxsAthTzZbs2gpcFjJPpvBq/4IbNhaxm4T+95GbBC
iJaYHWmttgzmrYYsrSGE5ciD2J27GFhbS0tlMUI4mXn0DGQwMGqJqB4oEkL/
fxN5IecZyC5MBz5/IkTMZPvawQoGBtdLOf3TQkw+nEg3fcTgTX9itu7nIngW
zbRbLBeCv6f2bJq/CLyAo3dCXIQw97hovyFVBKfEwL76MiEcVWM93KtFcIng
5B2dWvATk4/efC+CK2ejxsP1IpgO693MNxLD47u0HN8QEUwicvskAWKMbeoN
9rgnwhQjMp09IcaJrNsuHxd6TTGndGoaxWgqDOp0nBbBR8uLt0omxt1G/i9b
jMWorF+V+qOTBM/vzV3JPyXGJ2Et3fK9BL6hhcqmC2K0G2sEWdRJENWUMri8
XowbKs4aFXIJJopTI+O1Jfh1jV93OpHC1OXXobPmEqTl9LOe5UqhMNLh152T
oMMOU2UvpVg5yvLe1ypBHj/gD3eODEUOSOX0SOD0ari9+TsZSOxSwwpjKbjR
rf+JfCZDNju8/a6zFKdZcYVbzeRwtjvB3VMsRTqrWdmcJEfb4y5F929SFNtL
q2f75eiL33G794V04b+BLV7OCgR+vdLOVCHFRn5pxvtSBV5zw+V3L8twVqva
da32LDiH/kic6JQhps37bHrKLEoKx97Vd8lwcHvAba9Ps8g56Ej3BckxWG9M
z8QpUbF+SNcoWA6h2WdtqjNK7NjLL+84KMfhAIVwadIcbLzyMtliBbKirLc3
L5qHltU+zTGbWQyH7tPruTKP6Kx018r1s+j3YB9gcVRIMC/VztpPiQS82+SZ
rELiHswb6k4qYfth/O2Klyqk4Yv1H74RK2EQ9Oaik6MqceUrS1gmc7i/cTpw
12VV0hVzs64/Yw4t+uY/JOirkSkXi5S3P83jz51uAYfz1Ej1olRx3/t5jCap
GF3TUydTUee+XGypSo69tjcvKFUnhfZbvu11VSXn10X5qrtpEBLiZn3RUI2E
m/JzfMc1SMKR3VHv1qgRTeV0im2lJrmV377yjI46MZSZLN6WsYict/ERP1mi
Ti4VXUzaeViLTBWT/akO6qST7VB0KJNFJpjjzXtDNUlihaL+bYM2oTOTBnz2
axIV33J4chcT7pHTzItJLSIb1hlwGdElN3Dmlm0Ii5g4n3SaliwhQ1TLhH4B
i1y52reB99tSkuNz4+vd0yyy85GLXmeaAeE99R0P9NMjbpaJNTYDhmQkeShA
u9SAeLWzzYKiTEhRe3jgsRkjksCd6YhttCCc23X+no5mpNu2y6qTWU1e/HyL
XIrhkH8Ad1sgCg==
       "]]}, {}, {}}}, {}, {}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{False, False},
  AxesLabel->{None, None},
  AxesOrigin->{0.9519745663476681, 0},
  DisplayFunction->Identity,
  Epilog->{{}, 
    StyleBox[
     LineBox[{{-1.0035043912158874`, -0.6035584356413543}, {35.92850042594519,
       28.9382631341475}}], 
     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.0035043912158874`, 4.301413182781932}, {
    0, 3.7627983122399913`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.796698608141507*^9, 3.79670553707905*^9},
 CellLabel->
  "Out[111]=",ExpressionUUID->"9d60bb77-2286-4fda-8049-23075ab22b5b"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{"RandomVariate", "[", 
    RowBox[{
     RowBox[{"\[ScriptCapitalD]", "=", 
      RowBox[{"BinormalDistribution", "[", ".5", "]"}]}], ",", "100"}], 
    "]"}]}], ";"}]], "Input",
 CellLabel->"In[112]:=",
 CellID->232235108,ExpressionUUID->"b9f1e354-26ce-43a9-ad57-15ac46cca3e3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[ScriptCapitalH]", "=", 
   RowBox[{"DistributionFitTest", "[", 
    RowBox[{
    "data", ",", "\[ScriptCapitalD]", ",", "\"\<HypothesisTestData\>\""}], 
    "]"}]}], ";"}]], "Input",
 CellLabel->"In[113]:=",
 CellID->147292952,ExpressionUUID->"fd6c0b08-9943-44cf-a0eb-4bede13920ee"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[ScriptCapitalH]", "[", 
  RowBox[{"\"\<TestDataTable\>\"", ",", "\"\<KolmogorovSmirnov\>\""}], 
  "]"}]], "Input",
 CellLabel->"In[114]:=",
 CellID->672445825,ExpressionUUID->"8d7a44ac-0fcf-4d11-a6cd-d887b173f9ee"],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"\<\"Kolmogorov\[Hyphen]Smirnov\"\>", "1.4865077797462183`", 
      "0.8681628698694209`"}
    },
    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.7967056321902847`*^9},
 ImageSize->{204, 28},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->
  "Out[114]=",ExpressionUUID->"0b61dd52-84ab-4d72-b9c2-7c4a0105b434"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"SmoothHistogram", "[", 
      RowBox[{
       RowBox[{"data", "\[LeftDoubleBracket]", 
        RowBox[{"All", ",", "i"}], "\[RightDoubleBracket]"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Green", ",", "Dashed"}], "}"}]}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0", ",", ".4"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"PDF", "[", 
        RowBox[{
         RowBox[{"MarginalDistribution", "[", 
          RowBox[{"\[ScriptCapitalD]", ",", "i"}], "]"}], ",", "x"}], "]"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"-", "4"}], ",", "4"}], "}"}]}], "]"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.796698708518819*^9, 3.7966987099004884`*^9}},
 CellLabel->"In[47]:=",
 CellID->616163310,ExpressionUUID->"88a016e9-55fa-4205-8f7a-ca06b52513fb"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   GraphicsBox[{{{}, {{}, {}, 
       {RGBColor[0, 1, 0], PointSize[
         NCache[
          Rational[1, 120], 0.008333333333333333]], AbsoluteThickness[1.6], 
        Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxdW3c4lm/Yfu0tGYVUSkWSnVRyPaKoJDsjI1mpyMjKygrJTkb2FrLJeh6v
vfeuCNlk7/G9v+P4vn++95/nOI/ruc7zfu/3ft7rPP94zhlYKBsR43C4qyQ4
3H/XDa2T3g+3qTDc/37+Pz7bkPlSe4oKYwtRCCkbl4L7IpJKL3upsFkZ0olD
dmmwjusSe4enwh7J8FxEjGUghsaI42MuFSapaNofXncXGuy2iaJjqbBvRqls
UTdkYWXi43SmPxX2ABFmCamRg1OKZ9vKHKmwPGl6vnDDB3C3Ij+/2ZTAv/tN
pPG0PFjw3IsYVqfCuoc2ElSXH0FE2JDznAwV9qu8odTq12PA414/3xUm3D/2
8InwmiIsvMLdpz5H0CejnLtFrgwnhkL52Y9RYb7UfNruPCqA3OVm5j2gxEyW
/saWaKmCWV7Zzo15SqwWb24YGqMGYacVRu8PUWLHRszP9ayoQ5Xvn1rNBkos
mkPk1E0NDZjZsMl8UUSJhTQHvQ7u0gRGA8oghyRKTOCx2rF0XW2QaI9+6xtM
iandOturjNMB45sC2pGulJh5t/PLVyW6EJSKRzJeU2InNKJyzO7oQxmj+qUf
2pSYZBZCVCb6DCZdZmma7lNiZcackuwiBkA/77QyeJ2wns1ZZVLJ5yD+hGFg
5iIlpj2lSLyuZggGNUkV20yUmNEZ2mGTd0bgL3A9kZKYEpNIJOP+k2MMxdHN
H1iXKTChuszpiWUTGKXQfc3zmwJbf65QsSn1AqhsVpTFWykw7luBfYmJZiAy
5ikuV0aBpUoWjVkzvQIdedYzGukUGBK4s7IV9ho+lH4jMQ2nwHzMs1+h3BaQ
dwFm7TwpsPTWKBt+4zcwEtTd/sGK0H/a1D9fyhLIDowKv+hTYMSvA1RKLlkB
/4udyDQFCkwskNUjhMUaNPr8XUskKLBiMapAN3obcJfiNGrgpcAinGyL+46/
hazsggcDrBSY/dVDw/GzttDPJis4TU5Yz9ge16G4HeC8h1m21smxZ+Py9CY6
9sC7+nqPfIIcq7WJLHP55ACqukR/TnSRYwXeOoEfmhzBpTms/hJKji2r3zXo
P+4E6WI8WWLZ5FjFj2f7lcbO0J1YHnwvmhwb3bpnHtjoAvv0j+3UfcmxYvE7
gp2n3ODSu/GnxnbkGKnw3+dnh91AcfrtHVsjckzbpPyEVtx7cFSh4vFWIcda
PuxtZL50h2T0K124FDkW2YnH3wAPaL8iuJYiQI7ZfxuavMruCdtfagaLTpNj
lhEXNXP2PeE86ZOqOhpybEApLe7PlBfIv5lL6tshw761UGcsDnqD7U9n37/T
ZFjssS/W+90fIF7uuMVGHxnWtKhqyNvnA02FyapktWSYKX77SeyoL6xxit9k
ySfDNL+Qt79b9YPTn1rOXownw9IWxpsn6fxBdkeX7FoAGba/kfhoV+gTWBqt
zsk4kWGz+1avR3UDILrLq1PVjAxTbC/aygkLhLrbbMWGGmSYo+e7ZPyLIPiX
kRVtc48M+7NZdBWjCwbWE8h7T1EyjIas10SvOBjuuPcYh50nw97uUXtkPQ+B
V0vG8skMZFjvr56OHJZQCNfaFSo8JMUO+8ev27SGAlb/6WTtAil28deOIZVP
GMwJnzvoGSbFrvak29jIfQbmuMLxiUZSjES+SKuSLhwkaeQa14pJMapclbvz
A+FgajeSTZJCioUPfrtElvYFQibMQ5lCSbHotEZmhncRUPGY2IHrPSnm81CB
kkE1EqbKP+uKWJBi2mk0PRTCUcDAc1lGWocUK5c42bPDHA03wyouqzwkxUbT
PLan9qPBEKd47PkNUiyDPeVdy+xXCHg1sW7FTYo1fFT/lzoSA6WDtsPuLKQY
d9aXsbfdsTAuQ42FkJBiQzhVD5H2OKDNi0lJXCHBOI6l9L0yiQex00If80dJ
MCe7PAPBuXjQ9619g28jwVSa0Rk9iwTw23ii3l1OglFeNeDf3EyAgmfzt8Yz
SDAuXxHJRbdE+NXmcm71CwlGFOBhKEmXBBQ3GSmIvUkww4AHV8ejk0AoNWXh
uA0J1sVnatDJlwzajDe6zxkQ6vkC1DgsGbxcWkuEFEmwV50yxiZqKfB9Ti9G
SpIEWxd0Xd1fSIEh9TV3JT4SzNizOqnIOxWIa7xNn7GTYFvKerwe59OAT4Bd
wZKSBDvjPI5qYmmgHp0t8n6TGMPufc+7op8ObhRSbMGTxBj5VWLJOaIMyLTu
PYzvJsa8Zc7Ue6dkQO+oyWQuRozFjGebrjzIhMOHe01YDjFG+ljbi201E3hK
A753fiXG/KIk25eivoHyhfOfx/yIsTGrf346d7PAKajIcdmeGDu9aE6ttpIF
qfty+jgTYkxbX84Yjc2GTtOfdxnUiDHPD+cdfB/lwG6vxRVOaWKsrlPgddxB
DlyQIjkuKESMKWQOSc3mfAeF7PBNOEuMpRtTCGcI5oI9G+/Px3TEmDXb3fcG
frmQ6FVZrbdHhJ3782QldDIXWlcU0yxmiTAmCGQThjzY1Jn0dx0gwoqFedsE
o/KAs9nOKrCOCOutoon32MiDB2I0GnEFRJh6VNjcaaV8sEmMvf09gQi78fkk
91pWPsTSC3OhgUTY43KW+Q3KAmhwrKPscCYizKOjHFajAliZ0lj6/ZIIo3s9
pKBQXQCnVBZ6ljSJsKkSs+++pwvhLur641CWCDvS7X1b4VAIFleY4ujFiLBG
0bafg32FEPkl1fPMBSKMb37mRpdQEdSQ3DTjZyTCVvHJ9yM+FcGiRdtjSRwR
piF95vHZ2SI4+VP/msISDhsraR/UkCkGKbl1dt2fOAxeRchfiyuGl4UfcObN
OGwoPC8/bacYwjhPTTmX4rDGzEGWRJUSqPLPafmUisPK+VrjTmSXwMy2VF5M
GA4zUxIg2yYrBUajvvBsdxzGlfvM5bpuKUh0mTpVvsFhL/SkkhqLSsH49v6z
Nl0cFjPQJRhD+wOCMgJlf8njsElE1jXd4AeUsXBdXbyJw5i+Bf79WfIDJt8X
Mx7w4LCXtfnH+GnLgH7p/jbtSRy2/UzYNVCvDMS1fv3iIMNhSc79B+t5ZVDr
/8dbc+oIDd6rSlImKQdWI0plB/wRqtc+vPlVpRxe3RY4HRl7hK78PDzdlFgO
GIv6TKnjEXo081yuZbkcGJecCgbVj9ALBU4ekbcrwLg+yWVb+AglodlpuOxb
AWWxzfdZjx2hohs2xVY9FUBvt8IsPn+IPjrou/mSoxIMHrOOPWk4RLetRhKo
DSuhmBu+2SUdotpBdhflMiuBGmds+8X1EH0hP7PD8a8SdAf9pUq0D9EPuR2T
74WrID+3gHbg+iFKv4oPeWNTBeS+wwObTIdoeJU3brywCrSeESWdWD5A61KX
7LvWqiDnBo+5WOsBukge0nlTCAVixsc31NMP0PeWQnxsr1FQn3tLaut5gJ7f
E7j6Ig2FTPzXjs/6B6hXCu4qzxgK+1E1UUUSB6gozfKDTBoMFK3njPpYD1BX
u8u/3l7CIPnhcaGN9X3U+9zcN1sEg20u8X3mrn30YrhwdpYmBvL7ug2i2fuo
oOx9Q1YrDOJ7vUJUfffR7o3HMz98MVjPytKxMdpHFYX2C0LiMZDz6uEJk9pH
W2zF0KRiDL7q7K4VnN5Hmabl8UstGCxfO4f27OyhDtEOw2/HMJChl/Nb69tD
BXwfmd1axyBiylyNKX8PvT3FrXeHohoWqj5zigTsoX/SiRc+sVUD8qViXtls
D1XrxajPXamGMIuJYqt7e+j1g1Kvo1vVMCVL7R5yfg+9E/wv5Kp8NdzkFHqU
f7iL9rCqlH7XroaA7Ses3cO76FKlM8NHs2oY73SZWCneRf91ktnV2leDWEZK
zvHQXZSGS4rsmXc1+L1vdRCy2EXPUMdXG4dWw2/NNRmlh7tomExTxUhcNQgL
szNYcu+i/rx/FOu/VYM3tdRIEMkuGpdKef5qSTUMj5uk5o7uoAosK+dO4quB
vzzAsrN8Bx2sMGLwb60G99AiieUvO+g1vt1HIf3V0P/yJwWDzQ4ac7aPTHis
GnhlSHoEFHfQqYFIQevZanDh4I19zLeDyhwkcemuVkPnuuILC8odNJiYinVv
txoutNmJBk5uo+aSxR+VSfBgnxJ7lINto5Fg7f+aBg+tznXN7V+30Sc7QtGq
THjgVF/4vGS/ja5KxPEeP4UHG36mZ/Rq22hqiodb1nk8NJLf5OMX2kbPyCQX
CvDigWNUf+sR3TZa+TewOFkID29KPuBfz26h9+JcIplv4KE2MOfTp7ot9E14
urIvggdW0z6N7IQttKf/UTmtHB5eIftcbc5b6IpddUX6YzxgrFz/FjS30PCz
0Gn8BA/MK/fLaMW2UHrzluNKengwbXrjxce4hRYnY46WJngoS/iiKL+0ibZ6
ONN3W+CB3rHq1KvmTVTh3lCIkz0eDJT/Tn1M3USJhyOdHN/joZiXNv+b+yba
83h1us8PD9QkIs4tupto7ZkLtRFheNAd0ZSbv7mJCkzf5G+NxUN+gRsTzclN
NL1hY9khAw/k/mm/edc20Nb75HbfCvGgZdie8aBjA2X04aA2w/CQI7FhY/Zt
A+2qu9pR1YoHYhYOxO8DoT7Shs8fwoP64h2azOcb6MLDmCKFaTxk1r3ob4IN
9Fdvm1z0Bh4OY4ISZk9toBUX0Ll40hpQti15RbW9jv59WdRjwlwDyQq/r1/u
XUd/K+vRbl+oge1LZCT3c9dR0GMN0hSrAfmjK+2m/uto+di93FC5GogfUI70
MSXUays1srVrYP27g2G6zDp64tGplmyLGpDziRdo5FxHO9nKq6I9a+CrfsPu
9P4a6s12Is45qgaWxZfqKIbW0MdMYR8182pA5jhLMHfRGiopa6p2rakGImZv
PZUNXkOJqkOdT4zXwEK1AbfJ6zVU+JBOhHi/BpAo31Xv+2votDmz0sGJWgiz
yq1MvbiGmt1M0KEVqYWZBwM+9URr6M5nKh8RxVqQ4DpUmfq1inJsT+bbmtdC
wN6Fs+Rlq6joWb2xoU+1MN7zcO5i+Cq6j9+6qJdTC2JZVkV3rVbRH2UWLVSd
teDnGelmpLCKriROyfxcrYXfT7GHXryrqIegTsbgiToQvjZ9IoV8FSVLL97F
SdSBNx39eO34CtrQxHykZlAHw39FsyerVlBE5PrhoG8d8Fdp25NGr6Bu3EHR
fvl14B7uLn3BbgUdKv175uXPOug3z6CXUVlB4+IrbBwp6oFXtnPoucAKan7+
L3+pSD24nN1K9qBZQcXZeDGuZ/XQvXX6TdL0MmprN5ZXHlgPlzplbtXULKPo
dG2AC1oP9ukvySfiltHQd7+/mi3XQ6tbSBex0zJ6i/FakfP5BuDU/PH1vMYy
qjG3pV2k1gA2QmMmd0SXUfvNgWp6vwZopKIQMWBYRumvONZ5ow0gXqu9TzL0
D01RxW2wbTbAmE1GiHTwP3TrKDWw9moj+Fzc4vG4/w/9mdDU7G7cCIL9Miie
6B8qytU1+ji+EQa9Q9SIy5bQlhhpWe6RRnC7PjYvZbWEfvt2dJH0ZBPwzFx1
f8+7hIap2OT9UWmCzoh3rNXji+jkyaydH8FNYH+/KQcXvYj6/qS6+qGzCTh3
T9xFVBbRPz46HdIMzVCbaTjiSrOI0hUFXZxVbIZX2vmWaM0CGkyRSmYZ0gzM
tDjKo3cLaL2aeGNvbzNUVDyKlRRdQFHrjgA61hYwfB0t6rIwjyo8P3aP+WkL
0J6Zba5MnkdrU2bT/sS3QGG72LODp/Noqparl/lUCzx19dySYJlHR8ZEsHy+
ViAV7P7k1DaHak3n5aRat0LW2NkLFV5z6OG5lmd3yltBNfh12d7tOXTrCa7E
maQN9qXKFW9tzqLZ1lLGivJtkLxKOe2YM4tiujFi+Z/bQD5J3bnMeBbt3bbT
jRptg3WVZKbdM7No95mxMzjedoggXc24MTCDeiYatw3btANSBIhD4Ax62uGy
9zmsHWaMPvWXys6gV+yV5VtoOiDoxMir7aNp9PP+KdqOJx0g3sBDIl46jY4g
F8e5kjtgzM420u7NNHqKZMkEW+4AH55agRKeaTQjXOVd25lOEBw6Xr85NoWy
KzHqqN3thEFfvadikVOoNavY2OrLTnC7mb36VmkK9dwc8EkI6QSe+V2fIqop
NH5c9t3TH53QGS13dqP6L7rBk3ZwZqwT7OXDi0Qd/6LNPH08k+RdwHkw8dBG
+C86dcjhkHa1CxqzhcYL5iZRWvo3g89Vu+CNrqv9WuIkqkfZFM/8rguYj7XR
i2hPokJbe1RFCV1QgbKnWDFNoq+qHssjjV1g+Mb0Vn7LBPqEnykxb6kLaM8V
d614TKBaWiZypCzdUNhFYiokMYEmtJO7idzqhqfuSodv1sfRomKqgJvPuoFU
JC4sN2scxZOlVTB/6IasiQXeZcNxVETUzbEyqxtUw25WC5weR+/LxCwLdHfD
vozPE4u+P2joo3PuJlvdkLzRt5jz6Q96XEIzXo+jB+RTuTyX7v5BaaJ0xpmk
emBd3ZKd/3AMvRLVYeVq1ANfKdDc18Vj6IcWkZ0Y3x6QKaWVzTYfQ220Cohf
ZvfAjKnWr4VLY2ho7mue8c4e4BRRnNaoGkVbc39fP1rrgTdh80yD/KPoasLj
sMoTvYBteCNP4n6jJon959hu9ALDk/Ov+4/9Rr2lfpXRafeCfmllpJrbL9TV
Db39xakXctk063uXf6L9evde5sX0Au7d+qrKs59o5V3NJxpVvaD4M/BsT9cI
Gn44xO7zuxfib1+RV74zgmZL5XRLHPbCcmy9fVf+MHq/otTD6nQfIDiDFEWu
YfQSN4v3RYk+CHp20NUROoTuDitfUdbqgzF8xKEC6RDKNUY9uG7XB4IXRK+0
2wyi93mfkVJ/7gN7r44nj/4OoPSV7hIBeX3QOGXm2ao2gDYXcJ5zaesDVjny
vIf1/egc94xJ/0wfmGYk/GoW60e11zZHQkn6oZT6NvWDtD40WeGRbsHpfqB8
NSjWdLIPVZaXmBK63g8abdbP5Xx60fVrXe9pFfshnf9YUMN2DxrE+sUIMe2H
7cDMinsvetBvR69am137QW7l7mzdUDf6KoWnPj28HyKU/7DcfdCNlpvuMA9m
9cNMgdOd2rIuVLPGiVsd3w/iLKwW0le6ULPQys+cA/3gY1sQjY/uRL+Yt528
Nt8PgwMKjVK0nWjGvplr8GE/IFa9s+932lG5EZVSkeMDMCZKI+023IaOjp2b
Y+MaALctqa8u5a3oO2LRIynRAeAss99w+tqC/kkLQjJlBgBz+q7wzrkZZZwa
plVSHQB9mEpz0G1Cpzk0+kWfDwCO+DSRPTSiGij1FVXLAYivVdGy5WxAG9o3
CrNdBgD54FdgQ1SPvuUVvYd8JOjfr6a1Hq9FX/d2NlF/IejTbhtZ1tSgzz+F
MtAmEvQ7+FGLZDxq/dJeSDqLoB9sxGruVY12KUekfi8i6Kt+tXxljKFGdosD
ilUEff7Uz30BVWhH+QDdpXqCXgGTXLdiBXpSyDqAv43AL/5+t52xDHVKAGez
HgJf5VJWS28JatEo7D40SOiXfqrXGF6ENm7F+L37RehvbDpep1GAvm32TlL8
Q+h/dL22mj0P/dKyvK0xScAp9xedfmSjQj4M/WFTBPz9grLt7Qz0uahzCukM
ga/sqNiiOhnNKddfSSdgt9rhUy/uxqPbNKnP3f+rx74kqgv5gko+v1gfPE3A
xtLhFtc+oXz67cSDfwmYU08l088WbfvUwaU+QcCswTQs38ygjr1chW6MgDns
v49G+UC+YfqvwxEC3iGjd777Gdq2la7yDRDw5GMZv9uxoJQk0BHeRdCflq9s
iUqCZ5z+b5AWQv2XpUb3iXTY3vk8yltLqHeHrw2GZIE760sajYr/+nUaLD7k
grXXGdLmAsJ+6S4zW9flw83hkl33TML9Q+4GtiRFUNZ5RcornrBfqiy5DlIl
4Jgmwt3zmdDfkXbg5PoD6PQPnln4Efrv33zoVlkOQFfR89Tlv/1ojfDYq4SM
mg2u2P/OS5yAdQ0HBsYSrmJihv+tb5utjpCLtKXDBHnUCb83Ox6r1yL4Vpv3
EnayBL4nH00aHWogUJz21yVxwnn5rErfHFELgpZSxjd5/vs+p4taSurA1C/e
uOgk4bwdm9Zu66+HTQoJz2hywnof5RJ3bDSAsEHIh+X1foj3c8joZG4CN6MD
s9LxfsA13lHsFmmGNmsi5a2OfnAjo93qUW6BVpznw7yKfhi70xfTZ9kK0e9V
AubSCc+XW6zMQFAb+G9uW6WFEfgqTeYHv7dDqPydlwuE5xu3Jxgy3N4BZhcU
iarM+kGQw5ljybYT+nCh/ZxqBL6yP//MCXNqpaQkkQ36IUjzXs2/z11wdNxD
OJuHwL+dGf7mYjdIBX01HjveD8vhx8xWCruBw1hOuHS3D+Kv2dy2kumBZZQh
6sZEHyj2DjKs9fQAkadu/ouWPsBZ3560ft4LlS1EsY8K+iD3eGLJ+mov2Bhl
+s9F9YF+LvnHt+59QF6t+OMu4crw+KXuJkHH76rMfcMXfYAtdgjZJfSD+aeg
2oeKffDGX5RsW3AApH3cTYmu9wHnlchBe2wAbjiuevoR/p87mw6+7TwehOEI
W+sFkj5wMzVwdRwdBKusGwF8c70gSNGgvGc+BN2tFPyKnb0wlnLlktPhENzi
U0p/WtwLQTJBO/ufhqFkjevRk6+9gEystzqfHoEt6TNGd90J8+C9Zvxh1gjM
OGkK8JkS5gVnlbWrxE+oz1HsZ1AgzBP0vCyu9Sc4iglrb4sQ5o3uB/b32r8A
lzwkMsNGmEf784tE87+gbIjv9t+jHtCPVqx2d/wNmHe81vpfwvy7WRRGQj0K
AiNFRuytPdA5yGbqGTkKxoseZ5/m9wB2C41xZx6DHoqv/FURPcD60ZJC+ukY
ZFiscdx1JczLYS5LkuQxKOHqVdsgzN/Gy/3DNfNj8NOv5nKPPIHfwUfGU+QP
PL3zb2hcpAfsG2/myLz7A0NSzrw8pwh6JxdPktX8gUijctY04h7gMYl7X0c9
DsbPL2g+n+sGt2KleS/lcZg0e6qvT/AHg2SkaveixsFLZdozoawbBNWKq8jH
x+GG24Eib1I3+CSb8jRcnoDKoLd+Bx+7YWyNPeSD5QR4HDsgPvO2G8Sl2/Zk
f0yAwvJzrQDdbggKcTWiJJqEekbGDUW5bpj5I9TRKDcJZ1slj0yEuwERmhT3
DZqEhKym3D6ObohwC0+8PzgJkrbcRdEU3bDcIUdLzfkX7LOjEspXu0Du7N7b
ZpO/oHJcp0fsdxfEm2eP+n3/C04Le+b0zV2wXal3/+HWX2ie7NaTLu4CRTrG
AhqYgs6/KU/6E7sg/WktR6v3FCh+02pvCOwCXJatt3/7FKhrdBOxOneBxh7P
svyJafhmPrFRb9YFuQ9GNOl0p2Fb38amV6MLKKM+1bSlTIP+WDEdItsFprNw
NWBxGs4veLBSiXUBJr4arnBtBlYCB/P5L3YBq08y7pjzDNzgssZ/Zyb4wwF1
s47aGUitDtrwIyX4x0tUvYG0s3A2urmmar0TOG3LbyuqzkJBHKPF/b8E/1n3
Oo3h6yzgV9tJL/cT/Ckz5/GuiVmIsmPS024g+FfDbsfgK3OQkLd98Xcpwd8W
eE4qWc/BO/ZjXTmZBP9LfF2BsXwOMnYW05u/Evyx8mxJN/E8aBf8bOQP7ASf
hOhzoQ/mYcL8M+fg+04YW370USVkHjz+nLWtsekEcQS3wTQ8DxxbeJNFk04I
CszX7T23AHs4WnNl7U6Y+W3YGPZiAc4Sz/1aUugEhP+ksFreArQmjMxV3emE
COemaJadBViU5M+oEuuE5dZ3ZP3IItCGyjPM8XaCHAe/RbjPInyUO3UgcbYT
4l+ODap3LsK4fixjAVMnbJeF3DnJugR1ZlzScpSdoEh9N2tAbwl4Cu3Zl3c6
IF1ziyUibQmsH7bNvpvoAFxGhqvGvyW43NRWyNvWARrb2rOs1/9BidTK9lpx
B+TK0qsMufyDA+ety+3xHUD5BauIrP8HFe6+ZLl+HSBofYPpKsUysLoO6AfZ
EPJGFKMc3ZVlMGM7PmWk2wH++HmnRYVluO/rqcQtR8gnc7V5bVbL0CfrdbdF
qAMmj8dOZYcvQ2L4RLbcKUKeuWF3KqBsGajm9ePCSTtA4pmiovnvZTDi+Pzn
2yIh//hc9lIgXoGFiCMv1/52CMslLuO/tALdyZKVlCghLw2OLNE/WAH19+4j
kmntsHBUyPXv9Qps+Iw+ZQsk5CvuAI2O4BVQ+OU0G2jbDjKPTT59L1qBFacf
J6J02mHZFsEHDq1AzNyNt4Iy7fA1lm3L4mAF0gulGR4S8plc/eoVxXOr4J9g
pTN+rB3WF1v0Be+ugsHQd/Z/620Qz5LymeHFKjhN5MuaDRHy3m2X5mX/VShu
Nt6Tr2yDbcMnR525q5CcJUAaHE/Ih/6Conm9q9BiYSsj6NEGioVUL4K3V0Hq
el/lBSNCnhwZj7HkWAPWl2sZpvfaIJ2kolsJWYMLalMTm5faQPXKZwphwzUY
2ximaiFvA5yKuQSjzxqs0/edGvtLyKuOspar39agWWQoUKi2FTQSOVO7O9Yg
MsNisjyBkG+bd4bz19agozXA751LK+SudB8LPbkORjoGMq+1WuEpW5aM9a11
EIthORlwrRVopbwcVPTWQXYZ7zxyrBVKTXVzRDzWoehmwiOVWULeDro+wZS2
DicCTxSvVbcAQykD63rzOmhnxV4pj2yBitFZ+d6ldVhgvv0h/U0LmFLUvC9k
3ICB9WPPyu+1ALPA1+IwsQ3I/WB1fO1UC2Dqb+dttDaA33vM6/EyIf+7KHCq
uWwA18d54q6aZmBN5Va7lrgBRbcEuOzDm6G2DefHUr8BpFRc/XdNm+HNxlDV
xuwG8Gi26N660QwcpwvW+ug2oWzhobIWVTM0yvjzFAttQpa2TnjyYBPYvDLS
CVfbhCbvND2OtCbgDJMMsXXYhPERYsFamyZoLT/ZoB6zCYdyib2xUk1gP7G8
J1a9CedKuA2/0zXBBZpmwZN/NyF4NFliZ7AROoWTjLYot8BR2LPRNakRnLSc
ogb4tsBIzHPx3utG4HFX6yhR3IIDowgDFbFG6M3gJ42w2QKWgnCpjMMGcOui
uGEfsQV9f64LP6pvAL6dsdcaFVvwoXbzosynBhjkLEsUH9sCUV8q+lCVBvCU
Cx1gJd0GImaza8DWAIJvXtHucG+DaRA3u8Lvevj55a7U0MNtuNcdwl+XWA8+
6BnbHxbbUElSWJZpXA/i01uZkaHbkFiwe5eUtx4m6btGHUq2QXjuUdzgQh0E
iWUya41sQ/idkf6r3+tAQtfj/s2jbTCS6xSitqyDGa+nLuxcO8CYELdoI1wH
YdnXCnbv7QBVSZmOzVotIH30M8NmO2DM0nb1WGEtLOxPc5QH7AC1XmmXvE0t
RFyoVorO34HZva3joqK1ICMf5f2ufwde4wJZWtdqYNnaulx7dwd0D/RPchTU
wNdo+eVbZ3ZBc2ny+RWrGpCruXiR484u0Hbt8RMJ1cD63KHmvtEuvGyeOJ7y
Dw/xjIMBP313wcP2R+yZHDzI38yrqcjehT6F7stvX+Fh+5nf9teuXbD9+pIo
lxcPyb7Przpv7MJEIzHpwEw1KOZJGOiw7UH0oV/uSmo17A+yfLl9ew90ZB0t
KYyqIR33r+X0sz1IoKVwO8tVDao8jbhDzz0o85Kvl/qDAU4x4drv9D3YblN1
ehuHQZado1lV6x6UWCQN4HUw0IhTiYtd3oMwY88cQYIvJ23g63Vh3geHhLkq
/yIUcpfIqPTE96GdXPPFCREUnp4YvQ1P98Ht1+NXtHlVQClZanXWbR8EK1/c
chGogkKj4LSjpH245E46Y59TCYafzH6ONuzDZY3V5zT8lcBQJH0cm98HnfTv
+3dyKqDiJ8e9+GMH4D8uSsQvUAGmpJuObiIHUBmj93IotxyY+Tq+6z85gFLu
kLfKIuWAqaRPIu8OYJfK5XRqcRm8evee7VzcAYy/6eP8c7MMWJO0FIhqDsDn
hubEMewH1DaLePyZOoD2iUg5yXs/4M0qbWk19SH809cQdGgrBQ72qYUE/kOw
+vg3vUWtFBql0HPuyoew17eHkxotAZsXEeoGtofAlHeWdPJFCXAGW368E3UI
JOSuWuhGMbSWPsDOVx1C90rm61/uxWA/xrVBPH4ItqSsrXLHi+EC5cHlCbIj
GDfaFKdOKIJOgX7dmstHcGn+woUrwkXg9OR7aNKjI/CLdJQurC0EHlefRg/L
I3ipZcz4XaMQelOfHTz/fAQO8lZ/zy8VgFv7TWGZH0cgrCg8esKrAPg2mUwu
/DoCPHsvUejpAlgI2HzkjsMhaXvO2zEl+YA//9zUihGHyPge37mtkg8RxR3u
BhdwiG3ubQf75TwwfyARoyyGQ6iYvgmqBuaBzO/0kjtyOIS54iiiTyAP2K1Y
uoW1cMiojutjou5cWCZzXzj/CofQMlleHHmbC42RS+RMLjgk+CHxmsmpXIi9
qn2OJAiH3KxPYFT1+g421Q231hJwCN7xBtODgRx4oCaqPlGAQ2Yj7X2L+XKA
czb+TU8dDnH3kGKL8cqGTSe6jzUDOGSdhPQPbjwLWhkcUwpmcci/zVrzCaks
SEyeQpP2cEgqa9nvuynfwF5cZTiUjgiRFZb146X9Bgqt6LrHWSIEuWAxHGSb
CRf0+Y7ZCBEhI6IDp+wmM2B3LeKyoTQR0lCZvDyslgGdH8hkVNWIkDT0qnJp
czqknrLSlTEhQnIF6ItopdPB6ftve1EHIuQbB7T0VqWBsvTD0AsfiZAn3C/I
qSXTgGegJJs5hghhYiKWTcVS4dDsQiPpdyLk/j78SLyXCr2HQePrGBHCE7Xe
ttWRApkhB/uT3UTIXH4ib8zTFHC7ZHayb5IIWV98OPZhIRnUy/qF6jaJENfR
guh812TgU5CWL6IkRsbbeTYZTiQD8fh34xR2YsT7+vWpL9+TYPAtx/vPfMQI
229ptVvySZBD5RvtJUmMeHQpTP2bTwTPmI2it4rEyLPVfwoZAYmgJWTQaWRA
jLiwVmtoiiaCYF37nJoNMfLtPt2F9Z8JQK55i+yeNzGCX8IJmPkkwO+FtLNi
EcTI+u2d/SyxBCh0Y755KZPAp97bmDMdD37M71VPVBAjCX0SX3Sj40E/fdGc
vJ0YqbI/P5GjFA9iElq+m6PEiHbNkl8AdTzQdtYnTa0QI6yDMvTDH+Ng/LlI
VT8JCTKaFiBiTREHpVtxg/UsJMisrgdn84dYCPhIu1bMTYJIh7CSlNPGguFZ
B7q0GyQIpbPQOa7wGLhZ8Jf7y0MSJKL5o/QoVwwwyCrf+aBDgmRKKRW1FX2F
qeGqp3YWJAi8NNFvf/gVKsyv2Jm8J0Ei77AalP+NhhDiiOAnoSRI1ZzQuTce
0WAaTpolm0KCMPI7xbRdiAZJXsv66yUkSPAmj0VOUxQwV/0a424iQZREbkb/
s4yCOaUHeydHSBCB60ly5qejAPtbzEK5SKjHvmulaI2EcAcuwe1DEqT+VG9R
pHMkvKILejDDQIrkvLw8RCQcCXcS9g0Hz5Mi5Tgr7TOzEcB67YVroygpkv2m
pqItMQKWGvsiS++RIof7/uNLuhFQ+/ROYboGKUIeeOmn/ukIiFrOaY8wI0VO
5WasEP3+Am88T836OJEiHba5SGH8F7jH6kPiEECKrKQ6M2gbfQGOrPXTL+JJ
kWNcIzp9V77AOjwT18wnRbr05E6RrYdDc0+b8v1aUqSPJneptTIc4k1uvr7R
T4oMjUtfZPANB9u91A+XZ0iROK7KH/lq4SAfyJTItkuK1BfyakVyhcN5LrcK
KloyJPDXo9cZq59hu3ihf+c0GdKX5X2yCf8Z2h9orswKkCGLz5RgNPQzJP+u
oxmWIkMsVNSDe4w+g6OV8KVmFTLEnyFRNED8MyiSxyFlRmTIYyXTnnWaz3Ap
ikY7044MSZjU2doZDYP9q/Zvo3zJkONVzKyehWHQXT0Z6BdNhuj259e4+IZB
uppSpmM2GTJl8c+yXzcMXGYra81QMqQ7bcvZVjQMVJ15R7W6yBCxM7sdStRh
wHv8y86DCTJELWVgW3UsFHApJMy3NsiQTgmGeYviUOgXf8N/hYIc4U3ptAz1
D4Ws1p9yp9jIkXekXoJ5BqHgrn//Oc0VciQxiT2xXDwUNNaLnPckyJGY8DGr
ZPpQ4Pc5HzGvQI7IH637GkyGAClHYP6IPjmyokfqP/cjBIa/77W2WJEjRdLr
dkKBIZArbTpd7kmO3MtTnb1qGALeA71EWeEEftVIuQHxEHj6Uorjazo58sD4
ZeNFuhAQPsoW8y8jR6RIqwwY/wQDZSi7klMrOVIqn9YXXhgMY5c+vHz1mxxx
8sfFZ38IhuKyNa+nywS9eP3TilrB4K+gHy9PTIHknlSrcOYLBoPx1jIJZgqE
UbOKUfgwCMRtb/TxXaJAoq/6rL7oCAJ66tR/HOIUCPnt/ADO+CCYjGGkpntA
gZTcHM3XeBMEZUKuFw60KZDG6csyjEgQBNXNSy6+pkA+hs/Z3j8WBMaaGpq/
XCmQ1BlaPvKKQJBYrLVuC6ZALL0+1r3TCATG90IBlUkUSG/s0rmttQCYYY5N
zy6iQJY3UyqcAgKgKp26JqaBAnmrRcvOyBMAYRJ2vz4NUSAbCfIVldgnMOuc
2HKep0D0R1ZYPTQ+AWKoyGh+QOC3iAerf/5wYruCT/cYJeJdmmUT7OUPCx8v
yyqco0TkDDKXZ9n9AX82/JmkCCVSNPvD1fv7R4goIHbiv0uJnGDrT7GS/gjm
shbhZ55QIvj9wOqSfj+QGRnJpX9Biahwc2cZv/ADdgu5lkNHSqSLKT35054v
LBMX/V3yp0ScVV3fin/yhfrwc7jRWEpkrK3F++0ZX/jKG8DekUuJZHrz5ap8
9wGrql1RFE+JMBG38I2DD8gpmzz+3kuJRKv35/F1foAzUz0v4qYokfhrZs/v
6X+ATQfEM3CbElmPqUqSWfaGVrrsWFdqKoTGku6egJs3JCaw/bDgoEKU+GYf
nWXwBvtr3j16/FTImoSQxel4L1BoWl18jFAhxW9aZCUFveCCjh4lokyFSDZf
dAjGPGF3ueW8oCEVYmq9F3ZFyRM6PcVvc9pSIfcfSP9jHveAVNaUJww+VMiL
2l81JtYe4JR13AoXRYWcmvcPECDzAGXExX/5GxVy6/6yi9MXd+DpnUsdq6RC
rgaeztbldYdDkyfVnR1USCL90vrfyvfQu1czgv2hQkhdoxbPKb+HzEDBzdw1
KkS+Kf/PuWk3cOOKYUggo0b6ad82rDu5gXoJ1ZXgk9QIS6f3jQwmN+B7aHv3
/WVq5LjN+LEwdVcgHh3Xs7xFjbzcxbC+Dy4waPXY8dkjauTMOURAsNwZcsgr
wpT0qJHOw9fsZctO4BnF813Kkhqxa9F+68HjBFr8n5uEPKgRZgWqTyUG70AQ
TzR57jM1kmmH/DaIcwRydfPD42nUSPJPaYj+7QA/Z4dZiX9QIwmlscpvOR0g
31lWZLWZGllpD8jcM7QHn+OFj8Z/UiN6YfNKqll2oJvCadq9RI38uvHkuvem
LYje+OSOx9EguU+++cRK2wJt287XfEYa5N6Nk5pZoW9hXN+4JPECDfLOP/pr
w5QNlK53d4WI0SC8lOkjGxI2EOADC+5yNMhMYYU5hFuDIUcWubUWDTLEv8/6
fdUKbuaynnv+igapc3mc9UTZChhkvG6puNAgMdfczt8ssoSpgRU16SAaJLhn
WlnnlCVUvNR9I5JIg8jr8P6r93wDIUfNflyFNIjW0Cv6rXELMA29nsJUT4MY
3sCfOsCbgyR3MkoySIMAOV9FcsZrYC5nGF6bpUFGLS+9Xw5/BXMKzusTezTI
+fPKk2N+LwEbn6XvpaNFTp+fU7XxMoNwW/XLtWdpkbA/Z+6leb+AV9Q10oVC
tMhkgYykTYAp3IkV0E2WpkVeB92mb/tqAqzCX+3D1GiRyBf47cw8Y1iqowz1
NKFFjh9/38/cZgS1mm+zbRxoEbP14rTlJUOIWvzTYPiRFtEbcVYRPGkIb94r
jKvG0CK/v5yUqL37HO6xlO/LfKdFFnP3laIdDYAjg/vktWpaZClPgDup6Bms
SoQJXeyhRSRVa4kbN/WhsRMnz/KXFuH3e3Lw97Y+xBq+NibbokUqvd7Ik53Q
A5vtIbcNSjrk5IBa4X65Djzwvxf9l50OSe9AxBxeP4XznAVFfXx0SGKEXasc
rzZsF5ztrJOkQwR4Neqvr2pCu6z/XJEiHUK/trHEUKcBySPbpKkGdEjAr6EL
oYlPwNHC6Gy4DR1C/kcx/b2fOiiSdN/w9qZDbs+JXOpyUoNLXyRVbSPoEKOc
K1qXHVRhn/ebuXEmHTLS2ZP/2FUFuqtO+qpX0CFd3nER4wHKkK7smXSvnQ6p
MFnf6EpTApep5UqxMTokcOGIiqxZEVQddQYvrdIhrbJZPlfmHgMvffPqCVJ6
xNPyw6VAJQXAJYrRUZygR66H/Uwrb5KH/mtJ3Fvc9AhV+pef15UfQlbTsTvT
Nwj1L0WjfnP3wV3H6enAQ3qEFr3yQCJEDjRWZmwbdOiRlMuSz3vlZIHfSy24
xIIesbYDhZ9094CUDf8t7T094sFRcu33mAwMZ/HXfwmlR/hSF62NqqUhF4ke
+5BCj3A8HSs9zLkD3r0Ue3Yl9AiXQvxV8QwpeGpqw2LaRI/83/sp/x//D7FO
I18=
         "]]}}, {}, {}, {}, {}}, {{{}, {}, 
       TagBox[
        {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
         Opacity[1.], LineBox[CompressedData["
1:eJw1mnk0VV/Yxw3XdHGvlFLJFMpQkaEQzyGJDCHznDJEiUKhTCFD5GcKZZ5n
IoScQ0TmTPdeU6YiRURlive+a73vP+eszzpr7Wfv5/l+z372WlvA7q6BPR0N
DY049fG/79NwcHFvj4gli//KSo4QgLubx8M2t4hYVcdR8akaAaiokhJZ+03E
Djj52z+fFYCzJ3Xsvn4nYv1PbULElQXh3L7g0W4SEeOJb5m9vyEIyOxqZ3I5
EYM65vSDQUIQmLrnFFdExObuDzubvBGCFhN2pqhcImbOksrO8U0I1LpPXgx4
ScT4NtRnf+gLg+YbmwaHp0SsOyAs0l1UBAye9hRL2xAxN3pm3biVExCnMqZ5
ypyIRVgX/esVPwlD2wvzIkZEjLDf8GWc40kwdsMJHdEiYn2Pqs80Tp0ECzPF
VzTniJhWSQNfMUUUbooXPushEDGf8r8h+HlxeNAXfMexiYBVb/XL6l6QhGff
vUjrdQRMhJ3jza6DJGQx3VIJqiJgyzIurYdiJaEbdLhSCwjYzlAsPP0mCYIV
XO8GYgkYi1HOe89UKeiNyWNTdiRgrYZ3iU5HpGGuJMmr6zoB21y9/Gq/tjRs
dkRMmVoSsAzOebVzftIgRHu3+r4+AaNsjXN8n5UGH/dzloWKBExse/Cw4BsZ
EDHoKD7AQcB0X8htYnfl4IJrPVcWnvqdXlXibqEc6EeU+J9hIGATUc9Z82fl
4FFLzLUrW+zYvZoJvzqzczBw1mzbf44d0xy4FPpE+zw83r945XsdO7b6moG7
W0cBhoZYF5uvs2NBLnd+yXQoQ+DNN03FluzY1aLxoZscAKfXreMSTNgx4Tpe
QykzgLD9ry/c0mHH3nA0beX8AFAyMH3OIc+OsdDzPHsWhUBeX46MDQc7Fm0t
HJjXpQLXbHRZNFnZsbMCt/qW1lWA5uffibOM7Biu7GZEFK8qmBO0njLusGGZ
VzXXyfdUgaizSimdZ8P4cFEvXvNdhIedSv47TWyYorHtFFukGgibz1/7+pYN
E1BNrjlVrwYD32JO9lezYabxT+Ref1MDCZa5T9lFbFjVGSmJb5qXYPpyhJBW
IhtmKXOEVoioDlfaRj4m32HDStP+bXmXXoZj2N0D53jYMPuX3gf1QAu6OWU9
FA6xYddkTnkr+GqBj/3WoBInGybWzk9KrdWCEXxInBozG3aQ9e/KgJQ2xBil
cBqss2If6efHCBI6QP+9leNONyvGnc30O+78VXitFOHm1s6KvVbG/B88ugq2
MVf777ewYnY96wYz2FVolB197lPHikkzIV0FwnrgFfCTEJbDilW+H0o1rdKD
b1xH2LMfsWL/qe4PPjGuD0lOn2/nPWDFXHQPBUXRGYB6Q0534T1WTFigcU9Z
1ACybM88q3BixdLR1xGhDwzAsliNtcmQGp85xb/m0DXoQ+6yUCRYMVKJqPs+
R0N449LKQJzAYz67OT7Jl0zgPL+rVB4Jj5WxVkXn+5hA/dAhK6UBPJY+ZtJy
vMIEMCWXapd2PKb8MLTiFo8pdBI5b3RU4rHs+Nc41S1TmKqywQJD8ZgKrf+d
sS5zsHNi+cEdiMdElv1eSzBbwBeeqkMVvnjMhFbj0qaaBSyGMN6ddMNjmXi3
LibMAn6blB5TtMBjkpvec5yNloDf2fJZP4PHCFjBZGG3NURV5ORFilHnNzWd
d2SfDXDY6w4ICuMxXEm1JJexDXD1ZorqH8FjVudjDIunbYA/Q4NcisNj7iUp
lg3+tiCrlijrSGHBNm8Xl54tvg62z6RWKEEs2K/rEsE3LtwEn+rY0J7HLFjR
sI63iv1NSBhf42l+yIIRV3c+3Iq+CZ0SNZoFrizYYC9B5eX0TZDuUcj2MmfB
lkbdsqMj7YGRoGa8/ywLloydzeZfdoCS58aN2tPM2A0vxWeWq7fgQ22tATLO
jH3cYO29L+QM05+5v0mTmDHP2t0zX0yc4aDkGNfRHmZMpuSjJxl1Bv9+m7vf
6pgx7mCjgxzxLmCw75ZgaAwzJqdYK6ysewc2Yn3DUGDGTPYrW7WFusE8T/Oi
ugIzVqjCanKi0A1G8hh1emWYsZr0f/86utygqv6/fROizBhD19HZ7n3u4DqT
n7K1nxm7Ju7GOZPhDrNSQyWyC0wY7q9N58uue9DbL/GpOIYJq+5fUZA29oRG
83vS0pFM2LzMC8Qo0BOK52oT6kOYsFi6IcPWEk8I21A1/+jDhJ2f/+YRifOC
i/xms19vMmG9E/oqnbVeUHc35LeAPBP2I9WT3f3UQ8gmTB5OmmbE7i+1zVWb
+kKsBTDJjzNiYddvnLGP8oWggox1yggjhrnq+ri2+IKd6o2+o92MWOVm127U
qUcg6LUQnF7DiGXsW7EgMD+GrIlfP/MiGTGcGF15UK8fZJQwfXgjy4i9lycP
XTcIhJhNpypjSUaMUrc70nYvEALUOzP+ijFiDtO6ftZxgWA79cxXnp8aL5XQ
f3o4EPgOcEq9wzNit9VmuK5ZBEGaL8+r1s8MmF9xbuy8+xN4dUXq3mA4AyZI
40F7rjMEhFivdPYHM2BLkusviT9DoLjLTrDXnwEb5yofO3YgFOq14wc6PBkw
tSwyMm4dChTdv2ebrjNgP9JIN+f/hMLBa+/WCuQZMJh6VXJHKgyeW2h6+n3D
YXwGLTt/PkXAQR67Ht85HJbOVamz+y8C0sZ9hL0/47BSAlH5olgklFmVDN8f
xmGLeccZnz6JhG4botytZhxWdqLW59/5Z8B8c/jPtWQcNolrSp8qj4Kg29cf
imrisAvPl3FljjEwGW39qv4iDvM57tBLFxwDCpUWmJYyDrtxWmg0ICMGfv02
YnaVxmG+iS0um5QYuO5/Jen1MRx2ovav3bTuf4DEStcp/qLH2vK7FKqRWNit
ZdjQeUlP1ceHzdxL8WA+SsfzOYEe28jOUvZ1jIeanT1wi6HHbKQnA/3D48FV
ZetpbAg9Fsm+3sTVGw8TncuHSHfpsXCLMTk/swRonCCds1Wjx4K1zaycvBPB
l77owb0lOkxLND5kaTIJXJOtGW0X6LBWJV38NVwy2J3Zn6AzS4fVOpWUfBVN
hisWj16fpNBhlCH5r0meycBdpbs02UqHjYdbup0ipkC13Zqd1is6jLaZFiev
9RKWmy/oCmnRYdE3rqp/n0+FGZPV8X3qdJjRM/p9tvvTYHgp12UPocOS+KvI
TJAGjYeJ4aNydNiVAZWtlcQ0iHSffh8jSIcl/g1+f0ozHU4KhMr/26TFWi6s
ZL61yIDrAX1CIwW0WM97A49jk5lgTElXnsimxaIN//qX/cmEK2fdTOfSaLFn
NE9NzYlZIDPH8exXPC32lEm0lk4lC5g1DNYIgbTYJF6WOyk3C8qIw82XzWix
5DuJTXP3s2E7bdT6LQsttm/vbrifcC6s/C16iOFoMTLl0VSESi7M6fnGtu/R
YLN0zmLVVrnQS8fzYfg3DeaZTkuxSsyFLAerU7+mabBMKd07RJY80Dg9tS1W
T4NxTmUWba7lQcK7L0mvnGkwRSKTp9lUAVg/TPE7Z0+DBeeM25PpCuGk9NWb
AzY02BX5hUZf4UKoL6g7w2xEg91e718441IIk3GRH+4DDfYx/Ceit1EIJ5yl
1q8coMHyLWsWAg4Xw71TW2m/fPdQNxdpQ56HpVD/+SRbieAu6laSnDRsWAmP
LtCWpnDvoscu3y12ulUJSskUnXDCLvpm/bMSu18lYAYRzx22/qHTT9Z/ReRX
Qnvbd06BgX/osq7QAbPtShgqLjucGPgPFZlOLL+Y9xqWH8icCJjaQeNNl1qd
WarhOAeiapi2jRK/9duFM9RCtOS0j3PcNnrQXZFUxl8LG3pBVQFh2yjhNKf/
N8Va6P6vVaj03jZ6s13MMe1eLXjs12RivLyNLqt6hjBO18KHgwbdtT+3UHiL
2+xtrgPnYzeNj6psoT5CEvJn4+rhtViY88zsBvqNHn183aMJPrdV8svJ/UGt
dBiUHX3fwxeJhLNozRrq3NAYZz3fDvv8CuVO066in48cXHvN1AMScj8lctd+
oNqsJZJL6/3wRG2p/+3DebRfauZpdtAgtGj8uCpzYx4lSA1bqjwbBBqd771l
OvMoT7XR/rGEQXhk9K07W3AeLTMR3KItHAQvhy8dUd1fUQ2RrSCevkFwCpvA
rvN/RX80BQr5HhkC7e6eCpaOOdQIXdqJKx0CLsOyGLNDM2i4ssbQl5ZheC0S
WX+JfgblJeVupXQOg96m45zUz2k0evKj2pWBYYhIEziPb59GVyyXjr+YHobd
hfjP9V7T6EuCmvi3vWH4+tj3NM/IFMr1z9fMUXEEXK/+l/RO9DOqzciHSygd
gYL1Kz8SaD+jbY3hyv7VIzCTjENcKZPo1xdTmXYNI2A892CeN3wS7doybjvw
cQTA21ouYGECDYzrLROeGwGObPEh1fxxtLBk/8s1bhK8/tNG7BAaRcNpuzLZ
H5MguiirRXmTgh6n66SLeUICF2t/zzc9FNTjB16HJYIEQh/Oj2V5UdADP218
pxJJkJhQnPe4g4yatmxf468ggY/Mf0rSt0koGLG9m5wigfHCnZVChIRWduX1
dH0lgfSrK9n8XCRUjDdGrfwHCX7Q41gITSNoSAyXutkGCawHvYYWiCOoe8o4
ep5IBtV7li5pVUNopJn9Oq8iGXhF5Hm5woZQkocZxRUhwzaF61Ok5RB61pK1
tPoSGapV+uS8GYbQHxG3cYJ6ZBDZp0pnaDKI0vJCRdBNMuArTiSzbH9C6Q52
EYwjyZA79iXqW3Avqq2ZIsH9iQyjjw6mp0r3okNNCU+Hh8hA4L1coT/TgzLa
sd0JJ5PBy7Zg4C30oHoDE21Dn8mg/sX5UMRWF9rkEye3uUSGheWfGWJuH1Em
wasenswU4Inhfz3J+xEdFSP4J7NSQE9K/31sTwfqfZJtsIpAgbr7r79siXWg
m7vbl7sOUCB8w0Os68sH9LdvPk0IPwXE6LaqXCxa0YT9L4r45ShgnS3Wxodv
Rd/WmObmn6dArJrFyGDde7Qrz75KSJECW6GNG4oH36PyUj7/aBAKdLH6K7F9
akYVKno2VDQpQFNarov5N6PB+aQL3loUkNGdsvE43YxW9MY8ztOhwKsYlaDx
SAwNeJW9OKNPAbIYc7RZVBPa1/JdYtaMAsidWxXNi+/QpPJGYqcFBQrKOwdE
Nd6hNPbJY3lWFPCWiTq0RdeIivuHCatep8ARZc7MlIdvUYTDTn3PkQJBAfff
043Uod8rr8sm3KLA95ahL87SdajXxe4dfhcKNF5+Iaa4XIP63X7IfsSVAlb6
PNVjN6rRhoQ1XOx9CvxY+y3v2VqFSh2JhH4PCjxK7EMJwlXoam1aEc6LOv+x
oC6Vr5Wogncpm95DCkj4WeqPqVeiGmm7NI7eFGjglyN55FegvXMP+D18KFDd
NdB29VMZmvGPddztEQWGOEI/BcWWojVTJE/bxxRYM5KfeHOtBDVkPS2n7keB
s1Pp60dHCtH2aVORdX8K6Atfo7n6ogA99VvesDGAAm7OjGxBpvko0/GmHJ9A
CpSv3z6+MJqDDviqF1GCKNArz3/m6KtsNC7ztZXPEwos+w0q6FploQGj/0nu
C6YAe2uoeiBvJor2ygimUdmU0yPHCU1H3TL+SgmEUODFq9GGXpVU9NsPFZsU
Ko+IqAzKtKagn3tCC1lCKXCgMn8xRT0J9RhV47hL5WuKBDrajwmo3EnGuE4q
x7Z5HHbUikNptG2leJ5SoP/qmGRPTwzaYb6+eIPKvNVPYhwynqHWi65oJpVf
duihZ3OforScYWXDVOaeOLa8WxiE/nWmr9ujsvjssHyilS+6xVExxhdGARE2
txenHd3RlCynw3JUDhg6OXT0vRUaqrLfXZXKEsQJZ4ZTalAfmzmjRuWR1aB0
jg0nyGricFWi8srVE7/u3vOCw+639ktQ2TdOvdNFJgAsKOgAB5V3/bxfpp8J
gfFC6ZLv1PgBziW3B8UigMC9kt5IZXrjz0pMIs+BbVy87AmV3/OHP03liAUJ
SVESQuXgREG3c9HxENwve3Sdmg91tkbTT6wvQG+ryCeVykxBRiou4cmg4bL0
+wKVO/4uizIwvYJR2ztRA9R8R9wJ40wPTgP9F3kq1lTOW415zBOYAXMa/Pun
qPVydBRzqNnNglJPcY4P1PpqCD4wf6KUAwafcEpiVD458V5X71EuPHQoCw+m
6mHRwOrc4mY+9J8OCDlK1Usne5F47flC8KTVljOl6qm44w9f8IMi0NE8g4+k
6u22cgwz7+8SwG7S8g1S9amzOb6zKF0Guzd+Xl+g6vd0tehq7b1yGBNf61rz
pcBG/PSPkxsVYMZUd3iJqv+3eN/hFs8qyKznbrrlSYGMU1yD5YLVoNyqocdF
9VOoXnn/q75qiL9dYPLmHgUME2e7vERrIMImvGfgLrU+AtotYhN1cCFJNfoJ
1b8kta/ooYi34Gj4i3aQ6u8mx4B3uHP1sMccvX3QgQKRpdV1kzENYEAiRjyy
o+pD/lh5rFoTVG7pmjeZU4DNsrbEf7UJbOzoL742pfrNT7/odhoKVlcvfkgx
poDtTIvB8UcYXA4czdc0oK7v5F+df8PNIB+7KsZH/Z99rLJRqwxvhd2Lh/aK
ZShwoU3i/YmpVmDq/8D0XYoCFSObKmlybUCKe/uZ9wwFEjfjIHK2DYxic9ns
RSlwEzoU7JXa4eqUf4fLMQrsdUpKHV79CEZi/Y4O9BS4N/6v/PnlTiizttRe
3yPD16XO04xpncD6t/3igx0ydHPYS6xd6YK3zXx+lr/JkGKcfKInpxt4dfkK
cr6SQXaGljfQtA+qNegVJNvJcLreZFWysA9qFsOdTN9T96fY0tapzT44UXrK
/AFKBtbMEtkMnX74G7KelFxLhh090/G95X44nTzE4JZPhomKclFUagBiGJs7
nELIkO5m3apUOwR23dtmpQpkeGXJUpbweQjefff3qJUlQ5JG9YslpmHweon8
qZMkQww/3iXVdBg+iT9QzxIhQ0D/m33/NoeB9LakkcBJhuuS7DaNF0hglj0u
YzhPguMrDZsKLRS4lMXb0BhJgkc9F4PXlyiAj/pXoBxCgpGiLkLZ4VEgMby5
VetHggj7seMC7qNwTf9SaJQ7CVZGt3SY+MfApNWAv8eYBE1t8lmDj8fBZdn5
VSYfCcxf1l65Lf8ZbsGH3s9FI6CZTenRNZ2B/7qfS/cWDsNKSJlD250ZULhU
5eeVOQxJTk/2FJ/MwJLjFw3u5GFYOHVKSrRsBnhIWUEaYcMQVhcQT4+bBSmn
jlxLh2Ho6DlhUVc+C6kvKiItBYbh8obnggDTF0jIkqygixuCSzqc9L/fzEM9
n5aYlOMgPLchBUjW/gDFjev2s/s+QbvuMXY9zlV4dOnCz+Kv3bAkwOU3kLIG
XD+v2ZCPdICnh/j15wf/AC5JYQ1f+R5I4xwGDh0boGTaLEv/oQmuRNqTPQY2
oCV05xtXQRM0ytdbPxnfgN+eNAXyEU2QkXjDJWNlAy7UH7Kq1m0CJ72a4FHu
TXgukeD4gPwOtt5b1Ore2gRvszeh8j8bgac4j+ccfgv2M6/3DYk2gK33hXkm
7W3gLWiU1BqqBbGbHcPLxttQ+Y5DL6uuFtZ0DVuHr2/D6vBUHCG1FkKFbmdm
P9iGHtXaZyIOtVDS99ICsrfhreC8seFmDWwKb/d5bW3DATGLsPzjNRA78Lbu
S8EOfNR4BSfDquG9+LmI9wy74CCXLcEdUwnWZwyzV4m7YKLUYi3qWwkbZ90b
+Y7swl5N40Nth0qQUChe9j29C6xlAgYdFyohXoPvmozJLmA5UtyJixXgYM/E
k1uwCzltmYUhmhXAnE4qDdXagyNftdn4RMsgK2v9Q7XRHkj+S3iWT18GF/L2
Tc3Y7AF3rluAwWQpuJVqcYLHHqjPrD8nxpcCpQH1+vtqD57ZXZsToi2FInI+
OC3vAfvNU80V08UgwtK4kKNBg5y8qXrje0Mh/Go/7ZylQ4MUJ0b4674shKbQ
zO/pBjTIUysjxk8+hWCMe7qcYkmDOEd94pZRKISQPf31GDcaRLb6SJVbfQHM
/Z7fe5REg4gdQGJrsHzImtl/yGiBBqFXkTdlnssF18zQJIMlGuS3PllIsT0X
FGw3D+v9okE0WMWcIotyYWBikkdrhwaR/FjCEeyeC7SUQkEVDlrkLH794BBN
Ltj2welT52mR1FeiyJRQDhxrdLnEEEaLaK1IEKSCsuDA4a0t1yhapEzB6FWf
QxaweYVVkGNpEUXvBq1orSzYOZN7tCSVFmFB7KtcuLJgNHty1aCKFgkI/H0i
pygTEiP10zImaZE/hg0Jf0czgGBx7q+iLB2ikDfZyJabBox1bSW5CnSItcvF
iQ3PNPh3wNCOiNAhDw+V3Oe7nAY/et16Zq7QIQX23y8dXUyFTtWi7HBbOuTP
BX3jjrOp8FTsmB4pkg4pqk1t6+19CTRbdIX3ZugQB7HzgiqSyWA7S1nzn6dD
3EX/9XThkwHrrlCO+kGHdLimIMFfkiAg3Xoo/w8dkuZsO/X4ZRLsqdXvjePp
kZqr40PPWZJg97m78WVpesT0tdI623Ii7AhP0fME0yP5QZKStqR4sCTW6oqG
0yO3SAGeZrXx0LgRlSwXTY94eTs3+L6Ih0ddimf0k+gR9L7wawXTeNh2e2Ee
WkKPcE7uO5U2FgdbDbqVK0P0SENzTNjot1j4q//Ouk0Yh5wIW3gpdPw/CKKU
TyiL45BE7Z79lQz/AeF6lmWdJA7h9G1TclqIARG3p+bFijhE+tmzn0ZlMWAY
rW/8nz4Osc3gaxW9EAMVnV90rB7jkEtZ7CEH0Wi4dZGg9HsIh4is0Un+fhoJ
6500ja6jOEQm7OMJVpNICDBYU1j4jENo797VcxGJhKTr5PNjizhk3VtjlPlD
BHzwz5JppmFARD5P3CxnjgDBRjmJKAkG5OjuYo7NyzAYk7E5KhzMgKwYCyrQ
rYeAw6YsMSScAQkTvfvDszsEVt6x0X+JZkC23styn8gNAdzl+sWcZAbkS65r
GWISAqfNuOqFyhmQkUKmTI2mYAh43GUqNMqAfCK8LHF+8QREPpxLPC7JiNja
8XJt3w+EighCxBNZRmTpAdfw82uBoHD1y+NZBUZkZQtYzKQD4So51j77EiPS
80au8elaADxcXJI5bkHlXZsxXa8A6CLkDAqGMiIGe0u2sXh/cDPh2Cc4zoho
LN+WuBztC3YFZ1KEpxmRoa22nANWvmC0qXtc9CsjQlj6oH5GwhcUXkbJSq4w
IsLcpd5XunyA4TPeXBnHhPBwvOtiZ/eBFAeGbHMJJuQXc/uHe2kPodVzSybu
EROS38Z88dgfT6j5cLgpMZAJoUstShru8YTCQ/KXU0KZkIev3HT7cj0h+u0D
s8wYJkSUG/8wxNgTzP6tPy7PYULIus3Ca/UesBz880NXNxMSc8aUO+z5fTgc
P2eKO8aMcITt6GjZu8P5J3wHPQSZERyLy+5HFXcwvmc+OHuCGWFdiFAO53WH
WL1+nfdnmZFhjsdT7WQ3YGNvVA3SYEbKsyO/Kui5wW5InASNBzNylvL6hXqC
K8w9UKXZ6WRGch20eSeHnYHO8fE7l35mpOV9v/DzVGfgN67zGRtmRvKFHI4X
2TuDlczp3/VTzIgnj7DR0b+3YGTl8KL3H2bkFosFB5n3Fny8tTr4V4AFYSZZ
hIkGOkKZRUb+2kMWJIHXwLj72U2QIR3fYvRjQfaiE4Zdb9yEBoN87SNPWJDZ
U7IelgrU7kqzbBWJYkEORoXIHfp2A2bPNSpGZ7IgyZntNLuaN4D7ALnvZCcL
4vpig1visB0EdRM3rI7ikaKPDMWMQzbArBF3xZ0fjyhbjKDWsTbw/P3B1GBh
PDLvfaNQSt8GXtUfUy0+g0d+LfiNqPVbQ22B+LONi3gk4NLyMH7ICn4EX+aP
u41HhCtk3jqvWlD3KX+Njnd4RJFGBjPzM4Xx31+JLS14pPnE06pULVOwK9Ml
NbRTx5ckuqgcNoXbfLwO5Z/wiJBKZ0HuGxMIon33JPELHmEZ8zrW/8sYytq2
mm6ysyItdOpFwn5GIONnF2rNyYrQBZjP8OgbwVu5Th3TQ6zIttIFTWchI2jN
Tx7XEmCl+kHQgqHbECjh57fOyrIiXDtTLRJ8hoDT9ZKltWJFPDhZx1uHDCCC
cXJn6zor4pxjLDVeYgBE9FLrugMrkhj3bgUJMYAjklzXFtxYkT/7/r5YkTOA
M5zVbn3B1PHzZQ+PpuqD+chqcWoJK/KpMGD2prceVFrfEVTYYUWUlTVu/GzX
Brs3K8cyaNmQ+gvugRrB2nCAzeMwIxMbIjB9uV1aRRu83vpwDOxjQ1yHRmwa
G7VA4UDY7q0TbIjBb9eLD+qvQMvHrNFkAzYkas6gLLdPA+7zi4zsmbAhc+oN
MRnxGiD0oPCTvRUbwpgU3cxjrkHtPyo6pJzYkBlxVq6Er5dBy/9dzcfHbIju
hSCiM8NlGJIhx24WsCGpUU58fWaXICTSItqmjA3pKhM+5iJyCeRmJsPbqtiQ
fLpiVe81NUh6/iXgvyY2ZMzY7f5CtBpYLf5yFR1iQ1wuMrZvdl6Er+nsWmZ7
bIh4wQTLSRNV2MBfpH9rxI5wirbL/7sPwLlMiG8xZ0dYU45pF4sDiH8aFeq2
YUcUpXic1maVwfrFPfXPt9iRA2kjh3SMleH98axwBj92ZL7RFhhVlSD6Ai2H
QR474iLcopkgowgFfD0ZFsXsyMThvhTL3wrQTJcsZV/Bjjz6dhlKahRgvUPy
2sN6dqRLT9J4SkEBzI1sE9N62ZGdziuLfpryIOyK8nz/w460c7gvVPudA2X9
yNL1bXZk0vvnt6eXz4GpjInyLg0BKT0bbDbIcQ4itpZt9rESkOp3Wm19OXKw
EsqbfY6PgJSfKtpWG5CFxvTHosGXCUjDd4bnJqoy1HOootyxJAJC841XWchd
CvCKrM2NqQSE/uvrA49UpaA5Z1TLMpuA/Mx309Q4IAWSD72vvywjIBrpp/Ll
30oCga/22eE2AtKqt5h6g1kSPt4+O8v1i4As6GgcXvI8BQEjtK5v/hKQ3hsZ
J8+LnILzyKcNw38ExErEPE2bJAF5+90I8cxEJL5q0b1TUQKC60vlOfmIyOxg
pP88uzggzKIxBG0i4qv5IEBg+CRsuG8cKdMnIjYL3JQz/52E8rH2XB0TIuJv
K3Hwh85J4C13aHhG7UgWM5kpjh9PwI5Rzle8NxHpTf/1GOkQgdpsPiWmPCKi
YpD+h39OCFzZf7bnFROROxI6+YZFQiDyoMlAvZKIsI46iPC6C0H8FSunkEYi
Mv1hYOM2jRDcW02Jox8kIudiLT0HhY+DmIUzbzaZiAiloPjnK4Iw3SpfqDpJ
RDC2yajhBkHQSyI3BX4jIlPjTkK71wSBma5AU+AnEXHV9Mua4BcE1OXBELZO
RJYfJ86qLguA17C6je0WEWk6xJIj0SgA/3c/Bfn/+yn/Axnsd1E=
          "]]},
        Annotation[#, "Charting`Private`Tag$20597#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, 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.2462378002049896`, 3.8483430553579137`}, {0, 0.4}},
    PlotRangeClipping->True,
    PlotRangePadding->{{
       Scaled[0.02], 
       Scaled[0.02]}, {0, 0}},
    Ticks->{Automatic, Automatic}], ",", 
   GraphicsBox[{{{}, {{}, {}, 
       {RGBColor[0, 1, 0], PointSize[
         NCache[
          Rational[1, 120], 0.008333333333333333]], AbsoluteThickness[1.6], 
        Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxd22VYFF/YP/ClGxEQEVFR/CGSCighcg8qoQJSIiINAmKBINIiJd3dHRLS
LTN0d4igSEt353//1/U8b559s9f3uuec+czO7rnPvNjL+u+VXxLicLjrRDjc
/38frnbg/v2SFsP9z+v/ZqvQjCoJFVqsceG/qihdBOjf9MknIrTYq1i95kpV
Sci9dzxKxEeLyQZPEH9SvQePz103MzpPi61h7pGmuvdhdkWFoIWcFpsu+nCb
0OYBuDY6BnFv02As+9Y/vsVJAVtsJrvfJA1Gk0q1RN8rDVUW/UWr3TSYM6f1
siSDLDx/dCKlUk2D3YkP4Ub1H8I2G9fP4iwarNVNmJaq5hEE7aiaMEfSYEnO
HEgYnxzwdX7es3WnwUQ6ahN7suShNeWb1x8LGixN7/dlcdEnYGw3cB7Ro8Gy
ioXsyl4rArEyLidJgQaz+q8rX+m+EiRwckuQiNNgM5MeWpHsyiB+8rTL+DoN
FrZruDhFrQJDA066rUw0GOOchsLDExX4mJ21xkNMg7kQpCoSHagCvcugs/8a
NZb8XvuDMk4Ncp8TMK6PUmM9322tX596Bo9u8KSqtlNjd5uNrjpzqsMM6bPb
peXUWCQ1n8DC4+fg8udL07l0akwDeyoYb6MBbEXZ6vYh1Nj4En/jaP4LqPL6
OTf6hRpzVXq+MrqpCep6hHaS76kx9pXYz+33tGFTmJc6RZMaq5+1dOyN1oFA
WvVY0kfUWFaePTGNky7wTjvzvRKmxlbXEpinhfWgtTIHbbtKjdXO9dzw3NID
o6AhRT56aoyPaVKQrlwfCF8RTQScUGGX6G79Mnc2gHjgs9hYpMLu85i3tioZ
wh2m58Rqw1TYM4vJYM5rL2Fo0SW0rIkKM/dgNggnNALLulyO88VUWGDa+t7l
KSOgi/pV6pBEhf1l9kzqaTOGHDPih2P++OPzZ9hzy03goQz/8D0HKix1FFlo
yHkFMxc0XqeaUmHfGU9VsGSYgvOm6yGZOhUmGSCoGZ/xGi62ffc1laLCDE2W
DXS/v4HKxOGLHQJUmINBsY9W1Vt4Zk2Sx89GhU1/w02GdL2DTYUbkkE0VNhL
3Vc1hHPvIeC/F72b+5QYe2rSP0VXM+A5dDN4NkuJEdiYON06aw7NvXmb5QOU
mKSqfTtXjjm8zBxxY62jxNYJTcK4pT8AoRPp2c95lFiYkEH/zYkPEKd2M2M8
lhKLdBdJRb5YgBivpugDb0rsxdYRmQS7JQwSfW1Ns6bE/iz8qLjebAkWw/kv
KIwosVNk5Iv77z8CXf7vxdcqlFguE1NZOosVZH8lc+xEKDEVzzde/zVbgay2
wKmbfPjz2XJfe2X9CaaEtBKCz1NiqaBXbMRtDV+oPG5uk1Nir2su5zOOW8PF
iYJa9W0KjEbnLa9JpA1UlP1RqZykwNofTyrLqtqCmj/59IUeCsySW+wg57Qd
rL8UtHKqpsAcWDSPvXrswF9cm2wyiwJL3XCZ7w62Bx4GzwipSAos09/ljLm6
AzTPFV7PcKfAHvDu5GpecgRDbLSC0pIC0/uj3ec66wi4cAq5t3oUWMjQmYTh
ws8Q+1boT5cCBYZKnUpJR5xA7IHOOwFxCow46jejaYYTDLJ4nYRcp8C0ljU/
8J7+Ah/WigJ2mCgwjdrmsnnbL0Db/PeyBjEFJvHNkTV6+gtkxVEWVq2RY4Gj
HEwiSs4g+/HWg0t/ybE8OP++8oczTD3WHfjSTo6RqpWQX+V2Aacr3kZT5eRY
8OkUNaNIF2DdK96RTifHf14Rkp/JXaG8a8wjM4QcUy6TSTK2dgW1NCoWamdy
rCeSJuLanCus29/OeveeHLunaEL4TcMN/FT0xHs0yTG56Jd6m+1uwMXl0yH4
iBxjLA8QIkHcoQlXqh0mTI5Nbf+THC10B8Of4yu7V8kxTtvL+vacXwGXS/3l
BT05trYcozoa+xViXIXpq0/IMJkm3m4yRg8QeaGfzLZEhmleuP7mwMsDBm76
CrkMk2Es6ntNVYSe8IG8rGG6iQy7NMMTrmjnCbR/J9Rki8mwqTOLqeimJ3wr
ppn9lkSG/Xf2WjDNey+Q9hGxoQkgw664szBIznvBpL4BpZkDGSYt9LfF2Mgb
nET9ontNybBf5n1y3pPewEpXznNLnQzzJ0fpivR8oGxm8ke4FBk27kTCvz7m
A6o/aJ/sC5BhqduxDqp6vrAWLDqmyUaGEZ3IDC1O+IKvqaE5SoOf3+qmc8dL
P+CS9Ce8ckCKFTBraRDP+0Hj2Ypg11lSTC3kkWjme3/QX566+m+AFNPs8Zfu
3faHk/pTJQ/rSLHoR5phbRAA0dFiMtl5pBgWnO5L7hYAIh9eDtHGkWKt6r98
+dsCoF824JW5NynG8mY4Q54+EMwuVe73WZNiVzJ1Cd5pBALN9rT3bSNS7DKL
/mJSciBkttNdiFQhxe42tXccLgWCdPKd3AOEFPN/5N/kIxoEEzZGoM1Hinkb
zpYYugeBo2JgN3aeFBs/vHIzvD8Izl+r0mOnIMXSvKs+C18NhtKjmXW3bRLs
m9hm9POPwaDaf9p1dpIE+1uRLUTfHAyr38TPPO4hwc6yz1DasIaAzxfjtJxq
EmyJWkQ6/kMIXFcPEqbLJsGuDojlxLaGQAPfj+YPkSQY+S8DJe+roaBPMvt8
wJ0Ey1Kub//sFArHI/QLwpYkWFeQkWjwaChEFdy1j9Ijwd5XMHCOSoSBsKcJ
zZECCSZb4BJmkxgGfTrBcTriJFjxLibgQhoOZrer+Wuvk2CdlvKfad6FAzXN
HHb1LAlmsSueLzQUDhmTDMpfiUkwK172nwxSESBVITE5t0aM6YvEmDYURcB4
wCtLub/EmAfxbyrDa5HgYBxC8r2dGJM8omijjY0EFgk07HQFMeaZ1Mz660wU
lDDOX7NMJ8byOfWpxwKjQGWBsXwwhBhb7umjhNPRsFIDj0SdiTFy6jDn0yHR
4B1hOhL9nhjLpTGhtWCJAc73oW+ONYkxPiO7PNuUGKiXwo50HxFjfgV2DvcE
YkGPdcGvTpgYi7rW93imLhaO1s+wcfxHjHX6hKXbPY+DyBYk34OeGPuldS7i
wkYc3E54fW/hhAi78VJhfyYgHnqtwvrkl4gwahmOUYtzCfBevsYwb5gIu2DT
sh/zJgGori5u0TcTYWQeUw17NQmQvs/09WMxEfbW+nJRyLlEeNAjyTyURIQR
0Ak2fLJIhLH0N5liAURYzOW/jtldieDgGC4W60CEbe5uXbzLlwTnnta2nZji
z+d9r4XfPwmKuZc09dWJsDynW9Z+60mgTMi8XC9FhGWOBUpqqyfD8tC9z9cE
ibBLktKC6VgyeH9/S+fFRoT9PmXR8Z47Ba65RyQu0hBh3KSsB1URKVCnWSfw
5IAQqxGymw8gTwVdweW6/FlC7L0gXcOqbSocUpx7yjhIiKkPcYX/XUmFyLH7
M1Z1hJgM+TN7HeM0uFX67tOvPEKM6aVQpfl4GvT4RpKLxxFirxT4MSbtdHhn
WB8Z502IxV3K+ar4Jx0o76xwEdgQYrqy19tYdDIg7TRLlYERIab9Tc3NYjID
7s8+kG9UIcQe+d8vemaaCX+r349yShJi99kfKNRtZIJ9aNR7bz5CDMJ3qfI/
fwPmNw245fOE2IXIhHfnabOg6N5qoCIFIbb0aMz/IC4LlM6dZy/cJsBa4hzD
Hgpkw9KKVNGZKQKM49ir5LApG7wazaSsewgwO3FOASrdHOCIjR4cribA6K7g
Xpju50CtRaPx3WwC7K2WfghteC7oPFrbjY8kwMg4T6st3PoOB2ysXoRfCTCp
+DxsY/A7ROxIn39pSYB5/bkVSn03D4Q6zbOb9Aiwh6uyNan+edCdEnOX6wkB
9me+NP/uZB68tWvq9BEnwKql/1xpF84HCuV1nZXrBFgg/fZLWd98SOO8sKZ0
lgArcNRwy5jMh3snMs5FxASYS3zss0mxAhgd+MBwdh2HsT6gXloOKgC77NgU
m784zPcHA0HNQgGcdWm+9bsdh1Ewyus+kSqEoucbjRIVOEzBp77CL74QFG9c
VE9Mx2Hm0TdrLfYLYZH04RxRKA47NymovPG0CDz/WNgaOeOwzfhT6oQFRfBf
URxVy3sc1lIocS2EthhqvVpiuLVwGAutJnns62LQ1tvk9XuEw/fP8U+nW4ph
X/gSuiqMw07i9O2mOEognPaRosp/OKxwUe2Ywq0EBKctx4vpcdjnJW1uq8kS
6K6M/8CMw2GOZd2F5++VwtDVULLt4RN0KMxZZCWhFOh6569XFp+gWXMrspMn
pfDoMyLnFHCC6sj1/LeoXQbOPGHvpF6foErBx3FHP8qg4tdCAKX0CdqVX5FC
daEcNt0lC7vYTlBD60EXSvty4BEKHwg5OEazwp1DlofLwWh8cef54DF6hywp
L0u0AuL87rFcyj9GdWUuHd+OqIDBOxHiU97HqNZsc5TbdgXQzS1pZxodo/bM
uAe+qpUgG3b/yzvJY3QrxSHrXkElON+PTBZkPUbbnDxfxJyqgorV5Ybd7SPU
4hNNbcCbKliPfTD7o+cITdnoIDjbUgU8j6MoXbKPUM22UWOO/36A4e4Kj+zX
I5TR6YVmidMPiEuVekKjf4T+5S5pqB75AYPK0ea94kdoNueUv+jtaqDFrQWH
nz1CcVMG5ZcCqkE2R7pEc/0QfaFaGPxqrhqcNGKGLnccovbCnH7091CoIFvf
n0k/RDel9BPPRKGwXiRzIdv5EI1ladN6t4YCl34smGsdokzcyp+or2JgeGpD
77bIIVrYp0RL8QSDmCpZ1wP6Q7TiXM9ylg0Gg6/i0rClA9T9QkfKRjIGtGc3
m92aD9CiU3m5fzswkK5/uPAo+QAV3byMvt/BwMk8nobO8QBlWC/rSmargbKL
W/wD6gdoSU4Rt/3DGlhve6QcJXiA3upLeb9nXgNcNgmWOrQHaOzDXg/WqBrQ
59gOuzq3j5p5vC6aqamBmL7H5XN1+6hljaXj87ka6HdKHMmN20dzmu0xK7pa
oOXbObKw2UdjzhPMIsK1ID0ixyaquo9+790TqdCqBUePpHvHfPvo8ENa4mmX
Wii7tWtYR7GPerjlX2/IrIXVCfmvHlN7qLncZyatrlrgDEjOlEf30HqmyxZ5
m7Wgf3evjT5qDxX3UiOvO1cHUfMKyz8t99AezpGlCIk66A9PoYt9sodWndbQ
uG1QB9RS+wL6XHto0KeO8vivdfBg/cnTayR76PjfC99+ZdWBY3zqp8W/uyhP
UvzObFcdlMgdROZX7KJC5Lj53o06WN1TrLIK3UWPtEwpY87WA2d62ugds12U
onxr6+GdetBVPcQRPN5FIx92sE5o10MUgTJ743+7qIeedtIr53rozU2X8sbt
osPMgQozqfVArXlkrDiygzYyczRrtdTDAwoVrzMlO+h+93r9wGI92JdkZA8H
7KD0u1UkqnQNUGJw3Bn/egdNI2NUHhVsgGU61TVD6R3Ut4fb0vZZA3BWZzJw
Xd5BI8UrhfjsGkD39cmtlYNtVIJ9Qu0krgEimJ+qFw1uo2dFz4Vs1DZAb8M3
W5v8bfQWl1Um3b8GoLTAxUr4bKNcbGrKmlSN8IBNDSUy3kZJTR3SR/gbwb4j
a7xZchu1btpSCFFthCJbAmI/1m2UXAcJ97ZphOVrzzhUdrZQE4WSysa4RuAY
yJZl7t1CZ2+nHTyqbwRdZ8LXf7K3UK6brfus840Qwa/um/R1C0273cQjSdcE
3b9zvhvr449n13Ssut0ElF5EvTx3t9CrPyXvBGs1wT3h55trZ7dQ13Ghhy2u
TWA/lctUur6JNirT1OlnN0FRILGofccmKq2nrm3Q3wSLEhovJDM2UVLZc6Gd
h03AsfjdgdRlE01KcUpO/68ZtCNJEtq0NtGcCynxawrNECb9ojZAZBONIVCT
+27dDN0beVNPGTbRB9RHbRNJzUCeSEp2fnkDJU9qdvbraIZ7CprXx5o3ULNg
thdFu81ge5D/ODV5A5WoFNh5erUFCjLI3pk6bqBCAknzlootsPhUK4D/+Qbq
fOXW0mmHFrhKVFiwKbiBXktUbOH91gLaeeQD5bQb6BcLD6qWny0QpqW94zi3
jn4o5iKbImmFTsqicw/q11FfkxefHIVagbyMQpwifh0VaUSnwg1aAXmpo91p
s47KbwWn8ge3gi19sVOw6jrap4R8fFDXCgUoZbI6/zq6RbXEMbDRCvNvdBsu
UK6jlIvyTGNX2+AqS8m/iak1VEcmXtlArQ00m6goM9A1dF5bKF7Tow3CLPV4
3katoRdOc1i2VLRB5+VSBYGPa6hpkIl1+lIbkHZRm+88WUO5tMMIN9jaAbHX
D67iWkMt26M2M1Tbwfp6WfEXkjW0nGqPtMGjHQoGaYakx1bRJzd8e+//aId5
F4N9qspV1Fdv/r/L6+1w5WY5a0/oKmq1dVFE/VoHaI7SQpjZKmpM4eg0pdkB
Id6Gei8er6L8DIvENUEd0ClS4cLGsYpOtIr7zjZ3AOnMqbRp3CoqS86Q+vSk
A+w52gKelq6grKs/Ywlvd8Kqk9XA3zcrKDLbnDT3phN0Ry6zmF5ZQRfMhEqI
Uzqh+1aH9ubPZVSCSFVffqQTHgRYJzv6LqOx/zDaH/RdUDTPPkt+fxk15+Rm
lX/UBZxSXTzBu0toW+iWw/aXLoiItzW/kLuEsn35+qygvAvI9/8rSTdYQt0G
22xs1rrAXrVn/+a5JZTW6L1sEmM3LObaQ1XnIsq6KXXJ/UY36FJwukq7LqIb
ygyOhnLd0G3Q19wtuoi6vaXSETXpBqTakebFygJq6sxCR+DaDUXMXMrTKQto
u9Tyl9L4brhqMRD2XmMBNenzyFev7IaIDqeRvVP4rLT/bWywG8g5edhcG+ZR
Fw3Kl4/Xu8Ha+achrd08Otp+sySEpgcWfztnRtyYR1lmherLOHtAU5hv+crM
HPreNdu18H4PdAf+EsiJnkPVlKwSnLR7AFl0/SSsNIe+oiK4x2rTA3nSN6pq
SOfQTOMr4s7BPcCWOIKTq5pFzZssXHNzeiDiwF1q0HwWtTx7lSC2qQfI1QS8
dK/NojsXONofjveAdd6fzvnf/1CJl4wbefs9MEvpyfAx6B/aqNPn18nQC+ov
hdRPZP6hly1uNsTx9EI3+jfG82gGdQOzUxelegFh8R5nKJxBkSwHCVmtXsiz
vM0RZzKDMnVUtZ372AtsXeOmnBdn0I5TnLz+Pr0QcN33e0HfNOouQziektwL
5K4im+Ke06i9bKfds4pesB6dFGmSmEZlftVkJnf3wqyIv4PS5hQ6rM53w30G
7wkWqx3JnEJNL48uHxz0QvPSNKmRzhT6p/DlOMHpPkBkAx+vMk6hFyuN2UL/
64O8JPEA29ZJlOugdaJAtA/Yjv71EztNotzS447q8n0Q8Cz4nP+tSfR8pONr
F90+wBVIaJ9bmEDNSvSUb1r0gTX1fFJywgSq4tU5rePWB7NGof941SbQL3PS
M9ThfaBeg/CUUU2gLBtVr29n9EHz+UWzezXjaIN+ROxwWR+IWIUXt1uNo9tk
P5t3mvGe7nv7ajzjqKRMgq7PEN7DvSwxPj6GulrWHYf9w3vcIl1eh4+hCwls
hkzbeM/Yg+YtuTG0w+vAmoK4H8zEVqmdCMdQXTMR+fen+6H7unAyo9lf1D3K
mVnmYj/kjfryXB8ZRWU8NcUCuPohIHiq+K70KBqCnRN7dBs/XvYOKOf/QcUe
1jZaSvaD4lFgsxHrH/TsqbGSU3L9cKNgVsnu629U6sVt8vNq/cBmDCP+6yOo
QrXB3zCdfsCxhhmmaI2gqn3vvrqY9MNY9+JSWfMwqq0hYT5u1g+Y2/1PHYLD
aMlshGm+dT8kiEXhJuJ+oWttdOMbn/GelVXPbYpfqMQz3/xMd7wnRYaB6uMQ
SrRzbrvPB+95HhdzaewnOvXy2qZFEN5Du/Wf0OOfaOueVLlXeD/Q1T3+Llsy
iFKdmik/F4P3WCeJaF0eROcdxL5cScB7ePZqzH0G0MfeZvlpyXjP+JPH7jv9
aJGxI0VGGt4TltYfpd+PKkdvmnNm9oPT4yOt7x19KC5QqvN6Ft6DU/1XJ9KH
Sv8aOZebjfcUfzMbSu5F4/ivppbm4D2mBPuLtL1oHkNouGwu3nNJ3YXAtgf1
64s2NMDn1b5caqbpbvRLuKQIJT6PeZCEcSl2oy95M6IAP97JrkzC0aoL9eBM
ZyHFz49Mv1RKl+tE508JKup+w1/PEwbD7isdaL+k07hiBt5fhlnt7bahU+sZ
X4ZT8f4r7zyvdLWit7bUVk6S+kHX53zM49QWdELlw0ZdPP5+bTfnWto1o+dr
BnSu4z+fMR2rmlilJnRhrI9fMAI/voW9v/FaI7qVH0w1FYz3CPbMrBzVoy2u
1LMS/nhPrOMec38dSnzmdbG0F95DxkN971st+gy3pXPsiveY/br42qkG1Vpq
HjDB30+nYfebIWoYGiLdS+Jpg697mHjYPq9GheWaR/Us8PNp1uW0k1Sh7b0i
Cttv8HX+i30XC8rRruU4eGiErxPZ7Jppl6JcZW7RWvjvFzbYd6GOshj1EiuV
vq2On/8b3/0zpQWoc9Cny4OKeI+jp4mxQR4qc6WdFHmIz8nN5y0uZaOaRZ1t
VvjvM+6Ro9FZ63S0TYEaHETxeU0wv7I7CVUxWrmmdhOfb/btoMox6BrtLWni
6/j8WcKXnDgYbSp+o+TFhs9RKlJJpi5o0tiX3fmz+IxJk7xLE0VB98k45yl8
5jsxvNP9Be4/vZMhTYrPsowXBm4HwVov1az0Ef73up/x1cctGpRGGO7wbOLz
4MW9y6ZJcPo86+zuPD7zv8p1OJ0OdbevOH0fx2ePQoNfZVmQJOXwWhm/HiCr
jj4sN/IgxucR2VRnH2CsV42bXQpgokQg1agBX3/YImn1swgiim56/67E1z++
Y73KXQpcb3U3ZArw9SSGnR7HctD9iFJl4dcjp86yns+9lXB8RLBNFo8/34FW
Ni9HNazydWbqhuLHB3+pWxLHgLzfyqjUG1/n6s+rN6qBqU4GJlpn/HwYR1x0
QC0sRpCFGln3ga6ajfeHijqInVf6UfuuDxIW26wfTtVD9s2DgKsv+2DM+aIR
G20jGL4oLfF9gV/fzpmr7Ag3wdlV1+ETJfz473VIp14zuLWpJNnL4sdLMfGl
ereAoMt8DwngPSMm5+2LW+FXZfBgzC2850MlucrfNhh/eE7wPg/eQ067fZ2i
Ay6O8xvuX8FfX5zuJE6wE9IrU9/XncOPFyrs/qnZBZXp8mvxdH1gNk2o8+x+
N/Cef0YfSIZfX29kD9wb6gbngwtnI47x/cruqRzf2x4IqhRuKt7C97fG49pz
hL3gMpIus7DYC6unM0RJwnshXPzFZ9GpXsBpKeWtcvdByt2NW4kj+P6Wsc/x
G+sDO+luRfY+fD/cSI5tetoPLoTqblhrL+hKyDMWzveDcpXfE5vaXnDy3PaK
+zwAa0vBqgr4fhfQH0/gxTgIiYlndqAA77n00Ppj5iBcqB51UviG95iuL+tK
/AQmt1Q+2yS8pzj6pVzfT/CTsbhaF9ULdARSv4VNhuBHTrbC9WC8R25Zmf1o
CL78JRjK9sZ7wsNbaIN+wcskAhd5V7xnAkH2OYZhDnEipnLAe3jnS6Yrh0Hd
3+VoCt+vE6yDeXsUR+AHmfvG8Du8p048pWp6BG7QsyouGuM9tDMsGba/gUsk
VZdZD+957h8YfOoPhDp8k9PWwHtSRcg/p/wB+oAwth8qvXBjddzRVHQUEoY9
iYTk8Z473ltPO0dh/gNnfo003uMu9EbS4C/4ibL9M0Twnp4/Ezy7f+HS8X1p
VrFeUPSr4/GRHgPR3SzlGcFeGBNkniUIHIM0+zmLGt5eMPn1JvnTyBgwiwni
sq/1wq5jjfbSf+OQjJhfSbncCx5XmVgMzMaBYtSkKf18LzC3mg4MVYzDUIvw
leIzvZDxHg1QIJkAWZ6s3ZZTeO8ZRrn6JxNgrENAN0XRC1iFCZlY1AR89Uti
JCDGe3R/1H6fmoDqt8dRF497YIyE3vE//kkYqf7MJrbbA2ZZRqLRNpPQ8i6U
Wmm9B3YVKzfp6ich4aA7X3exBzy2T+W5005BSNm5J0YzPcAcY/j6UH0KDE03
6XTGeiBDspzjQ/IUmLk+XpEZ7gGRfzQT/5amQMgpGS729wDmox+rJTINQ1t/
h0c7ekBRoFS9z3kaDuqxPHf8/m7sJxXjw45pqMvPS6evwXscdLuqz86A+up0
zOeKHsCxF3sJ6c+AguRlo9ZCvKeZQvpb9gycLrbpW8nGe95pE7DtzEBj4HDa
Yirew1BYFSr5D2hpWlN/xOE95WTWVD7/oKn7YpNOeA80a2sKfhn8B0y/75R3
+eM9xPnL22yzEFl1R47SA+/JJPn25vUsqGXSqlE74T1PNF5OFM8CS+vHot5P
eM9WLps6bg6cW44VNN73QEAU0e+OR3NAeXDEnGCE9yDq4fdD58D6hRtDohbe
M52tXP53Dlzz1J5oqOI93gS0/FzzUEDTtdz8CO+5odaSYjkPd8lar80jPaA+
+M2VBZ2H5TFbqcrbeI/dCQRQLEAHjdg3UR6857LqAYnqAoRoS/XoX8Z7mjJK
7OIWYF3GXFGICe95c2S+NrsASBpNWRYlfn9Nr8xrLLgId5MfUjUdd0Neadrs
b4dFkKUq4XTF7+9FtA6SlZsX4bFxguD4dDc0EyrqNNMvQZDXCtFv/LqjnpHC
IqG1BNlWqw4Wbd0wK783UJi+BEx953pTf+CfDzbkA6+vLwHHjmSM+fduwEUm
ycWLLwP9oIrvQEI3BEjskJ35ugy/msizugO7gW3qcZ1XzzK8V3rGpO+M93gm
OOJYV8DjuG3X4wP++YV/S9TKaAV2XRpKH+jjPf0PtxbyVuAWbm08RAnvsY3L
0ztYAfkAP34bpBs2/feKF66sAnncy7drfN1QNZEczCG7ClotV+qPWLvB9ZaC
ud7bVaCE0g9xlN0g67GrEBO0ClFKWm/TV7qAbiSJ52fpKlx+/ERWvKULhnjl
Ken/rIL1k7e0R4ldkOC080+OcA2ykMB7CzZdYNKX2PD12hqwPv0wQ67UBTwc
csm1cmvAzpsjoH6tCzatt53wdwBeiDNgI4edUNWWoC0Svgb0/3wbw3o6wfXi
Y3GLqjU4I0B7xye1E+TMt87ljq+BDk9LIGrdCXT18TuzpOtgSRLqLPS4E4aY
Hg2w86xDo4su6QprJyS82izQVlqHu9PNTBtLHWBSFRcQabUOTws6lKWqO+DG
qYfv+qPXYWrdb3DetwM29TYen6pZB5Nbv6/M4p+Pq4pirz+aWQfq7NDH97g7
wJVMlsyNagNUdvuCj3fbQU5jfQq9sQEL5JGmVxrbgTEnpnb/6QZ8GjEzLgxq
h6ET6YRbdhugqUoiU6rdDgnKaw5mCRsQq5XxT5CrHUxSo19kNWzA6fn4B/xb
bXBjV0p0Zn4DxniX+L6jbbD7aJXpMt0mEI9OvqnwbIOq2KjNF7c2YYebbkVN
pQ1cVx/0hmlsQkx4DZk3axvI3V/53vN5E94S0DBpTbcCY1ikL3XqJlixv3Lu
y2mF37P3X8u0boIm4/PKzY+tkHBnWdZ5ZRP6Da4JNN1tBRO/CI4fjFuwOz3z
W5GkFW6M3yPeFd2CBqZ++sj2FtgVXBoX0NmCZ4M0M6nBLYC5h6NvXbeATn47
3EGjBVx/ScZmZG5BZUCdDcflFpDjWbSd7NwC17rsjrR/zcD4OUz94uYWeNa4
yBLnNsPvHuT283PbwPVxbUPKshlSri4whEhsgyq3hKO5WDOYfApd6zTYhhRi
+QofXDPcaIUuCs9tCLeZ049tbIJd1vnsB7nbEH/h3OlMnybA3od4fe7bhjNC
a7XFyk3gUSthUrG7DTS7NGPNzE0gd2ZOauvCDrzBaVn+G20ERpNg9hv3d2BD
VJTtbGoj/K64S/DaZAf2fivFar5uhBSa2dFU3x0Ahu/uVTcb4Y1uUNVYwQ7E
s7d5iu82wI1C8ajzQzvA+ONt/Vh1A+yS/PukdrQD54ndMnLcGgBTD3waeGUX
nl+fcE2XawCPrDuC7TK7MJXd97mXoQEUj6fpyN7uwtUt2jCBkXpgVgpYlgza
hcB70aptSfXwO1ms3b50F6gNYD/BtB5StqcyS3/vgrfFE6cSgXp489D/6zrB
HpC3dzWfOqgDoRjRl7zX9iD03U7C97o6OFyevGcitwcdMzGbET51gEn6sSWb
74H4fB/W+bQOPEJEjv+E7cE7EktZ1Ut1oPhvYoS5ag8KaagLuedq8X3Xt1xl
fA+MLe4bPCushTEf4XA/0n1w8H8d/8uhFlL+jlu2cO9DRWanR5FsLbwR8FEm
VtqH7nEz1nmGWhByu30DrPaBM3wvw+5vDRz+HKOxjd4HIeGl7NdZNVDP5b1Q
hO0DLFWmVX6qAQ+HWy0r0/vAZv/r4M2DGlDs/pvGRXUAjb0X951O1wAzu5fr
yxsHQJITNrE7isHYRyH9hKcHUL1jnjWQjUFG8yiM2B4AoYW+ArMdBm/Oe15g
SjiAfPa0jJqHGAi9EzxQbDiA+PgVu15mDA6xP0Pe8wew4xUxGtaNQj2DR0nj
qUMgkDnFpmGGgo+RQAjBrUOQ62BKXaFDQbH8t7m4xiFIuFlxqBdUAzP11yef
Ph+CBdMefsdXDWPaN3kLUg7BnUPNL3nnB2Tkj1AutRyC9X3FxK/RP8CM2H32
2soh4NR+4DdLP0Do2Y1GfcYjEPb5/LttugoOM4eTY0WPoDFbV4fbpwrqD12/
DGkfgZHCcKa2YBX4POHXYXA9AoH8g0LDkUpQTfolrpB5BB8KhTrEXSuBecuF
xbPzCF7/GGSf4a2EMRm+3bqNI3BKnHuvM1QBGVFDA8fMx5BRxMqS4VIBZkvO
haISx/B1P/oMyl8BIghvoKXBMRgX/epL+l0Oh0E/3333OAY+VtFPSl7lUD/9
RW4+5xhyZcoMW0XKwUeEh+u/vmMwG5AroZotA1XvQTLd3WNwjJ/kY4goA9ZR
p+moCycgrVPS+Ve2DMZucNcN3DsBUjGFj+/3SyHDZSCBzuQEnv08XYJml4LZ
4GfHx74nEH1B7FOXTimIXOfSdC84gZNm94RohlLA2feL1vw8Ac6WlUvszSVQ
3+l49vDwBHDMdOwGDiXQGBBie/40DuEJ4NB/LlgCXBWv5srYcYiv/tmvRPPF
4Dcpoa52G4eYaK+daCcWwzo1Y9OGLA4ZcWTXePW8GFRvz90KfIFDbB3iq9jo
i6FMpzqF7x0OgebEm85tRcDqGczQ7oRDzPeamb3disCpwMT5VTAOUVyJcRdB
imBq5O4aaRoOKfws88vjoBCkSRh0U8pwCCdqMm5dWgjf+GY7JdtwiP+lpgMS
y0KgVf9x9+8fHBLbaI7w3iyED1+Csu1XcUiXuxXj4nIBDH4zPs9CRIC0XTrL
h+QUgEi/uFfpGQKEyGmV/9qbAog5Or2nykmAaEz3qsZyFwDu2j/jdTECpEqI
0iRhIR8MFasG/eUJkEJGBgn+7HxotgmU4tUlQGI3z7NIv80HrmSjotYPBMjH
gKkPE3z54Nd+h93EjQAhK05tJljLg/UtuiCSCALEj900LbEwD9QuzeCSv+Hr
fwySUas8qJCtfI/8IEDShihm1MXy4OKHgNE/XQRIbvNHnqHD7+AU/VLeboIA
Ibj+lX/J7TtM1YtVMW8RIIpTxgqLp76D7PIp7hIyQiTucfmznqhcyD47HanC
Qohs6shJRnDkAp1kBfkaDyFy+F6D625hDnww9f/kB4TI4GayVhWSA4PBhjPc
yoRI7wcLFfqubBD7Ifq0xZAQqbnlXHhHOxviZmjrjT4RIv4DVWq3lrOAkG5K
gNiLENmiMJU9cMwCQ9HyxMQYQuTDecYEb7osaNb3o4PvhEgPifDT6aRvwONj
8Pl3DSHC/7E2nfD2NwgoFlm26SdExMnerU61ZMLmKI3W2X+ESGRwppundiao
kU+2Fe0RInqdRp7LGxlQcbNMTJmaCOkw3GGh98qAiy98M1cuEiHn/6CkG2wZ
4Oyqz+x7kwhxrHFXCShLh5kc4a9cD4gQmZSP9+YU00H2J/V2kxoRsp26oHA0
lwbZuAnDl6+IEBvnbto2lzSg4yrtI7QnQlReXGpUvZgGlio+9xL8iJCRN6Fn
IstTYcheL/9uIhFyUcxZOOJpKoil3WYbKcTXe0NYVNdTIK6Lyt+6kQgR+mMQ
3+6fAoR7Y0dnfhEhqNKTBkK+FDC6UvKmcAGfeemqd9qTofWx94jiMREyLotb
zH6TDDwfdR8t0xEjlv13xthpkiEg7la5Nzsx8komTl07Nwk2myg5r98mRhZj
Y+5qKyaB+trfsEZZYuTO5nH8fxuJUMVSTGL4ghjJTbIrKQlLhIsPvCwJ3hEj
bzRCYxnuJILzW53JOCdi5OGvMyYSYwkwEyakLB5MjHwkaXx2xz0BHmEUNb9S
iZGcwD8s1LwJkDs3yv+pjBjRbLhzZJQZD3QMRXGMbcSIk0j2a5P9OLAU96Qp
+EOMsO+dEF2Wj4Ohl9r2T1aJkTXusL2IxFgQ9xdcWCQkQbAvpnJDOzGQUEau
4XWGBElcsNwbfxIDhBN/mq9xkiDqmM6vqsxoMKIqFG4QI0FiVrfPmJNEQ6uQ
R5q+PAnynv3gHZFBFPBpa53B6ZIgYzvnuG1rIyHoq4Br7AcSRGLDwW2EPRI2
88g2xNxIkIsO8+m8XyNAffi33lA4CVJ9MWjx42I4VBEVdH/8RoKQPO65XaES
Dmy8X4HhBwlC30E0Q/gjDFzVNHPzukgQzp7WPyqcYTDz+eYFhQkSpN1fObYg
NBQeZZL6LGySIKF9OeZXSUIht3dk34OMFFG0ZOrItgoB+sO8VxwspAjdCZ2q
ynwwWP3nPlTHQ4qwyVcJseoGw5DCCxk9IEVW9MdJqIaCQNz6RsmxEikS9Xmu
8IpyECQkkvwXY0iKhBTYipl0BgJx23Cw6CdS5PLllzJ/5QLBZPM74U9PUqS6
vc3EqyMAWi+4mVvGkCJM/42wvVMMAD4ZjbHT30mRz/9mu5iy/CHIjP/J9xpS
pJceiprL/WA7krharp8UMaZVebfV7gsadb945mdIEQXP7pr4KR+oXsyN/rpH
iiwy+xS24HyAjcmV8j9qMuTSh4X6t5e9wRWe29ReJEMUMn/9C5X2glkTvlmd
m2SITcD1L3fNPEEuiOjZ0X0yZDBZsepNnAfkVQ41RKmRIXLlN7yYe74C/XSO
kMgr/PFxZLYS5F/BitYlecCODPmYxXhq7L47DAur01v4kSFZOptVWy5uIKHH
+4UukQxJ3qXLs212hSQvwtWcQjJEeUBa7dVpVyAu+qn9uBHvoa/Rq9R2AZM/
2R2zQ2QItdKD9ld5ztBO6izuvkCG/JVhHH5N6gw3bjzLYj8mQ5wI9uNKdb9A
yHMelho6cqSC60yeNOoE284Entrs5MiLIPoYuitOoJE9uHNwixwhOP7iy0D/
GaoHsowiZcmRn2F5KSqzDnDlxGng9gtypM9iQ6W+0R7cOdUe9L8lR26WrDyV
z7GDWSXuQnMncuST4YjCQLQtyNnhrpwKJkcYmbMFIcgG8lIGArJTyZFQFqP4
dwHWwNj57eRhGTmicndcQDnsE1jvfH73r5Uc4enqa0CTrWCY7ekf1z/kSGfB
E7PEso8g8YhL7soqOcJU9nL6V78lJFmcVKCEFMgku5uf1K4FkMb2X9c6Q4FI
nTGWrb9iAaaNmRH71yiQ2bKCp7dUP0D7iiNZhBgFYmoVXPTRxxxunFO1uiVP
gSRX2FfqtJlByL3r0706FEj0qBX7Xzoz2H19rGL2gQKhyXHhdS1/B5qhfbU0
bhRIiCv37xGtt1BdnXEzK5wCibPk/uZI+wauzDokyH6jQMZJPCX420zB/bTK
qZkqCoQrM0A4KvgVzItxOrp0USDM/gMK1sYmoGB4tMg2QYHYRvFecJY2hgLf
3hfVmxQIwe1qQbMbRsBUmt76gowS4Z1Lsvl99SXYjtmL7p2jRDa3LWUr2A1h
mEI5I4yHEiHmGnqZw2MAEoLXzgoBJTJvsylmAvqQpHno1qNEiYjVR0amvMD/
Et17Nt8ZUiIreTXdrF90wfR7mgH1J0rkV8Pg57M6OtA5ZNeb6UmJKErQ9T3v
0AIBQiVJmRhKRKByntxGThPCuDnypnIpkZgIonMrIxqwr3pw0bmGEqEm2kkW
tnsO2o7dvpf6KRFnTl+67uvqUJ2eelg1Q4m0Tu+kCf9Tgys9tq819iiRr0FX
vq0UPAX3/SfDO1RUiBED2cprH1WYZ//vYehFKoQoZvz6XQsVUJDfLxW4SYUE
qJwckBorQ4FVF0f3fSokvqlS746xEjAlpIS+VaNCuM4oNhlZKIJtiw0x1Ssq
hLKegvQG0xMYXVewyLCjQixkDOqwF/Jwj/XqhJQfFdLRTGWQXvIYkqT2FCcT
qJC0HcUwOo5HQPq+E3UqpEIe3rYQ4MuUBdOIZL6LjVQIv5CXuDDIQGeNdWzl
EBXCImy0bvxPCgQW5KmfL1AhvQLe3QSJDyCMkd1u+4gK6e4xCH38+j7s392d
C6ajRuIvtEkGSt0DbeMO9Zvs1MhdWeqzV/kloTYgqanzFjXyv/8v+b/5/wGa
6tOb
         "]]}}, {}, {}, {}, {}}, {{{}, {}, 
       TagBox[
        {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
         Opacity[1.], LineBox[CompressedData["
1:eJw1mnk0VV/Yxw3XdHGvlFLJFMpQkaEQzyGJDCHznDJEiUKhTCFD5GcKZZ5n
IoScQ0TmTPdeU6YiRURlive+a73vP+eszzpr7Wfv5/l+z372WlvA7q6BPR0N
DY049fG/79NwcHFvj4gli//KSo4QgLubx8M2t4hYVcdR8akaAaiokhJZ+03E
Djj52z+fFYCzJ3Xsvn4nYv1PbULElQXh3L7g0W4SEeOJb5m9vyEIyOxqZ3I5
EYM65vSDQUIQmLrnFFdExObuDzubvBGCFhN2pqhcImbOksrO8U0I1LpPXgx4
ScT4NtRnf+gLg+YbmwaHp0SsOyAs0l1UBAye9hRL2xAxN3pm3biVExCnMqZ5
ypyIRVgX/esVPwlD2wvzIkZEjLDf8GWc40kwdsMJHdEiYn2Pqs80Tp0ECzPF
VzTniJhWSQNfMUUUbooXPushEDGf8r8h+HlxeNAXfMexiYBVb/XL6l6QhGff
vUjrdQRMhJ3jza6DJGQx3VIJqiJgyzIurYdiJaEbdLhSCwjYzlAsPP0mCYIV
XO8GYgkYi1HOe89UKeiNyWNTdiRgrYZ3iU5HpGGuJMmr6zoB21y9/Gq/tjRs
dkRMmVoSsAzOebVzftIgRHu3+r4+AaNsjXN8n5UGH/dzloWKBExse/Cw4BsZ
EDHoKD7AQcB0X8htYnfl4IJrPVcWnvqdXlXibqEc6EeU+J9hIGATUc9Z82fl
4FFLzLUrW+zYvZoJvzqzczBw1mzbf44d0xy4FPpE+zw83r945XsdO7b6moG7
W0cBhoZYF5uvs2NBLnd+yXQoQ+DNN03FluzY1aLxoZscAKfXreMSTNgx4Tpe
QykzgLD9ry/c0mHH3nA0beX8AFAyMH3OIc+OsdDzPHsWhUBeX46MDQc7Fm0t
HJjXpQLXbHRZNFnZsbMCt/qW1lWA5uffibOM7Biu7GZEFK8qmBO0njLusGGZ
VzXXyfdUgaizSimdZ8P4cFEvXvNdhIedSv47TWyYorHtFFukGgibz1/7+pYN
E1BNrjlVrwYD32JO9lezYabxT+Ref1MDCZa5T9lFbFjVGSmJb5qXYPpyhJBW
IhtmKXOEVoioDlfaRj4m32HDStP+bXmXXoZj2N0D53jYMPuX3gf1QAu6OWU9
FA6xYddkTnkr+GqBj/3WoBInGybWzk9KrdWCEXxInBozG3aQ9e/KgJQ2xBil
cBqss2If6efHCBI6QP+9leNONyvGnc30O+78VXitFOHm1s6KvVbG/B88ugq2
MVf777ewYnY96wYz2FVolB197lPHikkzIV0FwnrgFfCTEJbDilW+H0o1rdKD
b1xH2LMfsWL/qe4PPjGuD0lOn2/nPWDFXHQPBUXRGYB6Q0534T1WTFigcU9Z
1ACybM88q3BixdLR1xGhDwzAsliNtcmQGp85xb/m0DXoQ+6yUCRYMVKJqPs+
R0N449LKQJzAYz67OT7Jl0zgPL+rVB4Jj5WxVkXn+5hA/dAhK6UBPJY+ZtJy
vMIEMCWXapd2PKb8MLTiFo8pdBI5b3RU4rHs+Nc41S1TmKqywQJD8ZgKrf+d
sS5zsHNi+cEdiMdElv1eSzBbwBeeqkMVvnjMhFbj0qaaBSyGMN6ddMNjmXi3
LibMAn6blB5TtMBjkpvec5yNloDf2fJZP4PHCFjBZGG3NURV5ORFilHnNzWd
d2SfDXDY6w4ICuMxXEm1JJexDXD1ZorqH8FjVudjDIunbYA/Q4NcisNj7iUp
lg3+tiCrlijrSGHBNm8Xl54tvg62z6RWKEEs2K/rEsE3LtwEn+rY0J7HLFjR
sI63iv1NSBhf42l+yIIRV3c+3Iq+CZ0SNZoFrizYYC9B5eX0TZDuUcj2MmfB
lkbdsqMj7YGRoGa8/ywLloydzeZfdoCS58aN2tPM2A0vxWeWq7fgQ22tATLO
jH3cYO29L+QM05+5v0mTmDHP2t0zX0yc4aDkGNfRHmZMpuSjJxl1Bv9+m7vf
6pgx7mCjgxzxLmCw75ZgaAwzJqdYK6ysewc2Yn3DUGDGTPYrW7WFusE8T/Oi
ugIzVqjCanKi0A1G8hh1emWYsZr0f/86utygqv6/fROizBhD19HZ7n3u4DqT
n7K1nxm7Ju7GOZPhDrNSQyWyC0wY7q9N58uue9DbL/GpOIYJq+5fUZA29oRG
83vS0pFM2LzMC8Qo0BOK52oT6kOYsFi6IcPWEk8I21A1/+jDhJ2f/+YRifOC
i/xms19vMmG9E/oqnbVeUHc35LeAPBP2I9WT3f3UQ8gmTB5OmmbE7i+1zVWb
+kKsBTDJjzNiYddvnLGP8oWggox1yggjhrnq+ri2+IKd6o2+o92MWOVm127U
qUcg6LUQnF7DiGXsW7EgMD+GrIlfP/MiGTGcGF15UK8fZJQwfXgjy4i9lycP
XTcIhJhNpypjSUaMUrc70nYvEALUOzP+ijFiDtO6ftZxgWA79cxXnp8aL5XQ
f3o4EPgOcEq9wzNit9VmuK5ZBEGaL8+r1s8MmF9xbuy8+xN4dUXq3mA4AyZI
40F7rjMEhFivdPYHM2BLkusviT9DoLjLTrDXnwEb5yofO3YgFOq14wc6PBkw
tSwyMm4dChTdv2ebrjNgP9JIN+f/hMLBa+/WCuQZMJh6VXJHKgyeW2h6+n3D
YXwGLTt/PkXAQR67Ht85HJbOVamz+y8C0sZ9hL0/47BSAlH5olgklFmVDN8f
xmGLeccZnz6JhG4botytZhxWdqLW59/5Z8B8c/jPtWQcNolrSp8qj4Kg29cf
imrisAvPl3FljjEwGW39qv4iDvM57tBLFxwDCpUWmJYyDrtxWmg0ICMGfv02
YnaVxmG+iS0um5QYuO5/Jen1MRx2ovav3bTuf4DEStcp/qLH2vK7FKqRWNit
ZdjQeUlP1ceHzdxL8WA+SsfzOYEe28jOUvZ1jIeanT1wi6HHbKQnA/3D48FV
ZetpbAg9Fsm+3sTVGw8TncuHSHfpsXCLMTk/swRonCCds1Wjx4K1zaycvBPB
l77owb0lOkxLND5kaTIJXJOtGW0X6LBWJV38NVwy2J3Zn6AzS4fVOpWUfBVN
hisWj16fpNBhlCH5r0meycBdpbs02UqHjYdbup0ipkC13Zqd1is6jLaZFiev
9RKWmy/oCmnRYdE3rqp/n0+FGZPV8X3qdJjRM/p9tvvTYHgp12UPocOS+KvI
TJAGjYeJ4aNydNiVAZWtlcQ0iHSffh8jSIcl/g1+f0ozHU4KhMr/26TFWi6s
ZL61yIDrAX1CIwW0WM97A49jk5lgTElXnsimxaIN//qX/cmEK2fdTOfSaLFn
NE9NzYlZIDPH8exXPC32lEm0lk4lC5g1DNYIgbTYJF6WOyk3C8qIw82XzWix
5DuJTXP3s2E7bdT6LQsttm/vbrifcC6s/C16iOFoMTLl0VSESi7M6fnGtu/R
YLN0zmLVVrnQS8fzYfg3DeaZTkuxSsyFLAerU7+mabBMKd07RJY80Dg9tS1W
T4NxTmUWba7lQcK7L0mvnGkwRSKTp9lUAVg/TPE7Z0+DBeeM25PpCuGk9NWb
AzY02BX5hUZf4UKoL6g7w2xEg91e718441IIk3GRH+4DDfYx/Ceit1EIJ5yl
1q8coMHyLWsWAg4Xw71TW2m/fPdQNxdpQ56HpVD/+SRbieAu6laSnDRsWAmP
LtCWpnDvoscu3y12ulUJSskUnXDCLvpm/bMSu18lYAYRzx22/qHTT9Z/ReRX
Qnvbd06BgX/osq7QAbPtShgqLjucGPgPFZlOLL+Y9xqWH8icCJjaQeNNl1qd
WarhOAeiapi2jRK/9duFM9RCtOS0j3PcNnrQXZFUxl8LG3pBVQFh2yjhNKf/
N8Va6P6vVaj03jZ6s13MMe1eLXjs12RivLyNLqt6hjBO18KHgwbdtT+3UHiL
2+xtrgPnYzeNj6psoT5CEvJn4+rhtViY88zsBvqNHn183aMJPrdV8svJ/UGt
dBiUHX3fwxeJhLNozRrq3NAYZz3fDvv8CuVO066in48cXHvN1AMScj8lctd+
oNqsJZJL6/3wRG2p/+3DebRfauZpdtAgtGj8uCpzYx4lSA1bqjwbBBqd771l
OvMoT7XR/rGEQXhk9K07W3AeLTMR3KItHAQvhy8dUd1fUQ2RrSCevkFwCpvA
rvN/RX80BQr5HhkC7e6eCpaOOdQIXdqJKx0CLsOyGLNDM2i4ssbQl5ZheC0S
WX+JfgblJeVupXQOg96m45zUz2k0evKj2pWBYYhIEziPb59GVyyXjr+YHobd
hfjP9V7T6EuCmvi3vWH4+tj3NM/IFMr1z9fMUXEEXK/+l/RO9DOqzciHSygd
gYL1Kz8SaD+jbY3hyv7VIzCTjENcKZPo1xdTmXYNI2A892CeN3wS7doybjvw
cQTA21ouYGECDYzrLROeGwGObPEh1fxxtLBk/8s1bhK8/tNG7BAaRcNpuzLZ
H5MguiirRXmTgh6n66SLeUICF2t/zzc9FNTjB16HJYIEQh/Oj2V5UdADP218
pxJJkJhQnPe4g4yatmxf468ggY/Mf0rSt0koGLG9m5wigfHCnZVChIRWduX1
dH0lgfSrK9n8XCRUjDdGrfwHCX7Q41gITSNoSAyXutkGCawHvYYWiCOoe8o4
ep5IBtV7li5pVUNopJn9Oq8iGXhF5Hm5woZQkocZxRUhwzaF61Ok5RB61pK1
tPoSGapV+uS8GYbQHxG3cYJ6ZBDZp0pnaDKI0vJCRdBNMuArTiSzbH9C6Q52
EYwjyZA79iXqW3Avqq2ZIsH9iQyjjw6mp0r3okNNCU+Hh8hA4L1coT/TgzLa
sd0JJ5PBy7Zg4C30oHoDE21Dn8mg/sX5UMRWF9rkEye3uUSGheWfGWJuH1Em
wasenswU4Inhfz3J+xEdFSP4J7NSQE9K/31sTwfqfZJtsIpAgbr7r79siXWg
m7vbl7sOUCB8w0Os68sH9LdvPk0IPwXE6LaqXCxa0YT9L4r45ShgnS3Wxodv
Rd/WmObmn6dArJrFyGDde7Qrz75KSJECW6GNG4oH36PyUj7/aBAKdLH6K7F9
akYVKno2VDQpQFNarov5N6PB+aQL3loUkNGdsvE43YxW9MY8ztOhwKsYlaDx
SAwNeJW9OKNPAbIYc7RZVBPa1/JdYtaMAsidWxXNi+/QpPJGYqcFBQrKOwdE
Nd6hNPbJY3lWFPCWiTq0RdeIivuHCatep8ARZc7MlIdvUYTDTn3PkQJBAfff
043Uod8rr8sm3KLA95ahL87SdajXxe4dfhcKNF5+Iaa4XIP63X7IfsSVAlb6
PNVjN6rRhoQ1XOx9CvxY+y3v2VqFSh2JhH4PCjxK7EMJwlXoam1aEc6LOv+x
oC6Vr5Wogncpm95DCkj4WeqPqVeiGmm7NI7eFGjglyN55FegvXMP+D18KFDd
NdB29VMZmvGPddztEQWGOEI/BcWWojVTJE/bxxRYM5KfeHOtBDVkPS2n7keB
s1Pp60dHCtH2aVORdX8K6Atfo7n6ogA99VvesDGAAm7OjGxBpvko0/GmHJ9A
CpSv3z6+MJqDDviqF1GCKNArz3/m6KtsNC7ztZXPEwos+w0q6FploQGj/0nu
C6YAe2uoeiBvJor2ygimUdmU0yPHCU1H3TL+SgmEUODFq9GGXpVU9NsPFZsU
Ko+IqAzKtKagn3tCC1lCKXCgMn8xRT0J9RhV47hL5WuKBDrajwmo3EnGuE4q
x7Z5HHbUikNptG2leJ5SoP/qmGRPTwzaYb6+eIPKvNVPYhwynqHWi65oJpVf
duihZ3OforScYWXDVOaeOLa8WxiE/nWmr9ujsvjssHyilS+6xVExxhdGARE2
txenHd3RlCynw3JUDhg6OXT0vRUaqrLfXZXKEsQJZ4ZTalAfmzmjRuWR1aB0
jg0nyGricFWi8srVE7/u3vOCw+639ktQ2TdOvdNFJgAsKOgAB5V3/bxfpp8J
gfFC6ZLv1PgBziW3B8UigMC9kt5IZXrjz0pMIs+BbVy87AmV3/OHP03liAUJ
SVESQuXgREG3c9HxENwve3Sdmg91tkbTT6wvQG+ryCeVykxBRiou4cmg4bL0
+wKVO/4uizIwvYJR2ztRA9R8R9wJ40wPTgP9F3kq1lTOW415zBOYAXMa/Pun
qPVydBRzqNnNglJPcY4P1PpqCD4wf6KUAwafcEpiVD458V5X71EuPHQoCw+m
6mHRwOrc4mY+9J8OCDlK1Usne5F47flC8KTVljOl6qm44w9f8IMi0NE8g4+k
6u22cgwz7+8SwG7S8g1S9amzOb6zKF0Guzd+Xl+g6vd0tehq7b1yGBNf61rz
pcBG/PSPkxsVYMZUd3iJqv+3eN/hFs8qyKznbrrlSYGMU1yD5YLVoNyqocdF
9VOoXnn/q75qiL9dYPLmHgUME2e7vERrIMImvGfgLrU+AtotYhN1cCFJNfoJ
1b8kta/ooYi34Gj4i3aQ6u8mx4B3uHP1sMccvX3QgQKRpdV1kzENYEAiRjyy
o+pD/lh5rFoTVG7pmjeZU4DNsrbEf7UJbOzoL742pfrNT7/odhoKVlcvfkgx
poDtTIvB8UcYXA4czdc0oK7v5F+df8PNIB+7KsZH/Z99rLJRqwxvhd2Lh/aK
ZShwoU3i/YmpVmDq/8D0XYoCFSObKmlybUCKe/uZ9wwFEjfjIHK2DYxic9ns
RSlwEzoU7JXa4eqUf4fLMQrsdUpKHV79CEZi/Y4O9BS4N/6v/PnlTiizttRe
3yPD16XO04xpncD6t/3igx0ydHPYS6xd6YK3zXx+lr/JkGKcfKInpxt4dfkK
cr6SQXaGljfQtA+qNegVJNvJcLreZFWysA9qFsOdTN9T96fY0tapzT44UXrK
/AFKBtbMEtkMnX74G7KelFxLhh090/G95X44nTzE4JZPhomKclFUagBiGJs7
nELIkO5m3apUOwR23dtmpQpkeGXJUpbweQjefff3qJUlQ5JG9YslpmHweon8
qZMkQww/3iXVdBg+iT9QzxIhQ0D/m33/NoeB9LakkcBJhuuS7DaNF0hglj0u
YzhPguMrDZsKLRS4lMXb0BhJgkc9F4PXlyiAj/pXoBxCgpGiLkLZ4VEgMby5
VetHggj7seMC7qNwTf9SaJQ7CVZGt3SY+MfApNWAv8eYBE1t8lmDj8fBZdn5
VSYfCcxf1l65Lf8ZbsGH3s9FI6CZTenRNZ2B/7qfS/cWDsNKSJlD250ZULhU
5eeVOQxJTk/2FJ/MwJLjFw3u5GFYOHVKSrRsBnhIWUEaYcMQVhcQT4+bBSmn
jlxLh2Ho6DlhUVc+C6kvKiItBYbh8obnggDTF0jIkqygixuCSzqc9L/fzEM9
n5aYlOMgPLchBUjW/gDFjev2s/s+QbvuMXY9zlV4dOnCz+Kv3bAkwOU3kLIG
XD+v2ZCPdICnh/j15wf/AC5JYQ1f+R5I4xwGDh0boGTaLEv/oQmuRNqTPQY2
oCV05xtXQRM0ytdbPxnfgN+eNAXyEU2QkXjDJWNlAy7UH7Kq1m0CJ72a4FHu
TXgukeD4gPwOtt5b1Ore2gRvszeh8j8bgac4j+ccfgv2M6/3DYk2gK33hXkm
7W3gLWiU1BqqBbGbHcPLxttQ+Y5DL6uuFtZ0DVuHr2/D6vBUHCG1FkKFbmdm
P9iGHtXaZyIOtVDS99ICsrfhreC8seFmDWwKb/d5bW3DATGLsPzjNRA78Lbu
S8EOfNR4BSfDquG9+LmI9wy74CCXLcEdUwnWZwyzV4m7YKLUYi3qWwkbZ90b
+Y7swl5N40Nth0qQUChe9j29C6xlAgYdFyohXoPvmozJLmA5UtyJixXgYM/E
k1uwCzltmYUhmhXAnE4qDdXagyNftdn4RMsgK2v9Q7XRHkj+S3iWT18GF/L2
Tc3Y7AF3rluAwWQpuJVqcYLHHqjPrD8nxpcCpQH1+vtqD57ZXZsToi2FInI+
OC3vAfvNU80V08UgwtK4kKNBg5y8qXrje0Mh/Go/7ZylQ4MUJ0b4674shKbQ
zO/pBjTIUysjxk8+hWCMe7qcYkmDOEd94pZRKISQPf31GDcaRLb6SJVbfQHM
/Z7fe5REg4gdQGJrsHzImtl/yGiBBqFXkTdlnssF18zQJIMlGuS3PllIsT0X
FGw3D+v9okE0WMWcIotyYWBikkdrhwaR/FjCEeyeC7SUQkEVDlrkLH794BBN
Ltj2welT52mR1FeiyJRQDhxrdLnEEEaLaK1IEKSCsuDA4a0t1yhapEzB6FWf
QxaweYVVkGNpEUXvBq1orSzYOZN7tCSVFmFB7KtcuLJgNHty1aCKFgkI/H0i
pygTEiP10zImaZE/hg0Jf0czgGBx7q+iLB2ikDfZyJabBox1bSW5CnSItcvF
iQ3PNPh3wNCOiNAhDw+V3Oe7nAY/et16Zq7QIQX23y8dXUyFTtWi7HBbOuTP
BX3jjrOp8FTsmB4pkg4pqk1t6+19CTRbdIX3ZugQB7HzgiqSyWA7S1nzn6dD
3EX/9XThkwHrrlCO+kGHdLimIMFfkiAg3Xoo/w8dkuZsO/X4ZRLsqdXvjePp
kZqr40PPWZJg97m78WVpesT0tdI623Ii7AhP0fME0yP5QZKStqR4sCTW6oqG
0yO3SAGeZrXx0LgRlSwXTY94eTs3+L6Ih0ddimf0k+gR9L7wawXTeNh2e2Ee
WkKPcE7uO5U2FgdbDbqVK0P0SENzTNjot1j4q//Ouk0Yh5wIW3gpdPw/CKKU
TyiL45BE7Z79lQz/AeF6lmWdJA7h9G1TclqIARG3p+bFijhE+tmzn0ZlMWAY
rW/8nz4Osc3gaxW9EAMVnV90rB7jkEtZ7CEH0Wi4dZGg9HsIh4is0Un+fhoJ
6500ja6jOEQm7OMJVpNICDBYU1j4jENo797VcxGJhKTr5PNjizhk3VtjlPlD
BHzwz5JppmFARD5P3CxnjgDBRjmJKAkG5OjuYo7NyzAYk7E5KhzMgKwYCyrQ
rYeAw6YsMSScAQkTvfvDszsEVt6x0X+JZkC23styn8gNAdzl+sWcZAbkS65r
GWISAqfNuOqFyhmQkUKmTI2mYAh43GUqNMqAfCK8LHF+8QREPpxLPC7JiNja
8XJt3w+EighCxBNZRmTpAdfw82uBoHD1y+NZBUZkZQtYzKQD4So51j77EiPS
80au8elaADxcXJI5bkHlXZsxXa8A6CLkDAqGMiIGe0u2sXh/cDPh2Cc4zoho
LN+WuBztC3YFZ1KEpxmRoa22nANWvmC0qXtc9CsjQlj6oH5GwhcUXkbJSq4w
IsLcpd5XunyA4TPeXBnHhPBwvOtiZ/eBFAeGbHMJJuQXc/uHe2kPodVzSybu
EROS38Z88dgfT6j5cLgpMZAJoUstShru8YTCQ/KXU0KZkIev3HT7cj0h+u0D
s8wYJkSUG/8wxNgTzP6tPy7PYULIus3Ca/UesBz880NXNxMSc8aUO+z5fTgc
P2eKO8aMcITt6GjZu8P5J3wHPQSZERyLy+5HFXcwvmc+OHuCGWFdiFAO53WH
WL1+nfdnmZFhjsdT7WQ3YGNvVA3SYEbKsyO/Kui5wW5InASNBzNylvL6hXqC
K8w9UKXZ6WRGch20eSeHnYHO8fE7l35mpOV9v/DzVGfgN67zGRtmRvKFHI4X
2TuDlczp3/VTzIgnj7DR0b+3YGTl8KL3H2bkFosFB5n3Fny8tTr4V4AFYSZZ
hIkGOkKZRUb+2kMWJIHXwLj72U2QIR3fYvRjQfaiE4Zdb9yEBoN87SNPWJDZ
U7IelgrU7kqzbBWJYkEORoXIHfp2A2bPNSpGZ7IgyZntNLuaN4D7ALnvZCcL
4vpig1visB0EdRM3rI7ikaKPDMWMQzbArBF3xZ0fjyhbjKDWsTbw/P3B1GBh
PDLvfaNQSt8GXtUfUy0+g0d+LfiNqPVbQ22B+LONi3gk4NLyMH7ICn4EX+aP
u41HhCtk3jqvWlD3KX+Njnd4RJFGBjPzM4Xx31+JLS14pPnE06pULVOwK9Ml
NbRTx5ckuqgcNoXbfLwO5Z/wiJBKZ0HuGxMIon33JPELHmEZ8zrW/8sYytq2
mm6ysyItdOpFwn5GIONnF2rNyYrQBZjP8OgbwVu5Th3TQ6zIttIFTWchI2jN
Tx7XEmCl+kHQgqHbECjh57fOyrIiXDtTLRJ8hoDT9ZKltWJFPDhZx1uHDCCC
cXJn6zor4pxjLDVeYgBE9FLrugMrkhj3bgUJMYAjklzXFtxYkT/7/r5YkTOA
M5zVbn3B1PHzZQ+PpuqD+chqcWoJK/KpMGD2prceVFrfEVTYYUWUlTVu/GzX
Brs3K8cyaNmQ+gvugRrB2nCAzeMwIxMbIjB9uV1aRRu83vpwDOxjQ1yHRmwa
G7VA4UDY7q0TbIjBb9eLD+qvQMvHrNFkAzYkas6gLLdPA+7zi4zsmbAhc+oN
MRnxGiD0oPCTvRUbwpgU3cxjrkHtPyo6pJzYkBlxVq6Er5dBy/9dzcfHbIju
hSCiM8NlGJIhx24WsCGpUU58fWaXICTSItqmjA3pKhM+5iJyCeRmJsPbqtiQ
fLpiVe81NUh6/iXgvyY2ZMzY7f5CtBpYLf5yFR1iQ1wuMrZvdl6Er+nsWmZ7
bIh4wQTLSRNV2MBfpH9rxI5wirbL/7sPwLlMiG8xZ0dYU45pF4sDiH8aFeq2
YUcUpXic1maVwfrFPfXPt9iRA2kjh3SMleH98axwBj92ZL7RFhhVlSD6Ai2H
QR474iLcopkgowgFfD0ZFsXsyMThvhTL3wrQTJcsZV/Bjjz6dhlKahRgvUPy
2sN6dqRLT9J4SkEBzI1sE9N62ZGdziuLfpryIOyK8nz/w460c7gvVPudA2X9
yNL1bXZk0vvnt6eXz4GpjInyLg0BKT0bbDbIcQ4itpZt9rESkOp3Wm19OXKw
EsqbfY6PgJSfKtpWG5CFxvTHosGXCUjDd4bnJqoy1HOootyxJAJC841XWchd
CvCKrM2NqQSE/uvrA49UpaA5Z1TLMpuA/Mx309Q4IAWSD72vvywjIBrpp/Ll
30oCga/22eE2AtKqt5h6g1kSPt4+O8v1i4As6GgcXvI8BQEjtK5v/hKQ3hsZ
J8+LnILzyKcNw38ExErEPE2bJAF5+90I8cxEJL5q0b1TUQKC60vlOfmIyOxg
pP88uzggzKIxBG0i4qv5IEBg+CRsuG8cKdMnIjYL3JQz/52E8rH2XB0TIuJv
K3Hwh85J4C13aHhG7UgWM5kpjh9PwI5Rzle8NxHpTf/1GOkQgdpsPiWmPCKi
YpD+h39OCFzZf7bnFROROxI6+YZFQiDyoMlAvZKIsI46iPC6C0H8FSunkEYi
Mv1hYOM2jRDcW02Jox8kIudiLT0HhY+DmIUzbzaZiAiloPjnK4Iw3SpfqDpJ
RDC2yajhBkHQSyI3BX4jIlPjTkK71wSBma5AU+AnEXHV9Mua4BcE1OXBELZO
RJYfJ86qLguA17C6je0WEWk6xJIj0SgA/3c/Bfn/+yn/Axnsd1E=
          "]]},
        Annotation[#, "Charting`Private`Tag$22385#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, 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.7997363469838605`, 3.5262733074651758`}, {0, 0.4}},
    PlotRangeClipping->True,
    PlotRangePadding->{{
       Scaled[0.02], 
       Scaled[0.02]}, {0, 0}},
    Ticks->{Automatic, Automatic}]}], "}"}]], "Output",
 CellChangeTimes->{{3.7966986970321712`*^9, 3.796698711284504*^9}},
 CellLabel->"Out[47]=",ExpressionUUID->"f094bffe-1eb6-446f-a259-4dc2a4e86fbe"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "data", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.7966988476176853`*^9, 3.7966988540713997`*^9}},
 CellLabel->
  "In[115]:=",ExpressionUUID->"c1abf908-a49c-4285-ba79-d2d7622ecb73"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"data", "=", 
  RowBox[{"RandomVariate", "[", 
   RowBox[{
    RowBox[{"NormalDistribution", "[", 
     RowBox[{
      TemplateBox[{"178","\"cm\"","centimeters","\"Centimeters\""},
       "Quantity"], ",", 
      TemplateBox[{"5","\"cm\"","centimeters","\"Centimeters\""},
       "Quantity"]}], "]"}], ",", "20"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7966987715034695`*^9, 3.7966987732079406`*^9}, {
  3.7966988725585356`*^9, 3.796698879254608*^9}},
 CellLabel->"In[116]:=",
 CellID->14072444,ExpressionUUID->"ae38beba-cf84-43d3-babe-5677fd72b9b1"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["QuantityArray",
    "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[{
              
              RasterBox[{{{0.66, 0.66, 0.66}, {0.49, 0.49, 0.49}, {0.74, 0.74,
                0.74}}, {{0.4, 0.4, 0.4}, {0.8, 0.8, 0.8}, {0.52, 0.52, 
               0.52}}, {{0.72, 0.72, 0.72}, {0.59, 0.59, 0.59}, {0.79, 0.79, 
               0.79}}, {{0.58, 0.58, 0.58}, {0.66, 0.66, 0.66}, {0.32, 0.32, 
               0.32}}}, {{-0.25, -0.33}, {1.25, 2.33}}, {0, 1}], {{
               Antialiasing -> False, 
                GrayLevel[0.3], 
                
                LineBox[{{{-0.25, 2.33}, {1.25, 2.33}}, {{-0.25, 1.67}, {1.25,
                  1.67}}, {{-0.25, 1.}, {1.25, 1.}}, {{-0.25, 0.33}, {1.25, 
                 0.33}}, {{-0.25, -0.33}, {1.25, -0.33}}}]}, {
               Antialiasing -> False, 
                GrayLevel[0.3], 
                
                LineBox[{{{-0.25, -0.33}, {-0.25, 2.33}}, {{0.25, -0.33}, {
                 0.25, 2.33}}, {{0.75, -0.33}, {0.75, 2.33}}, {{
                 1.25, -0.33}, {1.25, 2.33}}}]}}}, PlotRangeClipping -> True, 
             Background -> GrayLevel[0.93], 
             Frame -> {{True, True}, {True, True}}, 
             FrameLabel -> {None, None}, FrameStyle -> {{
                Directive[
                 GrayLevel[0.2], 
                 AbsoluteThickness[1]], 
                Directive[
                 Thickness[Tiny], 
                 GrayLevel[0.7]]}, {
                Directive[
                 Thickness[Tiny], 
                 GrayLevel[0.7]], 
                Directive[
                 Thickness[Tiny], 
                 GrayLevel[0.7]]}}, FrameTicks -> {{{{-0.25, 
                  FormBox["\"\"", TraditionalForm], {0.25, 0}}, {0.583, 
                  FormBox["\"\"", TraditionalForm], {0.25, 0}}, {1.417, 
                  FormBox["\"\"", TraditionalForm], {0.25, 0}}, {2.25, 
                  FormBox["\"\"", TraditionalForm], {0.25, 0}}, {0.028, 
                  FormBox["\"\"", TraditionalForm], {0.12, 0}}, {0.306, 
                  FormBox["\"\"", TraditionalForm], {0.12, 0}}, {0.861, 
                  FormBox["\"\"", TraditionalForm], {0.12, 0}}, {1.139, 
                  FormBox["\"\"", TraditionalForm], {0.12, 0}}, {1.694, 
                  FormBox["\"\"", TraditionalForm], {0.12, 0}}, {1.972, 
                  FormBox["\"\"", TraditionalForm], {0.12, 0}}}, None}, {
               None, None}}, GridLinesStyle -> Directive[
               GrayLevel[0.5, 0.4]], ImagePadding -> 2, 
             ImageSize -> {Automatic, 
               
               Dynamic[(3.5 CurrentValue["FontCapHeight"])/
                AbsoluteCurrentValue[Magnification], 
                ImageSizeCache -> {94., {1., 9.}}]}, 
             Method -> {
              "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> 
               Automatic}, PlotRangePadding -> {{1, 0}, {0, 0}}], 
            GridBox[{{
               RowBox[{
                 TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  RowBox[{"{", "20", "}"}], "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Unit: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  TagBox["\"Centimeters\"", Short[#, 2]& ], 
                  "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[{
              
              RasterBox[{{{0.66, 0.66, 0.66}, {0.49, 0.49, 0.49}, {0.74, 0.74,
                0.74}}, {{0.4, 0.4, 0.4}, {0.8, 0.8, 0.8}, {0.52, 0.52, 
               0.52}}, {{0.72, 0.72, 0.72}, {0.59, 0.59, 0.59}, {0.79, 0.79, 
               0.79}}, {{0.58, 0.58, 0.58}, {0.66, 0.66, 0.66}, {0.32, 0.32, 
               0.32}}}, {{-0.25, -0.33}, {1.25, 2.33}}, {0, 1}], {{
               Antialiasing -> False, 
                GrayLevel[0.3], 
                
                LineBox[{{{-0.25, 2.33}, {1.25, 2.33}}, {{-0.25, 1.67}, {1.25,
                  1.67}}, {{-0.25, 1.}, {1.25, 1.}}, {{-0.25, 0.33}, {1.25, 
                 0.33}}, {{-0.25, -0.33}, {1.25, -0.33}}}]}, {
               Antialiasing -> False, 
                GrayLevel[0.3], 
                
                LineBox[{{{-0.25, -0.33}, {-0.25, 2.33}}, {{0.25, -0.33}, {
                 0.25, 2.33}}, {{0.75, -0.33}, {0.75, 2.33}}, {{
                 1.25, -0.33}, {1.25, 2.33}}}]}}}, PlotRangeClipping -> True, 
             Background -> GrayLevel[0.93], 
             Frame -> {{True, True}, {True, True}}, 
             FrameLabel -> {None, None}, FrameStyle -> {{
                Directive[
                 GrayLevel[0.2], 
                 AbsoluteThickness[1]], 
                Directive[
                 Thickness[Tiny], 
                 GrayLevel[0.7]]}, {
                Directive[
                 Thickness[Tiny], 
                 GrayLevel[0.7]], 
                Directive[
                 Thickness[Tiny], 
                 GrayLevel[0.7]]}}, FrameTicks -> {{{{-0.25, 
                  FormBox["\"\"", TraditionalForm], {0.25, 0}}, {0.583, 
                  FormBox["\"\"", TraditionalForm], {0.25, 0}}, {1.417, 
                  FormBox["\"\"", TraditionalForm], {0.25, 0}}, {2.25, 
                  FormBox["\"\"", TraditionalForm], {0.25, 0}}, {0.028, 
                  FormBox["\"\"", TraditionalForm], {0.12, 0}}, {0.306, 
                  FormBox["\"\"", TraditionalForm], {0.12, 0}}, {0.861, 
                  FormBox["\"\"", TraditionalForm], {0.12, 0}}, {1.139, 
                  FormBox["\"\"", TraditionalForm], {0.12, 0}}, {1.694, 
                  FormBox["\"\"", TraditionalForm], {0.12, 0}}, {1.972, 
                  FormBox["\"\"", TraditionalForm], {0.12, 0}}}, None}, {
               None, None}}, GridLinesStyle -> Directive[
               GrayLevel[0.5, 0.4]], ImagePadding -> 2, 
             ImageSize -> {Automatic, 
               
               Dynamic[(3.5 CurrentValue["FontCapHeight"])/
                AbsoluteCurrentValue[Magnification], 
                ImageSizeCache -> {94., {1., 9.}}]}, 
             Method -> {
              "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> 
               Automatic}, PlotRangePadding -> {{1, 0}, {0, 0}}], 
            GridBox[{{
               RowBox[{
                 TagBox["\"Dimensions: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  RowBox[{"{", "20", "}"}], "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Unit: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  TagBox["\"Centimeters\"", Short[#, 2]& ], 
                  "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"MinMax: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  RowBox[{"{", 
                    RowBox[{
                    
                    TemplateBox[{
                    "167.12489329102237`", "\"cm\"", "centimeters", 
                    "\"Centimeters\""}, "Quantity", SyntaxForm -> Mod], ",", 
                    
                    TemplateBox[{
                    "192.55480346199792`", "\"cm\"", "centimeters", 
                    "\"Centimeters\""}, "Quantity", SyntaxForm -> Mod]}], 
                    "}"}], "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:>{}], "]"}],
  StructuredArray[QuantityArray, {20}, 
   StructuredArray`StructuredData[
   QuantityArray, {177.3286164600777, 183.47048845367098`, 
    177.07358204921948`, 173.21418758966843`, 171.90228965906292`, 
    183.32786685162458`, 173.43777928150266`, 184.79169358744826`, 
    187.87740439717146`, 175.62122349976974`, 171.73595619863391`, 
    184.32470751125814`, 181.10156239214385`, 178.70080619687033`, 
    172.22866117736476`, 187.6883948151554, 167.12489329102237`, 
    182.7217140714541, 177.63543640444533`, 192.55480346199792`}, 
    "Centimeters", {{1}}]],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{
  3.7966987777022114`*^9, {3.796698858652107*^9, 3.7966988815874124`*^9}, 
   3.7967057801469326`*^9},
 CellLabel->
  "Out[116]=",ExpressionUUID->"052a2d1a-0758-41c8-b4f7-a1c807d4de3f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"EstimatedDistribution", "[", 
  RowBox[{"data", ",", 
   RowBox[{"NormalDistribution", "[", 
    RowBox[{"m", ",", "s"}], "]"}]}], "]"}]], "Input",
 CellLabel->"In[117]:=",
 CellID->224384784,ExpressionUUID->"a2a239dc-f0cb-45ee-b9ec-f78c488e2e88"],

Cell[BoxData[
 RowBox[{"QuantityDistribution", "[", 
  RowBox[{
   RowBox[{"NormalDistribution", "[", 
    RowBox[{"179.19310336747813`", ",", "1.9748417658131499`"}], "]"}], ",", 
   InterpretationBox[
    TemplateBox[{
     InterpretationBox["\[InvisibleSpace]", 1],"\"cm\"","centimeters",
      "\"Centimeters\""},
     "Quantity"],
    "Centimeters"]}], "]"}]], "Output",
 CellChangeTimes->{
  3.796698807661831*^9, {3.796698861762102*^9, 3.796698884293453*^9}, 
   3.796705856548891*^9},
 CellLabel->
  "Out[117]=",ExpressionUUID->"22a2fbe6-8fcc-4063-b849-25bd1ce38d5d"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "data", "]"}]], "Input",
 CellChangeTimes->{{3.7966992314497676`*^9, 3.796699237797146*^9}},
 CellLabel->
  "In[118]:=",ExpressionUUID->"1389dfce-7478-4d76-8a25-ac669c8b1ca5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{"RandomVariate", "[", 
    RowBox[{
     RowBox[{"NormalDistribution", "[", 
      RowBox[{"2", ",", "8"}], "]"}], ",", "1000"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7966991119334097`*^9, 3.7966991175816655`*^9}},
 CellLabel->"In[119]:=",
 CellID->11545981,ExpressionUUID->"6c531c4d-3b1b-485e-9a8d-5d364d28e137"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FindDistributionParameters", "[", 
  RowBox[{"data", ",", 
   RowBox[{"NormalDistribution", "[", 
    RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}], ",", 
   RowBox[{"ParameterEstimator", "->", "\"\<MethodOfCumulants\>\""}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7966991466246133`*^9, 3.7966991529473352`*^9}},
 CellLabel->
  "In[120]:=",ExpressionUUID->"daa088fb-0b36-4ee7-b40c-4108cd1c39cb"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\[Alpha]", "\[Rule]", "1.8839188850705328`"}], ",", 
   RowBox[{"\[Beta]", "\[Rule]", "8.072963374333074`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7966992486922665`*^9, 3.796705947516136*^9},
 CellLabel->
  "Out[120]=",ExpressionUUID->"4c0e15c1-25e0-47c5-9598-68861f43e16f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FindDistributionParameters", "[", 
  RowBox[{"data", ",", 
   RowBox[{"NormalDistribution", "[", 
    RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}], ",", 
   RowBox[{"ParameterEstimator", "->", "\"\<MethodOfCentralMoments\>\""}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.796699181564109*^9, 3.796699186865203*^9}},
 CellLabel->"In[59]:=",ExpressionUUID->"9ef0d740-bde2-489c-9064-96fdaa64dfba"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\[Alpha]", "\[Rule]", "2.0567563984930315`"}], ",", 
   RowBox[{"\[Beta]", "\[Rule]", "8.2964207500828`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7966992519044266`*^9},
 CellLabel->"Out[59]=",ExpressionUUID->"bb2468b1-8be0-4266-b9ec-311726469694"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FindDistributionParameters", "[", 
  RowBox[{"data", ",", 
   RowBox[{"NormalDistribution", "[", 
    RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}], ",", 
   RowBox[{"ParameterEstimator", "->", "\"\<MethodOfFactorialMoments\>\""}]}],
   "]"}]], "Input",
 CellChangeTimes->{{3.7966992102245183`*^9, 3.7966992152999334`*^9}},
 CellLabel->"In[60]:=",ExpressionUUID->"a6c260ef-858d-4001-9ea4-228a81d4fc6b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\[Alpha]", "\[Rule]", "2.0567563984930315`"}], ",", 
   RowBox[{"\[Beta]", "\[Rule]", "8.2964207500828`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.7966992224341354`*^9, 3.7966992547022457`*^9},
 CellLabel->"Out[60]=",ExpressionUUID->"599b87ef-2eed-475d-b9fd-7ee7d1e9455c"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{"\[UAcute]kol", ":", " ", 
    RowBox[{"Vygenerujete", " ", "1000", " ", "hodnot", " ", "z", " ", "N", 
     RowBox[{"(", 
      RowBox[{"1", ",", "2"}], ")"}], " ", "a", " ", 
     RowBox[{"ozn", ".", " ", "mnozinu"}], " ", "jako", " ", 
     RowBox[{"data", ".", " ", "Z"}], " ", "nej", " ", "budete", " ", 
     "vyb\[IAcute]rat", " ", "100", " ", "kr\[AAcute]t", " ", "data", " ", 
     "o", " ", "velikosti", " ", "200", " ", "\[UAcute]daj\[URing]", " ", "a",
      " ", "spo\[CHacek]tete", " ", "v\[ZHacek]dy", " ", 
     "intervalov\[YAcute]", " ", "odhad", " ", "pro", " ", "95", 
     RowBox[{"%", ".", " ", "Zjistite"}], " ", "kolikrat", " ", "je", " ", 
     "skutecna", " ", "strednihodnota"}]}], "=", 
   RowBox[{"1", " ", "prvkem", " ", "danych", " ", "intervalu"}]}], " ", 
  "*)"}]], "Input",
 CellChangeTimes->{{3.7967059976309*^9, 
  3.7967061271726556`*^9}},ExpressionUUID->"47f6524d-07d6-4d25-8a7f-\
b4ef2eed5665"]
},
WindowSize->{759, 389},
WindowMargins->{{164, Automatic}, {59, 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, 10722, 209, 827, "Input",ExpressionUUID->"746beb32-1be7-4057-a8eb-aae3f4684c8b"],
Cell[11283, 231, 4453, 78, 457, "Text",ExpressionUUID->"33ce42d4-4d5a-4df2-b23f-ddea36b8503a"],
Cell[15739, 311, 141, 2, 28, "Input",ExpressionUUID->"48f01f35-df10-42e0-83a6-a6feef72ccd1"],
Cell[CellGroupData[{
Cell[15905, 317, 407, 8, 28, "Input",ExpressionUUID->"44a6606d-cc74-41e0-a85d-ad7eae041911"],
Cell[16315, 327, 230, 3, 32, "Output",ExpressionUUID->"1b3d4cc1-a91c-4aca-bf30-d334b1a92aa0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16582, 335, 309, 6, 28, "Input",ExpressionUUID->"6a7fb19f-4119-43d5-b9b8-a22d60be074f"],
Cell[16894, 343, 214, 3, 32, "Output",ExpressionUUID->"77c7f7ff-6f5d-4028-886e-49e7d285e709"]
}, Open  ]],
Cell[17123, 349, 4305, 64, 518, "Text",ExpressionUUID->"1a7d0cbb-341a-486d-aa11-f7408ebdf613"],
Cell[21431, 415, 666, 12, 56, "Text",ExpressionUUID->"c4307e50-0936-4a0b-bf8f-6980b331cf00"],
Cell[22100, 429, 393, 9, 28, "Input",ExpressionUUID->"005e967c-7156-49a1-8633-9d4e12c74a03"],
Cell[CellGroupData[{
Cell[22518, 442, 440, 9, 28, "Input",ExpressionUUID->"5402d20a-f572-402a-8667-ebdd52b7748e"],
Cell[22961, 453, 233, 3, 32, "Output",ExpressionUUID->"e5ce932c-8cec-43bc-88c0-92257e528d70"]
}, Open  ]],
Cell[23209, 459, 215, 4, 28, InheritFromParent,ExpressionUUID->"c9584788-242c-4eef-b555-6a74ba7c2dfd"],
Cell[CellGroupData[{
Cell[23449, 467, 500, 12, 48, "Input",ExpressionUUID->"6f2f9fb2-64f8-4821-a0d8-a103fd6ad6b4"],
Cell[23952, 481, 167, 2, 32, "Output",ExpressionUUID->"a402d414-86e3-4fd0-8155-dea84c882852"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24156, 488, 434, 8, 67, "Input",ExpressionUUID->"b7756526-9020-42b7-a497-e6b05a7f0ccb"],
Cell[24593, 498, 243, 3, 32, "Output",ExpressionUUID->"328504e7-928a-42f9-887e-f9cdd6e0dcf4"],
Cell[24839, 503, 239, 3, 32, "Output",ExpressionUUID->"ea2c6a24-f79a-4e04-9c7e-d2a526d3fefe"]
}, Open  ]],
Cell[25093, 509, 459, 10, 28, "Input",ExpressionUUID->"4440cb96-128f-4796-89e3-934ffb4a4b50"],
Cell[25555, 521, 10478, 187, 234, InheritFromParent,ExpressionUUID->"a6deb26e-6e8b-4b48-8cc4-ba4a4a9bdb18"],
Cell[36036, 710, 196, 3, 28, "Input",ExpressionUUID->"ae3f4940-8ff1-4687-828e-a8196ab26fab"],
Cell[36235, 715, 570, 15, 48, "Input",ExpressionUUID->"8053f216-57e7-49a0-b851-e694f2c55d0a",
 CellID->71227355],
Cell[CellGroupData[{
Cell[36830, 734, 237, 4, 28, "Input",ExpressionUUID->"26bcdf2f-323b-424b-9a75-367a1f066ad4"],
Cell[37070, 740, 189, 3, 32, "Output",ExpressionUUID->"fcfb5eae-716e-4c27-907a-bf18f6b7e133"]
}, Open  ]],
Cell[37274, 746, 615, 18, 23, "ExampleText",ExpressionUUID->"f501d56f-4ae1-4fa6-a66d-8abf20be2365",
 CellID->564009008],
Cell[CellGroupData[{
Cell[37914, 768, 267, 6, 28, "Input",ExpressionUUID->"99dbec20-7cc1-474c-8c9f-0f2bf9ef9007",
 CellID->431224218],
Cell[38184, 776, 276, 5, 32, "Output",ExpressionUUID->"071d25d4-5925-4480-a0e5-94312d7d4099"]
}, Open  ]],
Cell[CellGroupData[{
Cell[38497, 786, 261, 6, 28, "Input",ExpressionUUID->"73b7ec4b-32d6-43de-b489-12ad698b50ef",
 CellID->571992946],
Cell[38761, 794, 278, 5, 32, "Output",ExpressionUUID->"b5d2a940-f30b-431e-b5ba-a6be2d8b0d58"]
}, Open  ]],
Cell[CellGroupData[{
Cell[39076, 804, 640, 15, 67, "Input",ExpressionUUID->"ef6f76e5-1ff7-4228-959b-2545eb831f5c",
 CellID->642189963],
Cell[39719, 821, 213, 3, 32, "Output",ExpressionUUID->"bfc67126-ce3a-430e-bd40-9660f893556d"]
}, Open  ]],
Cell[39947, 827, 663, 19, 23, "ExampleText",ExpressionUUID->"64ae5fc3-ec48-461f-89a8-e99e66d2ed6a",
 CellID->11672917],
Cell[CellGroupData[{
Cell[40635, 850, 267, 6, 28, "Input",ExpressionUUID->"175d7d15-c8c7-4f01-a16c-26f4739bf4da",
 CellID->222929570],
Cell[40905, 858, 332, 6, 32, "Output",ExpressionUUID->"bc66485b-0d6e-4ca4-8c8a-6a2dd9ce1238"]
}, Open  ]],
Cell[41252, 867, 666, 19, 23, "ExampleText",ExpressionUUID->"1095496b-21c2-4343-8d1c-8fc6b83e3b3b",
 CellID->108884413],
Cell[CellGroupData[{
Cell[41943, 890, 264, 6, 28, "Input",ExpressionUUID->"201cc50d-6d0e-4986-9a9b-5de4ed133aba",
 CellID->420273143],
Cell[42210, 898, 354, 7, 32, "Output",ExpressionUUID->"d723fac9-08d5-44b1-b1dd-c2df013a68de"]
}, Open  ]],
Cell[42579, 908, 661, 19, 23, "ExampleText",ExpressionUUID->"5a314e2b-9e7c-4ed9-b6b0-79f9cb706da5",
 CellID->1883359],
Cell[CellGroupData[{
Cell[43265, 931, 267, 6, 28, "Input",ExpressionUUID->"22941335-a05c-4d28-a25d-f8b338f694af",
 CellID->349344961],
Cell[43535, 939, 309, 6, 32, "Output",ExpressionUUID->"4aa3e554-2970-4301-a2e8-2eeffc30af56"]
}, Open  ]],
Cell[43859, 948, 156, 3, 28, "Input",ExpressionUUID->"33311dfc-b44d-44a5-b5f8-2c0d651921ff"],
Cell[CellGroupData[{
Cell[44040, 955, 826, 19, 86, "Input",ExpressionUUID->"08bba505-aeab-46c4-8d3f-1feb6f79eef3"],
Cell[44869, 976, 192, 2, 32, "Output",ExpressionUUID->"14fe175d-18fb-4d84-959d-4a03b0d3247f"],
Cell[45064, 980, 188, 2, 32, "Output",ExpressionUUID->"e0cd2b4d-238c-4a09-9039-947a5d631f3d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[45289, 987, 331, 6, 28, "Input",ExpressionUUID->"943749b6-15ec-484f-8dd7-50ae80d2b859"],
Cell[45623, 995, 274, 4, 32, "Output",ExpressionUUID->"dbfa2bdc-80b8-4571-8eb8-be9593616e5e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[45934, 1004, 959, 23, 67, "Input",ExpressionUUID->"b13423ff-10a8-409a-ac14-89592993d6fc"],
Cell[46896, 1029, 694, 13, 52, "Output",ExpressionUUID->"d8796e6c-1e26-4a10-b0ab-5528329dd7e5"],
Cell[47593, 1044, 1736, 42, 245, "Output",ExpressionUUID->"7fb6fc75-6e65-44fb-b1df-95b7c0c7abf7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[49366, 1091, 843, 18, 86, "Input",ExpressionUUID->"cf1d55d1-47ef-424b-b941-719b74b53991"],
Cell[50212, 1111, 496, 9, 32, "Output",ExpressionUUID->"64f49aea-e021-4747-aadc-747aa7439770"],
Cell[50711, 1122, 230, 4, 32, "Output",ExpressionUUID->"32b6c1e6-f15c-4839-8cbe-ee3316ab6914"],
Cell[50944, 1128, 245, 4, 32, "Output",ExpressionUUID->"78f96409-13c6-47af-871b-0ebcf4849187"],
Cell[51192, 1134, 230, 4, 32, "Output",ExpressionUUID->"4a14b346-7970-46e6-bccf-35257a5de4f8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[51459, 1143, 445, 8, 28, InheritFromParent,ExpressionUUID->"c76e222a-b2bd-4c05-ba91-cfd8a7dc276c"],
Cell[51907, 1153, 470, 9, 32, "Output",ExpressionUUID->"0a1ad163-8287-448d-b659-0a46b9566cdd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[52414, 1167, 413, 8, 28, "Input",ExpressionUUID->"f35f058f-b5a1-4937-a530-730b2d3ff34e"],
Cell[52830, 1177, 246, 4, 32, "Output",ExpressionUUID->"d270a208-2d19-434d-be22-9860e6cd9007"]
}, Open  ]],
Cell[CellGroupData[{
Cell[53113, 1186, 217, 4, 28, "Input",ExpressionUUID->"de2487a9-c832-4670-89b2-c2cca8d4ceb2"],
Cell[53333, 1192, 198, 3, 32, "Output",ExpressionUUID->"205148cf-348d-462b-9ae9-f6e807ea7f7c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[53568, 1200, 475, 10, 48, "Input",ExpressionUUID->"542e60d4-29a7-43ae-b288-036dea156c4f"],
Cell[54046, 1212, 1869, 39, 242, "Output",ExpressionUUID->"6d38ace3-4c54-4416-87e9-cf6a6f3d0018"]
}, Open  ]],
Cell[CellGroupData[{
Cell[55952, 1256, 740, 20, 48, "Input",ExpressionUUID->"ab0a42ce-e1d2-427d-8a35-e9b174ced477"],
Cell[56695, 1278, 19725, 384, 242, "Output",ExpressionUUID->"f5db2c58-fa42-4e76-830a-15c967dd044b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[76457, 1667, 622, 16, 48, "Input",ExpressionUUID->"62cfdd61-98ba-4607-8be6-6a7eda5b5bbb"],
Cell[77082, 1685, 817, 19, 49, "Output",ExpressionUUID->"b7ba773e-94a7-4cf0-bcb4-809796a6af20"]
}, Open  ]],
Cell[CellGroupData[{
Cell[77936, 1709, 355, 7, 48, "Input",ExpressionUUID->"ac64a221-6c7c-427d-b1b4-f4bc0ad24592"],
Cell[78294, 1718, 3574, 77, 247, "Output",ExpressionUUID->"a08c3ba4-31d4-455a-b98d-da86f9d1ba6a"],
Cell[81871, 1797, 4464, 92, 245, "Output",ExpressionUUID->"9d60bb77-2286-4fda-8049-23075ab22b5b"]
}, Open  ]],
Cell[86350, 1892, 337, 9, 28, "Input",ExpressionUUID->"b9f1e354-26ce-43a9-ad57-15ac46cca3e3",
 CellID->232235108],
Cell[86690, 1903, 319, 8, 28, "Input",ExpressionUUID->"fd6c0b08-9943-44cf-a0eb-4bede13920ee",
 CellID->147292952],
Cell[CellGroupData[{
Cell[87034, 1915, 240, 5, 28, "Input",ExpressionUUID->"8d7a44ac-0fcf-4d11-a6cd-d887b173f9ee",
 CellID->672445825],
Cell[87277, 1922, 858, 21, 49, "Output",ExpressionUUID->"0b61dd52-84ab-4d72-b9c2-7c4a0105b434"]
}, Open  ]],
Cell[CellGroupData[{
Cell[88172, 1948, 1080, 29, 48, "Input",ExpressionUUID->"88a016e9-55fa-4205-8f7a-ca06b52513fb",
 CellID->616163310],
Cell[89255, 1979, 60210, 1018, 153, "Output",ExpressionUUID->"f094bffe-1eb6-446f-a259-4dc2a4e86fbe"]
}, Open  ]],
Cell[149480, 3000, 232, 5, 28, "Input",ExpressionUUID->"c1abf908-a49c-4285-ba79-d2d7622ecb73"],
Cell[CellGroupData[{
Cell[149737, 3009, 576, 13, 36, "Input",ExpressionUUID->"ae38beba-cf84-43d3-babe-5677fd72b9b1",
 CellID->14072444],
Cell[150316, 3024, 10953, 220, 71, "Output",ExpressionUUID->"052a2d1a-0758-41c8-b4f7-a1c807d4de3f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[161306, 3249, 271, 6, 28, "Input",ExpressionUUID->"a2a239dc-f0cb-45ee-b9ec-f78c488e2e88",
 CellID->224384784],
Cell[161580, 3257, 575, 15, 36, "Output",ExpressionUUID->"22a2fbe6-8fcc-4063-b849-25bd1ce38d5d"]
}, Open  ]],
Cell[162170, 3275, 212, 4, 28, "Input",ExpressionUUID->"1389dfce-7478-4d76-8a25-ac669c8b1ca5"],
Cell[162385, 3281, 383, 9, 28, "Input",ExpressionUUID->"6c531c4d-3b1b-485e-9a8d-5d364d28e137",
 CellID->11545981],
Cell[CellGroupData[{
Cell[162793, 3294, 421, 9, 48, "Input",ExpressionUUID->"daa088fb-0b36-4ee7-b40c-4108cd1c39cb"],
Cell[163217, 3305, 330, 7, 32, "Output",ExpressionUUID->"4c0e15c1-25e0-47c5-9598-68861f43e16f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[163584, 3317, 418, 8, 48, "Input",ExpressionUUID->"9ef0d740-bde2-489c-9064-96fdaa64dfba"],
Cell[164005, 3327, 302, 6, 32, "Output",ExpressionUUID->"bb2468b1-8be0-4266-b9ec-311726469694"]
}, Open  ]],
Cell[CellGroupData[{
Cell[164344, 3338, 424, 8, 48, "Input",ExpressionUUID->"a6c260ef-858d-4001-9ea4-228a81d4fc6b"],
Cell[164771, 3348, 326, 6, 32, "Output",ExpressionUUID->"599b87ef-2eed-475d-b9fd-7ee7d1e9455c"]
}, Open  ]],
Cell[165112, 3357, 991, 19, 67, "Input",ExpressionUUID->"47f6524d-07d6-4d25-8a7f-b4ef2eed5665"]
}
]
*)