(* 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[    110385,       2746]
NotebookOptionsPosition[     96977,       2524]
NotebookOutlinePosition[     97320,       2539]
CellTagsIndexPosition[     97277,       2536]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "bodov\[EAcute]", " ", "odhady", " ", "parametr\[URing]", " ", 
    "z\[AAcute]kladn\[IAcute]ho", " ", "souboru"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Odhad", " ", "Sn"}], ",", 
    RowBox[{
     RowBox[{"pro", " ", "kter\[YAcute]", " ", "plat\[IAcute]", " ", "E", 
      RowBox[{"(", "Sn", ")"}]}], "=", "Q"}], ",", 
    RowBox[{
     RowBox[{
     "naz\[YAcute]v\[AAcute]me", " ", "nevych\[YAcute]len\[YAcute]m", " ", 
      "odhadem", " ", "parametru", " ", 
      RowBox[{"Q", ".", "Jestli\[ZHacek]e"}], " ", "plat\[IAcute]", " ", 
      "nerovnost", " ", "E", 
      RowBox[{"(", "Sn", ")"}]}], ">", "Q"}], ",", 
    RowBox[{
     RowBox[{
     "naz\[YAcute]v\[AAcute]me", " ", "odhad", " ", "kladn\[EHacek]", " ", 
      "vych\[YAcute]len\[YAcute]m", " ", "odhadem", " ", "parametru", " ", 
      RowBox[{"Q", ".", "Jestli\[ZHacek]e"}], " ", "plat\[IAcute]", " ", 
      "opa\[CHacek]n\[AAcute]", " ", "nerovnost", " ", "E", 
      RowBox[{"(", "Sn", ")"}]}], "<", "Q"}], ",", 
    RowBox[{
    "naz\[YAcute]v\[AAcute]me", " ", "odhad", " ", 
     "z\[AAcute]porn\[EHacek]vych\[YAcute]len\[YAcute]m", " ", "odhadem", " ",
      "parametru", " ", 
     RowBox[{"Q", "."}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Odhad", " ", "parametru", " ", "Q"}], ",", 
    RowBox[{
     RowBox[{
     "pro", " ", "kter\[YAcute]", " ", "plat\[IAcute]", " ", "lim", " ", "E", 
      RowBox[{"(", "Sn", ")"}]}], "=", 
     RowBox[{
     "Q", " ", "naz\[YAcute]v\[AAcute]me", " ", "asymptoticky", " ", 
      "nevych\[YAcute]len\[YAcute]m", " ", "odhadem", " ", "parametru", " ", 
      RowBox[{"Q", ".", "Podobn\[EHacek]"}], " ", "bychom", " ", "mohli", " ",
       "definovat", " ", "kladn\[EHacek]", " ", "\[CHacek]i", " ", 
      "z\[AAcute]porn\[EHacek]", " ", "asymptoticky", " ", 
      "vych\[YAcute]len\[EAcute]", " ", "odhady", " ", "parametru", " ", 
      RowBox[{"Q", "."}]}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "Bodov\[YAcute]", " ", "odhad", " ", "Sn", " ", "nazveme", " ", 
     "konzistentn\[IAcute]m", " ", "odhadem", " ", "parametru", " ", "Q"}], 
    ",", 
    RowBox[{
     RowBox[{
     "jestli\[ZHacek]e", " ", "n\[AAcute]hodn\[AAcute]", " ", 
      "veli\[CHacek]ina", " ", "Sn", " ", "konverguje", " ", "podle", " ", 
      "pravd\[EHacek]podobnosti", " ", "k", " ", "parametru", " ", "Q", " ", 
      "neboli", " ", 
      RowBox[{"\[ForAll]", 
       RowBox[{"\[Epsilon]", ">", 
        RowBox[{"0", " ", "lim", " ", "P", 
         RowBox[{"(", 
          RowBox[{"|", 
           RowBox[{"Sn", "-", "Q"}], "|", 
           RowBox[{"\[GreaterEqual]", "\[Epsilon]"}]}], ")"}]}]}]}]}], "=", 
     "0"}]}], " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.8244537076014867`*^9, 3.8244537295641007`*^9}, {
  3.8244538099038963`*^9, 3.824453823429106*^9}, {3.824453854779019*^9, 
  3.824453982782281*^9}, {3.824454022742242*^9, 
  3.8244541051657667`*^9}},ExpressionUUID->"f433d415-b370-4c47-87fa-\
298bf9cf6916"],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
  "V", " ", "t\[EAcute]to", " ", "\[CHacek]\[AAcute]sti", " ", "se", " ", 
   "budeme", " ", "zab\[YAcute]vat", " ", "metodou", " ", "tvorby", " ", 
   RowBox[{"odhad\[URing]", ".", " ", "Prvn\[IAcute]"}], " ", 
   "pou\[ZHacek]it\[AAcute]", " ", "metoda", " ", 
   RowBox[{"bude", " ", ":", " ", 
    RowBox[{"Metoda", " ", "maxim\[AAcute]ln\[IAcute]", " ", 
     RowBox[{"v\[EHacek]rohodnosti", ".", " ", "K"}], " ", "n\[IAcute]", " ", 
     "budeme", " ", "pou\[ZHacek]\[IAcute]vat", " ", "dv\[EHacek]", " ", 
     "z\[AAcute]kladn\[IAcute]", " ", "procedury"}], ":", " ", 
    "\[IndentingNewLine]", 
    RowBox[{"Likelihood", " ", "a", " ", 
     RowBox[{"LogLikelihood", "."}]}]}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.8245208112811503`*^9, 3.8245208512004395`*^9}, {
  3.824520938357239*^9, 3.824520941428212*^9}, {3.8245210620205474`*^9, 
  3.8245211166848173`*^9}},ExpressionUUID->"9f7b5418-2d4a-4a6c-a2c1-\
1fd94634ed96"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Likelihood", "[", 
  RowBox[{
   RowBox[{"NormalDistribution", "[", 
    RowBox[{"\[Mu]", ",", "\[Sigma]"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     SubscriptBox["x", "1"], ",", 
     SubscriptBox["x", "2"], ",", 
     SubscriptBox["x", "3"], ",", 
     SubscriptBox["x", "4"], ",", 
     SubscriptBox["x", "5"]}], "}"}]}], "]"}]], "Input",
 CellLabel->"In[1]:=",ExpressionUUID->"27d480b2-e0aa-4a74-8ba7-418cb392c85d"],

Cell[BoxData[
 FractionBox[
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "\[Mu]"}], "+", 
         SubscriptBox["x", "1"]}], ")"}], "2"], "+", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "\[Mu]"}], "+", 
         SubscriptBox["x", "2"]}], ")"}], "2"], "+", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "\[Mu]"}], "+", 
         SubscriptBox["x", "3"]}], ")"}], "2"], "+", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "\[Mu]"}], "+", 
         SubscriptBox["x", "4"]}], ")"}], "2"], "+", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "\[Mu]"}], "+", 
         SubscriptBox["x", "5"]}], ")"}], "2"]}], 
     RowBox[{"2", " ", 
      SuperscriptBox["\[Sigma]", "2"]}]]}]], 
  RowBox[{"4", " ", 
   SqrtBox["2"], " ", 
   SuperscriptBox["\[Pi]", 
    RowBox[{"5", "/", "2"}]], " ", 
   SuperscriptBox["\[Sigma]", "5"]}]]], "Output",
 CellChangeTimes->{3.824521152413275*^9},
 CellLabel->"Out[1]=",ExpressionUUID->"33674fb6-34b5-4bdf-8274-4b77f8fada73"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"h", "=", 
   RowBox[{"RandomVariate", "[", 
    RowBox[{
     RowBox[{"NormalDistribution", "[", 
      RowBox[{"1", ",", "2"}], "]"}], ",", "10"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"u_", ",", "v_"}], "]"}], ":=", 
  RowBox[{"Likelihood", "[", 
   RowBox[{
    RowBox[{"NormalDistribution", "[", 
     RowBox[{"u", ",", "v"}], "]"}], ",", "h"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"f", "[", 
  RowBox[{"u", ",", "v"}], "]"}]}], "Input",
 CellChangeTimes->{{3.824521175335236*^9, 3.8245212968438396`*^9}, {
  3.824521380168375*^9, 3.8245214192881837`*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"912307a1-c8b0-4d33-b8ba-fb006d9ec110"],

Cell[BoxData[
 FractionBox[
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"5.`", " ", 
      RowBox[{"(", 
       RowBox[{"3.478230993343554`", "\[VeryThinSpace]", "-", 
        RowBox[{"2.3538974472251573`", " ", "u"}], "+", 
        SuperscriptBox["u", "2"]}], ")"}]}], 
     SuperscriptBox["v", "2"]]}]], 
  RowBox[{"32", " ", 
   SuperscriptBox["\[Pi]", "5"], " ", 
   SuperscriptBox["v", "10"]}]]], "Output",
 CellChangeTimes->{3.8245214206014233`*^9},
 CellLabel->"Out[12]=",ExpressionUUID->"0cfc43ff-0fe1-42b8-ad05-f5fd8719cb7e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"u", ",", "v"}], "]"}], ",", "u"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"u", ",", "v"}], "]"}], ",", "v"}], "]"}]}], "Input",
 CellChangeTimes->{{3.824521314121626*^9, 3.824521362836551*^9}, {
  3.8245214379256783`*^9, 3.824521456685869*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"2d724306-f049-4fb6-8c12-db2ddb243722"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"0.0005105880692270916`", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"5.`", " ", 
        RowBox[{"(", 
         RowBox[{"3.478230993343554`", "\[VeryThinSpace]", "-", 
          RowBox[{"2.3538974472251573`", " ", "u"}], "+", 
          SuperscriptBox["u", "2"]}], ")"}]}], 
       SuperscriptBox["v", "2"]]}]], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "2.3538974472251573`"}], "+", 
      RowBox[{"2", " ", "u"}]}], ")"}]}], 
   SuperscriptBox["v", "12"]]}]], "Output",
 CellChangeTimes->{3.824521364263258*^9, 3.824521458473833*^9},
 CellLabel->"Out[13]=",ExpressionUUID->"b6b56bd3-d1f3-40ec-8b39-73aa2d0e39d1"],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"0.0010211761384541832`", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"5.`", " ", 
        RowBox[{"(", 
         RowBox[{"3.478230993343554`", "\[VeryThinSpace]", "-", 
          RowBox[{"2.3538974472251573`", " ", "u"}], "+", 
          SuperscriptBox["u", "2"]}], ")"}]}], 
       SuperscriptBox["v", "2"]]}]], " ", 
    RowBox[{"(", 
     RowBox[{"3.478230993343554`", "\[VeryThinSpace]", "-", 
      RowBox[{"2.3538974472251573`", " ", "u"}], "+", 
      SuperscriptBox["u", "2"]}], ")"}]}], 
   SuperscriptBox["v", "13"]], "-", 
  FractionBox[
   RowBox[{"5", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"5.`", " ", 
        RowBox[{"(", 
         RowBox[{"3.478230993343554`", "\[VeryThinSpace]", "-", 
          RowBox[{"2.3538974472251573`", " ", "u"}], "+", 
          SuperscriptBox["u", "2"]}], ")"}]}], 
       SuperscriptBox["v", "2"]]}]]}], 
   RowBox[{"16", " ", 
    SuperscriptBox["\[Pi]", "5"], " ", 
    SuperscriptBox["v", "11"]}]]}]], "Output",
 CellChangeTimes->{3.824521364263258*^9, 3.8245214584902887`*^9},
 CellLabel->"Out[14]=",ExpressionUUID->"2076b6e6-aa4e-4dd2-b0fa-ee39f28b4332"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NSolve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"f", "[", 
         RowBox[{"u", ",", "v"}], "]"}], ",", "u"}], "]"}], ",", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"f", "[", 
         RowBox[{"u", ",", "v"}], "]"}], ",", "v"}], "]"}]}], "}"}], 
    "\[Equal]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"u", ",", "v"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8245214702617254`*^9, 3.824521528049078*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"949bb01c-79f8-4c88-a07e-085995092c33"],

Cell[BoxData[
 TemplateBox[{
  "NSolve","ifun",
   "\"Inverse functions are being used by \
\\!\\(\\*RowBox[{\\\"NSolve\\\"}]\\), so some solutions may not be found; use \
Reduce for complete solution information.\"",2,15,3,20710459761978998765,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.824521530031243*^9},
 CellLabel->
  "During evaluation of \
In[15]:=",ExpressionUUID->"cf1f8e16-abd1-422c-94e7-5d7b32cbaa75"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"u", "\[Rule]", "1.1769487236125786`"}], ",", 
     RowBox[{"v", "\[Rule]", 
      RowBox[{"-", "1.4467282728039417`"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"u", "\[Rule]", "1.1769487236125786`"}], ",", 
     RowBox[{"v", "\[Rule]", "1.4467282728039417`"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.8245215300342755`*^9},
 CellLabel->"Out[15]=",ExpressionUUID->"111569c3-4bf1-4705-88e1-6cf6cea6348f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"h1", "=", 
   RowBox[{"RandomVariate", "[", 
    RowBox[{
     RowBox[{"NormalDistribution", "[", 
      RowBox[{"1", ",", "2"}], "]"}], ",", "100"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"f1", "[", 
   RowBox[{"u_", ",", "v_"}], "]"}], ":=", 
  RowBox[{"Likelihood", "[", 
   RowBox[{
    RowBox[{"NormalDistribution", "[", 
     RowBox[{"u", ",", "v"}], "]"}], ",", "h1"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"f1", "[", 
  RowBox[{"u", ",", "v"}], "]"}]}], "Input",
 CellChangeTimes->{{3.8245215721727767`*^9, 3.8245216324786797`*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"447a5a92-74f3-447d-837f-d639ff851d53"],

Cell[BoxData[
 FractionBox[
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"50.`", " ", 
      RowBox[{"(", 
       RowBox[{"5.5714930949065264`", "\[VeryThinSpace]", "-", 
        RowBox[{"2.0533409839543624`", " ", "u"}], "+", 
        SuperscriptBox["u", "2"]}], ")"}]}], 
     SuperscriptBox["v", "2"]]}]], 
  RowBox[{"1125899906842624", " ", 
   SuperscriptBox["\[Pi]", "50"], " ", 
   SuperscriptBox["v", "100"]}]]], "Output",
 CellChangeTimes->{3.824521634668728*^9},
 CellLabel->"Out[21]=",ExpressionUUID->"9b72e939-065d-48a4-9481-6804acd688d5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NSolve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"f", "[", 
         RowBox[{"u", ",", "v"}], "]"}], ",", "u"}], "]"}], ",", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"f", "[", 
         RowBox[{"u", ",", "v"}], "]"}], ",", "v"}], "]"}]}], "}"}], 
    "\[Equal]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"u", ",", "v"}], "}"}]}], "]"}]], "Input",
 CellLabel->"In[22]:=",ExpressionUUID->"9248bd50-4b3a-4aac-9622-4e1f9aa87421"],

Cell[BoxData[
 TemplateBox[{
  "NSolve","ifun",
   "\"Inverse functions are being used by \
\\!\\(\\*RowBox[{\\\"NSolve\\\"}]\\), so some solutions may not be found; use \
Reduce for complete solution information.\"",2,22,4,20710459761978998765,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.8245216630844955`*^9},
 CellLabel->
  "During evaluation of \
In[22]:=",ExpressionUUID->"6c458a05-b952-426e-8676-2a3b3716d00c"],

Cell[BoxData[
 TemplateBox[{
  "NSolve","svars",
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"",2,
   22,5,20710459761978998765,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.82452166308649*^9},
 CellLabel->
  "During evaluation of \
In[22]:=",ExpressionUUID->"22a15441-f7fb-4d57-a08e-0bac419f777d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"u", "\[Rule]", "0.9359589413784609`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"v", "\[Rule]", "ComplexInfinity"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.824521663124688*^9},
 CellLabel->"Out[22]=",ExpressionUUID->"d3b7ea90-400f-498c-ba67-6a2d64563ff4"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"f2", "[", 
   RowBox[{"u_", ",", "v_"}], "]"}], ":=", 
  RowBox[{"LogLikelihood", "[", 
   RowBox[{
    RowBox[{"NormalDistribution", "[", 
     RowBox[{"u", ",", "v"}], "]"}], ",", "h1"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8245216875849104`*^9, 3.824521717701434*^9}},
 CellLabel->"In[23]:=",ExpressionUUID->"91dba3ee-d7d5-43c3-b2f6-eddeb0bc78a4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f2", "[", 
  RowBox[{"u", ",", "v"}], "]"}]], "Input",
 CellChangeTimes->{{3.8245217220641212`*^9, 3.82452172738612*^9}},
 CellLabel->"In[24]:=",ExpressionUUID->"0083acff-5858-4f23-8dac-8ff97668cf80"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"50.`", " ", 
     RowBox[{"(", 
      RowBox[{"5.5714930949065264`", "\[VeryThinSpace]", "-", 
       RowBox[{"2.0533409839543624`", " ", "u"}], "+", 
       SuperscriptBox["u", "2"]}], ")"}]}], 
    SuperscriptBox["v", "2"]]}], "-", 
  RowBox[{"100", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Log", "[", "2", "]"}], "+", 
        RowBox[{"Log", "[", "\[Pi]", "]"}]}], ")"}]}], "+", 
     RowBox[{"Log", "[", "v", "]"}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{3.824521729063114*^9},
 CellLabel->"Out[24]=",ExpressionUUID->"c2a2bc43-b138-44a8-8bbf-861c5e115905"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{"f2", "[", 
    RowBox[{"u", ",", "v"}], "]"}], ",", "u"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{"f2", "[", 
    RowBox[{"u", ",", "v"}], "]"}], ",", "v"}], "]"}]}], "Input",
 CellChangeTimes->{{3.8245217588018117`*^9, 3.8245217628266315`*^9}},
 CellLabel->"In[25]:=",ExpressionUUID->"7e2c61a6-d440-42e5-a230-d477ed46c86f"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"50.`", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "2.0533409839543624`"}], "+", 
      RowBox[{"2", " ", "u"}]}], ")"}]}], 
   SuperscriptBox["v", "2"]]}]], "Output",
 CellChangeTimes->{3.8245217651087155`*^9},
 CellLabel->"Out[25]=",ExpressionUUID->"92a27f74-74c8-4eea-a870-0c5102b9d37e"],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"100.`", " ", 
    RowBox[{"(", 
     RowBox[{"5.5714930949065264`", "\[VeryThinSpace]", "-", 
      RowBox[{"2.0533409839543624`", " ", "u"}], "+", 
      SuperscriptBox["u", "2"]}], ")"}]}], 
   SuperscriptBox["v", "3"]], "-", 
  FractionBox["100", "v"]}]], "Output",
 CellChangeTimes->{3.8245217651127033`*^9},
 CellLabel->"Out[26]=",ExpressionUUID->"2c6d13bd-b840-44a6-ad83-4f2363c06653"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NSolve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"f2", "[", 
         RowBox[{"u", ",", "v"}], "]"}], ",", "u"}], "]"}], ",", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"f2", "[", 
         RowBox[{"u", ",", "v"}], "]"}], ",", "v"}], "]"}]}], "}"}], 
    "\[Equal]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"u", ",", "v"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8245217835536013`*^9, 3.8245217871209145`*^9}},
 CellLabel->"In[27]:=",ExpressionUUID->"9433f1d2-7a58-4d0c-8817-28ab96f5694e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"u", "\[Rule]", "1.0266704919771812`"}], ",", 
     RowBox[{"v", "\[Rule]", "2.12542720313114`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"u", "\[Rule]", "1.0266704919771812`"}], ",", 
     RowBox[{"v", "\[Rule]", 
      RowBox[{"-", "2.1254272031311396`"}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.824521788681121*^9},
 CellLabel->"Out[27]=",ExpressionUUID->"dd29f4fa-1cf6-4c61-90d3-8adceffa19c6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"h3", "=", 
   RowBox[{"RandomVariate", "[", 
    RowBox[{
     RowBox[{"NormalDistribution", "[", 
      RowBox[{"1", ",", "2"}], "]"}], ",", "1000"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"f3", "[", 
   RowBox[{"u_", ",", "v_"}], "]"}], ":=", 
  RowBox[{"Likelihood", "[", 
   RowBox[{
    RowBox[{"NormalDistribution", "[", 
     RowBox[{"u", ",", "v"}], "]"}], ",", "h3"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"f3", "[", 
  RowBox[{"u", ",", "v"}], "]"}]}], "Input",
 CellChangeTimes->{{3.8245218557300253`*^9, 3.824521873620903*^9}},
 CellLabel->"In[28]:=",ExpressionUUID->"2ddb4d88-8c47-41e2-ad24-5a658d36d520"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"500.`", " ", 
      RowBox[{"(", 
       RowBox[{"5.0905247423318185`", "\[VeryThinSpace]", "-", 
        RowBox[{"1.911721522956017`", " ", "u"}], "+", 
        SuperscriptBox["u", "2"]}], ")"}]}], 
     SuperscriptBox["v", "2"]]}]], "/", 
  RowBox[{"(", 
   RowBox[{
   "32733906078961418700131896968275991522166420460430647894832913680961337964\
04674554883270092325904157150886684127560071009217256545885393053328527589376"\
, " ", 
    SuperscriptBox["\[Pi]", "500"], " ", 
    SuperscriptBox["v", "1000"]}], ")"}]}]], "Output",
 CellChangeTimes->{3.8245218767579603`*^9},
 CellLabel->"Out[30]=",ExpressionUUID->"4454ac51-55b8-414d-ba55-701f7011cf4a"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"f31", "[", 
   RowBox[{"u_", ",", "v_"}], "]"}], ":=", 
  RowBox[{"LogLikelihood", "[", 
   RowBox[{
    RowBox[{"NormalDistribution", "[", 
     RowBox[{"u", ",", "v"}], "]"}], ",", "h3"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8245219193236732`*^9, 3.824521927022024*^9}},
 CellLabel->"In[31]:=",ExpressionUUID->"01486153-8ded-4e6d-ad79-e9b3f4fae07f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f31", "[", 
  RowBox[{"u", ",", "v"}], "]"}]], "Input",
 CellChangeTimes->{{3.824521935578024*^9, 3.8245219411889286`*^9}},
 CellLabel->"In[32]:=",ExpressionUUID->"f4584218-d992-417b-8896-f21d2f7bda42"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"500.`", " ", 
     RowBox[{"(", 
      RowBox[{"5.0905247423318185`", "\[VeryThinSpace]", "-", 
       RowBox[{"1.911721522956017`", " ", "u"}], "+", 
       SuperscriptBox["u", "2"]}], ")"}]}], 
    SuperscriptBox["v", "2"]]}], "-", 
  RowBox[{"1000", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Log", "[", "2", "]"}], "+", 
        RowBox[{"Log", "[", "\[Pi]", "]"}]}], ")"}]}], "+", 
     RowBox[{"Log", "[", "v", "]"}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{3.824521942447565*^9},
 CellLabel->"Out[32]=",ExpressionUUID->"39152e00-977f-445c-aa30-d20efbbe9ef6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NSolve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"f31", "[", 
         RowBox[{"u", ",", "v"}], "]"}], ",", "u"}], "]"}], ",", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"f31", "[", 
         RowBox[{"u", ",", "v"}], "]"}], ",", "v"}], "]"}]}], "}"}], 
    "\[Equal]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"u", ",", "v"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8245219657810326`*^9, 3.824521971726346*^9}},
 CellLabel->"In[33]:=",ExpressionUUID->"5c400b72-d9b6-4f8b-9839-d4470a2e3d89"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"u", "\[Rule]", "0.9558607614780085`"}], ",", 
     RowBox[{"v", "\[Rule]", "2.043735537440816`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"u", "\[Rule]", "0.9558607614780085`"}], ",", 
     RowBox[{"v", "\[Rule]", 
      RowBox[{"-", "2.0437355374408153`"}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.8245219749560256`*^9},
 CellLabel->"Out[33]=",ExpressionUUID->"a43cfc43-1f58-4780-9383-9a9e60936bb4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Likelihood", "[", 
   RowBox[{
    RowBox[{"NormalDistribution", "[", 
     RowBox[{"1", ",", "2"}], "]"}], ",", "h3"}], "]"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.824522039850895*^9, 3.8245220706920147`*^9}},
 CellLabel->"In[34]:=",ExpressionUUID->"aba4c1c6-633f-44c0-bdbc-390db999293c"],

Cell[BoxData[
 TemplateBox[{
  "General","munfl",
   "\"\\!\\(\\*RowBox[{\\\"Exp\\\", \\\"[\\\", RowBox[{\\\"-\\\", \
\\\"2134.436116186593`\\\"}], \\\"]\\\"}]\\) is too small to represent as a \
normalized machine number; precision may be lost.\"",2,34,6,
   20710459761978998765,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.8245220734613857`*^9},
 CellLabel->
  "During evaluation of \
In[34]:=",ExpressionUUID->"a0fa0bd9-ffbc-4df7-8cd4-be14154ad915"],

Cell[BoxData["0.`"], "Output",
 CellChangeTimes->{3.8245220734644313`*^9},
 CellLabel->"Out[34]=",ExpressionUUID->"7baec781-3441-49b1-bb47-05d8d9844945"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"h4", "=", 
   RowBox[{"RandomSample", "[", 
    RowBox[{
     RowBox[{"Range", "[", "30", "]"}], ",", "10"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8245222145118065`*^9, 3.8245222832892494`*^9}},
 CellLabel->"In[38]:=",ExpressionUUID->"e2f85138-d965-40e0-9ef1-286845ebd7ca"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ver0", "=", 
  RowBox[{"Likelihood", "[", 
   RowBox[{
    RowBox[{"PoissonDistribution", "[", "u", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "y", ",", "z", ",", "p"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8245221774973264`*^9, 3.824522189123707*^9}, 
   3.824522325225622*^9, {3.8245225755701733`*^9, 3.8245225780576124`*^9}},
 CellLabel->"In[45]:=",
 CellID->604475991,ExpressionUUID->"b98b01e4-986d-4536-b481-8747e750f53c"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\[Piecewise]", GridBox[{
       {
        FractionBox[
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"-", "4"}], " ", "u"}]], " ", 
          SuperscriptBox["u", 
           RowBox[{"p", "+", "x", "+", "y", "+", "z"}]]}], 
         RowBox[{
          RowBox[{"p", "!"}], " ", 
          RowBox[{"x", "!"}], " ", 
          RowBox[{"y", "!"}], " ", 
          RowBox[{"z", "!"}]}]], 
        RowBox[{
         RowBox[{"p", "\[GreaterEqual]", "0"}], "&&", 
         RowBox[{"x", "\[GreaterEqual]", "0"}], "&&", 
         RowBox[{"y", "\[GreaterEqual]", "0"}], "&&", 
         RowBox[{"z", "\[GreaterEqual]", "0"}]}]},
       {"0", 
        TagBox["True",
         "PiecewiseDefault",
         AutoDelete->True]}
      },
      AllowedDimensions->{2, Automatic},
      Editable->True,
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxItemSize->{
       "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.84]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}},
      Selectable->True]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxItemSize->{
    "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[0.35]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  "Piecewise",
  DeleteWithContents->True,
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{3.8245221938836155`*^9, 3.824522313244144*^9, 
  3.824522356985033*^9, 3.824522579536127*^9},
 CellLabel->"Out[45]=",ExpressionUUID->"fabbd328-552d-4f3d-912d-15a063ceb5ad"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"Refine", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{"ver0", ",", "u"}], "]"}], "\[Equal]", "0"}], ",", 
     RowBox[{
      RowBox[{"x", ">", "0"}], "&&", 
      RowBox[{"y", ">", "0"}], "&&", 
      RowBox[{"z", ">", "0"}], "&&", 
      RowBox[{"p", ">", "0"}]}]}], "]"}], ",", "u"}], "]"}]], "Input",
 CellChangeTimes->{{3.8245225433801084`*^9, 3.8245225570047207`*^9}, {
  3.8245225940802984`*^9, 3.8245225977328944`*^9}},
 CellLabel->"In[46]:=",
 CellID->529670153,ExpressionUUID->"1ef44743-92fd-4231-9302-9b79331eaee8"],

Cell[BoxData[
 TemplateBox[{
  "Solve","ifun",
   "\"Inverse functions are being used by \
\\!\\(\\*RowBox[{\\\"Solve\\\"}]\\), so some solutions may not be found; use \
Reduce for complete solution information.\"",2,46,8,20710459761978998765,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.824522558506229*^9, 3.8245225995054417`*^9},
 CellLabel->
  "During evaluation of \
In[46]:=",ExpressionUUID->"8399d715-eac1-4f53-9519-6c1a2a927f5b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"u", "\[Rule]", 
    RowBox[{
     FractionBox["1", "4"], " ", 
     RowBox[{"(", 
      RowBox[{"p", "+", "x", "+", "y", "+", "z"}], ")"}]}]}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.8245225585112147`*^9, 3.8245225995483093`*^9},
 CellLabel->"Out[46]=",ExpressionUUID->"6ad38049-2d11-4af5-8872-c81d838f6b0a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Maximize", "[", 
  RowBox[{"ver0", ",", "u"}], "]"}]], "Input",
 CellChangeTimes->{{3.824522454781498*^9, 3.8245224730115075`*^9}},
 CellLabel->"In[43]:=",ExpressionUUID->"04b094f2-431e-4db9-9855-2dcd484d6519"],

Cell[BoxData[
 RowBox[{"Maximize", "[", 
  RowBox[{
   TagBox[GridBox[{
      {"\[Piecewise]", GridBox[{
         {
          FractionBox[
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "3"}], " ", "u"}]], " ", 
            SuperscriptBox["u", 
             RowBox[{"x", "+", "y", "+", "z"}]]}], 
           RowBox[{
            RowBox[{"x", "!"}], " ", 
            RowBox[{"y", "!"}], " ", 
            RowBox[{"z", "!"}]}]], 
          RowBox[{
           RowBox[{"x", "\[GreaterEqual]", "0"}], "&&", 
           RowBox[{"y", "\[GreaterEqual]", "0"}], "&&", 
           RowBox[{"z", "\[GreaterEqual]", "0"}]}]},
         {"0", 
          TagBox["True",
           "PiecewiseDefault",
           AutoDelete->True]}
        },
        AllowedDimensions->{2, Automatic},
        Editable->True,
        GridBoxAlignment->{
         "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, 
          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
        GridBoxItemSize->{
         "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
           "RowsIndexed" -> {}},
        GridBoxSpacings->{"Columns" -> {
            Offset[0.27999999999999997`], {
             Offset[0.84]}, 
            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
            Offset[0.2], {
             Offset[0.4]}, 
            Offset[0.2]}, "RowsIndexed" -> {}},
        Selectable->True]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxItemSize->{
      "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.35]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    "Piecewise",
    DeleteWithContents->True,
    Editable->False,
    SelectWithContents->True,
    Selectable->False], ",", "u"}], "]"}]], "Output",
 CellChangeTimes->{3.8245224746462994`*^9},
 CellLabel->"Out[43]=",ExpressionUUID->"36932144-0d7b-456b-8464-1d596536a225"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ver1", "=", 
  RowBox[{"Likelihood", "[", 
   RowBox[{
    RowBox[{"PoissonDistribution", "[", "u", "]"}], ",", "h4"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.824522334818017*^9, 3.8245223431745715`*^9}},
 CellLabel->"In[40]:=",ExpressionUUID->"ecedb52e-63db-4127-90aa-f49a20454b50"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"-", "10"}], " ", "u"}]], " ", 
    SuperscriptBox["u", "175"]}], ")"}], "/", 
  "964145936532220026014554711834071822261888241145947302309962174597537212981\
227337803615040487156239525585941892306260764764667904000000000000000000000000\
000000000"}]], "Output",
 CellChangeTimes->{{3.824522344799121*^9, 3.8245223595261765`*^9}},
 CellLabel->"Out[40]=",ExpressionUUID->"0fa5efe0-a6fb-4cd7-867a-f32b7891ece4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NMaximize", "[", 
  RowBox[{"ver1", ",", "u"}], "]"}]], "Input",
 CellChangeTimes->{{3.824522398394289*^9, 3.8245224298489947`*^9}},
 CellLabel->"In[42]:=",ExpressionUUID->"df9bfc6e-7e0d-4465-af1f-f5b7b5c85c4a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"8.526732792079949`*^-58", ",", 
   RowBox[{"{", 
    RowBox[{"u", "\[Rule]", "5.420393761311061`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.8245224233971305`*^9, 3.8245224312145486`*^9}},
 CellLabel->"Out[42]=",ExpressionUUID->"e92951b8-c088-45fc-890f-582240040610"]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "700bac54-391c-407a-b01c-467b426e5adf"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->53982387,ExpressionUUID->"781af79f-a99a-41e4-b88e-a73ebcd6e91c"],

Cell["Geometrick\[EAcute] rozd\[EHacek]len\[IAcute]", "ExampleText",
 CellChangeTimes->{{3.8245227355224943`*^9, 3.824522745995919*^9}},
 CellID->329434113,ExpressionUUID->"f8d8c8d6-3977-4a5d-913d-6c11b6030cf3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"datg", "=", 
   RowBox[{"RandomVariate", "[", 
    RowBox[{
     RowBox[{"GeometricDistribution", "[", 
      RowBox[{"1", "/", "2"}], "]"}], ",", "100"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.824522751189119*^9, 3.824522752334299*^9}},
 CellLabel->"In[48]:=",
 CellID->149554209,ExpressionUUID->"32dde303-12a6-433d-a646-cacd3b4e5723"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"lgeo", "[", "p_", "]"}], "=", 
   RowBox[{"Likelihood", "[", 
    RowBox[{
     RowBox[{"GeometricDistribution", "[", "p", "]"}], ",", "datg"}], "]"}]}],
   ";"}]], "Input",
 CellChangeTimes->{{3.824522755810523*^9, 3.824522769664762*^9}},
 CellLabel->"In[49]:=",
 CellID->281627052,ExpressionUUID->"f8008aed-cfe8-4b7b-84af-1b82b83b30ef"],

Cell["Metoda max. v\[EHacek]rohodnosti v\[YAcute]po\[CHacek]et:", \
"ExampleText",
 CellChangeTimes->{{3.824522793648513*^9, 3.824522806061616*^9}},
 CellID->427264207,ExpressionUUID->"396aad64-d7de-46d8-bd23-db87a58061af"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"max", "=", 
  RowBox[{"FindMaximum", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{"lgeo", "[", "p", "]"}], "]"}], ",", 
      RowBox[{"0", "<", "p", "<", "1"}]}], "}"}], ",", "p"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.8245227785138893`*^9, 3.8245227809739532`*^9}},
 CellLabel->"In[50]:=",
 CellID->285613921,ExpressionUUID->"f1bbb492-5cfd-4887-8b9d-2ef712a3a9d4"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "124.46056253183778`"}], ",", 
   RowBox[{"{", 
    RowBox[{"p", "\[Rule]", "0.5524861874768245`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.824522841497984*^9},
 CellLabel->"Out[50]=",ExpressionUUID->"a6e3bf95-3cce-4f37-9a14-0f025a464e44"]
}, Open  ]],

Cell["Grafick\[YAcute] v\[YAcute]sledek:", "ExampleText",
 CellChangeTimes->{{3.824522817273553*^9, 3.824522821713478*^9}},
 CellID->345164129,ExpressionUUID->"5a47a705-14fc-4330-9455-4a9d3ef32e5c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LogPlot", "[", 
  RowBox[{
   RowBox[{"lgeo", "[", "p", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"p", ",", ".01", ",", ".99"}], "}"}], ",", 
   RowBox[{"Epilog", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Red", ",", 
        RowBox[{"PointSize", "[", ".03", "]"}]}], "]"}], ",", 
      RowBox[{"Point", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"p", "/.", 
          RowBox[{"max", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ",", 
         RowBox[{"max", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "]"}]}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.824522847462216*^9, 3.824522850122958*^9}},
 CellLabel->"In[51]:=",
 CellID->672579524,ExpressionUUID->"02468ca0-d56a-4d9f-8bba-7d525666f0fb"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwV13k4VV0XAHBDpopUogxljjJFo9KSJOpNSFKqc5F5nsdCLxUhUpIpc1Gv
UihlWCgkmTKU8Z57kbjurQxp/s73131+z37O2Wvfdfbaa8vZeVk48HBxcRVz
c3H9/7f+8+gCMzQaNonK2BzuDUe1h7tZwWtjICpbysO0KBzTPG6RwpUxMJ5P
upUGh6PnlGnbji+X4NHM8uqdcuEoOVaTe9UpFnL23259GBGGMXnrbsnyxQG/
5rB308kw/EwLiK/IiwPpHmG3hq1h2DysFjQ6fBWiU78r7psJRf/+jH90LBPh
Q52j4RmnUBy9+W1fy5dEeJMoEp15MBQPWR7bcebaNUjfuHzyvEooJjnzJe93
SAIZ+n1XEVYIOo5Xh3nkJIPBzpVcbSEhuHp0s3m9+A1oLyjhf3k/GI1rP7y5
6nAD1ns5z/emBOOFrMtGVuU3YLWqn/aB8GCcsmHunja/CT7Wx59omQYjvk9X
XpOQCr17Zmfm54PQvVvolzPvbWj2Y4qeOhaEeWVPA3UsbsPeNt/1mvpB2J/k
8OV3zm24W7qjSl89CA2O1k9c35sOzodGBlcLBuG6tuCu6pAMCPD5FGSJgdj0
6mOR6OcsmHcTSt+hG4gGZUaNYQeyIUCwTmZaJRBrMwtHJ9Kz4b/vvl6dEoH4
1M9+bc2BO5BJXt2qthCAPUmcl+VHcmCDRp/K8ooAbNrrtt02Pxf4VM1PFOoG
YHR5+kvx9lxoGYg14VMLQINNrRZti7kQ2ft9d6xMANatUfXaYZoH8Z05539w
BeAz1sRd4e95cPHt2Xnv1/5Ykm637rlpAbzlW76gQfNHZ9Hrd71CCuDPcVnT
K8f8UflS/TalggIQPHGK8cvIH/N9ZC2SvhdAckMK93YNf8w0HolzLCiE6APy
54d++2HCwslfq34UwQodra2FuX7obWE+6lZYDCUPZpSZi774WGcT+c/bYtB6
MMubxfHFOTFepvp8MdQ2DvU7TPhicH/5BMewBKQ4uqUKPb4YcXot22+sBK5a
/zY6/MgXEx1Hf4UpPID1Rj2Kym6++CDUQzI+txSknxwwWT7lg2wbI2mP16Ww
ZFU98yTDB7X0Nqw3/VIK5xj1vI8HfLD8b6ec6L6HoDk74Rz1xgdfRG9VvUF/
CHlq8zO3//NBh+bfUu3XHsHUrOeRTD8f9O96uamvvQy6AprEDvP74Fdl+zg7
RhnEH3/5fuivN3qFc0+x58ugdWidTOB3b3TduLdYQOYx9L1WnKhleSNx/unG
XW6P4XhiKN59542HVEsUMwWewPQmNY/Xed4oF3VtvZ1+OaSqSYeyDnhjdp/6
BfaxcmjV5nWz0PdGabW24VCncphKC1Or1fVG8X7BrJTEcpCLEJkv0vTG5eoX
pV4NlYPLJ2Gv6nXeuPjef61KSAXUNX6cGxz2wnatU6vYZZXQ4n7Z0FzXC8+8
Ppcu31wJZ4w8nG9oeiHL1kv+xFAlXNikFMRQ9MKlKdHayP8U7rNX8d1Z4YUH
50strts8Be5O8bpb456IVbwp2/meAcuQuTMoxRMfG/y3OsK6Cuo/fYz2X/DA
m5Zca0T/vgCJU+/NZfvccSJv1GpgVTUcN4zy0mh3x+1fatMKlKvh58BYn0GT
O75POC+9y7Qa6rjW0S5UuqN08w8Fu6xqCKvtc4db7liwa167fHcN5AsqazBO
umP5+ikz6+BaWO5alOPHdEOXORejzmAEht4XTX1+N5SsuRYW+y/CA16vgbV/
XbEtpuKRQSKCy5H9jIVvrqghwS1VkY8QM9LMbvjkinO70ji32xGcDAT109+6
4oWIpjR7xXoQ/6a+Wj/VFVOWKkwvdNSD2s7fbnqbXbFGduiazMZGiE3L1nxt
54I5k3EPJ1pewbYFLuUt/M5Y49wp5KTXAvV6r+vFZxxx5eFsH9ZEKwhBVj03
0wFzxnnEVO3fQnDSYm2joAPWSBXEk90dAPMHc14cOoeCA46xHbu7YHBY/Pad
FHs042n+FBvUDUsicrsqf9rhE5vpzqa37+BuqqLUERc7HObRyK+X6YUbj4PI
dVO2qMRfvWrtiT5IY0gWfoi0xSu6IkJfSvpB5GT8v6ukbVHwzf1Mpcn3IKDD
mr33moYF8cJPh2AAWn+bj+8Op6FAZkK1efIgqD1WDU3eTcOK12v/7kkdBOs/
vHXlujS0/5a/TyVjELyEPqW930XDOovnTX8KBmEiL2CZ/E4aBgl97Lz/bBBY
aiKfXmyl4cdA/XE++iAIktt9l2nQsNl8Vvi5xhDsa9okt06OhpcFThLybUOg
VmzoMCVIwx8H/t4P6hoC7x8RLfKU3aMLF9v6hkC1jtljI0BDM+6vyUHkEKz9
3jrZwUdDyZ9xL9sWhqBf7/6POh4alrKrVYPkhqFNjXCK+E5gb6/s3JvAYdC3
qu0KYRBoLNasLxc+DNe9P18TIwl8buGREBg1DLwb/8l4NEpgdkeVslz8MLxf
N53GGiLQ+bXFycDcYWhqqd3s30/gr+roWtm2YVi8r5tU30agQsHklQC5EZBO
tjpn+YxAftElht7KI7BNrdFD/SmBk2Eb/rpuHoGSjeybApUElh6zCqBtGwEH
WRmDuicE6vK+tD1sMgJexbsE9jwk0MLujq6czwjkB7druhURGClrxWrDEah9
pnP2zk0C7eN97ja/GoGxReHVmTcINFqMt2toHYHCZR+Zt1MIXN7Z+P5pzwjs
aTP+kJZM4K2ILa/yJkfg63CVaEECNf/I8uxg0VFwbLDM48QQOJTZeFSRNgpn
7oh8OBVE4ELUVR5+h1FI0841jQgkUNTpWMVHl1HoZSm+Kwgg0HALU/K+3yhk
/mgVnPUj8MErnoktl0fh3puNSpneBIaz94VD6ShouB2TkHMlUFof7536NQq3
Npddnz9DYMaql+rZXHRoZaZ37KaswqcisIKXDs6KEpL/nibQYIpT9VmADlX/
FPaL2RAYWB6xoXwlHS70as8ZWhM4YnxnSleJDo+47R/0W1Dr8RmJNP6HDtNS
R6abjAnMYh0l2KZ0UGcxPstRjneq17thTocDTR3aFw4S6Ham4MeoFR3qLTLc
dI2o+U1c/YNsqfH9Fx7V7ycwT3bBqSiQDpdj90UvAwKTM5yM/gmhA98xnyOh
e6l8iH9Q/BpGB8tbDRZTegQSy6tJvSg6LDNqXNm+h1rvYpRN71U6SCZL2xbo
EnizQ/joklw6vFrbYxi/ncDoQxHqJfl0eOnf2iFC2f/V52VmRXTgPKKnXt9G
5f/Fu5aM+3RIivT7kLWVQJG7tw10KukwznDXatQm8MoFpe12b+hgskJdxUST
wKDvqWKC7XTQeGcVOKpBoKO/4Ox/nXQYXejmCqJ8wHX64fdeOjDl+1qL1Qnk
sSpTTabTQWUyS2e9GpUvdT0ZnKfDV/nEMwaqBCrCp8c7F+mQoLZk41cVAt+Y
3TQu+0GH1bWHl+RTlvSf8cv7S4f1Cq4/BCg/e57VGi1EgtPZu70jygTS2kxo
v5eR0LLotvcWZYGR+fkAERIGI3e/MKNsxW0q57SahHl+qS9NSgTOHvwTZCJD
At2rwRQVCUw/WSLcsIGEd8xG6yjKBm5W+bryJHwsXx20n3JSYmn75o0khCs0
fm5VIFCj96ySyBYSPv9w/TAhT2DfxNIXl3RIOMk/eekR5fOLlWZ/t5GQNstl
Eka5TWpF+GddErh3aC0To+xqV9fdbUjChvSyKxZyBK7yd3M+fJAEq65dQ4qU
q2Ik/jSakKCfXGG4KEugYLGXaoUpCfX/VlrmUX70XKpO3ZyE7CvHfgVTPtHW
bFl0jITXz1dXmVEu4myIvGVNwsJyTV9eyqbcbWtEbUjYbpTvObKBwPlVwfev
nCHBfNQ98jllw+2dfSF2JBxW3joWQJkRHql+2p1aX6VA6ff1BMYlqjX2eJLA
iUi3Gqa8Jee99REfEu7WscUaKEc2akXvDSRBq0bsXSJlld6hdU+DSdjpxfsu
kHLHxJWHmmEkhEXOTBKU1y8lB2QjSdD25lhto9wkleB9+yIJfIlKD+Uoe6jv
4l8VQ8JobIrMCspiMJ4Rd5mKf9o477cMgdVmyVt440gQsT+uN0PZ3k6vOSye
hGVtLexhykv9P52eSyQhcNOTyg7Kj2NufnVPJuHgA8WbDZRP3tp3ZTyFirdY
Pa6Sst2Wn/IpqdT3kBT+tISy+5vyGv3bJEi06qjlUA508LRmZ5AQ/Np5MpVy
5N+NsxnZJPjqbWElUo67TSaY5JJgKpK/4wrlFJ0MlW/5JOw729N6kXLmW8vG
giIqntjBwguUi5xEzloUkyCv3NESRvkRd8vi3/sk3FjSpBNK+XlGVMp/pSQY
aPZPhFB+uW23hk0ZCcNT6xj/H3/bMdciWE7CqcpCpfOU+1xK7SsrSVh++HpZ
JGU6r/Mf+yoSSjO/xcRQnsqSu72ymgT/DzN5VynP7RjUqaslQcY1QTCF8p+u
G+3u9STwf2VXZlAWcDd1kXxJwrajm0sLKYvyCy5paaKeT7dhP6IsmVOfHfCa
hOMbbwfVUFbUDdul0EaCWfRvkzeUNXq29nS2k/A2NM9hgPI+wXtCaj0krIkS
D/lF+VCebcGHPhKED0v6/D+/lnuk4PIHan6FlscKlJ29E/0ZIyRI/05YbUbZ
d6nxiiSShNaUIW1nymEF3CV6YyQ02BpkRlFOfO8/mvaJhGKbxiPPKKf5aoQa
saj9uyie2ks5d/mk2BybhM2PvqrMUS7Xtzl0dI6Ee2SFxjbqe68dEBv/tUDF
/6A/9wTlFv/2iJLvVDzaC0QY5cF7+yr4/pKgUJhT00R5zODn0SfcDEh/6XyG
TZk9VD5FW8IAW94iYwlqv/GsVJGtFmKA5tAPbg/KKiEiV33FGCCvEcyrQu1v
7dUtSrISDAjpMec5RXnPf1H4dh0D+OozjyRQPkrOzatsYICZgFDrN8qBJoO0
UVUGKHEGzgxR9SOSeeNnvBoDhuuHGtdS9Sj2vGmqriYDlpraBFlRziyrf3Nz
KwOa6NbNvZQb193b/g8wYHvR5hVjVD1z/rzjyMw+6n0iQ6mqVD0UaW62TzRk
gMctQVtvytb+H5M6TRggYkir4abqJ6tdedrSkgFWhiO3dTYSKB5deOeMCwMc
jgRx91D1+8WpbZV/3BiArjfr1TdR9XjLq7Y7ngxwk/ZrukL5/sjYd9KPAXVb
+O8YbCZQf5eipeMFBrRzmq69os4DV3aeoFcKA37HWl0X1CJwxSvtDaKpDKhf
2f8okHJ5RsO2sjQGqJimik9Q/mvMsJvNYkDcr+BnLVsIvJEvVxN0jwE5JgGn
snSofFrn+ETWUPO5HdCL3kHgysasgeSPDNCSX3huok+gp5bzPb4pBjjbfxnu
o9yWpR0YwmLA1eYb8g77CLwU3LzS9gsDVn4KWBljQPVf6l+MtX5S/8fsurhu
Q6q/SjN82i7CpPr3o8sKTAis85xOWbadCRvKOKHyltR5PFRhG7GTCYs+oko9
lENNIjVndZlg/Z/xwqXjBG5VXPNmAJggNvNc5LMVgSUf9vKUmDDB72KXdOdJ
AlMNr3sbn2HC1x1t/c0EVQ8ldx2JiWZCyMAGxVvuBKqJrpTVuMyEyju6hpEe
VH74Pn3ti2VCQFBdk6snVb++pKWpXGPCJZF1c/up/si1ZZH55jYTjCvSvvH7
U/kPfBa66iETLh7WHu0Io+pf9457dz4wQfmhq5pXPIHyLSvCjIeocSEtxRiq
fyNrPh75MsIE06Hoy5mJVH6Lb80ajDHhG6/E9Y4kqh+J/LZ3gs2EL5GX6oyo
fvG0xtNetSVjMNb4tT4kmzqf4rbzPtcYgz9OTcVzZQS2i5skbNsyBpnfR9cq
UP2oUb6NRJnOGHjRR99alBO4vTpy872dY2DdUrG0kupfxdmtx1INxuCgQF3/
1RdUvTMnCnytxoCn14or4BVVP9ZdObD5whjEVrTlwQCBZvc+XM58Owbj0xMs
Ji8Nz/k0JCzrHIO679IHc5dQ9wXd+ymh3WNgUVVzkKD6+ey28DvW/dT8h1l7
hvlpyPq84akYOQZ7Zet/0oWo+8Iux4n4uTG48Wjsi4AoDWtbvxqelxoH87hV
v3ukaag2s4znrMs4zE3T/gRQ95G8vTzCPO7jcOSikpYvdV+RSFqUKPIch6MO
4lu9qPsMj864OttvHIwik5647aHhh+DakxcujMNZm/A0T30aXlriU5adMg52
YzU7Mo1pSEr10UZrxuGAsFRT2kkaph7KqaOtmgA3voLBjRdo+FK7K6pfbALS
XGdNjCJo+FWSx9BUYgKU7YUjHSJpaDpt37JbegKSxasNiy7SkC9+Y5e48gQc
8u/YseUyDf3fljLadlHjfvO8Hkk0tDCr4dtlOwENGk26F/JpuMJq4PDKRxPw
0zp729o2Gq4JDZTitfkIRAi+kteyxU3/PKvK+/ER9HOfWY5m2aLCgdgjcrcm
QetL8H9vJO2w2KpakdT/BCytDyJFz+xwr/jNVtPRT3BXd8nRa+fs0Zbd8eR3
3BSs8rvbJQnn8Kz44ek7CVNQXG0YXm9wDk/tbZI3SJqC8ckzBa5G59AisTr5
0s0pqJSWCXx55BwaaBR7rciZgurEPbTU0+dQ3vPiZrmKKYhraTlTEXoOx2a2
5huOTkHXCnGdL8/OodPM7etXdaahUrdX4pueA0o/OBrFtX0ajLWywvgNHLDT
lc87YOc0XF+Rkb/WyAF3TnofIfSmwfqd3OEDpg64lHlQUOfgNEhueHAAzzrg
g/fz5wdOTcPaS/m2EOmAXxvNXVQvTkPXGmtO4CsHDE8X0m/unIYzdHPRiycd
8TrZpuPzbhoUWK0djWcdsVglaaNU3zTkdR9tEzrniH2V4iu8BqehWjclOc/T
EbXeKYyIT0zDV9YAQyDaEceX7Q13/DkNytmyvkUPHdH0vO8zPmUWHFv7S+H0
UifcQBvUMgxjweuPm6ylOpyQrfdhEM+zAA1OZGn0OmG1VP8lvUgWyAysXnlw
0AlP9XcPbY9hgWq3du7lj06Yatp6RfUaC648VtU25nLG5XpVdJF8FpxRtq95
q+2Mi+tuJX1oZUEiU2mfQqYzNn+7sdvqLQvMVvlmT+c5Y2rv9YnuDhbkpe/X
eV7sjDrJiXvaeljQW9qg6vrUGT0FL03WjrCgUFXfRvydM44t+OsXfGWB0OGA
onvLXLDzncVnT8kZuLh9uIvrogvqspUlRqVnwGUL78/zsS5YIPhT7+iGGciW
mPHlSXbBEL38q5qKM7AnSC5SLscF5e/OKn9WnwHW70TPqloXDAi9ccZn3wxE
Hdj/y+a3C0rK9bX6Oc9Aerm7cXukK0bvLvnCdJ2Bk3UmOUdjXZFz/MJaS48Z
iL/lKzaQ7Iov45Qdt/rOwMJly9Sl+a7oMRfIPR82Aw8XZ6cHX7kiNkvsDLw2
A2bbKyaOCruhg+fJwuDKGTDMIhWFCtxQe+XuLpmqGegxKGu5V+qGf55I/254
MQOcv0ZaVlVumPZ91FK4fgZOb+J7M9Duhq3Rjkvy3sxA3MMHrxN/uKFGhp/9
G/oMCG8tsEBLd1xoTpBbv4wNFUq+f6zXeGCDq9eRRmE27LYrH1iU88BrwuYh
zqJs0Blk/HtfwwNVjol1PV7DBq2PTUsPGXvgqZH0yIOybAB9y+c+4R5YN3d3
1HsbG44l1ElkTXrgFbmGrEaCDUY73fyVuz1R2GYkcrcdNb6fXJ1A98TrN37Y
PznHhrLoPIdlHE/MENDZlO/ChncHHQ3Nlnth6Ux+5UU/NghPe+3iNfbCnqqY
jn2X2eC5q0zp+EsvPDmb+7gqlg0lm9aonu7xwhG12ptb4tnwSqhIJnLMCz/e
WbCRS2bDS69v2kk83vgjxmmSK4MN3XPbBicUvFHWwoQbS9ngcZb/bLaLNxZe
dRjbUUY9X6jyIc/XGze9imp++IQNtu5NTlVh3qiz83nCnWdUvIOne2QSvdFo
/WbJiAY2SOqN9r154o3uU8t19vaxQe7J3/vcvD5YdbHzXPVvNnw+v7zZ64kP
Pur+/fI8Fwf6s2p3taAPFslvVgJeDtBujZgebPfB6w0x4/WCHHA53/S6+pMP
uvLsdmxezQF64+3YbHlflLxY6NStygE/7p51ylm+KNrd3ZyixoHDEYczaP/5
Ir88l8pxTQ5sJmjR72p88Wv9qcn+rRxwy1yT4Tzqi63coi7DwIHcnR0d55X8
MCwq1HXyOAcu9ryIXlLnh75dd1uLran3/4lwzHvnh85yvZvcbDhQck32n/RJ
P7Ss15yeoXFgt8ycT8Fqf1TjHnebdeOAqfrksyhPf5Q3X9VW7smBvRbvaKaX
/HFtLqgF+nDg6RLC/Xq2Py7Zl85aDOSAcW59WkqnPw5FHvX4E8UBgQ3yGSt2
B2B3Z/jbumgq/jg9pc0nArBFtkQ96jIHQtykb7H8ArAcl7B5Ezjwr+KsV+TD
AIzneu4plMaBmFTJE5OagXjR7GN7azoHvtam5qpZBGJwjphmfBYHLiT1LDoG
BOI5fS+OSD4HGCdEJxZqA/FUUubRzkIO/Hj1RM99PBDN6K8fJt/jwMrh6kAJ
4SA00vq24th9DnQYdrgs3x6EepGK3mKlHNBcNfWRRgvC/wFd6Xrj
       "]]},
     Annotation[#, "Charting`Private`Tag$27132#1"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.01, -461.33089743950643`},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Part[#, 1], 
      Exp[
       Part[#, 2]]}& ), "CopiedValueFunction" -> ({
      Part[#, 1], 
      Exp[
       Part[#, 2]]}& )},
  DisplayFunction->Identity,
  Epilog->{
    Directive[
     RGBColor[1, 0, 0], 
     PointSize[0.03]], 
    PointBox[{0.5524861874768245, -124.46056253183778`}]},
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{
     Charting`ScaledTicks[{Log, Exp}], 
     Charting`ScaledFrameTicks[{Log, Exp}]}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->Automatic,
  ImageSizeRaw->{240, 137},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None},
  PlotRange->{{0.01, 0.99}, {-461.33089743950643`, -124.46056529058572`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->FrontEndValueCache[{Automatic, 
     Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{-460.51701859880916`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "200"}]}, "Superscript", SyntaxForm -> SuperscriptBox],
         TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-414.4653167389282, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "180"}]}, "Superscript", SyntaxForm -> SuperscriptBox],
         TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-368.4136148790473, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "160"}]}, "Superscript", SyntaxForm -> SuperscriptBox],
         TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-322.3619130191664, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "140"}]}, "Superscript", SyntaxForm -> SuperscriptBox],
         TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-276.3102111592855, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "120"}]}, "Superscript", SyntaxForm -> SuperscriptBox],
         TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-230.25850929940458`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "100"}]}, "Superscript", SyntaxForm -> SuperscriptBox],
         TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-184.20680743952366`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "80"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-138.15510557964274`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "60"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-437.4911676688687, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-391.4394658089878, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-345.38776394910684`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-299.33606208922595`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-253.28436022934503`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-207.2326583694641, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-161.1809565095832, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-115.12925464970229`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}}}]]], "Output",
 CellChangeTimes->{3.8245228558500576`*^9},
 ImageSize->{244, 137},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[51]=",ExpressionUUID->"fa1a0107-42ef-468e-9b1e-c63f423cfc98"]
}, Open  ]],

Cell["\<\
Metoda aplikovan\[AAcute] na rozd\[EHacek]len\[IAcute] ch\[IAcute] kvadr\
\[AAcute]t s nezn\[AAcute]m\[YAcute]m stupn\[EHacek]m volnosti:\
\>", "Text",
 CellChangeTimes->{{3.824523290894639*^9, 
  3.824523328509453*^9}},ExpressionUUID->"01a3a0aa-d03c-4f02-8f6f-\
0e7ba7659ad9"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[ScriptCapitalD]", "=", 
   RowBox[{"ChiSquareDistribution", "[", "10", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"datch", "=", 
   RowBox[{"RandomVariate", "[", 
    RowBox[{"\[ScriptCapitalD]", ",", "100"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"lchi", "[", "p_", "]"}], "=", 
   RowBox[{"Likelihood", "[", 
    RowBox[{
     RowBox[{"ChiSquareDistribution", "[", "p", "]"}], ",", "datch"}], 
    "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.824523007890066*^9, 3.8245230086507635`*^9}, {
  3.8245232042660275`*^9, 3.8245232055615034`*^9}},
 CellLabel->"In[61]:=",
 CellID->334092744,ExpressionUUID->"2fe0e67f-dff5-4aea-b567-6a13be31192f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"max", "=", 
  RowBox[{"FindMaximum", "[", 
   RowBox[{
    RowBox[{"Log", "[", 
     RowBox[{"lchi", "[", "p", "]"}], "]"}], ",", "p"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.824523106580714*^9, 3.824523117502519*^9}, {
  3.82452317629684*^9, 3.8245231791486297`*^9}},
 CellLabel->"In[64]:=",ExpressionUUID->"848b1798-7d80-470a-a6a9-ad2657f8f336"],

Cell[BoxData[
 TemplateBox[{
  "FindMaximum","nrnum",
   "\"The function value \\!\\(\\*RowBox[{\\\"Indeterminate\\\"}]\\) is not a \
real number at \\!\\(\\*RowBox[{\\\"{\\\", \\\"p\\\", \\\"}\\\"}]\\) = \\!\\(\
\\*RowBox[{\\\"{\\\", \\\"8.354301797462998`\\\", \\\"}\\\"}]\\).\"",2,64,12,
   20710459761978998765,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.824523124435833*^9, {3.8245231577618475`*^9, 3.8245231809072924`*^9}, 
   3.824523215248127*^9},
 CellLabel->
  "During evaluation of \
In[64]:=",ExpressionUUID->"df872a9b-cd3d-4f64-b88c-6ac4dac203f2"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "342.5617445584837`"}], ",", 
   RowBox[{"{", 
    RowBox[{"p", "\[Rule]", "5.608571712191493`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.824523124438825*^9, {3.8245231578025227`*^9, 3.824523180950164*^9}, 
   3.8245232152886095`*^9},
 CellLabel->"Out[64]=",ExpressionUUID->"d704079d-fa9c-4a43-897e-6c68ff1a5ca4"]
}, Open  ]],

Cell["Metoda aplikovan\[AAcute] na binomick\[EAcute] \
rozd\[EHacek]len\[IAcute]:", "Text",
 CellChangeTimes->{{3.8245233457522697`*^9, 
  3.82452336510196*^9}},ExpressionUUID->"af17d42b-fffb-4e19-a8d6-\
967f8224e99e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[ScriptCapitalD]", "=", 
   RowBox[{"BinomialDistribution", "[", 
    RowBox[{"20", ",", "p"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"datbin", "=", 
   RowBox[{"RandomVariate", "[", 
    RowBox[{
     RowBox[{"\[ScriptCapitalD]", "/.", 
      RowBox[{"p", "->", ".4"}]}], ",", "100"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.824523398045054*^9, 3.8245233990931096`*^9}, {
  3.824523514721789*^9, 3.8245235165373526`*^9}, {3.82452363163065*^9, 
  3.824523632088075*^9}},
 CellLabel->"In[73]:=",
 CellID->156271915,ExpressionUUID->"08f1b077-36ef-4ef8-83e0-1689ed64df29"],

Cell["Velmi siln\[AAcute] metoda - umo\[ZHacek]\[NHacek]uje nal\[EAcute]zt \
cel\[EAcute] rozd\[EHacek]len\[IAcute]:", "Text",
 CellChangeTimes->{{3.8245234176306343`*^9, 
  3.8245234524673033`*^9}},ExpressionUUID->"c53fa61a-300d-4687-abaf-\
f244ef08754d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"EstimatedDistribution", "[", 
  RowBox[{"datbin", ",", "\[ScriptCapitalD]"}], "]"}]], "Input",
 CellChangeTimes->{{3.8245235228167763`*^9, 3.824523524255107*^9}},
 CellLabel->"In[75]:=",ExpressionUUID->"6ff2ec4d-862d-49f4-8908-60fe5340c633"],

Cell[BoxData[
 RowBox[{"BinomialDistribution", "[", 
  RowBox[{"20", ",", "0.3925`"}], "]"}]], "Output",
 CellChangeTimes->{3.824523476216134*^9, 3.8245235256996803`*^9, 
  3.8245236382527657`*^9},
 CellLabel->"Out[75]=",ExpressionUUID->"40320c57-8cf3-4498-891b-3fd74544c3fd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"pod", "=", 
  RowBox[{"FindDistributionParameters", "[", 
   RowBox[{"datbin", ",", "\[ScriptCapitalD]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8245235316453915`*^9, 3.8245235430369425`*^9}},
 CellLabel->"In[76]:=",ExpressionUUID->"4820953e-54b5-47dc-aa27-ecca0f6b68f7"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"p", "\[Rule]", "0.3925`"}], "}"}]], "Output",
 CellChangeTimes->{3.824523549176614*^9, 3.824523641339739*^9},
 CellLabel->"Out[76]=",ExpressionUUID->"2b1daa04-bd8b-4627-b0fd-43fe16102fa5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"LogPlot", "[", 
    RowBox[{
     RowBox[{"Likelihood", "[", 
      RowBox[{"\[ScriptCapitalD]", ",", "datbin"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"p", ",", ".35", ",", ".45"}], "}"}]}], "]"}], ",", 
   RowBox[{"Graphics", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"PointSize", "[", "Medium", "]"}], ",", "Red", ",", 
      RowBox[{"Point", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"p", ",", 
          RowBox[{"Log", "[", 
           RowBox[{"Likelihood", "[", 
            RowBox[{"\[ScriptCapitalD]", ",", "datbin"}], "]"}], "]"}]}], 
         "}"}], "/.", "pod"}], "]"}]}], "}"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.824523568689791*^9, 3.824523588013397*^9}},
 CellLabel->"In[77]:=",
 CellID->638416754,ExpressionUUID->"b04db120-cb57-4dd9-8e1b-36b2fc18ab5c"],

Cell[BoxData[
 TemplateBox[{
  "General","munfl",
   "\"\\!\\(\\*SuperscriptBox[\\\"0.35000204285714287`\\\", \\\"785\\\"]\\) \
is too small to represent as a normalized machine number; precision may be \
lost.\"",2,77,17,20710459761978998765,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.8245235894739475`*^9, 3.824523646901621*^9},
 CellLabel->
  "During evaluation of \
In[77]:=",ExpressionUUID->"c368b4e9-db79-4980-a1e2-d890a89a206f"],

Cell[BoxData[
 TemplateBox[{
  "General","munfl",
   "\"\\!\\(\\*SuperscriptBox[\\\"0.35000204285714287`\\\", \\\"785\\\"]\\) \
is too small to represent as a normalized machine number; precision may be \
lost.\"",2,77,18,20710459761978998765,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.8245235894739475`*^9, 3.8245236469438334`*^9},
 CellLabel->
  "During evaluation of \
In[77]:=",ExpressionUUID->"c8585fb9-6448-4a7b-a37e-c5ce16d5c00d"],

Cell[BoxData[
 TemplateBox[{
  "General","munfl",
   "\"\\!\\(\\*SuperscriptBox[\\\"0.35000204285714287`\\\", \\\"785\\\"]\\) \
is too small to represent as a normalized machine number; precision may be \
lost.\"",2,77,19,20710459761978998765,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.8245235894739475`*^9, 3.824523646982006*^9},
 CellLabel->
  "During evaluation of \
In[77]:=",ExpressionUUID->"bced80fa-3ba6-43cc-b289-fcd4f3040500"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"",2,77,20,20710459761978998765,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.8245235894739475`*^9, 3.824523647023667*^9},
 CellLabel->
  "During evaluation of \
In[77]:=",ExpressionUUID->"f32732b7-d3fe-43a6-84ef-bf90fd0242db"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV13k8VXkUAHAkkexFGYlIIkmlKaqD7KZUlLVCdve9ZAlFQ9mTShE1KkVK
toZk2lzZ9y3PvTyFbAlFxjZizvvrfb6fe9+793fO+Z3fefJOZ4+58HBxcQlx
c3FxPtc43HF3dWXBqIngBs97DFLYbUFwCK0z3mO8Cs3PdMxzc2NBYShfRO5d
Bjl/UXXa3Z0FPa9g188UBtlzp+SKlycLKt1PMUOSGWR209B9byYLgitGjyQm
Mkh92NN+4TwLrDXM61uvM0g/WVr3eiQL4nlOhoeHM8hvqXX3iGcsqA4pGpsn
GKRG21TIfA0LTlsuDey0ZpACH1oH+r+y4FI5dfenPoOcPefYeGVVByT7DJ89
osEgizqUoG1rB3RVXTunJMcg4xb/2t5h3gF8sZpmTcIM8uenqszffTpgDxk1
KLREkFv8t2QaJ3QA61fb5uAJggyo194s/LIDgr7IRS1+IcjbdLh6eHsHBFdv
WHaVIki9h5ffnfi3A06Yem1yaiRIfmWN+m4pCrYOrAuKKyfIVBfJM2v2UDA6
bZx48S1BJr/zk0hDT7kEz9iiE9a0lW3dSwG3J8nQQkdXXFfU16Lg4d+BSXNv
CNJnk8Cgzz4K2lofUIFo44H/3Jt1KAjv9ttw8TVB/nTuZV41oWDjirTC+GKC
NHHOvsBtR8ELC4fhiUKCVLkunxqLnurqq2ehV75OKpGwp8Buc0b5G3S9SBiv
0kkKxp8OjUWgj7w5Hm96mgKDMtvNv6GtxZfSbp2hoIHK1jQpIEh38mjNJoKC
6K/33xW8IMgomRkp0xAKXDNa3D7kEqTOxmsLNehohZaUHPTsZoVek0sUVFAX
2clo953mWSZ/UrDwseXWWbSxaeY+kzAKdK8F1q5Hrwy0cjSOoED0s59VSA5B
xre9yjK8RsGFcpNx42yCNKQPXa9Eyxipau5GL3764msYT8G8b16cAvrsiMh+
w+sUDL69z1h8juvhdm8yuEkBb5rYTCFaTH3tlH4iBcOBQsqb0LdjA/cfTKVg
u2EEl3gW3m8hNtWA5gn0/7n0jCCFZLKyrO9TMHNxbG4MHZnTJcV8QIF0hq9u
LTqw+cBkchoFaSpNr6+gT0ouzxzPoOCvlMAT808JUunRTdG7uRScEtBXn84k
yD5PlSrFPAqWxGITBtEPdpaF5KGLrQ8JdKDXVkyNlOdTQB0x1ShGCw5bVXz/
G9+vdLXXRfQPNdkLBq/w/c49iliO/uefrC8/SihorbGxVH5CkH+cdLb3ISkY
cWrmk0H3cMm2/0Q7h++pFUHzG9+snC6lQMSSfWUmA/PLCni2UEaBZYvnhyr0
9KT+Wf5qrI9X7oQXesfWz/Mbmik4F7HGpySdICubkn3T0H2V2nov0ba+x0Y3
tlDgud9M4Tk67HVF96ZWCq6VKq69g242ziZVP1JgO/66/iz6rEtQ5O8UBbO7
tRwV0dn3JcTNeyggN/yjefcxQeovb7bvQq/YHHX+JprtFZfp1kvBjySlumi0
0N7l+0P7KGh0ofIC0My2abcX/RQoFS26nkCr83e+k/hKQdKcUJwUupqZxP8Q
fYldJyCKdmg/ZrF1hIIi7hP3+NE3HtUN63/D+qhrmJt7hPHd907i/BjW8xm9
9G703+ceelATFJzfOJv7FG1K2Rc6T2K+mi08HqH7Dqxb+oE2eXL+97/Q4qsS
bgtMUaB4WVTkBtr3yZUSrWkK6qXjngeiVwnprKxCH5Rfy+uLTvddsLSYoaCy
wt2bgf6o4z/iNUuBSsaJcCf0ri7XNanzFBwesEs5hK7XVXDY8h8F1ct4bxij
nZ9+znqJ7t3LvHsQnehvrdO4QEFkVtTIXvS0iKnX0iKup6kiYDP6lb5aqeMy
Ggo6lQ350LsvcV36hp6/ZB3Lgy581ablz0uDypf43sU0gsxXuVAYvZyGnrfC
NTPoLNGqzLwVNLz1ORY8glY2veu8l58Gw7Y86yF05hWGfBl66I6YcT86fVri
HkuABku53tOf0PfZDvG/BGmQnsr0bUPLSO4yi1pFg5+23HAz+p75Cn4xIRpy
rt0924hO/pATpihMwzel269q0JILoQdy0bKUeGAVOlHT8r/fRWi44Z5gVoFO
eDrvZyZKA89CgmopWrSvQaMdHeYhsacEff23tPFTYjToXb1l9Q4dF2/k7iNO
A3fpzaZ/0CurpTctoJtBRLkYHcM93hshQcM146u3itCRfrftUlbT0NsQ8rgA
zZvrtlZhDQ3pL38a/Y2+MqTVno2+/8t1KR/NIy+csFuShkt2HTV56FDb3sMk
midCPzMXvXirUNBUioZB9dw7OeiQhqjqNvS82Op72egFPruIk2tpWN3r/+I5
+oLONr0htKRFW2cWejaIe8l7HcZn/VYpjgMKPr6ZR0fP/On6DD09mhkYLk3D
98TG6qdoP6WLmsK/YX7zpA5wPHn68OQd9JE528pMtHeKfJ68DA0hKsmOHI+3
Tnk9R7NnG0U4ZqyqVtZcT8Mj6aXmJ+hRg3sD79HChsoZHHv+yXxkLEuDm4Zp
HMfDxbqnW9E8t5wjOXadXC1jv4GG3fIBtzjuVx2mBtA+CWEFHJ9xeZN4Vo4G
pdQrgxz33Y8/Noeunwneynm+A+UockUe12vNiOD4k5hm/aqNGI8AywmOT5rx
xyShB/l3eHPWxw7vMpBTwPxWLOfhxMP2fS5PFnqtU9MTjqmZsJKdijT0JcWf
4sTPSuN48Du0kvTBLZx4szyV9xptwv3yaJSPkw/L9P/+bUafGoqd4Tir+Lvf
USUa+Lb89pWTP66GLz9b0CuPqnzj5Pf5v3UTrZtpWHQtl3vBub6S9LZQpsHr
02FLTr2ckC383oZWN7dK5tQTj9FfYx+30CC+vfcop96s7W4Qx1VoGN3iVPUK
nXM2/Fs7+s52h0OcerVOJr6yVPH7ga2xb9F5X/cNUGo0FAXH1JVx6nNxu7PN
Nho0PUbLOfvDVnzTFxo9HlvbyNk/fNpCvZ3qNFRfnpGoR9vHdbPZGjSYdgg5
t6P/fthid3IHDQSXfm8Hmv9lRWc3WjbmJ7MTXdCdQ33aScNA47s3nzn7R/3S
xx5NXG/FrPQ3Tr4O+lg47qbhYMTP38bRRVaurb1om2YXtQm0Y+jh5r7faXgv
lx/G6S/FLbL1/XuxXszav/NiPxIeFDdz0aLBSSDSjx99Zp6vdgBdH5YtsIpz
XeF71aA2vl+xjYsE2sWvpGx4P9Zz/7a+jejX0QV6Hgdo2C8dNaKEFk3NLP2K
ttOyWKaKfltxvWQEaCg9aui6k9O/pRzejOrSEHr15oQ+mvyHq+CHAQ3xL2PW
e6Glb84sCzakQe4u+6432s993HKFEQ2Opy+rnkcrS7Gn1xvTcNmtIjIMfcPv
lZaZKQ2d5+Q3paAd1ZkfMg7TkJ87wVXPeT6fi4SGOQ1W3kcKWtGSn+yc36JH
I34F0ujaOBO+tiM0yF/VPTCE3jGiaMplQcMnCY/8ZXh+8WR0tdha0fB4cnqH
Dto+uHXjIHp49TppY3SRRY3vOWsaJvkjVh9Be/K8WhNtQ8MBo70HHdCtpxNs
XtrRcMxAMDoM/UjapFfEAfdHnmReFfrgjaIf5e40zN6nvJ3wvPbTa1xm5EGD
zo0pUQL9ZGpAsgY9u4su9Ufz26zZ3+CJ9VPw3/EYdKO8X0w7gfGGB0Yv0NYF
GhsHvWlIid92hBfnC4KVbbEiiAZ9/89TRejU6HLXGPSePx7nfEA3arGDBC/Q
EP5aOaARrfFA8KHIRRqyLgbsG+TMK26eo1IhuN/dZG9I4nwTOrc5QjmMBpcS
B7sL6ESZx0UmMTQ8LFMPPYzzUnZai3YNWrBuvaA9ulyJq9Q4lgbVvg1PPNBT
20/WGV2loYV5elUE+piBVI/BNdyvhytT3qKFmVcF9G5ifaYvL96G811Uia+9
VgoNT4V7uDbg/BfkpM+j+oyGtvrKYnXOfJnlb/OSYxOtCj10/uSTfMjCfvo5
tv84eviywGnL5zRUHf9gF4y2ftz4JiQH+6vTla216D391v7NL7Dfja2x8sD5
dtqFMez/mgZeeN/4EudjP4+kRrKOhoUhI62ofIJ0ixse0q3HeOhsc0lF2+Zp
cZehnY75PSxA6/z7aWdFA/YnlqxxD1oobHNKTRMN5/uG7LRwnn+SXHymtY0G
Wls2cQJNV3XOfulCs97/QeD8f0Bpg8KKUTxvdy5VJBQRpFy69Sy3SCco9hYv
GL7H9XYZWthodMJHiwPVXFXYP6u9djse7YR4mSQTtWaC3B6ge3e9Xyc4BYkR
Ol0EadN1KDL2diekcfH+Sh8kSIk54VmLwk7YMZEdXz9JkAMdoSMtrE44Nf1i
UZKbQUYSW1y4ZjrB1iUjwk+EQcKHyw5f1nWBw/Ta25z/d5UN4v3ntbqgT/Tb
bO12Bvk5wWrM1bYLGOtWj0rpMUjRdYcCBEO6oKp8z9N/jzNIkeNBMQ6pXZAQ
1KYW7cEglY6dkPEku0D/YZly958Msol/eFdzXxf8UAxSGk1ikEb++e2DPGwo
b8/981wOg2Q92jLzYhMbxhfCmqYrGeSuSPqhmiEb9CIsXrd+ZpCKCgeal7uy
4cQ8r8KWOQapGmYRmhDNhq+z2yLfrGGS3IkPipuesmHf+FCUuwaTnI8Yyj79
DO//Q+34IHryvHrad7THzmlN5x1Mss+6JEbkORvGrMV3OOxkkuUyn23Nc9gQ
quKz2kaTSUany/5qfMGGfvPSsMN7maRoYapu42s2+FEqi0a6TJI/Y0Dz1Bs2
6JqXalejuZPUVMbRj/XpOGM9fF7AO3Hhd2ywJ655mBxkkh+1u78cKmGD3Dyv
0B8GTPJOmUxkQxkbnocpLFiaMMkbhc4XTpbj76fUnmOhozOymWPokT2T81am
TDIwap+VUCUbzrd+MLIzY5K2ZvbKh6rZsLHOrc7pEJM8ti9dphu9+6JYdz/a
TG1UlFHDBkltbR63w0xyn0jwXFwtG6ZyhaO8zJnkLq7yMZk6NpwzKB4cQ6tN
CPZlo7Pze228jzBJpT4L1r56Nsz3xvZMomXb7tXWo1/WFlzwP8ok/wdSo9ST

        "]]},
      Annotation[#, "Charting`Private`Tag$34364#1"]& ]}, {}, {}}, 
   {RGBColor[1, 0, 0], PointSize[Medium], 
    PointBox[{0.3925, -229.05157209632316`}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.35, -242.54559073558417`},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Part[#, 1], 
      Exp[
       Part[#, 2]]}& ), "CopiedValueFunction" -> ({
      Part[#, 1], 
      Exp[
       Part[#, 2]]}& )},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{
     Charting`ScaledTicks[{Log, Exp}], 
     Charting`ScaledFrameTicks[{Log, Exp}]}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None},
  PlotRange->{{0.35, 0.45}, {-242.54559073558417`, -229.05157775538834`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->FrontEndValueCache[{Automatic, 
     Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{-241.7714347643748, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "105"}]}, "Superscript", SyntaxForm -> SuperscriptBox],
         TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-239.46884967138075`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "104"}]}, "Superscript", SyntaxForm -> SuperscriptBox],
         TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-237.16626457838672`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "103"}]}, "Superscript", SyntaxForm -> SuperscriptBox],
         TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-234.86367948539265`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "102"}]}, "Superscript", SyntaxForm -> SuperscriptBox],
         TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-232.56109439239862`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "101"}]}, "Superscript", SyntaxForm -> SuperscriptBox],
         TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-230.25850929940458`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "100"}]}, "Superscript", SyntaxForm -> SuperscriptBox],
         TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-244.07401985736885`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-243.3808726768089, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-242.97540756870075`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-242.68772549624896`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-242.46458194493474`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-242.2822603881408, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-242.12810970831353`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-241.994578315689, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-241.8767952800326, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-241.07828758381484`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-240.67282247570668`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-240.3851404032549, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-240.1619968519407, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-239.97967529514673`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-239.8255246153195, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-239.69199322269495`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-239.57421018703857`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-238.7757024908208, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-238.37023738271265`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-238.08255531026086`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-237.85941175894666`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-237.6770902021527, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-237.52293952232543`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-237.3894081297009, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-237.27162509404454`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-236.47311739782677`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-236.0676522897186, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-235.77997021726682`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-235.5568266659526, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-235.37450510915866`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-235.2203544293314, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-235.08682303670687`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-234.96904000105047`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-234.1705323048327, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-233.76506719672454`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-233.47738512427276`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-233.25424157295856`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-233.0719200161646, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-232.91776933633736`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-232.7842379437128, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-232.66645490805644`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-231.86794721183867`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-231.4624821037305, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-231.17480003127872`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-230.95165647996453`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-230.76933492317056`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-230.6151842433433, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-230.48165285071877`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-230.3638698150624, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-229.56536211884463`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-229.15989701073647`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-228.87221493828469`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-228.64907138697046`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-228.46674983017652`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-228.31259915034926`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-228.17906775772474`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-228.06128472206834`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-227.95592420641051`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-227.26277702585057`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-226.8573119177424, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-226.56962984529062`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-226.34648629397643`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-226.16416473718246`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-226.01001405735522`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}}}]]], "Output",
 CellChangeTimes->{3.824523589592509*^9, 3.8245236470672193`*^9},
 CellLabel->"Out[77]=",ExpressionUUID->"c8123fcd-44eb-4850-bb17-078b1889b136"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
  "Druh\[AAcute]", " ", "z\[AAcute]kladn\[IAcute]", " ", "metoda", " ", "je", 
   " ", "metoda", " ", 
   RowBox[{"moment\[URing]", ".", " ", "Nejd\[RHacek]\[IAcute]ve"}], " ", 
   "budeme", " ", "po\[CHacek]\[IAcute]tat", " ", "z\[AAcute]kladn\[IAcute]", 
   " ", "momenty", " ", "n\[AAcute]hodn\[YAcute]ch", " ", "veli\[CHacek]in", 
   " ", "a", " ", "posl\[EAcute]ze", " ", "u\[ZHacek]ijeme", " ", "metodu", 
   " ", "moment\[URing]", " ", "k", " ", "odhadu", " ", 
   "jednotliv\[YAcute]ch", " ", 
   RowBox[{"parametr\[URing]", "."}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.8245237328646345`*^9, 3.8245237530557327`*^9}, {
  3.8245247205002737`*^9, 3.8245247375786867`*^9}, {3.824524846936495*^9, 
  3.8245248797606335`*^9}},ExpressionUUID->"e68d6592-484b-494d-97bc-\
2feb8d0e0b90"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MomentEvaluate", "[", 
  RowBox[{
   RowBox[{"Moment", "[", "1", "]"}], ",", 
   RowBox[{"NormalDistribution", "[", 
    RowBox[{"\[Mu]", ",", "\[Sigma]"}], "]"}]}], "]"}]], "Input",
 CellLabel->"In[78]:=",
 CellID->113039888,ExpressionUUID->"c9474539-0011-49a6-9768-e1931bbef66a"],

Cell[BoxData["\[Mu]"], "Output",
 CellChangeTimes->{3.824524942381215*^9},
 ImageSize->{11, 16},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[78]=",ExpressionUUID->"8f9d17d3-8f01-4695-a48a-1d5f0aff82c9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MomentEvaluate", "[", 
  RowBox[{
   RowBox[{"Moment", "[", "2", "]"}], ",", 
   RowBox[{"NormalDistribution", "[", 
    RowBox[{"\[Mu]", ",", "\[Sigma]"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.824524954453177*^9, 3.8245249551244507`*^9}},
 CellLabel->"In[80]:=",ExpressionUUID->"1eaed234-b398-434b-ab99-4876343bee43"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["\[Mu]", "2"], "+", 
  SuperscriptBox["\[Sigma]", "2"]}]], "Output",
 CellChangeTimes->{{3.824524950227969*^9, 3.82452495590936*^9}},
 CellLabel->"Out[80]=",ExpressionUUID->"798924f6-8a30-4fc8-a9d5-1317f7e804f4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MomentEvaluate", "[", 
  RowBox[{
   RowBox[{"Moment", "[", "3", "]"}], ",", 
   RowBox[{"NormalDistribution", "[", 
    RowBox[{"\[Mu]", ",", "\[Sigma]"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8245249653460703`*^9, 3.82452496591714*^9}},
 CellLabel->"In[81]:=",ExpressionUUID->"022ffffb-414f-49cd-8621-133e05065319"],

Cell[BoxData[
 RowBox[{"\[Mu]", " ", 
  RowBox[{"(", 
   RowBox[{
    SuperscriptBox["\[Mu]", "2"], "+", 
    RowBox[{"3", " ", 
     SuperscriptBox["\[Sigma]", "2"]}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.824524966607128*^9},
 CellLabel->"Out[81]=",ExpressionUUID->"7205b4a1-0e01-4dfa-87fc-db875c890716"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"datn", "=", 
   RowBox[{"RandomVariate", "[", 
    RowBox[{
     RowBox[{"NormalDistribution", "[", 
      RowBox[{"1", ",", "2"}], "]"}], ",", "100"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Moment", "[", 
  RowBox[{"datn", ",", "1"}], "]"}]}], "Input",
 CellChangeTimes->{{3.8245249846734066`*^9, 3.8245250551218395`*^9}},
 CellLabel->"In[82]:=",ExpressionUUID->"b6b9af2a-e7aa-4d52-922b-038eedd228f0"],

Cell[BoxData["0.6679420545968681`"], "Output",
 CellChangeTimes->{3.824525056085142*^9},
 CellLabel->"Out[83]=",ExpressionUUID->"d53fa09c-f33c-4597-948e-8e76fa917dd4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Moment", "[", 
  RowBox[{"datn", ",", "2"}], "]"}]], "Input",
 CellChangeTimes->{{3.8245250614770055`*^9, 3.824525072297527*^9}},
 CellLabel->"In[84]:=",ExpressionUUID->"dba742c1-909b-4afb-bb6a-59310ca458b2"],

Cell[BoxData["4.78767478732824`"], "Output",
 CellChangeTimes->{3.824525073292614*^9},
 CellLabel->"Out[84]=",ExpressionUUID->"e425fb48-0e85-4c00-8abc-1055e7e199d4"]
}, Open  ]],

Cell["Odhad metodou moment\[URing]", "Text",
 CellChangeTimes->{{3.8245250784286804`*^9, 
  3.8245250890584817`*^9}},ExpressionUUID->"070490c4-649c-4837-8fa3-\
289ed49176d8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NSolve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"MomentEvaluate", "[", 
       RowBox[{
        RowBox[{"Moment", "[", "1", "]"}], ",", 
        RowBox[{"NormalDistribution", "[", 
         RowBox[{"u", ",", "v"}], "]"}]}], "]"}], ",", 
      RowBox[{"MomentEvaluate", "[", 
       RowBox[{
        RowBox[{"Moment", "[", "2", "]"}], ",", 
        RowBox[{"NormalDistribution", "[", 
         RowBox[{"u", ",", "v"}], "]"}]}], "]"}]}], "}"}], "\[Equal]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Moment", "[", 
       RowBox[{"datn", ",", "1"}], "]"}], ",", 
      RowBox[{"Moment", "[", 
       RowBox[{"datn", ",", "2"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"u", ",", "v"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.824525097152174*^9, 3.8245252469021935`*^9}},
 CellLabel->"In[85]:=",ExpressionUUID->"bef05214-6492-4343-96fd-b72dc51dfe55"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"u", "\[Rule]", "0.6679420545968681`"}], ",", 
     RowBox[{"v", "\[Rule]", 
      RowBox[{"-", "2.083633412822216`"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"u", "\[Rule]", "0.6679420545968681`"}], ",", 
     RowBox[{"v", "\[Rule]", "2.083633412822216`"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.8245252540386353`*^9},
 CellLabel->"Out[85]=",ExpressionUUID->"b9788856-9c00-47ab-a176-be64a86f385e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"datn1", "=", 
   RowBox[{"RandomVariate", "[", 
    RowBox[{
     RowBox[{"NormalDistribution", "[", 
      RowBox[{"1", ",", "2"}], "]"}], ",", "250"}], "]"}]}], ";"}], "\n", 
 RowBox[{"NSolve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"MomentEvaluate", "[", 
       RowBox[{
        RowBox[{"Moment", "[", "1", "]"}], ",", 
        RowBox[{"NormalDistribution", "[", 
         RowBox[{"u", ",", "v"}], "]"}]}], "]"}], ",", 
      RowBox[{"MomentEvaluate", "[", 
       RowBox[{
        RowBox[{"Moment", "[", "2", "]"}], ",", 
        RowBox[{"NormalDistribution", "[", 
         RowBox[{"u", ",", "v"}], "]"}]}], "]"}]}], "}"}], "\[Equal]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Moment", "[", 
       RowBox[{"datn1", ",", "1"}], "]"}], ",", 
      RowBox[{"Moment", "[", 
       RowBox[{"datn1", ",", "2"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"u", ",", "v"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.8245252956725645`*^9, 3.824525313730049*^9}, {
  3.824525353233453*^9, 3.824525379768533*^9}},
 CellLabel->"In[92]:=",ExpressionUUID->"74054684-1cf6-41b1-955b-54d6f4a31f32"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"u", "\[Rule]", "1.1479703431301804`"}], ",", 
     RowBox[{"v", "\[Rule]", 
      RowBox[{"-", "1.978193450977394`"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"u", "\[Rule]", "1.1479703431301804`"}], ",", 
     RowBox[{"v", "\[Rule]", "1.9781934509773937`"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.8245253604144335`*^9, 3.8245253823274603`*^9}},
 CellLabel->"Out[93]=",ExpressionUUID->"249b76c7-c1cd-4846-8fa3-16e1f6559d1a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"datn2", "=", 
   RowBox[{"RandomVariate", "[", 
    RowBox[{
     RowBox[{"NormalDistribution", "[", 
      RowBox[{"1", ",", "2"}], "]"}], ",", "500"}], "]"}]}], ";"}], "\n", 
 RowBox[{"NSolve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"MomentEvaluate", "[", 
       RowBox[{
        RowBox[{"Moment", "[", "1", "]"}], ",", 
        RowBox[{"NormalDistribution", "[", 
         RowBox[{"u", ",", "v"}], "]"}]}], "]"}], ",", 
      RowBox[{"MomentEvaluate", "[", 
       RowBox[{
        RowBox[{"Moment", "[", "2", "]"}], ",", 
        RowBox[{"NormalDistribution", "[", 
         RowBox[{"u", ",", "v"}], "]"}]}], "]"}]}], "}"}], "\[Equal]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Moment", "[", 
       RowBox[{"datn2", ",", "1"}], "]"}], ",", 
      RowBox[{"Moment", "[", 
       RowBox[{"datn2", ",", "2"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"u", ",", "v"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.8245252956725645`*^9, 3.824525313730049*^9}, {
  3.824525353233453*^9, 3.8245254218932796`*^9}},
 CellLabel->"In[94]:=",ExpressionUUID->"5efa2ee2-e4d1-4cd8-80ad-9adf88186319"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"u", "\[Rule]", "0.8808557536076406`"}], ",", 
     RowBox[{"v", "\[Rule]", 
      RowBox[{"-", "2.094171594572778`"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"u", "\[Rule]", "0.8808557536076406`"}], ",", 
     RowBox[{"v", "\[Rule]", "2.094171594572778`"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.82452542323684*^9},
 CellLabel->"Out[95]=",ExpressionUUID->"4b0e102e-9c13-4768-ac2f-4ab4612131e6"]
}, Open  ]],

Cell["Pou\[ZHacek]ijeme na poissonovo rozd\[EHacek]len\[IAcute]", "Text",
 CellChangeTimes->{{3.8245254448035727`*^9, 
  3.8245254775676737`*^9}},ExpressionUUID->"8db47b77-f329-441d-9407-\
26852f8db7ec"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"datpo", "=", 
   RowBox[{"RandomVariate", "[", 
    RowBox[{
     RowBox[{"PoissonDistribution", "[", "2", "]"}], ",", "100"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Moment", "[", 
  RowBox[{"datpo", ",", "1"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"MomentEvaluate", "[", 
  RowBox[{
   RowBox[{"Moment", "[", "1", "]"}], ",", 
   RowBox[{"PoissonDistribution", "[", "u", "]"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"NSolve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"MomentEvaluate", "[", 
     RowBox[{
      RowBox[{"Moment", "[", "1", "]"}], ",", 
      RowBox[{"PoissonDistribution", "[", "u", "]"}]}], "]"}], "==", 
    RowBox[{"Moment", "[", 
     RowBox[{"datpo", ",", "1"}], "]"}]}], ",", "u"}], "]"}]}], "Input",
 CellChangeTimes->{{3.8245255024124994`*^9, 3.8245256678206167`*^9}, {
  3.82452572512166*^9, 3.8245257691062217`*^9}, {3.824525799409996*^9, 
  3.824525814159253*^9}},
 CellLabel->
  "In[108]:=",ExpressionUUID->"b9287c3e-0d14-4930-9dae-ff60f6b1a727"],

Cell[BoxData[
 FractionBox["201", "100"]], "Output",
 CellChangeTimes->{3.8245256696681604`*^9, 3.824525731664658*^9, 
  3.824525771446233*^9, 3.8245258174539986`*^9},
 CellLabel->
  "Out[109]=",ExpressionUUID->"bb061793-5beb-447d-8008-5852524863e2"],

Cell[BoxData["u"], "Output",
 CellChangeTimes->{3.8245256696681604`*^9, 3.824525731664658*^9, 
  3.824525771446233*^9, 3.824525817457925*^9},
 CellLabel->
  "Out[110]=",ExpressionUUID->"e6ee1193-7ba4-4ead-b851-f650ef31ead6"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"u", "\[Rule]", "2.01`"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.8245256696681604`*^9, 3.824525731664658*^9, 
  3.824525771446233*^9, 3.8245258174619145`*^9},
 CellLabel->
  "Out[111]=",ExpressionUUID->"3c4bd44b-f35c-4a02-8a41-98f642d44619"]
}, Open  ]],

Cell["Dal\[SHacek]\[IAcute] pou\[ZHacek]it\[IAcute] na binomick\[EAcute] rozd\
\[EHacek]len\[IAcute]", "Text",
 CellChangeTimes->{{3.824525840534896*^9, 
  3.824525862381134*^9}},ExpressionUUID->"98473d71-0f6e-405b-84ce-\
82dfc2baf026"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"datbin1", "=", 
   RowBox[{"RandomVariate", "[", 
    RowBox[{
     RowBox[{"BinomialDistribution", "[", 
      RowBox[{"10", ",", "0.6"}], "]"}], ",", "100"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Moment", "[", 
  RowBox[{"datbin1", ",", "1"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Moment", "[", 
  RowBox[{"datbin1", ",", "2"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"MomentEvaluate", "[", 
  RowBox[{
   RowBox[{"Moment", "[", "1", "]"}], ",", 
   RowBox[{"BinomialDistribution", "[", 
    RowBox[{"n", ",", "p"}], "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"MomentEvaluate", "[", 
  RowBox[{
   RowBox[{"Moment", "[", "2", "]"}], ",", 
   RowBox[{"BinomialDistribution", "[", 
    RowBox[{"n", ",", "p"}], "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"NSolve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"MomentEvaluate", "[", 
       RowBox[{
        RowBox[{"Moment", "[", "1", "]"}], ",", 
        RowBox[{"BinomialDistribution", "[", 
         RowBox[{"n", ",", "p"}], "]"}]}], "]"}], ",", 
      RowBox[{"MomentEvaluate", "[", 
       RowBox[{
        RowBox[{"Moment", "[", "2", "]"}], ",", 
        RowBox[{"BinomialDistribution", "[", 
         RowBox[{"n", ",", "p"}], "]"}]}], "]"}]}], "}"}], "\[Equal]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Moment", "[", 
       RowBox[{"datbin1", ",", "1"}], "]"}], ",", 
      RowBox[{"Moment", "[", 
       RowBox[{"datbin1", ",", "2"}], "]"}]}], "}"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "p"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.8245255024124994`*^9, 3.8245256678206167`*^9}, {
  3.82452572512166*^9, 3.8245257691062217`*^9}, {3.824525799409996*^9, 
  3.824525814159253*^9}, {3.8245258815639935`*^9, 3.8245260810860295`*^9}},
 CellLabel->
  "In[112]:=",ExpressionUUID->"61924e33-79c2-4b5c-a96c-aabf7108f731"],

Cell[BoxData[
 FractionBox["633", "100"]], "Output",
 CellChangeTimes->{3.8245260856022477`*^9},
 CellLabel->
  "Out[113]=",ExpressionUUID->"8c562dbc-ba1f-4355-bf9f-19a7c427aa87"],

Cell[BoxData[
 FractionBox["4269", "100"]], "Output",
 CellChangeTimes->{3.824526085605202*^9},
 CellLabel->
  "Out[114]=",ExpressionUUID->"6a303184-548f-44f8-af95-6900baac5cf0"],

Cell[BoxData[
 RowBox[{"n", " ", "p"}]], "Output",
 CellChangeTimes->{3.82452608561024*^9},
 CellLabel->
  "Out[115]=",ExpressionUUID->"6cccf305-4a3f-4910-beb4-0ed147980e8d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"n", " ", "p"}], "-", 
  RowBox[{"n", " ", 
   SuperscriptBox["p", "2"]}], "+", 
  RowBox[{
   SuperscriptBox["n", "2"], " ", 
   SuperscriptBox["p", "2"]}]}]], "Output",
 CellChangeTimes->{3.824526085614241*^9},
 CellLabel->
  "Out[116]=",ExpressionUUID->"8a158465-1bb9-4e5d-a376-6917c6fbe5ee"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"n", "\[Rule]", "10.803445765590876`"}], ",", 
    RowBox[{"p", "\[Rule]", "0.5859241706161138`"}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.824526085618938*^9},
 CellLabel->
  "Out[117]=",ExpressionUUID->"32dd5b58-db51-4ee6-af4e-7530eb017f40"]
}, Open  ]],

Cell["Pou\[ZHacek]it\[IAcute] nyn\[IAcute] na exponenci\[AAcute]ln\[IAcute] \
rozd\[EHacek]len\[IAcute]", "Text",
 CellChangeTimes->{{3.824526175786702*^9, 
  3.824526211692364*^9}},ExpressionUUID->"16217853-e194-4f53-b90f-\
0d471df9bf35"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"datex", "=", 
   RowBox[{"RandomVariate", "[", 
    RowBox[{
     RowBox[{"ExponentialDistribution", "[", "2", "]"}], ",", "100"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Moment", "[", 
  RowBox[{"datex", ",", "1"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"MomentEvaluate", "[", 
  RowBox[{
   RowBox[{"Moment", "[", "1", "]"}], ",", 
   RowBox[{"ExponentialDistribution", "[", "u", "]"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"NSolve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"MomentEvaluate", "[", 
     RowBox[{
      RowBox[{"Moment", "[", "1", "]"}], ",", 
      RowBox[{"ExponentialDistribution", "[", "u", "]"}]}], "]"}], "==", 
    RowBox[{"Moment", "[", 
     RowBox[{"datex", ",", "1"}], "]"}]}], ",", "u"}], "]"}]}], "Input",
 CellChangeTimes->{{3.8245255024124994`*^9, 3.8245256678206167`*^9}, {
  3.82452572512166*^9, 3.8245257691062217`*^9}, {3.824525799409996*^9, 
  3.824525814159253*^9}, {3.824526230372064*^9, 3.8245263037106867`*^9}, {
  3.824526358888703*^9, 3.824526359345537*^9}},
 CellLabel->
  "In[122]:=",ExpressionUUID->"7c6ff8bc-9ffa-4de1-81fc-1d2ee335f1fe"],

Cell[BoxData["0.5052639314416634`"], "Output",
 CellChangeTimes->{3.8245263188376894`*^9, 3.824526361154825*^9},
 CellLabel->
  "Out[123]=",ExpressionUUID->"083c8d0e-c625-456f-95f6-78be58007a4d"],

Cell[BoxData[
 FractionBox["1", "u"]], "Output",
 CellChangeTimes->{3.8245263188376894`*^9, 3.82452636115981*^9},
 CellLabel->
  "Out[124]=",ExpressionUUID->"75b50ff7-db5c-4083-9345-d7a86f566354"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"u", "\[Rule]", "1.9791636366101026`"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.8245263188376894`*^9, 3.8245263611628036`*^9},
 CellLabel->
  "Out[125]=",ExpressionUUID->"95b55575-c580-4baf-8e9b-f2ee28cedefc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"datex1", "=", 
   RowBox[{"RandomVariate", "[", 
    RowBox[{
     RowBox[{"ExponentialDistribution", "[", "2", "]"}], ",", "200"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Moment", "[", 
  RowBox[{"datex1", ",", "1"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"MomentEvaluate", "[", 
  RowBox[{
   RowBox[{"Moment", "[", "1", "]"}], ",", 
   RowBox[{"ExponentialDistribution", "[", "u", "]"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"NSolve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"MomentEvaluate", "[", 
     RowBox[{
      RowBox[{"Moment", "[", "1", "]"}], ",", 
      RowBox[{"ExponentialDistribution", "[", "u", "]"}]}], "]"}], "==", 
    RowBox[{"Moment", "[", 
     RowBox[{"datex1", ",", "1"}], "]"}]}], ",", "u"}], "]"}]}], "Input",
 CellChangeTimes->{{3.8245255024124994`*^9, 3.8245256678206167`*^9}, {
  3.82452572512166*^9, 3.8245257691062217`*^9}, {3.824525799409996*^9, 
  3.824525814159253*^9}, {3.824526230372064*^9, 3.8245263037106867`*^9}, {
  3.824526358888703*^9, 3.824526359345537*^9}, {3.8245263985149326`*^9, 
  3.8245264159909945`*^9}},
 CellLabel->
  "In[126]:=",ExpressionUUID->"102f67af-3a60-41f6-944b-d5da4ff82d33"],

Cell[BoxData["0.5351529000725123`"], "Output",
 CellChangeTimes->{3.824526417734002*^9},
 CellLabel->
  "Out[127]=",ExpressionUUID->"0b4bb0ee-215a-4ff0-b671-eefd17d4dbf2"],

Cell[BoxData[
 FractionBox["1", "u"]], "Output",
 CellChangeTimes->{3.824526417736994*^9},
 CellLabel->
  "Out[128]=",ExpressionUUID->"51c8f246-7b66-4a2f-8a76-523c11165ace"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"u", "\[Rule]", "1.8686248357516178`"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.8245264177407117`*^9},
 CellLabel->
  "Out[129]=",ExpressionUUID->"220b44d2-ae84-444a-afdb-9a14d51fdbf9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"datex2", "=", 
   RowBox[{"RandomVariate", "[", 
    RowBox[{
     RowBox[{"ExponentialDistribution", "[", "2", "]"}], ",", "50"}], "]"}]}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{"Moment", "[", 
  RowBox[{"datex2", ",", "1"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"MomentEvaluate", "[", 
  RowBox[{
   RowBox[{"Moment", "[", "1", "]"}], ",", 
   RowBox[{"ExponentialDistribution", "[", "u", "]"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"NSolve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"MomentEvaluate", "[", 
     RowBox[{
      RowBox[{"Moment", "[", "1", "]"}], ",", 
      RowBox[{"ExponentialDistribution", "[", "u", "]"}]}], "]"}], "==", 
    RowBox[{"Moment", "[", 
     RowBox[{"datex2", ",", "1"}], "]"}]}], ",", "u"}], "]"}]}], "Input",
 CellChangeTimes->{{3.8245255024124994`*^9, 3.8245256678206167`*^9}, {
  3.82452572512166*^9, 3.8245257691062217`*^9}, {3.824525799409996*^9, 
  3.824525814159253*^9}, {3.824526230372064*^9, 3.8245263037106867`*^9}, {
  3.824526358888703*^9, 3.824526359345537*^9}, {3.8245263985149326`*^9, 
  3.8245264545482273`*^9}},
 CellLabel->
  "In[130]:=",ExpressionUUID->"d1fbeed4-3086-4990-a9c6-299c5b6fd6d8"],

Cell[BoxData["0.6591833046707615`"], "Output",
 CellChangeTimes->{3.824526455510707*^9},
 CellLabel->
  "Out[131]=",ExpressionUUID->"0dffdd67-b082-4813-bb11-be97282f7cf7"],

Cell[BoxData[
 FractionBox["1", "u"]], "Output",
 CellChangeTimes->{3.824526455515483*^9},
 CellLabel->
  "Out[132]=",ExpressionUUID->"ab80e321-174a-42d0-b1a9-809aca1ae860"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"u", "\[Rule]", "1.5170287125209645`"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.824526455520439*^9},
 CellLabel->
  "Out[133]=",ExpressionUUID->"f0f35880-63e0-4272-967c-7208fafb9694"]
}, Open  ]],

Cell["\[CapitalUAcute]koly pro doma :", "Text",
 CellChangeTimes->{{3.824526486218199*^9, 
  3.8245265017055902`*^9}},ExpressionUUID->"a91dd667-3d14-4c12-b208-\
010eced3163c"],

Cell[BoxData[
 RowBox[{"(*", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
   "1.", " ", "Pomoc\[IAcute]", " ", "metody", " ", 
    "maxim\[AAcute]ln\[IAcute]", " ", "v\[EHacek]rohodnosti", " ", "a", " ", 
    "metody", " ", "moment\[URing]", " ", "nalezn\[EHacek]te", " ", "odhady", 
    " ", "rovnom\[EHacek]rn\[EAcute]", " ", "rozd\[EHacek]len\[IAcute]", " ", 
    "na", " ", "intervalu", " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a", ";", "b"}], ")"}], ".", " ", "Za"}], " ", "parametry", " ",
     "volte", " ", "hodnoty", " ", "a"}], ",", 
   RowBox[{
    RowBox[{"b", ".", " ", "Pou\[ZHacek]ijte"}], " ", 
    "rozd\[EHacek]len\[IAcute]", " ", 
    RowBox[{"UniformDistribution", ".", "\[IndentingNewLine]", "2."}], " ", 
    "Zvolte", " ", "n\[AAcute]hodnou", " ", "veli\[CHacek]inu", " ", 
    "Hypergeometrick\[EAcute]", " ", "rozd\[EHacek]len\[IAcute]", " ", "a", 
    " ", "pomoc\[IAcute]", " ", "obou", " ", "metod", " ", 
    "odhadn\[EHacek]te", " ", "v\[SHacek]echny", " ", "t\[RHacek]i", " ", 
    "parametry", " ", "tohoto", " ", 
    RowBox[{"rozd\[EHacek]len\[IAcute]", ".", " ", "Pou\[ZHacek]ijte"}], " ", 
    "rozd\[EHacek]len\[IAcute]", " ", 
    RowBox[{
    "HypergeometricDistribution", " ", ".", "\[IndentingNewLine]", 
     "V\[ZHacek]dy"}], " ", "si", " ", "vytvo\[RHacek]te", " ", 
    "n\[AAcute]hodn\[AAcute]", " ", "data", " ", 
    "poch\[AAcute]zej\[IAcute]c\[IAcute]", " ", "z", " ", 
    "konkr\[EAcute]tn\[IAcute]ch", " ", 
    RowBox[{"rozd\[EHacek]len\[IAcute]", ".", " ", "Ob\[EHacek]"}], " ", 
    "metody", " ", 
    RowBox[{"porovnejte", "!!"}]}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.8245265098568993`*^9, 3.8245265493547926`*^9}, {
  3.8245265817121954`*^9, 3.8245266680843525`*^9}, {3.8245267402442055`*^9, 
  3.8245268882430897`*^9}},ExpressionUUID->"60ab9794-9a7e-49da-959e-\
2b9732b3e046"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.824526672935686*^9, 3.8245266773925824`*^9}, {
  3.824526839295742*^9, 
  3.8245268474326105`*^9}},ExpressionUUID->"d11c5244-3bd5-4b83-89ef-\
6e65dcc84a81"]
},
WindowSize->{1344, 757},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (March 6, 2018)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 3125, 71, 163, "Input",ExpressionUUID->"f433d415-b370-4c47-87fa-298bf9cf6916"],
Cell[3686, 93, 982, 18, 48, "Input",ExpressionUUID->"9f7b5418-2d4a-4a6c-a2c1-1fd94634ed96"],
Cell[CellGroupData[{
Cell[4693, 115, 450, 12, 28, "Input",ExpressionUUID->"27d480b2-e0aa-4a74-8ba7-418cb392c85d"],
Cell[5146, 129, 1222, 39, 87, "Output",ExpressionUUID->"33674fb6-34b5-4bdf-8274-4b77f8fada73"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6405, 173, 733, 20, 67, "Input",ExpressionUUID->"912307a1-c8b0-4d33-b8ba-fb006d9ec110"],
Cell[7141, 195, 574, 15, 84, "Output",ExpressionUUID->"0cfc43ff-0fe1-42b8-ad05-f5fd8719cb7e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7752, 215, 461, 11, 48, "Input",ExpressionUUID->"2d724306-f049-4fb6-8c12-db2ddb243722"],
Cell[8216, 228, 740, 19, 83, "Output",ExpressionUUID->"b6b56bd3-d1f3-40ec-8b39-73aa2d0e39d1"],
Cell[8959, 249, 1269, 33, 84, "Output",ExpressionUUID->"2076b6e6-aa4e-4dd2-b0fa-ee39f28b4332"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10265, 287, 664, 20, 28, "Input",ExpressionUUID->"949bb01c-79f8-4c88-a07e-085995092c33"],
Cell[10932, 309, 446, 11, 21, "Message",ExpressionUUID->"cf1f8e16-abd1-422c-94e7-5d7b32cbaa75"],
Cell[11381, 322, 519, 14, 32, "Output",ExpressionUUID->"111569c3-4bf1-4705-88e1-6cf6cea6348f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11937, 341, 689, 19, 67, "Input",ExpressionUUID->"447a5a92-74f3-447d-837f-d639ff851d53"],
Cell[12629, 362, 590, 15, 84, "Output",ExpressionUUID->"9b72e939-065d-48a4-9481-6804acd688d5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13256, 382, 596, 19, 28, "Input",ExpressionUUID->"9248bd50-4b3a-4aac-9622-4e1f9aa87421"],
Cell[13855, 403, 448, 11, 21, "Message",ExpressionUUID->"6c458a05-b952-426e-8676-2a3b3716d00c"],
Cell[14306, 416, 352, 9, 21, "Message",ExpressionUUID->"22a15441-f7fb-4d57-a08e-0bac419f777d"],
Cell[14661, 427, 336, 8, 32, "Output",ExpressionUUID->"d3b7ea90-400f-498c-ba67-6a2d64563ff4"]
}, Open  ]],
Cell[15012, 438, 390, 9, 28, "Input",ExpressionUUID->"91dba3ee-d7d5-43c3-b2f6-eddeb0bc78a4"],
Cell[CellGroupData[{
Cell[15427, 451, 224, 4, 28, "Input",ExpressionUUID->"0083acff-5858-4f23-8dac-8ff97668cf80"],
Cell[15654, 457, 730, 21, 60, "Output",ExpressionUUID->"c2a2bc43-b138-44a8-8bbf-861c5e115905"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16421, 483, 416, 10, 48, "Input",ExpressionUUID->"7e2c61a6-d440-42e5-a230-d477ed46c86f"],
Cell[16840, 495, 359, 10, 58, "Output",ExpressionUUID->"92a27f74-74c8-4eea-a870-0c5102b9d37e"],
Cell[17202, 507, 442, 11, 60, "Output",ExpressionUUID->"2c6d13bd-b840-44a6-ad83-4f2363c06653"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17681, 523, 668, 20, 28, "Input",ExpressionUUID->"9433f1d2-7a58-4d0c-8817-28ab96f5694e"],
Cell[18352, 545, 512, 13, 32, "Output",ExpressionUUID->"dd29f4fa-1cf6-4c61-90d3-8adceffa19c6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18901, 563, 688, 19, 67, "Input",ExpressionUUID->"2ddb4d88-8c47-41e2-ad24-5a658d36d520"],
Cell[19592, 584, 765, 19, 113, "Output",ExpressionUUID->"4454ac51-55b8-414d-ba55-701f7011cf4a"]
}, Open  ]],
Cell[20372, 606, 391, 9, 28, "Input",ExpressionUUID->"01486153-8ded-4e6d-ad79-e9b3f4fae07f"],
Cell[CellGroupData[{
Cell[20788, 619, 226, 4, 28, "Input",ExpressionUUID->"f4584218-d992-417b-8896-f21d2f7bda42"],
Cell[21017, 625, 731, 21, 60, "Output",ExpressionUUID->"39152e00-977f-445c-aa30-d20efbbe9ef6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21785, 651, 668, 20, 28, "Input",ExpressionUUID->"5c400b72-d9b6-4f8b-9839-d4470a2e3d89"],
Cell[22456, 673, 515, 13, 32, "Output",ExpressionUUID->"a43cfc43-1f58-4780-9383-9a9e60936bb4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23008, 691, 347, 8, 48, "Input",ExpressionUUID->"aba4c1c6-633f-44c0-bdbc-390db999293c"],
Cell[23358, 701, 480, 11, 23, "Message",ExpressionUUID->"a0fa0bd9-ffbc-4df7-8cd4-be14154ad915"],
Cell[23841, 714, 153, 2, 32, "Output",ExpressionUUID->"7baec781-3441-49b1-bb47-05d8d9844945"]
}, Open  ]],
Cell[24009, 719, 319, 7, 28, "Input",ExpressionUUID->"e2f85138-d965-40e0-9ef1-286845ebd7ca"],
Cell[CellGroupData[{
Cell[24353, 730, 475, 10, 28, "Input",ExpressionUUID->"b98b01e4-986d-4536-b481-8747e750f53c",
 CellID->604475991],
Cell[24831, 742, 2284, 63, 67, "Output",ExpressionUUID->"fabbd328-552d-4f3d-912d-15a063ceb5ad"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27152, 810, 615, 16, 28, "Input",ExpressionUUID->"1ef44743-92fd-4231-9302-9b79331eaee8",
 CellID->529670153],
Cell[27770, 828, 468, 11, 21, "Message",ExpressionUUID->"8399d715-eac1-4f53-9519-6c1a2a927f5b"],
Cell[28241, 841, 375, 10, 55, "Output",ExpressionUUID->"6ad38049-2d11-4af5-8872-c81d838f6b0a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[28653, 856, 234, 4, 28, "Input",ExpressionUUID->"04b094f2-431e-4db9-9855-2dcd484d6519"],
Cell[28890, 862, 2287, 62, 67, "Output",ExpressionUUID->"36932144-0d7b-456b-8464-1d596536a225"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31214, 929, 313, 7, 28, "Input",ExpressionUUID->"ecedb52e-63db-4127-90aa-f49a20454b50"],
Cell[31530, 938, 529, 12, 75, "Output",ExpressionUUID->"0fa5efe0-a6fb-4cd7-867a-f32b7891ece4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[32096, 955, 235, 4, 28, "Input",ExpressionUUID->"df9bfc6e-7e0d-4465-af1f-f5b7b5c85c4a"],
Cell[32334, 961, 316, 6, 36, "Output",ExpressionUUID->"e92951b8-c088-45fc-890f-582240040610"]
}, Open  ]],
Cell[32665, 970, 241, 5, 22, "ExampleDelimiter",ExpressionUUID->"781af79f-a99a-41e4-b88e-a73ebcd6e91c",
 CellID->53982387],
Cell[32909, 977, 211, 2, 23, "ExampleText",ExpressionUUID->"f8d8c8d6-3977-4a5d-913d-6c11b6030cf3",
 CellID->329434113],
Cell[33123, 981, 381, 9, 28, "Input",ExpressionUUID->"32dde303-12a6-433d-a646-cacd3b4e5723",
 CellID->149554209],
Cell[33507, 992, 385, 10, 28, "Input",ExpressionUUID->"f8008aed-cfe8-4b7b-84af-1b82b83b30ef",
 CellID->281627052],
Cell[33895, 1004, 223, 3, 23, "ExampleText",ExpressionUUID->"396aad64-d7de-46d8-bd23-db87a58061af",
 CellID->427264207],
Cell[CellGroupData[{
Cell[34143, 1011, 444, 12, 28, "Input",ExpressionUUID->"f1bbb492-5cfd-4887-8b9d-2ef712a3a9d4",
 CellID->285613921],
Cell[34590, 1025, 304, 7, 32, "Output",ExpressionUUID->"a6e3bf95-3cce-4f37-9a14-0f025a464e44"]
}, Open  ]],
Cell[34909, 1035, 198, 2, 23, "ExampleText",ExpressionUUID->"5a47a705-14fc-4330-9455-4a9d3ef32e5c",
 CellID->345164129],
Cell[CellGroupData[{
Cell[35132, 1041, 818, 23, 28, "Input",ExpressionUUID->"02468ca0-d56a-4d9f-8bba-7d525666f0fb",
 CellID->672579524],
Cell[35953, 1066, 13443, 258, 153, "Output",ExpressionUUID->"fa1a0107-42ef-468e-9b1e-c63f423cfc98"]
}, Open  ]],
Cell[49411, 1327, 287, 6, 34, "Text",ExpressionUUID->"01a3a0aa-d03c-4f02-8f6f-0e7ba7659ad9"],
Cell[49701, 1335, 741, 20, 67, "Input",ExpressionUUID->"2fe0e67f-dff5-4aea-b567-6a13be31192f",
 CellID->334092744],
Cell[CellGroupData[{
Cell[50467, 1359, 374, 8, 28, "Input",ExpressionUUID->"848b1798-7d80-470a-a6a9-ad2657f8f336"],
Cell[50844, 1369, 591, 13, 23, "Message",ExpressionUUID->"df872a9b-cd3d-4f64-b88c-6ac4dac203f2"],
Cell[51438, 1384, 381, 9, 32, "Output",ExpressionUUID->"d704079d-fa9c-4a43-897e-6c68ff1a5ca4"]
}, Open  ]],
Cell[51834, 1396, 218, 4, 34, "Text",ExpressionUUID->"af17d42b-fffb-4e19-a8d6-967f8224e99e"],
Cell[52055, 1402, 638, 15, 48, "Input",ExpressionUUID->"08f1b077-36ef-4ef8-83e0-1689ed64df29",
 CellID->156271915],
Cell[52696, 1419, 256, 4, 34, "Text",ExpressionUUID->"c53fa61a-300d-4687-abaf-f244ef08754d"],
Cell[CellGroupData[{
Cell[52977, 1427, 265, 4, 28, "Input",ExpressionUUID->"6ff2ec4d-862d-49f4-8908-60fe5340c633"],
Cell[53245, 1433, 276, 5, 32, "Output",ExpressionUUID->"40320c57-8cf3-4498-891b-3fd74544c3fd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[53558, 1443, 298, 5, 28, "Input",ExpressionUUID->"4820953e-54b5-47dc-aa27-ecca0f6b68f7"],
Cell[53859, 1450, 228, 4, 32, "Output",ExpressionUUID->"2b1daa04-bd8b-4627-b0fd-43fe16102fa5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[54124, 1459, 878, 23, 28, "Input",ExpressionUUID->"b04db120-cb57-4dd9-8e1b-36b2fc18ab5c",
 CellID->638416754],
Cell[55005, 1484, 464, 10, 24, "Message",ExpressionUUID->"c368b4e9-db79-4980-a1e2-d890a89a206f"],
Cell[55472, 1496, 466, 10, 24, "Message",ExpressionUUID->"c8585fb9-6448-4a7b-a37e-c5ce16d5c00d"],
Cell[55941, 1508, 464, 10, 24, "Message",ExpressionUUID->"bced80fa-3ba6-43cc-b289-fcd4f3040500"],
Cell[56408, 1520, 470, 10, 21, "Message",ExpressionUUID->"f32732b7-d3fe-43a6-84ef-bf90fd0242db"],
Cell[56881, 1532, 17572, 350, 228, "Output",ExpressionUUID->"c8123fcd-44eb-4850-bb17-078b1889b136"]
}, Open  ]],
Cell[74468, 1885, 836, 15, 48, "Input",ExpressionUUID->"e68d6592-484b-494d-97bc-2feb8d0e0b90"],
Cell[CellGroupData[{
Cell[75329, 1904, 305, 7, 28, "Input",ExpressionUUID->"c9474539-0011-49a6-9768-e1931bbef66a",
 CellID->113039888],
Cell[75637, 1913, 240, 5, 32, "Output",ExpressionUUID->"8f9d17d3-8f01-4695-a48a-1d5f0aff82c9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[75914, 1923, 353, 7, 28, "Input",ExpressionUUID->"1eaed234-b398-434b-ab99-4876343bee43"],
Cell[76270, 1932, 253, 5, 32, "Output",ExpressionUUID->"798924f6-8a30-4fc8-a9d5-1317f7e804f4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[76560, 1942, 352, 7, 28, "Input",ExpressionUUID->"022ffffb-414f-49cd-8621-133e05065319"],
Cell[76915, 1951, 311, 8, 36, "Output",ExpressionUUID->"7205b4a1-0e01-4dfa-87fc-db875c890716"]
}, Open  ]],
Cell[CellGroupData[{
Cell[77263, 1964, 453, 11, 48, "Input",ExpressionUUID->"b6b9af2a-e7aa-4d52-922b-038eedd228f0"],
Cell[77719, 1977, 167, 2, 32, "Output",ExpressionUUID->"d53fa09c-f33c-4597-948e-8e76fa917dd4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[77923, 1984, 232, 4, 28, "Input",ExpressionUUID->"dba742c1-909b-4afb-bb6a-59310ca458b2"],
Cell[78158, 1990, 165, 2, 32, "Output",ExpressionUUID->"e425fb48-0e85-4c00-8abc-1055e7e199d4"]
}, Open  ]],
Cell[78338, 1995, 174, 3, 34, "Text",ExpressionUUID->"070490c4-649c-4837-8fa3-289ed49176d8"],
Cell[CellGroupData[{
Cell[78537, 2002, 933, 25, 48, "Input",ExpressionUUID->"bef05214-6492-4343-96fd-b72dc51dfe55"],
Cell[79473, 2029, 517, 14, 32, "Output",ExpressionUUID->"b9788856-9c00-47ab-a176-be64a86f385e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[80027, 2048, 1184, 32, 67, "Input",ExpressionUUID->"74054684-1cf6-41b1-955b-54d6f4a31f32"],
Cell[81214, 2082, 544, 14, 32, "Output",ExpressionUUID->"249b76c7-c1cd-4846-8fa3-16e1f6559d1a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[81795, 2101, 1186, 32, 67, "Input",ExpressionUUID->"5efa2ee2-e4d1-4cd8-80ad-9adf88186319"],
Cell[82984, 2135, 514, 14, 32, "Output",ExpressionUUID->"4b0e102e-9c13-4768-ac2f-4ab4612131e6"]
}, Open  ]],
Cell[83513, 2152, 203, 3, 34, "Text",ExpressionUUID->"8db47b77-f329-441d-9407-26852f8db7ec"],
Cell[CellGroupData[{
Cell[83741, 2159, 1036, 27, 86, "Input",ExpressionUUID->"b9287c3e-0d14-4930-9dae-ff60f6b1a727"],
Cell[84780, 2188, 250, 5, 55, "Output",ExpressionUUID->"bb061793-5beb-447d-8008-5852524863e2"],
Cell[85033, 2195, 224, 4, 32, "Output",ExpressionUUID->"e6ee1193-7ba4-4ead-b851-f650ef31ead6"],
Cell[85260, 2201, 305, 7, 32, "Output",ExpressionUUID->"3c4bd44b-f35c-4a02-8a41-98f642d44619"]
}, Open  ]],
Cell[85580, 2211, 236, 4, 34, "Text",ExpressionUUID->"98473d71-0f6e-405b-84ce-82dfc2baf026"],
Cell[CellGroupData[{
Cell[85841, 2219, 1899, 49, 143, "Input",ExpressionUUID->"61924e33-79c2-4b5c-a96c-aabf7108f731"],
Cell[87743, 2270, 179, 4, 55, "Output",ExpressionUUID->"8c562dbc-ba1f-4355-bf9f-19a7c427aa87"],
Cell[87925, 2276, 178, 4, 55, "Output",ExpressionUUID->"6a303184-548f-44f8-af95-6900baac5cf0"],
Cell[88106, 2282, 174, 4, 32, "Output",ExpressionUUID->"6cccf305-4a3f-4910-beb4-0ed147980e8d"],
Cell[88283, 2288, 329, 10, 32, "Output",ExpressionUUID->"8a158465-1bb9-4e5d-a376-6917c6fbe5ee"],
Cell[88615, 2300, 320, 8, 32, "Output",ExpressionUUID->"32dd5b58-db51-4ee6-af4e-7530eb017f40"]
}, Open  ]],
Cell[88950, 2311, 239, 4, 34, "Text",ExpressionUUID->"16217853-e194-4f53-b90f-0d471df9bf35"],
Cell[CellGroupData[{
Cell[89214, 2319, 1147, 28, 86, "Input",ExpressionUUID->"7c6ff8bc-9ffa-4de1-81fc-1d2ee335f1fe"],
Cell[90364, 2349, 195, 3, 32, "Output",ExpressionUUID->"083c8d0e-c625-456f-95f6-78be58007a4d"],
Cell[90562, 2354, 196, 4, 55, "Output",ExpressionUUID->"75b50ff7-db5c-4083-9345-d7a86f566354"],
Cell[90761, 2360, 272, 6, 32, "Output",ExpressionUUID->"95b55575-c580-4baf-8e9b-f2ee28cedefc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[91070, 2371, 1203, 29, 86, "Input",ExpressionUUID->"102f67af-3a60-41f6-944b-d5da4ff82d33"],
Cell[92276, 2402, 171, 3, 32, "Output",ExpressionUUID->"0b4bb0ee-215a-4ff0-b671-eefd17d4dbf2"],
Cell[92450, 2407, 173, 4, 55, "Output",ExpressionUUID->"51c8f246-7b66-4a2f-8a76-523c11165ace"],
Cell[92626, 2413, 248, 6, 32, "Output",ExpressionUUID->"220b44d2-ae84-444a-afdb-9a14d51fdbf9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[92911, 2424, 1200, 29, 86, "Input",ExpressionUUID->"d1fbeed4-3086-4990-a9c6-299c5b6fd6d8"],
Cell[94114, 2455, 171, 3, 32, "Output",ExpressionUUID->"0dffdd67-b082-4813-bb11-be97282f7cf7"],
Cell[94288, 2460, 173, 4, 55, "Output",ExpressionUUID->"ab80e321-174a-42d0-b1a9-809aca1ae860"],
Cell[94464, 2466, 246, 6, 32, "Output",ExpressionUUID->"f0f35880-63e0-4272-967c-7208fafb9694"]
}, Open  ]],
Cell[94725, 2475, 175, 3, 34, "Text",ExpressionUUID->"a91dd667-3d14-4c12-b208-010eced3163c"],
Cell[94903, 2480, 1862, 36, 105, "Input",ExpressionUUID->"60ab9794-9a7e-49da-959e-2b9732b3e046"],
Cell[96768, 2518, 205, 4, 28, "Input",ExpressionUUID->"d11c5244-3bd5-4b83-89ef-6e65dcc84a81"]
}
]
*)