(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     22469,        693]
NotebookOptionsPosition[     20284,        620]
NotebookOutlinePosition[     20730,        637]
CellTagsIndexPosition[     20687,        634]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Pou\[ZHacek]it\[IAcute] obecn\[YAcute]ch funkc\[IAcute] \
z\[AAcute]sobitele a anuity", "Subsection"],

Cell[BoxData[{
 RowBox[{"zasobitel", "=", 
  RowBox[{
   RowBox[{
    UnderoverscriptBox["\[Sum]", 
     RowBox[{"t", "=", "1"}], "T"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "r"}], ")"}], 
     RowBox[{"-", "t"}]]}], "//", "FullSimplify"}]}], "\n", 
 RowBox[{"stradatel", "=", 
  RowBox[{
   RowBox[{
    UnderoverscriptBox["\[Sum]", 
     RowBox[{"t", "=", "1"}], "T"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "r"}], ")"}], "t"]}], "//", 
   "FullSimplify"}]}], "\[IndentingNewLine]", 
 RowBox[{"anuita", "=", 
  RowBox[{
   FractionBox["1", "zasobitel"], "//", "FullSimplify"}]}], "\n", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"vysledek", "=", 
    RowBox[{
     RowBox[{"100", " ", "\[Times]", "anuita", " ", "\n", "vysledek"}], " ", "/.",
      " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"T", "\[Rule]", "10"}], ",", 
       RowBox[{"r", "\[Rule]", "0.2"}]}], "}"}]}]}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.4452241244375*^9, 3.44522420065625*^9}, {
  3.445229667203125*^9, 3.445229676140625*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
P\[RHacek]\[IAcute]klady v\[YAcute]po\[CHacek]t\[URing]

1. V\[YAcute]po\[CHacek]et celkov\[EAcute] uspo\[RHacek]en\[EAcute] \[CHacek]\
\[AAcute]stky, vklady ve velikosti V
\ta. Ukl\[AAcute]d\[AAcute]no na po\[CHacek]\[AAcute]tku roku
\
\>", "Subsection",
 CellChangeTimes->{{3.44522436228125*^9, 3.4452244289375*^9}}],

Cell[BoxData[{
 RowBox[{"usporeno", "=", 
  RowBox[{"V", " ", "*", " ", "stradatel"}]}], "\[IndentingNewLine]", 
 RowBox[{"usporeno", " ", "/.", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"V", "\[Rule]", "100"}], ",", " ", 
    RowBox[{"T", "\[Rule]", " ", "10"}], ",", " ", 
    RowBox[{"r", "\[Rule]", "0.1"}]}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"usporeno", " ", "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"V", "\[Rule]", "100"}], ",", " ", 
      RowBox[{"T", "\[Rule]", " ", "10"}]}], "}"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", "0.2"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"usporeno", " ", "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"V", "\[Rule]", "100"}], ",", " ", 
      RowBox[{"r", "\[Rule]", " ", "0.1"}]}], "}"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"T", ",", "1", ",", "20"}], "}"}], ",", 
   RowBox[{"AxesOrigin", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.445224440421875*^9, 3.445224537921875*^9}, {
  3.445224587484375*^9, 3.445224589953125*^9}, {3.445224666578125*^9, 
  3.44522467153125*^9}, {3.44522471109375*^9, 3.44522480425*^9}, {
  3.445224851421875*^9, 3.445224855171875*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\[CapitalRHacek]e\[SHacek]en\[IAcute] \[UAcute]loh typu \"Kolik, jak\
\[YAcute], jak dlouho??\"", "Subsection",
 CellChangeTimes->{{3.4452249011875*^9, 3.44522493453125*^9}, {
  3.445224964578125*^9, 3.445224972421875*^9}, {3.445225447109375*^9, 
  3.44522545225*^9}}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Kolik", " ", "m\[AAcute]m", " ", "ukl\[AAcute]dat"}], ",", " ", 
    RowBox[{
    "abych", " ", "za", " ", "10", " ", "let", " ", "m\[EHacek]l", " ", 
     "p\[RHacek]i", " ", "\[UAcute]roku", " ", "5", " ", "%", " ", 
     "uspo\[RHacek]eno", " ", "100", " ", "000", " ", 
     RowBox[{"K\[CHacek]", "?"}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"usporeno", " ", "\[Equal]", "100000"}], "/.", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"T", "\[Rule]", "10"}], ",", 
       RowBox[{"r", "\[Rule]", "0.05"}]}], "}"}]}], ",", "V"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.445224974984375*^9, 3.445225087109375*^9}, 
   3.44522551125*^9}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "Jak\[YAcute]", " ", "m\[AAcute]", " ", "b\[YAcute]t", " ", 
     "\[UAcute]rok"}], ",", " ", 
    RowBox[{
    "abych", " ", "na\[SHacek]et\[RHacek]il", " ", "100", " ", "000", " ", 
     "K\[CHacek]", " ", "za", " ", "15", " ", "let", " ", "p\[RHacek]i", " ", 
     "vkladu", " ", "5", " ", "000", " ", 
     RowBox[{"K\[CHacek]", "?"}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"NSolve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"usporeno", " ", "\[Equal]", "100000"}], "/.", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"T", "\[Rule]", "15"}], ",", 
       RowBox[{"V", "\[Rule]", "5000"}]}], "}"}]}], ",", "r"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.44522510934375*^9, 3.445225242515625*^9}, {
   3.445225375875*^9, 3.445225376390625*^9}, {3.445228823734375*^9, 
   3.445228826546875*^9}, {3.4452288776875*^9, 3.445228916390625*^9}, 
   3.44522899634375*^9, {3.4452298984375*^9, 3.445229922453125*^9}, {
   3.445229969015625*^9, 3.44522997778125*^9}, {3.4452300825625*^9, 
   3.44523008575*^9}, {3.445766941*^9, 3.445766971953125*^9}, {
   3.445767130828125*^9, 3.4457671710625*^9}, {3.445767285265625*^9, 
   3.4457674135*^9}, {3.445767476109375*^9, 3.44576747759375*^9}, {
   3.445767570078125*^9, 3.445767641875*^9}, {3.445767698171875*^9, 
   3.445767708984375*^9}, {3.44576774803125*^9, 3.445767762921875*^9}, {
   3.445767816109375*^9, 3.445767816484375*^9}, 3.7488359575764136`*^9}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "V\[YAcute]b\[EHacek]r", " ", "jen", " ", "re\[AAcute]ln\[YAcute]ch", " ", 
    "ko\[RHacek]en\[URing]"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"NSolve", "[", 
    RowBox[{
     RowBox[{"Reduce", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"usporeno", " ", "\[Equal]", "100000"}], "/.", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"T", "\[Rule]", "15"}], ",", 
          RowBox[{"V", "\[Rule]", "5000"}]}], "}"}]}], ",", "r", ",", 
       "Reals"}], "]"}], ",", "r"}], "]"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.445225455890625*^9, 3.44522550759375*^9}, {
  3.445767419390625*^9, 3.44576746753125*^9}, {3.445767778875*^9, 
  3.44576783625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Jak", " ", "dlouho", " ", "m\[AAcute]m", " ", "spo\[RHacek]it"}],
     ",", " ", 
    RowBox[{
    "abych", " ", "u\[SHacek]et\[RHacek]il", " ", "alespo\[NHacek]", " ", 
     "100", " ", "000", " ", "K\[CHacek]", " ", "p\[RHacek]i", " ", 
     "\[UAcute]roku", " ", "4", " ", "%", " ", "a", " ", "vkladu", " ", "5", 
     " ", "000", " ", 
     RowBox[{"K\[CHacek]", "?"}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"usporeno", "==", "100000"}], "/.", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"r", "\[Rule]", "0.04"}], ",", 
       RowBox[{"V", "\[Rule]", "5000"}]}], "}"}]}], ",", "T"}], " ", 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.445225524484375*^9, 3.445225582890625*^9}, {
   3.445767494*^9, 3.44576752846875*^9}, 3.4457675595*^9, {
   3.445767837796875*^9, 3.445767838484375*^9}, {3.748836051827608*^9, 
   3.748836086144908*^9}}],

Cell[CellGroupData[{

Cell["\<\
\tb) Vklady jsou na konci obdob\[IAcute]
\
\>", "Subsubsection",
 CellChangeTimes->{{3.445225622390625*^9, 3.44522565753125*^9}}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"stradatelK", "=", 
   RowBox[{
    RowBox[{"stradatel", "/", 
     RowBox[{"(", 
      RowBox[{"1", "+", "r"}], ")"}]}], " ", "//", 
    "FullSimplify"}]}]}]], "Input",
 CellChangeTimes->{{3.44522566190625*^9, 3.44522570409375*^9}}],

Cell[BoxData[{
 RowBox[{"usporeno", "=", 
  RowBox[{"V", " ", "*", " ", "stradatelK"}]}], "\[IndentingNewLine]", 
 RowBox[{"usporeno", " ", "/.", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"V", "\[Rule]", "100"}], ",", " ", 
    RowBox[{"T", "\[Rule]", " ", "10"}], ",", " ", 
    RowBox[{"r", "\[Rule]", "0.1"}]}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"usporeno", " ", "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"V", "\[Rule]", "100"}], ",", " ", 
      RowBox[{"T", "\[Rule]", " ", "10"}]}], "}"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", "0.2"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"usporeno", " ", "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"V", "\[Rule]", "100"}], ",", " ", 
      RowBox[{"r", "\[Rule]", " ", "0.1"}]}], "}"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"T", ",", "1", ",", "20"}], "}"}], ",", 
   RowBox[{"AxesOrigin", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{3.445229037859375*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
2. V\[YAcute]po\[CHacek]et sou\[CHacek]asn\[EAcute] hodnoty, vklady na konci \
obdob\[IAcute]
\ta. Ukl\[AAcute]d\[AAcute]no na konci roku
\
\>", "Subsection",
 CellChangeTimes->{{3.445229189890625*^9, 3.445229251546875*^9}}],

Cell[BoxData[{
 RowBox[{"pv", "=", 
  RowBox[{"V", "*", "zasobitel"}]}], "\[IndentingNewLine]", 
 RowBox[{"pv", " ", "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"V", "\[Rule]", "100"}], ",", " ", 
    RowBox[{"T", "\[Rule]", " ", "10"}], ",", " ", 
    RowBox[{"r", "\[Rule]", "0.1"}]}], "}"}]}]}], "Input",
 CellChangeTimes->{{3.445229274625*^9, 3.4452292960625*^9}}],

Cell[BoxData[{
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"pv", " ", "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"V", "\[Rule]", "100"}], ",", " ", 
      RowBox[{"T", "\[Rule]", " ", "10"}]}], "}"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", "0.2"}], "}"}], ",", 
   RowBox[{"AxesOrigin", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}]}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"pv", " ", "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"V", "\[Rule]", "100"}], ",", " ", 
      RowBox[{"r", "\[Rule]", " ", "0.1"}]}], "}"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"T", ",", "1", ",", "20"}], "}"}], ",", 
   RowBox[{"AxesOrigin", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.445229306984375*^9, 3.445229311671875*^9}, {
  3.4452293554375*^9, 3.4452293559375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "z\[AAcute]sobitel", " ", "za", " ", "nekone\[CHacek]n\[EHacek]", " ", 
    "dlouh\[EAcute]", " ", "obdob\[IAcute]"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    UnderoverscriptBox["\[Sum]", 
     RowBox[{"t", "=", "1"}], "\[Infinity]"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "r"}], ")"}], 
     RowBox[{"-", "t"}]]}], "//", "FullSimplify"}]}]], "Input",
 CellChangeTimes->{{3.445229371390625*^9, 3.4452295426875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "kolik", " ", "mus\[IAcute]m", " ", "ulo\[ZHacek]it", " ", "do", " ", 
     "banky"}], ",", " ", 
    RowBox[{
    "abych", " ", "mohl", " ", "spl\[AAcute]cet", " ", "spl\[AAcute]tky", " ",
      "ve", " ", "v\[YAcute]\[SHacek]i", " ", "5", " ", "000", " ", 
     "K\[CHacek]", " ", "ro\[CHacek]n\[EHacek]", " ", "po", " ", "dobu", " ", 
     "15", " ", "let"}], ",", " ", 
    RowBox[{"\[UAcute]rok", " ", "je", " ", "7", " ", "%"}]}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"pv", "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"V", "\[Rule]", "5000"}], ",", " ", 
     RowBox[{"T", "\[Rule]", " ", "15"}], ",", " ", 
     RowBox[{"r", "\[Rule]", "0.07"}]}], "}"}]}]}]], "Input",
 CellChangeTimes->{{3.445238160125*^9, 3.44523827921875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Jak\[AAcute]", " ", "je", " ", "maxim\[AAcute]ln\[IAcute]", " ", 
    "ro\[CHacek]n\[IAcute]", " ", "spl\[AAcute]tka", " ", "z", " ", 
    "ulo\[ZHacek]en\[YAcute]ch", " ", "50", " ", "000", " ", "K\[CHacek]", 
    " ", "pro", " ", "12", " ", "let", " ", "a", " ", "\[UAcute]rok", " ", 
    "6", " ", "%"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"pv", " ", "\[Equal]", "50000"}], "/.", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"T", "\[Rule]", "12"}], ",", 
        RowBox[{"r", "\[Rule]", "0.06"}]}], "}"}]}], ",", "V"}], "]"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.445238329390625*^9, 3.445238435796875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Jin\[EAcute]", " ", "\[RHacek]e\[SHacek]en\[IAcute]", " ", "je", " ", 
    "pomoc\[IAcute]", " ", "anuity"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"50000", "*", "anuita"}], " ", "/.", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"T", "\[Rule]", "12"}], ",", 
     RowBox[{"r", "\[Rule]", "0.06"}]}], "}"}]}]}]], "Input",
 CellChangeTimes->{{3.44523844621875*^9, 3.44523849884375*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
\tb. Ukl\[AAcute]d\[AAcute]no na za\[CHacek]\[AAcute]tku roku
\
\>", "Subsection",
 CellChangeTimes->{{3.445238548921875*^9, 3.44523856903125*^9}, {
  3.445238617296875*^9, 3.44523862746875*^9}}],

Cell[BoxData[
 RowBox[{"zasobitelZ", "=", 
  RowBox[{
   RowBox[{"zasobitel", " ", "*", " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", "r"}], ")"}]}], " ", "//", "FullSimplify"}]}]], "Input",
 CellChangeTimes->{{3.44523863046875*^9, 3.445238655234375*^9}}],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.445238573046875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Funkce pro finance 1
\
\>", "Section",
 CellChangeTimes->{{3.445765096109375*^9, 3.44576511959375*^9}}],

Cell[CellGroupData[{

Cell["St\[RHacek]adatel", "Subsection",
 CellChangeTimes->{{3.445765122828125*^9, 3.445765150328125*^9}, 
   3.44576561815625*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"FV", "[", 
    RowBox[{"r_", ",", "T_"}], "]"}], ":=", 
   RowBox[{
    UnderoverscriptBox["\[Sum]", 
     RowBox[{"t", "=", "0"}], 
     RowBox[{"T", "-", "1"}]], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "r"}], ")"}], "t"]}]}], "  ", 
  RowBox[{"(*", " ", "konec", " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FVd", "[", 
   RowBox[{"r_", ",", "T_"}], "]"}], ":=", 
  RowBox[{
   UnderoverscriptBox["\[Sum]", 
    RowBox[{"t", "=", "1"}], "T"], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "r"}], ")"}], "t"], "  ", 
   RowBox[{"(*", " ", "za\[CHacek]\[AAcute]tek", " ", "*)"}]}]}]}], "Input",
 CellChangeTimes->{{3.445765153625*^9, 3.4457651988125*^9}, {
  3.44576523465625*^9, 3.44576524759375*^9}, {3.44576531021875*^9, 
  3.445765374046875*^9}, {3.44576544678125*^9, 3.44576551265625*^9}, {
  3.7488362266886816`*^9, 3.748836270743436*^9}}],

Cell[BoxData[{
 RowBox[{"FV", "[", 
  RowBox[{"r", ",", "T"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"FVd", "[", 
  RowBox[{"r", ",", "T"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FVd", "[", 
   RowBox[{"r", ",", "T"}], "]"}], "/", 
  RowBox[{"FV", "[", 
   RowBox[{"r", ",", "T"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.44576537634375*^9, 3.445765425140625*^9}, {
  3.44576552596875*^9, 3.4457655371875*^9}, {3.445765572265625*^9, 
  3.445765574828125*^9}, {3.7488362829297123`*^9, 3.7488362960290613`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Z\[AAcute]sobitel", "Subsection",
 CellChangeTimes->{{3.445765594890625*^9, 3.445765614296875*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"PV", "[", 
    RowBox[{"r_", ",", "T_"}], "]"}], ":=", 
   RowBox[{
    UnderoverscriptBox["\[Sum]", 
     RowBox[{"t", "=", "1"}], "T"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "r"}], ")"}], 
     RowBox[{"-", "t"}]]}]}], "  ", 
  RowBox[{
  "(*", " ", "polh\[URing]tn\[IAcute]", " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PVd", "[", 
   RowBox[{"r_", ",", "T_"}], "]"}], ":=", 
  RowBox[{
   UnderoverscriptBox["\[Sum]", 
    RowBox[{"t", "=", "0"}], 
    RowBox[{"T", "-", "1"}]], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "r"}], ")"}], 
    RowBox[{"-", "t"}]], "  ", 
   RowBox[{
   "(*", " ", "p\[RHacek]edlh\[URing]tn\[IAcute]", " ", "*)"}]}]}]}], "Input",
 CellChangeTimes->{{3.445765628828125*^9, 3.44576568103125*^9}, {
  3.748836323157404*^9, 3.7488363366493163`*^9}}],

Cell[BoxData[{
 RowBox[{"PV", "[", 
  RowBox[{"r", ",", "T"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"PVd", "[", 
  RowBox[{"r", ",", "T"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PVd", "[", 
   RowBox[{"r", ",", "T"}], "]"}], "/", 
  RowBox[{"PV", "[", 
   RowBox[{"r", ",", "T"}], "]"}]}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.445765684125*^9, 3.44576569959375*^9}, {
  3.7488363400642877`*^9, 3.7488363519341593`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Anuita", "Subsection",
 CellChangeTimes->{{3.445765721609375*^9, 3.445765737703125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"a", "[", 
    RowBox[{"r_", ",", "T_"}], "]"}], ":=", 
   RowBox[{"1", "/", 
    RowBox[{"PV", "[", 
     RowBox[{"r", ",", "T"}], "]"}]}]}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.445765743140625*^9, 3.445765800859375*^9}, {
  3.7488363769170485`*^9, 3.748836377011775*^9}}],

Cell[BoxData[
 RowBox[{"a", "[", 
  RowBox[{"r", ",", "T"}], "]"}]], "Input",
 CellChangeTimes->{3.445765814984375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Vztahy mezi z\[AAcute]sobitelem, st\[RHacek]adatelem a anuitou
\
\>", "Subsection",
 CellChangeTimes->{{3.44576584796875*^9, 3.445765871234375*^9}}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"FV", "[", 
     RowBox[{"r", ",", "T"}], "]"}], "/", 
    RowBox[{"FVd", "[", 
     RowBox[{"r", ",", "T"}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"PV", "[", 
     RowBox[{"r", ",", "T"}], "]"}], "/", 
    RowBox[{"PVd", "[", 
     RowBox[{"r", ",", "T"}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"PV", "[", 
     RowBox[{"r", ",", "T"}], "]"}], "/", 
    RowBox[{"FV", "[", 
     RowBox[{"r", ",", "T"}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"PVd", "[", 
     RowBox[{"r", ",", "T"}], "]"}], "/", 
    RowBox[{"FVd", "[", 
     RowBox[{"r", ",", "T"}], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a", "[", 
     RowBox[{"r", ",", "T"}], "]"}], "*", " ", 
    RowBox[{"PV", "[", 
     RowBox[{"r", ",", "T"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.44576588103125*^9, 3.44576590921875*^9}, {
  3.445765977484375*^9, 3.44576599534375*^9}, {3.7488364015649805`*^9, 
  3.748836446265236*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"a", "[", 
   RowBox[{"r", ",", "\[Infinity]"}], "]"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.445766134703125*^9, 3.4457661623125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Plot3D", "[", 
   RowBox[{
    RowBox[{"FV", "[", 
     RowBox[{"r", ",", "t"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"r", ",", "0", ",", "0.2"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "1", ",", "50"}], "}"}]}], "]"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.445766482375*^9, 3.44576655725*^9}, {
  3.7488364723535595`*^9, 3.748836472543008*^9}}],

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"PV", "[", 
    RowBox[{"0.1", ",", "t"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "100"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.44576664403125*^9, 3.44576678165625*^9}, {
  3.7488364859627156`*^9, 3.7488364979771876`*^9}}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1920, 997},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
ShowSelection->True,
FrontEndVersion->"10.4 for Microsoft Windows (64-bit) (February 25, 2016)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 107, 1, 43, "Subsection"],
Cell[677, 25, 1068, 33, 198, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1782, 63, 328, 8, 139, "Subsection"],
Cell[2113, 73, 1311, 34, 92, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3461, 112, 274, 4, 43, "Subsection"],
Cell[3738, 118, 807, 20, 72, "Input"],
Cell[4548, 140, 1513, 31, 72, "Input"],
Cell[6064, 173, 806, 21, 92, "Input"],
Cell[6873, 196, 979, 24, 52, "Input"],
Cell[CellGroupData[{
Cell[7877, 224, 139, 4, 57, "Subsubsection"],
Cell[8019, 230, 290, 8, 52, "Input"],
Cell[8312, 240, 1101, 31, 92, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[9462, 277, 234, 6, 91, "Subsection"],
Cell[9699, 285, 371, 9, 52, "Input"],
Cell[10073, 296, 918, 26, 52, "Input"],
Cell[10994, 324, 524, 15, 78, "Input"],
Cell[11521, 341, 831, 20, 52, "Input"],
Cell[12355, 363, 791, 19, 72, "Input"],
Cell[13149, 384, 472, 12, 52, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13658, 401, 205, 5, 67, "Subsection"],
Cell[13866, 408, 256, 6, 31, "Input"],
Cell[14125, 416, 87, 1, 52, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14249, 422, 113, 4, 97, "Section"],
Cell[CellGroupData[{
Cell[14387, 430, 130, 2, 43, "Subsection"],
Cell[14520, 434, 947, 26, 110, "Input"],
Cell[15470, 462, 527, 12, 72, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16034, 479, 105, 1, 43, "Subsection"],
Cell[16142, 482, 887, 28, 110, "Input"],
Cell[17032, 512, 455, 11, 92, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17524, 528, 94, 1, 43, "Subsection"],
Cell[17621, 531, 340, 9, 52, "Input"],
Cell[17964, 542, 119, 3, 31, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18120, 550, 158, 4, 67, "Subsection"],
Cell[18281, 556, 1048, 30, 132, "Input"],
Cell[19332, 588, 188, 4, 52, "Input"],
Cell[19523, 594, 424, 12, 52, "Input"],
Cell[19950, 608, 306, 8, 31, "Input"]
}, Open  ]]
}, Open  ]]
}
]
*)