(* 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[      7627,        240]
NotebookOptionsPosition[      6805,        209]
NotebookOutlinePosition[      7229,        225]
CellTagsIndexPosition[      7186,        222]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Ekonomick\[AAcute] \[ZHacek]ivotnost
\
\>", "Section",
 CellChangeTimes->{{3.445765096109375*^9, 3.44576511959375*^9}, {
  3.44878285578125*^9, 3.448782871015625*^9}}],

Cell[CellGroupData[{

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

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"a", "[", 
    RowBox[{"r_", ",", "T_"}], "]"}], ":=", 
   RowBox[{"1", "/", 
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"t", "=", "1"}], "T"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", "r"}], ")"}], 
      RowBox[{"-", "t"}]]}]}]}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.445765743140625*^9, 3.445765800859375*^9}, 
   3.448782845921875*^9, {3.448784598171875*^9, 3.448784601*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Vstupy pro v\[YAcute]po\[CHacek]et ekonomick\[EAcute] \
\[ZHacek]ivotnosti", "Subsection",
 CellChangeTimes->{
  3.44878289025*^9, {3.448782944453125*^9, 3.44878296365625*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Zc", "=", 
   RowBox[{"{", 
    RowBox[{
    "290", ",", "260", ",", "210", ",", "140", ",", "50", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Npr", "=", 
   RowBox[{"{", 
    RowBox[{
    "50", ",", "60", ",", "72", ",", "86", ",", "103", ",", "124", ",", "149",
      ",", "179", ",", "215", ",", "258"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Nou", "=", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", "60", ",", "72", ",", "86", ",", "103", ",", "124", ",", "149", 
     ",", "179", ",", "215", ",", "258", ",", "0"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Cp", "=", "500"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"r", "=", "0.07"}], ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.4487830076875*^9, 3.44878301075*^9}, {
  3.44878312384375*^9, 3.44878316971875*^9}, {3.44878321171875*^9, 
  3.4487832269375*^9}, {3.448783954015625*^9, 3.448784016578125*^9}, {
  3.448784136765625*^9, 3.448784198640625*^9}, {3.44878454915625*^9, 
  3.44878455053125*^9}, {3.448784638921875*^9, 3.448784640984375*^9}, {
  3.479105304890625*^9, 3.479105321953125*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["V\[YAcute]po\[CHacek]ty", "Subsection",
 CellChangeTimes->{{3.448784240015625*^9, 3.448784258640625*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Np", "[", 
   RowBox[{"r_", ",", "T_"}], "]"}], ":=", 
  RowBox[{
   UnderoverscriptBox["\[Sum]", 
    RowBox[{"t", "=", "1"}], "T"], 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Npr", "[", 
        RowBox[{"[", "t", "]"}], "]"}], "+", 
       RowBox[{
        RowBox[{"Nou", "[", 
         RowBox[{"[", "t", "]"}], "]"}], "*", 
        RowBox[{"(", 
         RowBox[{"1", "+", "r"}], ")"}]}]}], ")"}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", "r"}], ")"}], 
      RowBox[{"-", "t"}]]}], ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RCF", "[", 
   RowBox[{"r_", ",", "T_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"a", "[", 
    RowBox[{"r", ",", "T"}], "]"}], " ", "*", " ", 
   RowBox[{"(", 
    RowBox[{"Cp", "+", 
     RowBox[{"Np", "[", 
      RowBox[{"r", ",", "T"}], "]"}], "-", 
     RowBox[{
      RowBox[{"Zc", "[", 
       RowBox[{"[", "T", "]"}], "]"}], "/", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "+", "r"}], ")"}], "T"]}]}], 
    ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tabulka", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"RCF", "[", 
      RowBox[{"r", ",", "T"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"T", ",", "1", ",", 
       RowBox[{"Length", "[", "Npr", "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Min", "[", "tabulka", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Position", "[", 
  RowBox[{"tabulka", ",", 
   RowBox[{"Min", "[", "tabulka", "]"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.448784401796875*^9, 3.448784474546875*^9}, {
  3.448784519609375*^9, 3.448784577375*^9}, {3.448784754609375*^9, 
  3.448784854328125*^9}, {3.44878490603125*^9, 3.448784916046875*^9}, {
  3.448785038296875*^9, 3.44878504746875*^9}, {3.448785088484375*^9, 
  3.448785088921875*^9}, {3.448786944734375*^9, 3.4487869905625*^9}, {
  3.44878705096875*^9, 3.4487870513125*^9}, {3.44878769665625*^9, 
  3.448787714765625*^9}, {3.448787896546875*^9, 3.448787948625*^9}, {
  3.4487881328125*^9, 3.44878813978125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Manipulate", "[", 
   RowBox[{
    RowBox[{"Position", "[", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"RCF", "[", 
         RowBox[{"r", ",", "T"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"T", ",", "1", ",", 
          RowBox[{"Length", "[", "Npr", "]"}]}], "}"}]}], "]"}], ",", 
      RowBox[{"Min", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"RCF", "[", 
          RowBox[{"r", ",", "T"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"T", ",", "1", ",", 
           RowBox[{"Length", "[", "Npr", "]"}]}], "}"}]}], "]"}], "]"}]}], 
     "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"r", ",", "0", ",", "1.9"}], "}"}]}], "]"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.479105160265625*^9, 3.479105267453125*^9}, {
  3.479105326875*^9, 3.4791053275*^9}, {3.47910547721875*^9, 
  3.479105502703125*^9}}],

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"tabulka", ",", " ", 
   RowBox[{"AxesOrigin", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}]}], ",", " ", 
   RowBox[{"Filling", "\[Rule]", "Axis"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{
      RowBox[{"PointSize", "[", "Large", "]"}], ",", "Purple"}], "]"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.54424287403125*^9, 3.544242905578125*^9}, {
  3.54424294275*^9, 3.5442429576875*^9}, {3.54424299425*^9, 
  3.5442430246875*^9}, {3.544243112984375*^9, 3.5442431285*^9}, {
  3.544243193359375*^9, 3.544243206953125*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.544243260953125*^9, 3.5442432964375*^9}}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1912, 1098},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
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, 177, 5, 97, "Section"],
Cell[CellGroupData[{
Cell[769, 31, 94, 1, 43, "Subsection"],
Cell[866, 34, 490, 14, 82, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1393, 53, 182, 3, 43, "Subsection"],
Cell[1578, 58, 1241, 30, 132, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2856, 93, 111, 1, 43, "Subsection"],
Cell[2970, 96, 2126, 60, 145, "Input"],
Cell[5099, 158, 938, 27, 52, "Input"],
Cell[6040, 187, 644, 15, 31, "Input"],
Cell[6687, 204, 90, 1, 31, "Input"]
}, Open  ]]
}, Open  ]]
}
]
*)