(* 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[ 10557, 328] NotebookOptionsPosition[ 9518, 288] NotebookOutlinePosition[ 9884, 304] CellTagsIndexPosition[ 9841, 301] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["P\[RHacek]\[IAcute]klad agenta penzijn\[IAcute]ho fondu", "Title", CellChangeTimes->{{3.434995451703125*^9, 3.434995469515625*^9}}], Cell["Definice prom\[EHacek]nn\[YAcute]ch", "Subtitle", CellChangeTimes->{{3.434995558171875*^9, 3.434995564953125*^9}}], Cell["\<\ i - ro\[CHacek]n\[IAcute] \[UAcute]rokov\[AAcute] m\[IAcute]ra v % T - po\[CHacek]et let spo\[RHacek]en\[IAcute] Td - po\[CHacek]et let vypl\[AAcute]cen\[IAcute] P - ukl\[AAcute]dan\[AAcute] \[CHacek]\[AAcute]stka (m\[EHacek]s\[IAcute]\ \[CHacek]n\[IAcute]) X - vypl\[AAcute]cen\[AAcute] \[CHacek]\[AAcute]stka\ \>", "Text", CellChangeTimes->{{3.43504323128125*^9, 3.4350433015*^9}, { 3.436033364515625*^9, 3.43603338675*^9}}], Cell[CellGroupData[{ Cell["\<\ Obecn\[EAcute] \[RHacek]e\[SHacek]en\[IAcute] \[UAcute]lohy\ \>", "Section", CellChangeTimes->{{3.436033464578125*^9, 3.436033474375*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"FV", " ", "=", " ", RowBox[{"P", " ", RowBox[{"(", RowBox[{"12", "+", RowBox[{ RowBox[{"13", "/", "2"}], " ", "i"}]}], ")"}], " ", "*", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "+", "i"}], ")"}], "^", "T"}], "/", "i"}], "-", RowBox[{"1", "/", "i"}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"PV", "=", " ", RowBox[{"X", RowBox[{"(", RowBox[{"12", "+", RowBox[{ RowBox[{"13", "/", "2"}], " ", "i"}]}], ")"}], " ", "*", " ", RowBox[{"(", RowBox[{ RowBox[{"1", "/", "i"}], "-", RowBox[{ RowBox[{"1", "/", "i"}], "/", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "i"}], ")"}], "^", "Td"}]}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Solve", "[", RowBox[{ RowBox[{"FV", "\[Equal]", "PV"}], ",", "X"}], "]"}]}], "Input", CellChangeTimes->{{3.435044686703125*^9, 3.435044727921875*^9}, { 3.43504477284375*^9, 3.4350448429375*^9}, {3.43504489725*^9, 3.435044972671875*^9}, {3.43606902721875*^9, 3.4360690295625*^9}}], Cell[CellGroupData[{ Cell["\<\ Konkr\[EAcute]tn\[IAcute] \[RHacek]e\[SHacek]en\[IAcute] pro vstupn\[IAcute] \ data shodn\[AAcute] jako jsou v p\[RHacek]edn\[AAcute]\[SHacek]ce a v \ tabulkov\[EAcute]m procesoru\ \>", "Subsection", CellChangeTimes->{{3.436033513640625*^9, 3.43603355778125*^9}}], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"P", "=", "1000"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"T", "=", "40"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"i", "=", "0.05"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Td", "=", "35"}], ";"}], "\[IndentingNewLine]", RowBox[{"Solve", "[", RowBox[{ RowBox[{"FV", "\[Equal]", "PV"}], ",", "X"}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.435044994046875*^9, 3.435045096046875*^9}, { 3.436033507765625*^9, 3.436033509171875*^9}, {3.436033600203125*^9, 3.43603360165625*^9}, {3.43606907040625*^9, 3.43606909*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Grafick\[AAcute] interpretace pro r\[URing]zn\[EAcute] \[UAcute]roky a \ dobu spo\[RHacek]en\[IAcute]", "Subsection", CellChangeTimes->{{3.43504548490625*^9, 3.435045498*^9}, 3.436033641171875*^9, {3.43603371375*^9, 3.436033730140625*^9}}], Cell[BoxData[{ RowBox[{"Clear", "[", RowBox[{"P", ",", "T", ",", "i", ",", "Td"}], "]"}], "\[IndentingNewLine]", RowBox[{"X", "=", FractionBox[ RowBox[{"P", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "i"}], ")"}], "Td"], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "i"}], ")"}], "T"], " ", "-", " ", "1"}], ")"}]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "i"}], ")"}], "Td"], " ", "-", " ", "1"}]]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"P", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Td", "=", "20"}], ";"}], "\[IndentingNewLine]", RowBox[{"Plot3D", "[", RowBox[{ RowBox[{"{", "X", "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "0.00", ",", "0.15"}], "}"}], ",", RowBox[{"{", RowBox[{"T", ",", "10", ",", "50"}], "}"}], ",", RowBox[{"Filling", "->", "Axis"}], ",", RowBox[{"AxesLabel", "\[Rule]", "Automatic"}], ",", RowBox[{"ColorFunction", "\[Rule]", RowBox[{"ColorData", "[", "\"\\"", "]"}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.435045267546875*^9, 3.435045295296875*^9}, { 3.436033645046875*^9, 3.43603368934375*^9}, {3.43603386828125*^9, 3.43603390028125*^9}, {3.43603439159375*^9, 3.43603439209375*^9}, { 3.43603449434375*^9, 3.43603449525*^9}, 3.496544997524436*^9}] }, Open ]], Cell[CellGroupData[{ Cell["\[CapitalRHacek]e\[SHacek]en\[IAcute] s pomoc\[IAcute] sou\[CHacek]t\ \[URing] (sum)", "Subsection", CellChangeTimes->{{3.497063380078125*^9, 3.497063412703125*^9}, { 3.558235591921875*^9, 3.5582356071875*^9}}], Cell[BoxData[{ RowBox[{"Clear", "[", RowBox[{"P", ",", "T", ",", "i", ",", "Td", ",", "j"}], "]"}], "\[IndentingNewLine]", RowBox[{"FV", "=", RowBox[{"P", RowBox[{"(", RowBox[{"12", "+", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"t", "=", "1"}], "12"], RowBox[{"t", " ", RowBox[{"i", "/", "12"}]}]}]}], ")"}], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"t", "=", "1"}], "T"], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "i"}], ")"}], RowBox[{"(", RowBox[{"t", "-", "1"}], ")"}]]}]}]}], "\[IndentingNewLine]", RowBox[{"PV", "=", RowBox[{"X", RowBox[{"(", RowBox[{"12", "+", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"t", "=", "1"}], "12"], RowBox[{"t", " ", RowBox[{"i", "/", "12"}]}]}]}], ")"}], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"t", "=", "1"}], "Td"], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "i"}], ")"}], RowBox[{"-", "t"}]]}]}]}], "\[IndentingNewLine]", RowBox[{"Solve", "[", RowBox[{ RowBox[{"FV", "\[Equal]", "PV"}], ",", "X"}], "]"}]}], "Input", CellChangeTimes->{{3.558235614046875*^9, 3.55823566715625*^9}, { 3.55823570165625*^9, 3.558235837953125*^9}, {3.558235874453125*^9, 3.55823595190625*^9}, {3.55823600171875*^9, 3.558236002890625*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Spojit\[EAcute] \[RHacek]e\[SHacek]en\[IAcute]", "Subsection", CellChangeTimes->{{3.497063380078125*^9, 3.497063412703125*^9}}], Cell[BoxData[{ RowBox[{"Clear", "[", RowBox[{"P", ",", "T", ",", "i", ",", "Td", ",", "j"}], "]"}], "\[IndentingNewLine]", RowBox[{"j", "=", RowBox[{"Log", "[", RowBox[{"1", "+", "i"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"FV", "=", RowBox[{"12", "P", " ", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "T"], RowBox[{ RowBox[{"Exp", "[", RowBox[{"j", " ", "t"}], "]"}], RowBox[{"\[DifferentialD]", "t"}]}]}]}]}], "\[IndentingNewLine]", RowBox[{"PV", "=", " ", RowBox[{"12", "X", " ", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "Td"], RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "j"}], " ", "t"}], "]"}], RowBox[{"\[DifferentialD]", "t"}]}]}]}]}], "\[IndentingNewLine]", RowBox[{"Solve", "[", RowBox[{ RowBox[{"FV", "\[Equal]", "PV"}], ",", "X"}], "]"}]}], "Input", CellChangeTimes->{{3.497063418421875*^9, 3.49706353484375*^9}, { 3.497063569140625*^9, 3.4970635905625*^9}, {3.4970636375625*^9, 3.49706368746875*^9}, {3.497063719546875*^9, 3.497063744671875*^9}, { 3.497063782375*^9, 3.497063783484375*^9}, {3.49706392825*^9, 3.497063929859375*^9}, {3.49706396078125*^9, 3.497063964015625*^9}, { 3.49706412275*^9, 3.497064125234375*^9}, {3.497064168234375*^9, 3.49706417090625*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"P", "=", "1000"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"T", "=", "40"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"i", "=", "0.05"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Td", "=", "35"}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"j", "=", RowBox[{"Log", "[", RowBox[{"1", "+", "i"}], "]"}]}], "*)"}]}], "\[IndentingNewLine]", RowBox[{"Solve", "[", RowBox[{ RowBox[{"FV", "\[Equal]", "PV"}], ",", "X"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.49706387434375*^9, 3.497063882171875*^9}, { 3.497064037703125*^9, 3.4970640434375*^9}}], Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "T"], RowBox[{ RowBox[{"Exp", "[", RowBox[{"j", " ", "t"}], "]"}], RowBox[{"\[DifferentialD]", "t"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.497941073953125*^9, 3.49794108046875*^9}}] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1912, 1098}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, Magnification->1.5, 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, 138, 1, 134, "Title"], Cell[708, 25, 121, 1, 74, "Subtitle"], Cell[832, 28, 439, 9, 159, "Text"], Cell[CellGroupData[{ Cell[1296, 41, 150, 4, 143, "Section"], Cell[1449, 47, 1184, 36, 104, "Input"], Cell[CellGroupData[{ Cell[2658, 87, 274, 5, 65, "Subsection"], Cell[2935, 94, 693, 17, 220, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[3665, 116, 250, 3, 65, "Subsection"], Cell[3918, 121, 1423, 38, 213, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[5378, 164, 219, 3, 65, "Subsection"], Cell[5600, 169, 1395, 42, 229, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[7032, 216, 134, 1, 65, "Subsection"], Cell[7169, 219, 1316, 33, 221, "Input"], Cell[8488, 254, 684, 19, 220, "Input"], Cell[9175, 275, 303, 8, 70, "Input"] }, Open ]] }, Open ]] }, Open ]] } ] *)