(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     24394,        585]
NotebookOptionsPosition[     22431,        554]
NotebookOutlinePosition[     22909,        571]
CellTagsIndexPosition[     22866,        568]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Dluhopisy", "=", 
      RowBox[{
      "Import", "[", 
       "\"\<https://www.pse.cz/udaje-o-trhu/dluhove-cenne-papiry/verejny-\
sektor\>\"", "]"}]}], ";"}], "//", "Timing"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.4762995647699366`*^9, 3.4762996246963644`*^9}, {
   3.476299665341689*^9, 3.4762996674218082`*^9}, {3.476299898790042*^9, 
   3.476299914111918*^9}, {3.476299960281559*^9, 3.4762999852039843`*^9}, {
   3.4763000483405952`*^9, 3.476300076708218*^9}, 3.4763003344069576`*^9, {
   3.476300619863285*^9, 3.4763006410254955`*^9}, {3.47630079933755*^9, 
   3.4763008203267508`*^9}, {3.4772281322498655`*^9, 
   3.4772281351980343`*^9}, {3.4772282916109805`*^9, 
   3.4772282923650236`*^9}, {3.477228351623413*^9, 3.4772283567777076`*^9}, 
   3.477228414477008*^9, {3.4772284538222585`*^9, 3.4772284735843887`*^9}, {
   3.477230213530908*^9, 3.47723022824675*^9}, 3.4772307292864075`*^9, {
   3.477230875108748*^9, 3.477230883862249*^9}, {3.4773862033099284`*^9, 
   3.4773862342817*^9}, 3.4779243103687644`*^9, 3.477929561886134*^9, 
   3.4779296383205056`*^9, 3.4779363032687187`*^9, {3.50934131903125*^9, 
   3.509341336515625*^9}, {3.860470913306759*^9, 3.8604709333269873`*^9}, 
   3.8604709854539757`*^9, 3.860471064788063*^9, {3.8604712046451283`*^9, 
   3.86047120894591*^9}},
 CellLabel->"In[97]:=",ExpressionUUID->"e35cef1b-0f46-458f-bf91-405041000c8f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Dluhopisy", "=", 
   RowBox[{"StringReplace", "[", 
    RowBox[{"Dluhopisy", ",", 
     RowBox[{"{", 
      RowBox[{"\"\< \>\"", "\[Rule]", "\"\<\>\""}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Dluhopisy", "=", 
   RowBox[{"StringReplace", "[", 
    RowBox[{"Dluhopisy", ",", 
     RowBox[{"{", 
      RowBox[{"\"\<\\n\>\"", "\[Rule]", "\"\<\>\""}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"pozice", "=", 
    RowBox[{"StringPosition", "[", 
     RowBox[{"Dluhopisy", ",", 
      RowBox[{"{", "\"\<ST.DLUHOP.\>\"", "}"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"cisloObligace", "=", 
     RowBox[{
      RowBox[{"17", " ", "dod\[AAcute]no"}], " ", "-", "4"}]}], ",", " ", 
    RowBox[{
     RowBox[{
     "aby", " ", "vypadl", " ", "popsledn\[IAcute]", " ", "dluhopis", " ", 
      "s", " ", "prom\[EHacek]nn\[YAcute]m", " ", "\[UAcute]rokem"}], ";"}]}],
    "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pocetDluhopisu", "=", 
   RowBox[{
    RowBox[{"Length", "[", "pozice", "]"}], "-", "4"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"dluhopis1Urok", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"StringTake", "[", 
     RowBox[{"Dluhopisy", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"pozice", "[", 
           RowBox[{"[", "cisloObligace", "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], "+", "10"}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"pozice", "[", 
           RowBox[{"[", "cisloObligace", "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], "+", "13"}]}], "}"}]}], "]"}], ",", 
    
    RowBox[{"{", 
     RowBox[{"cisloObligace", ",", "1", ",", "pocetDluhopisu"}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dluhopis1Urok", "=", 
   RowBox[{"StringReplace", "[", 
    RowBox[{"dluhopis1Urok", ",", 
     RowBox[{"{", 
      RowBox[{"\"\<,\>\"", "\[Rule]", "\"\<.\>\""}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"dluhopis1Rok", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"StringTake", "[", 
     RowBox[{"Dluhopisy", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"pozice", "[", 
           RowBox[{"[", "cisloObligace", "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], "+", "15"}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"pozice", "[", 
           RowBox[{"[", "cisloObligace", "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], "+", "16"}]}], "}"}]}], "]"}], ",", 
    
    RowBox[{"{", 
     RowBox[{"cisloObligace", ",", "1", ",", "pocetDluhopisu"}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"dluhopis1ISIN", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"StringTake", "[", 
     RowBox[{"Dluhopisy", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"pozice", "[", 
           RowBox[{"[", "cisloObligace", "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], "+", "17"}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"pozice", "[", 
           RowBox[{"[", "cisloObligace", "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], "+", "28"}]}], "}"}]}], "]"}], ",", 
    
    RowBox[{"{", 
     RowBox[{"cisloObligace", ",", "1", ",", "pocetDluhopisu"}], "}"}]}], 
   "]"}]}]}], "Input",
 CellChangeTimes->{{3.477932119249407*^9, 3.477932159011681*^9}, {
   3.4779321922925844`*^9, 3.4779322035742297`*^9}, {3.477932278213499*^9, 
   3.477932305941085*^9}, {3.4779324148443136`*^9, 3.477932601720002*^9}, {
   3.477932671467992*^9, 3.477932678730407*^9}, {3.477932748055372*^9, 
   3.477932768130521*^9}, {3.4779329388452845`*^9, 3.4779330880158167`*^9}, {
   3.477933119981645*^9, 3.4779331733987007`*^9}, {3.477933996793796*^9, 
   3.4779340779524384`*^9}, {3.4779341199898424`*^9, 3.47793416418137*^9}, {
   3.477934201277492*^9, 3.4779342063297806`*^9}, {3.477934278018881*^9, 
   3.477934308107602*^9}, {3.477934547914318*^9, 3.4779346084587812`*^9}, {
   3.477934650084162*^9, 3.4779346903004627`*^9}, {3.477936003777589*^9, 
   3.4779360226136665`*^9}, 3.4779360794469175`*^9, {3.4779363641392*^9, 
   3.4779364262717543`*^9}, {3.4785116813946686`*^9, 3.478511683313472*^9}, {
   3.47851184747256*^9, 3.478511848860963*^9}, 3.482218828109316*^9, {
   3.4822189163213615`*^9, 3.4822189517013845`*^9}, {3.482219030279879*^9, 
   3.4822190370292654`*^9}, {3.482219842026375*^9, 3.4822199409617486`*^9}, {
   3.482219979482174*^9, 3.4822200695853276`*^9}, {3.482220173752286*^9, 
   3.482220234092737*^9}, {3.4822202677756634`*^9, 3.4822203190565968`*^9}, {
   3.4822206107832823`*^9, 3.482220632475523*^9}, {3.541389725109375*^9, 
   3.541389732328125*^9}, {3.541390046421875*^9, 3.54139007015625*^9}, {
   3.860471258520525*^9, 3.860471265997238*^9}, 3.860551885875927*^9, {
   3.860551925501202*^9, 3.860551942711677*^9}},
 CellLabel->
  "In[100]:=",ExpressionUUID->"b1c214d6-3a57-4049-86ad-c043b73bf7c7"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"PV", "[", 
    RowBox[{"urok_", ",", "nominal_", ",", "doba_", ",", "diskont_"}], "]"}], 
   ":=", 
   RowBox[{
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"i", "=", "1"}], "doba"], 
     RowBox[{"(", 
      FractionBox[
       RowBox[{"nominal", "*", "urok"}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", "diskont"}], ")"}], "i"]], ")"}]}], "+", 
    FractionBox["nominal", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", "diskont"}], ")"}], "doba"]]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nominale", "=", "10000"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"urok", "=", 
   RowBox[{
    RowBox[{"ToExpression", "[", "dluhopis1Urok", "]"}], "/", "100"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"diskont", "=", 
    RowBox[{"3.5", "/", "100"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"doba", "=", 
    RowBox[{
     RowBox[{"ToExpression", "[", "dluhopis1Rok", "]"}], "-", 
     RowBox[{
      RowBox[{"DateList", "[", "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}], "+", "2000", "+", "1"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"vysledekAbs", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"PV", "[", 
      RowBox[{
       RowBox[{"urok", "[", 
        RowBox[{"[", "i", "]"}], "]"}], ",", "nominale", ",", 
       RowBox[{"doba", " ", "[", 
        RowBox[{"[", "i", "]"}], "]"}], ",", "diskont"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "pocetDluhopisu"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"vysledek", "=", 
   RowBox[{"vysledekAbs", "/", "nominale"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tabulkaPopis", "=", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
     "\"\<K\[OAcute]d\>\"", ",", "\"\<Rok splacen\[IAcute]\>\"", ",", 
      "\"\<\[CapitalUAcute]rok [%]\>\"", ",", 
      "\"\<V\[YAcute]nos proti nomin\[AAcute]le po pepo\[CHacek]tu na \
PV\\n(nebere v podtaz p\[RHacek]esn\[EAcute] datum v\[YAcute]platy kup\
\[OAcute]nu)\>\""}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"tabulka", "=", 
    RowBox[{"Join", "[", 
     RowBox[{"tabulkaPopis", ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"dluhopis1ISIN", "[", 
           RowBox[{"[", "i", "]"}], "]"}], ",", 
          RowBox[{"\"\<20\>\"", "~~", 
           RowBox[{"dluhopis1Rok", "[", 
            RowBox[{"[", "i", "]"}], "]"}]}], ",", 
          RowBox[{"dluhopis1Urok", "[", 
           RowBox[{"[", "i", "]"}], "]"}], ",", 
          RowBox[{"vysledek", "[", 
           RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", "pocetDluhopisu"}], "}"}]}], "]"}]}], 
     "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Grid", "[", 
  RowBox[{"tabulka", ",", 
   RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.4779245389658394`*^9, 3.477924603155511*^9}, {
   3.4779246558185225`*^9, 3.477924777903506*^9}, {3.477924842347192*^9, 
   3.477924868385681*^9}, {3.477925027255768*^9, 3.477925042137619*^9}, {
   3.4779253256208334`*^9, 3.477925344323903*^9}, 3.4779254064124546`*^9, {
   3.4779256186455936`*^9, 3.4779256245189295`*^9}, {3.477925745063824*^9, 
   3.4779257615847692`*^9}, {3.477925818695036*^9, 3.477925846132605*^9}, {
   3.4779259583520236`*^9, 3.477925986668643*^9}, {3.4779260241557875`*^9, 
   3.4779262651705723`*^9}, {3.477926487043263*^9, 3.477926488634354*^9}, {
   3.477926562067554*^9, 3.4779265734972076`*^9}, {3.477926655097875*^9, 
   3.477926696371236*^9}, {3.4779267946218557`*^9, 3.477926800424187*^9}, {
   3.477926894564572*^9, 3.477926895779641*^9}, 3.4779274394967403`*^9, {
   3.4779276473486285`*^9, 3.4779276606703906`*^9}, 3.4779277650283594`*^9, {
   3.4779278013824387`*^9, 3.4779278280279627`*^9}, {3.477927926072571*^9, 
   3.4779279298587875`*^9}, {3.477927981900764*^9, 3.477928068998746*^9}, {
   3.4779283178369784`*^9, 3.477928364100624*^9}, {3.47792839724152*^9, 
   3.477928419919817*^9}, {3.477928688853199*^9, 3.4779286909573193`*^9}, {
   3.477929152844738*^9, 3.47792932928583*^9}, {3.477929397162712*^9, 
   3.4779294181629133`*^9}, {3.477929467208719*^9, 3.477929545290185*^9}, {
   3.4779343159660516`*^9, 3.477934356746384*^9}, {3.477934420644039*^9, 
   3.4779344419982605`*^9}, {3.47793470581835*^9, 3.4779347468926992`*^9}, 
   3.477935047467891*^9, {3.4779351673417473`*^9, 3.47793520042264*^9}, {
   3.4779352410819654`*^9, 3.4779352474803314`*^9}, {3.477935329189005*^9, 
   3.4779354441655807`*^9}, {3.4779355134955463`*^9, 3.47793560761493*^9}, {
   3.4779357070556173`*^9, 3.4779357657819767`*^9}, {3.4779359223109293`*^9, 
   3.477935966012429*^9}, {3.477936028776019*^9, 3.4779360522193594`*^9}, {
   3.477936089709504*^9, 3.4779361221343584`*^9}, {3.4779361693140574`*^9, 
   3.477936180749711*^9}, {3.4779364385254555`*^9, 3.4779364474719667`*^9}, {
   3.4785118255857215`*^9, 3.478511862713787*^9}, {3.4822193714783945`*^9, 
   3.482219378882818*^9}, {3.482220334307469*^9, 3.4822203611880064`*^9}, {
   3.482220394942937*^9, 3.4822205988265986`*^9}, {3.482220638667877*^9, 
   3.4822206400309553`*^9}, {3.4822206707077103`*^9, 
   3.4822209495126567`*^9}, {3.4822210974851203`*^9, 
   3.4822213567369485`*^9}, {3.4822214570345817`*^9, 3.482221475399632*^9}, {
   3.4822215699770412`*^9, 3.4822216133375216`*^9}, {3.51028755553125*^9, 
   3.51028755584375*^9}},
 CellLabel->
  "In[108]:=",ExpressionUUID->"bad19d0f-48e4-4bfe-8f41-44e322d9db3c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"Dopracov\[AAcute]no", " ", "3.", " ", "5.", " ", "2022"}], " ", 
     "-", " ", 
     RowBox[{
     "p\[RHacek]id\[AAcute]n", " ", "v\[YAcute]nos", " ", "do", " ", "doby", 
      " ", "splacen\[IAcute]"}]}], ",", " ", 
    RowBox[{"doba", " ", "do", " ", "splacen\[IAcute]"}], ",", " ", 
    RowBox[{
    "v\[YAcute]nosov\[AAcute]", " ", "k\[RHacek]ivka", " ", 
     "dluhopis\[URing]", "   ", "pracuje", " ", "k", " ", 
     "aktu\[AAcute]ln\[IAcute]mu", " ", "roku"}]}], " ", "*)"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.509341476484375*^9, 3.509341534171875*^9}, {
   3.509341599140625*^9, 3.50934165821875*^9}, {3.509341729265625*^9, 
   3.509341734375*^9}, 3.5093421583125*^9, {3.8604715821151247`*^9, 
   3.8604715956222267`*^9}, {3.86055300594131*^9, 3.860553036232279*^9}, {
   3.924760654075149*^9, 
   3.924760659988098*^9}},ExpressionUUID->"65adedd4-b84e-4350-b92c-\
faad97d36337"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dluhopis1Kurz", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"StringTake", "[", 
      RowBox[{"Dluhopisy", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"pozice", "[", 
            RowBox[{"[", "cisloObligace", "]"}], "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}], "+", "29"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"pozice", "[", 
            RowBox[{"[", "cisloObligace", "]"}], "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}], "+", "34"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"cisloObligace", ",", "1", ",", "pocetDluhopisu"}], "}"}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dluhopis1Kurz", "=", 
   RowBox[{"StringReplace", "[", 
    RowBox[{"dluhopis1Kurz", ",", 
     RowBox[{"{", 
      RowBox[{"\"\<,\>\"", "\[Rule]", "\"\<.\>\""}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dluhopis1Kurz", "=", 
   RowBox[{"ToExpression", "[", 
    RowBox[{"StringReplace", "[", 
     RowBox[{"dluhopis1Kurz", ",", 
      RowBox[{"{", 
       RowBox[{"\"\<%\>\"", "\[Rule]", "\"\<\>\""}], "}"}]}], "]"}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.509341752546875*^9, 3.5093417560625*^9}, {
  3.5093418229375*^9, 3.509341830296875*^9}, {3.50934203290625*^9, 
  3.50934214053125*^9}, {3.509343748671875*^9, 3.5093437581875*^9}, {
  3.509347061953125*^9, 3.50934706915625*^9}, {3.86055205958727*^9, 
  3.860552089362969*^9}, {3.860552131579341*^9, 3.860552140489047*^9}},
 CellLabel->
  "In[118]:=",ExpressionUUID->"7ecce75d-e163-43e0-b08d-613d20b442bb"],

Cell[BoxData[""], "Input",ExpressionUUID->"49f2813b-e542-487d-bc2e-4ec7319171f0"],

Cell[BoxData[
 RowBox[{"vysledekYTM", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"NSolve", "[", 
     RowBox[{
      RowBox[{"Reduce", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"dluhopis1Kurz", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "==", 
         RowBox[{"PV", "[", 
          RowBox[{
           RowBox[{"urok", "[", 
            RowBox[{"[", "i", "]"}], "]"}], ",", "100", ",", 
           RowBox[{"doba", " ", "[", 
            RowBox[{"[", "i", "]"}], "]"}], ",", "dis"}], "]"}]}], ",", "dis",
         ",", "Reals"}], "]"}], ",", "dis"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", "pocetDluhopisu"}], "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.50934217315625*^9, 3.509342248578125*^9}, 
   3.509342280078125*^9, {3.50934241946875*^9, 3.509342431046875*^9}, {
   3.50934248515625*^9, 3.5093424915*^9}, {3.510287399828125*^9, 
   3.5102874126875*^9}, {3.5102874973125*^9, 3.51028750296875*^9}},
 CellLabel->
  "In[121]:=",ExpressionUUID->"37510b22-5bca-43a9-b0c0-bf094e50ad74"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Map", "[", 
   RowBox[{"Positive", ",", "vysledekYTM", ",", 
    RowBox[{"{", "4", "}"}]}], "]"}], " "}]], "Input",
 CellChangeTimes->{{3.509345480484375*^9, 3.509345589515625*^9}, {
  3.50934569703125*^9, 3.50934579009375*^9}},
 CellLabel->
  "In[122]:=",ExpressionUUID->"6f66fe1d-bd05-401b-8c77-3018ab96ccf5"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.509345816765625*^9, 3.509345833046875*^9}, {
   3.509345870984375*^9, 3.509345886234375*^9}, 
   3.509345927078125*^9},ExpressionUUID->"db7bf24a-5319-444c-b701-\
a575da845e97"],

Cell[BoxData[
 RowBox[{"disPos", "=", 
  RowBox[{"Select", "[", 
   RowBox[{
    RowBox[{"Flatten", "[", "vysledekYTM", "]"}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"#", "[", 
       RowBox[{"[", "2", "]"}], "]"}], ">", "0"}], "&"}]}], "]"}]}]], "Input",\

 CellChangeTimes->{{3.510286662875*^9, 3.510286748734375*^9}, {
   3.510286787265625*^9, 3.51028678865625*^9}, {3.5102868353125*^9, 
   3.510286965*^9}, {3.510287176640625*^9, 3.5102872736875*^9}, 
   3.510287454984375*^9, {3.5102877891875*^9, 3.5102877998125*^9}},
 CellLabel->
  "In[123]:=",ExpressionUUID->"48169c50-01e7-4490-ada9-730ecbeea565"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"pocetDluhopisu", "=", 
   RowBox[{"pocetDluhopisu", "-", "2"}]}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "ubrat", " ", "po\[CHacek]et", " ", "o", " ", "ty", " ", "s", " ", 
    RowBox[{"var", ".", " ", "\[UAcute]rokem"}]}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"doba", "=", 
  RowBox[{"Drop", "[", 
   RowBox[{"doba", ",", 
    RowBox[{"-", "2"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"disPos", "[", 
       RowBox[{"[", 
        RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", 
      RowBox[{"doba", "[", 
       RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "pocetDluhopisu"}], "}"}]}], "]"}], " "}]}], "Input",
 CellChangeTimes->{{3.510287620625*^9, 3.51028762421875*^9}, 
   3.51028786890625*^9, {3.51028794203125*^9, 3.510287972890625*^9}, {
   3.510288270625*^9, 3.510288444046875*^9}, {3.8605523438486233`*^9, 
   3.8605523676079397`*^9}, {3.8605526244172373`*^9, 3.860552690081459*^9}, 
   3.860552843726508*^9, {3.860552897090217*^9, 3.860552924140442*^9}},
 CellLabel->
  "In[124]:=",ExpressionUUID->"98a2d302-83f7-4d2b-8359-0a6a997912ae"],

Cell[BoxData[
 RowBox[{"urok", "=", 
  RowBox[{"Thread", "[", 
   RowBox[{"{", 
    RowBox[{"doba", ",", 
     RowBox[{"disPos", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"1", ";;", "pocetDluhopisu"}], ",", "2"}], "]"}], "]"}]}], 
    "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.510288501609375*^9, 3.5102885308125*^9}, {
  3.5102886041875*^9, 3.510288680078125*^9}, {3.510288844890625*^9, 
  3.510288861640625*^9}, {3.5102889804375*^9, 3.510288990640625*^9}, {
  3.510289450046875*^9, 3.51028946515625*^9}},
 CellLabel->
  "In[127]:=",ExpressionUUID->"f2c939ef-d1d6-4b4e-81a6-7a35ae653e40"],

Cell[BoxData[
 RowBox[{"urok", "=", 
  RowBox[{"Sort", "[", "urok", "]"}]}]], "Input",
 CellChangeTimes->{{3.510288993640625*^9, 3.510288997046875*^9}, {
  3.51028913025*^9, 3.51028913690625*^9}, {3.51028923115625*^9, 
  3.510289233046875*^9}, {3.510289472734375*^9, 3.51028947871875*^9}},
 CellLabel->
  "In[128]:=",ExpressionUUID->"aa22f406-defa-4164-a41d-ec3f033b3130"],

Cell[BoxData[
 RowBox[{"ListPlot", "[", "urok", "]"}]], "Input",
 CellChangeTimes->{{3.510289174*^9, 3.510289174578125*^9}, {
  3.510289218578125*^9, 3.510289239140625*^9}, {3.510289283296875*^9, 
  3.5102892875625*^9}, {3.51028941115625*^9, 3.51028943725*^9}, {
  3.5102894851875*^9, 3.510289486390625*^9}},
 CellLabel->
  "In[129]:=",ExpressionUUID->"9e5fe41a-3f80-4914-a347-1bca8c5f976e"],

Cell[BoxData[
 RowBox[{"mmm", "=", 
  RowBox[{"NonlinearModelFit", "[", 
   RowBox[{"urok", ",", 
    RowBox[{"a", " ", "+", "   ", 
     SuperscriptBox["x", "b"]}], ",", 
    RowBox[{"{", 
     RowBox[{"a", ",", "b"}], "}"}], ",", "x"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.51028981025*^9, 3.5102899505625*^9}, {
  3.510290095453125*^9, 3.510290097203125*^9}, {3.5102901751875*^9, 
  3.510290192640625*^9}, {3.51029035821875*^9, 3.51029039953125*^9}, {
  3.51029043109375*^9, 3.51029043690625*^9}, {3.5102905006875*^9, 
  3.510290589328125*^9}, {3.5102909076875*^9, 3.510290932203125*^9}, {
  3.510290973890625*^9, 3.51029100384375*^9}, {3.541390288078125*^9, 
  3.541390301*^9}, {3.541390340703125*^9, 3.5413904041875*^9}},
 CellLabel->
  "In[130]:=",ExpressionUUID->"1b61b5de-6cb6-4bab-9646-b05c5d7355ca"],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", "urok", "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"mmm", "[", "x", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "1", ",", 
       RowBox[{"urok", "[", 
        RowBox[{"[", 
         RowBox[{"pocetDluhopisu", ",", "1"}], "]"}], "]"}]}], "}"}]}], "]"}],
    ",", 
   RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.510290634984375*^9, 3.51029064928125*^9}, {
  3.510290681640625*^9, 3.51029068971875*^9}, {3.510290754390625*^9, 
  3.5102907679375*^9}, {3.51029081671875*^9, 3.510290879046875*^9}},
 CellLabel->
  "In[131]:=",ExpressionUUID->"1285c5a5-0c36-4fcc-ae6d-84148405e563"],

Cell[BoxData[
 RowBox[{"mmm", "[", "15", "]"}]], "Input",
 CellChangeTimes->{{3.541390109078125*^9, 3.54139016675*^9}},
 CellLabel->
  "In[132]:=",ExpressionUUID->"ec101324-833c-4e1e-a4b4-a35122bc5dd4"]
},
WindowSize->{1320, 931},
WindowMargins->{{Automatic, -32}, {1219, Automatic}},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
FrontEndVersion->"13.2 for Mac OS X x86 (64-bit) (January 30, 2023)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"e8778970-677f-4ee3-ac4d-c6dd826b6202"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 1516, 27, 94, "Input",ExpressionUUID->"e35cef1b-0f46-458f-bf91-405041000c8f"],
Cell[2064, 49, 5196, 129, 241, "Input",ExpressionUUID->"b1c214d6-3a57-4049-86ad-c043b73bf7c7"],
Cell[7263, 180, 5769, 128, 316, "Input",ExpressionUUID->"bad19d0f-48e4-4bfe-8f41-44e322d9db3c"],
Cell[13035, 310, 1018, 22, 73, "Input",ExpressionUUID->"65adedd4-b84e-4350-b92c-faad97d36337"],
Cell[14056, 334, 1678, 43, 73, "Input",ExpressionUUID->"7ecce75d-e163-43e0-b08d-613d20b442bb"],
Cell[15737, 379, 81, 0, 30, "Input",ExpressionUUID->"49f2813b-e542-487d-bc2e-4ec7319171f0"],
Cell[15821, 381, 1050, 26, 30, "Input",ExpressionUUID->"37510b22-5bca-43a9-b0c0-bf094e50ad74"],
Cell[16874, 409, 346, 8, 30, "Input",ExpressionUUID->"6f66fe1d-bd05-401b-8c77-3018ab96ccf5"],
Cell[17223, 419, 225, 4, 30, "Input",ExpressionUUID->"db7bf24a-5319-444c-b701-a575da845e97"],
Cell[17451, 425, 614, 15, 30, "Input",ExpressionUUID->"48169c50-01e7-4490-ada9-730ecbeea565"],
Cell[18068, 442, 1233, 31, 73, "Input",ExpressionUUID->"98a2d302-83f7-4d2b-8359-0a6a997912ae"],
Cell[19304, 475, 611, 15, 30, "Input",ExpressionUUID->"f2c939ef-d1d6-4b4e-81a6-7a35ae653e40"],
Cell[19918, 492, 372, 7, 30, "Input",ExpressionUUID->"aa22f406-defa-4164-a41d-ec3f033b3130"],
Cell[20293, 501, 391, 7, 30, "Input",ExpressionUUID->"9e5fe41a-3f80-4914-a347-1bca8c5f976e"],
Cell[20687, 510, 813, 16, 34, "Input",ExpressionUUID->"1b61b5de-6cb6-4bab-9646-b05c5d7355ca"],
Cell[21503, 528, 719, 18, 30, "Input",ExpressionUUID->"1285c5a5-0c36-4fcc-ae6d-84148405e563"],
Cell[22225, 548, 202, 4, 30, "Input",ExpressionUUID->"ec101324-833c-4e1e-a4b4-a35122bc5dd4"]
}
]
*)