{VERSION 6 0 "IBM INTEL NT" "6.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 
0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 }
{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 
2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Heading 1" -1 3 1 
{CSTYLE "" -1 -1 "Times" 1 18 0 0 0 1 2 1 2 2 2 2 1 1 1 1 }1 1 0 0 8 
4 1 0 1 0 2 2 0 1 }{PSTYLE "Warning" -1 7 1 {CSTYLE "" -1 -1 "Courier
" 1 10 0 0 255 1 2 2 2 2 2 1 1 1 3 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }
{PSTYLE "Maple Output" -1 11 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 
2 2 2 2 2 2 1 1 1 1 }3 3 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Outpu
t" -1 12 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }
1 3 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Plot" -1 13 1 {CSTYLE "" 
-1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 0 0 1 0 1 0 2 
2 0 1 }}
{SECT 0 {PARA 0 "" 0 "" {TEXT -1 0 "" }}{SECT 1 {PARA 3 "" 0 "" {TEXT 
-1 3 "Cas" }}{EXCHG {PARA 3 "" 0 "" {TEXT -1 3 "Cas" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 187 "Prestupny := proc (Rok) #procedura zjist
i, zda je rok prestupny Vystup true: je prestupny\n if Rok mod 4 <> 0
\n or Rok mod 100 = 0 and Rok/100 mod 4 <> 0\n then false\n else \ntru
e\n fi \n end ;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 307 "PocetDniVMesici
 := proc (Mesic,Rok) #procedura urci pocet dni v mesici. Vstup je cisl
o mesice a cislo roku\n if member( Mesic mod 12,\{1,3,5,7,8,10,12,0\})
 then \n31 \nelse  \n if Mesic = 2 then \n    #print(Rok,Prestupny(Rok
));\n    if Prestupny(Rok) then \n      29\n    else \n    28\n   fi \+
\n else 30;\n fi \nfi; \nend:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }
}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 
0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 65 "DelkaRoku:=proc
(Rok)\nif Prestupny(Rok) then\n366\nelse\n365\nfi\nend;\n" }}{PARA 0 "
> " 0 "" {MPLTEXT 1 0 194 "CisloDne:=proc(Den,Mesic,Rok)#zbytek po del
eni sedmi udava den v tydnu\nlocal i;\ni:='i';\nsum\n#add\n('DelkaRoku
(i)','i'=2000..Rok-1)+\nsum\n#add\n('PocetDniVMesici(i,Rok)','i'=1..Me
sic-1)\n+Den-2;\nend;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 
0 "> " 0 "" {MPLTEXT 1 0 105 "Vzdalenost:=(DenA,MesicA,RokA,DenB,Mesic
B,RokB)->\nCisloDne(DenB,MesicB,RokB)-CisloDne(DenA,MesicA,RokA);\n" }
}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*PrestupnyGf*6#%$RokG6\"F(F(@%50-%$
modG6$9$\"\"%\"\"!3/-F-6$F/\"$+\"F10-F-6$,$*&#\"\"\"F6F=F/F=F=F0F1%&fa
lseG%%trueGF(F(F(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*DelkaRokuGf*6#
%$RokG6\"F(F(@%-%*PrestupnyG6#9$\"$m$\"$l$F(F(F(" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%)CisloDneGf*6%%$DenG%&MesicG%$RokG6#%\"iG6\"F,C$>8$.F
/,*-%$sumG6$.-%*DelkaRokuG6#F//F0;\"%+?,&9&\"\"\"F>!\"\"F>-F36$.-%0Poc
etDniVMesiciG6$F/F=/F0;F>,&9%F>F>F?F>9$F>\"\"#F?F,F,F," }}{PARA 12 "" 
1 "" {XPPMATH 20 "6#>%+VzdalenostGf*6(%%DenAG%'MesicAG%%RokAG%%DenBG%'
MesicBG%%RokBG6\"6$%)operatorG%&arrowGF-,&-%)CisloDneG6%9'9(9)\"\"\"-F
36%9$9%9&!\"\"F-F-F-" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 519 "Datum:=pro
c(den)\nlocal  Den, Mesic, Rok;\nDen:=den+2;\nif Den>=0 then\n i:=0;\n
 while Den > DelkaRoku(2000+i) do\n  Den := Den- DelkaRoku(2000+i);\n \+
 i:=i+1;\n od;\n Rok:=2000+i;\n i:=1;\n while Den > PocetDniVMesici(i,
Rok) do\n  Den := Den - PocetDniVMesici(i,Rok);\n  i:=i+1;\n od;\n Mes
ic:=i;\nelse\nDen:=Den-1;\ni:=0;\n while Den < 0 do\n  Den := Den+ Del
kaRoku(2000+i);\n  i:=i-1;\n od;\n Rok:=2000+i;\ni:=1;\n while Den > P
ocetDniVMesici(i,Rok) do\n  Den := Den - PocetDniVMesici(i,Rok);\n  i:
=i+1;\n od;\n Mesic:=i;\n\nfi;\nDen,Mesic,Rok;\nend;" }}{PARA 7 "" 1 "
" {TEXT -1 63 "Warning, `i` is implicitly declared local to procedure \+
`Datum`\n" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%&DatumGf*6#%$denG6&%$De
nG%&MesicG%$RokG%\"iG6\"F-C%>8$,&9$\"\"\"\"\"#F3@%1\"\"!F0C(>8'F7?(F-F
3F3F-2-%*DelkaRokuG6#,&\"%+?F3F:F3F0C$>F0,&F0F3F=!\"\">F:,&F:F3F3F3>8&
F@>F:F3?(F-F3F3F-2-%0PocetDniVMesiciG6$F:FIF0C$>F0,&F0F3FMFE>F:FG>8%F:
C)>F0,&F0F3F3FE>F:F7?(F-F3F3F-2F0F7C$>F0,&F0F3F=F3>F:,&F:F3F3FE>FIF@>F
:F3?(F-F3F3F-FLC$>F0FR>F:FG>FUF:6%F0FUFIF-F-F-" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 267 "DenVTydnu:=proc()\nif nargs =1 then\nxxx:=arg
s-1 mod 7+1\nelse\n# nargs=3 then \nxxx:=CisloDne(args)-1 mod 7+1\nfi;
\n  if xxx=1 then `Po` \nelif xxx=2 then `Ut`\nelif xxx=3 then `Str`\n
elif xxx=4 then `Ct`\nelif xxx=5 then `Pa`\nelif xxx=6 then `So`\nelif
 xxx=7 then `Ne`\nfi;\nend;" }}{PARA 7 "" 1 "" {TEXT -1 69 "Warning, `
xxx` is implicitly declared local to procedure `DenVTydnu`\n" }}{PARA 
12 "" 1 "" {XPPMATH 20 "6#>%*DenVTydnuGf*6\"6#%$xxxGF&F&C$@%/9#\"\"\">
8$,&-%$modG6$,&9\"F-F-!\"\"\"\"(F-F-F->F/,&-F26$,&-%)CisloDneG6#F5F-F-
F6F7F-F-F-@0/F/F-%#PoG/F/\"\"#%#UtG/F/\"\"$%$StrG/F/\"\"%%#CtG/F/\"\"&
%#PaG/F/\"\"'%#SoG/F/F7%#NeGF&F&F&" }}}{PARA 3 "" 0 "" {TEXT -1 0 "" }
}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 42 "Penzijni pripojisteni se statni
m pispevkem" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "x:='x';i:='i'
;" }}{PARA 0 "" 0 "" {TEXT -1 236 "St\341tn\355 p\370\355sp\354vek je:
\n100 a\236 199 K\350 \01150 K\350 + 40 % z \350\341stky nad 100 K\350
\n200 a\236 299 K\350 \01190 K\350 + 30 % z \350\341stky nad 200 K\350
\n300 a\236 399 K\350 \011120 K\350 + 20 % z \350\341stky nad 300 K
\350\n400 a\236 499 K\350 \011140 K\350 + 10 % z \350\341stky nad 400 \+
K\350\n500 K\350 a v\355ce \011150 K\350" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 123 "StatniPodpora:=\npiecewise(\nx<200,50+0.4*(x-100),\n
x<300,90+0.3*(x-200),\nx<400,120+0.2*(x-300),\nx<500,140+0.1*(x-400),
\n150\n);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xGF$" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#>%\"iGF$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%.Sta
tniPodporaG-%*PIECEWISEG6'7$,&$\"$+\"!\"\"\"\"\"*&$\"\"%F,F-%\"xGF-F-2
F1\"$+#7$,&$\"$+$F,F-*&$\"\"$F,F-F1F-F-2F1F77$,&$\"$+'F,F-*&$\"\"#F,F-
F1F-F-2F1\"$+%7$,&$\"%+5F,F-*&$F-F,F-F1F-F-2F1\"$+&7$\"$]\"%*otherwise
G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "StP:=unapply(StatniPod
pora,x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$StPGf*6#%\"xG6\"6$%)ope
ratorG%&arrowGF(-%*piecewiseG6+29$\"$+#,&$\"$+\"!\"\"\"\"\"*&$\"\"%F5F
6F0F6F62F0\"$+$,&$F;F5F6*&$\"\"$F5F6F0F6F62F0\"$+%,&$\"$+'F5F6*&$\"\"#
F5F6F0F6F62F0\"$+&,&$\"%+5F5F6*&$F6F5F6F0F6F6\"$]\"F(F(F(" }}}{EXCHG 
{PARA 0 "" 0 "" {TEXT -1 61 "Velikost st\341tn\355ho p\370\355sp\354vk
u v z\341vislosti na velikosti \372lo\236ek:" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 24 "plot(StP(x),x=100..700);" }}{PARA 13 "" 1 "" 
{GLPLOT2D 400 300 300 {PLOTDATA 2 "6%-%'CURVESG6$7W7$$\"$+\"\"\"!$\"#]
F*7$$\"3.+++DHyI6!#:$\"3U++++<8Bb!#;7$$\"3+++v[kdW7F0$\"3++++&z0$yfF37
$$\"31++]n\"\\DP\"F0$\"3E+++qm>!\\'F37$$\"39++]s,P,:F0$\"3p,++!p![0qF3
7$$\"3.++v8*y&H;F0$\"3o+++bcJ=vF37$$\"3#)***\\(G[W[<F0$\"3/*****\\JzP*
zF37$$\"3-++v)fB:(=F0$\"3m+++&R%4'[)F37$$\"3/++vQ=\"))*>F0$\"3w+++btC&
**)F37$$\"3:++vj=pD@F0$\"3K***\\7fvqP*F37$$\"39+++lN?cAF0$\"3e*****\\p
5'o(*F37$$\"31++]U$e6P#F0$\"3-++v-vM65F07$$\"3C+++&>q0]#F0$\"33++]e5<]
5F07$$\"3L+++DM^IEF0$\"37++]FS:*3\"F07$$\"3)******\\!ytbFF0$\"3\"*****
\\T8sE6F07$$\"3C++vQNXpGF0$\"3/+]ihg$3;\"F07$$\"3n*****\\asY+$F0$\"3$*
******3X$4?\"F07$$\"3********z2A>JF0$\"36+++cT%QA\"F07$$\"31++v3wY_KF0
$\"35++v@N\\]7F07$$\"3!*******HOTqLF0$\"3/+++EF3u7F07$$\"3Q++v3\">)*\\
$F0$\"33++v@Q'**H\"F07$$\"3U++DEP/BOF0$\"33++DX(3YK\"F07$$\"3;++](o:;v
$F0$\"39++]PJK]8F07$$\"3#****\\P)[opQF0$\"3)****\\n(p$RP\"F07$$\"3\")*
*\\7t;OLRF0$\"33+]iMBn'Q\"F07$$\"3o****\\i%Qq*RF0$\"3;++]#p2%*R\"F07$$
\"3')**\\i]2=jSF0$\"3***\\i]2=jS\"F07$$\"3-++vQIKHTF0$\"3*)**\\(QIKHT
\"F07$$\"3-++D^rZWUF0$\"37+]7:xWC9F07$$\"3))****\\Zn%)oVF0$\"35++vuY)o
V\"F07$$\"3-+++5FL(\\%F0$\"31+++rKt\\9F07$$\"3h****\\d6.BYF0$\"3-++v:J
Ii9F07$$\"3(****\\(o3lWZF0$\"3++](o3lWZ\"F07$$\"3y****\\A))oz[F0$\"3/+
+D#))oz[\"F07$$\"3h***\\iid.%\\F0$\"3'***\\iid.%\\\"F07$$\"3W******Hk-
,]F0$\"$]\"F*7$$\"3o****\\FL!e1&F0Ffv7$$\"3$******\\A!eI^F0Ffv7$$\"3I+
+v=_(zC&F0Ffv7$$\"3U+++b*=jP&F0Ffv7$$\"3Q***\\(3/3(\\&F0Ffv7$$\"3E++vB
4JBcF0Ffv7$$\"39+++DVsYdF0Ffv7$$\"3]***\\(=n#f(eF0Ffv7$$\"3j******zRO+
gF0Ffv7$$\"3T++]_!>w7'F0Ffv7$$\"3M++v)Q?QD'F0Ffv7$$\"3k+++5jypjF0Ffv7$
$\"3n****\\Ujp-lF0Ffv7$$\"3]+++gEd@mF0Ffv7$$\"3]++v3'>$[nF0Ffv7$$\"3I+
+D6EjpoF0Ffv7$$\"$+(F*Ffv-%'COLOURG6&%$RGBG$\"#5!\"\"$F*F*Fbz-%+AXESLA
BELSG6$Q\"x6\"Q!Fgz-%%VIEWG6$;F(Fiy%(DEFAULTG" 1 2 0 1 10 0 2 9 1 4 2 
1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 99 "Relativn\355 velikost st\341tn\355ho p\370\355sp\354vku v
zhledem k velikosti \372lo\236ek v z\341vislosti na velikosti \372lo
\236ek." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 55 "simplify(StatniP
odpora/x);\nplot((StP(x)/x),x=100..700);" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#-%*PIECEWISEG6'7$,$*($\"+++++S!#5\"\"\",&$\"#D\"\"!F,%\"xGF,F,F1
!\"\"F,2F1$\"$+#F07$,$*($\"+++++IF+F,,&$\"$+\"F0F,F1F,F,F1F2F,2F1$\"$+
$F07$,$*($\"+++++?F+F,,&F?F,F1F,F,F1F2F,2F1$\"$+%F07$,$*($\"+++++5F+F,
,&$\"%+5F0F,F1F,F,F1F2F,2F1$\"$+&F07$,$*&$\"$]\"F0F,F1F2F,1FSF1" }}
{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6%-%'CURVESG6$7U7$
$\"$+\"\"\"!$\"3++++++++]!#=7$$\"3.+++DHyI6!#:$\"3367iJIM%)[F-7$$\"3++
+v[kdW7F1$\"3zeD'))>'[.[F-7$$\"31++]n\"\\DP\"F1$\"3cly1]8dGZF-7$$\"39+
+]s,P,:F1$\"3-M?'oDegm%F-7$$\"3.++v8*y&H;F1$\"3W@UFhal8YF-7$$\"3#)***
\\(G[W[<F1$\"3EGk7Mo$>d%F-7$$\"3-++v)fB:(=F1$\"3`he:8SKMXF-7$$\"3=++v=
x;N>F1$\"3/%eKb2^n^%F-7$$\"3/++vQ=\"))*>F1$\"3@#H$)o@(H+XF-7$$\"3'****
\\7&=Di?F1$\"3A)fy&y/saWF-7$$\"3:++vj=pD@F1$\"3o9:)*3_I6WF-7$$\"39+++l
N?cAF1$\"32)4fXDn'HVF-7$$\"31++]U$e6P#F1$\"3]GQ[8W?lUF-7$$\"3C+++&>q0]
#F1$\"3aa#4)ojs*>%F-7$$\"3L+++DM^IEF1$\"3v!\\g7xh/9%F-7$$\"3)******\\!
ytbFF1$\"3On'3hnP')3%F-7$$\"3C++vQNXpGF1$\"3%QxmVB&\\XSF-7$$\"3n*****
\\asY+$F1$\"3+(4hT\")*)o*RF-7$$\"3********z2A>JF1$\"3#3Z?:LdN#RF-7$$\"
31++v3wY_KF1$\"3K\"HT5>`Z%QF-7$$\"3!*******HOTqLF1$\"3#p5.4$p>!y$F-7$$
\"3Q++v3\">)*\\$F1$\"3A\"*4m=VP9PF-7$$\"3U++DEP/BOF1$\"3GDdHHh1cOF-7$$
\"3;++](o:;v$F1$\"33WG)o$4J*f$F-7$$\"3#****\\P)[opQF1$\"3!)z-4[Q^]NF-7
$$\"3o****\\i%Qq*RF1$\"3hp_U*R66]$F-7$$\"3-++vQIKHTF1$\"3Y/SAbWq@MF-7$
$\"3-++D^rZWUF1$\"3G;7a(y-gN$F-7$$\"3))****\\Zn%)oVF1$\"3m@p*RdL*)G$F-
7$$\"3-+++5FL(\\%F1$\"3o')em$=SNA$F-7$$\"3h****\\d6.BYF1$\"3i(pJs(H3jJ
F-7$$\"3(****\\(o3lWZF1$\"3%pjTojOw5$F-7$$\"3y****\\A))oz[F1$\"3En2*R+
6$\\IF-7$$\"3W******Hk-,]F1$\"3Sx5SoUQ**HF-7$$\"3$******\\A!eI^F1$\"3a
_UHJfkBHF-7$$\"3I++v=_(zC&F1$\"3)eecS?X#eGF-7$$\"3U+++b*=jP&F1$\"3!4E`
:/8+z#F-7$$\"3Q***\\(3/3(\\&F1$\"3(GI&QF7sGFF-7$$\"3E++vB4JBcF1$\"3i9n
WawYnEF-7$$\"39+++DVsYdF1$\"3@.D#yi#=5EF-7$$\"3]***\\(=n#f(eF1$\"3e3O3
9))y_DF-7$$\"3j******zRO+gF1$\"3m3i'3N[)*\\#F-7$$\"3T++]_!>w7'F1$\"3m(
))[Z&G$zW#F-7$$\"3M++v)Q?QD'F1$\"3wO<\"p'Q`)R#F-7$$\"3k+++5jypjF1$\"3A
`j<mq'[N#F-7$$\"3n****\\Ujp-lF1$\"3>)*zEBat1BF-7$$\"3]+++gEd@mF1$\"356
'3F(GKlAF-7$$\"3]++v3'>$[nF1$\"3MUS?vbxAAF-7$$\"3I++D6EjpoF1$\"3y&o\\B
)G_$=#F-7$$\"$+(F*$\"3uUr&G9dG9#F--%'COLOURG6&%$RGBG$\"#5!\"\"$F*F*Fj[
l-%+AXESLABELSG6$Q\"x6\"Q!F_\\l-%%VIEWG6$;F(F_[l%(DEFAULTG" 1 2 0 1 
10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "z:='z';zeta:='zeta';" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%\"zGF$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%z
etaGF$" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 120 "Funkce PP po\350\355t
\341 \372rokovou m\355ru odpov\355daj\355c\355ho spo\370en\355 bez st
\341tn\355ch p\370\355sp\354vk\371, \350ilion v\375niosnost penzijn
\355ho p\370ipoji\232t\354n\355." }{MPLTEXT 1 0 364 "\nPP:=proc(Ulozky
,PocetLet,PredpokladanaUrokovaMira)\nlocal N,T,x,xi,i,z,zeta,Nasporeno
;\nT:=PocetLet;\nxi:=PredpokladanaUrokovaMira; \nx:=Ulozky;\n#T:=50;x:
=500;xi:=.04;\n\nNasporeno:=\nsubs(N=T,\nsimplify(\nsum((x+StP(x))*(1+
xi)^(i/12),i=1..12*N)\n)\n);\n\nNasporeno:=evalf(Nasporeno);\nfsolve\n
(\nsubs(N=T,\nsimplify(\nsum(x*(1.+zeta)^(i/12.),i=1..12*N)\n)\n)\n=Na
sporeno\n,zeta);\nend;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#PPGf*6%%'
UlozkyG%)PocetLetG%9PredpokladanaUrokovaMiraG6*%\"NG%\"TG%\"xG%#xiG%\"
iG%\"zG%%zetaG%*NasporenoG6\"F3C(>8%9%>8'9&>8&9$>8+-%%subsG6$/8$F6-%)s
implifyG6#-%$sumG6$*&,&F<\"\"\"-%$StPG6#F<FMFM),&FMFMF9FM,$*&#FM\"#7FM
8(FMFMFM/FW;FM,$*&FVFMFDFMFM>F?-%&evalfG6#F?-%'fsolveG6$/-FA6$FC-FF6#-
FI6$*&F<FM),&$FM\"\"!FM8*FM*&FWFM$FVFho!\"\"FMFXF?FioF3F3F3" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 105 "V\375nosnost fondu p\370i p\370ed
pokl\341dan\351 \372rokov\351 m\355\370e 0.04 velikosti \372lo\236ek 3
00K\350 m\354s\355\350n\354 a dob\354 spo\370en\355 10 let." }}{PARA 
0 "> " 0 "" {MPLTEXT 1 0 16 "PP(300,10,0.04);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#$\"+e3^U5!#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
12 "with(plots):" }}{PARA 7 "" 1 "" {TEXT -1 53 "`Warning, the name ch
angecoords has been redefined\\n`" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 
136 "Z\341vislost v\375nosnosti spo\370en\355 kles\341 s d\351lkou spo
\370en\355 (asymptota je p\370edpokl\341dan\341 pr\371m\354rn\341 \372
rokov\341 m\355ra (nejedn\341 se o pr\371m\354r aritmetick\375))" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 92 "pointplot\n([seq([t,PP(500,t,0.04)]
,t=5..40)],style=line,title=\"Zavislost na delce sporeni\");" }}{PARA 
13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6%-%'CURVESG6#7F7$$\"\"&
\"\"!$\"+$fQ>X\"!#57$$\"\"'F*$\"+4Lbm7F-7$$\"\"(F*$\"+;\"oa8\"F-7$$\"
\")F*$\"+Uv*y.\"F-7$$\"\"*F*$\"+#)*>Yi*!#67$$\"#5F*$\"+3))3C!*FB7$$\"#
6F*$\"+2@yM&)FB7$$\"#7F*$\"+Az\\G\")FB7$$\"#8F*$\"+bR#ey(FB7$$\"#9F*$
\"+X5'H\\(FB7$$\"#:F*$\"+B8$)RsFB7$$\"#;F*$\"+fI!*=qFB7$$\"#<F*$\"+/WV
CoFB7$$\"#=F*$\"+Q:(>l'FB7$$\"#>F*$\"+?n+)\\'FB7$$\"#?F*$\"+>(R(fjFB7$
$\"#@F*$\"+C!3\\B'FB7$$\"#AF*$\"+&pj;7'FB7$$\"#BF*$\"+aD[=gFB7$$\"#CF*
$\"+xi4CfFB7$$\"#DF*$\"+g3WPeFB7$$\"#EF*$\"+kqhddFB7$$\"#FF*$\"+F(fQo&
FB7$$\"#GF*$\"+_O^:cFB7$$\"#HF*$\"+uX,_bFB7$$\"#IF*$\"+yQ(G\\&FB7$$\"#
JF*$\"+]jmPaFB7$$\"#KF*$\"+2--'Q&FB7$$\"#LF*$\"+')*3wL&FB7$$\"#MF*$\"+
:[9#H&FB7$$\"#NF*$\"+$)GP\\_FB7$$\"#OF*$\"+Io14_FB7$$\"#PF*$\"+(*[-r^F
B7$$\"#QF*$\"+Vm1N^FB7$$\"#RF*$\"+I-.,^FB7$$\"#SF*$\"+k+xo]FB-%&STYLEG
6#%%LINEG-%&TITLEG6#Q;Zavislost~na~delce~sporeni6\"" 1 6 0 1 10 0 2 9 
1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "
" 0 "" {TEXT -1 250 "Nejkrat\232\355 mo\236n\341 doba spo\370en\355 je
 5 let. V\375plata naspo\370en\351 \350\341stky je mo\236n\341 nejd
\370\355ve v ve v\354ku 60 let. Oboj\355ho m\371\236eme v na\232em z
\341vid\354n\355hodn\351n\354 n\355zk\351m v\354ku dos\341hnout tak, \+
\236e spo\370\355me za p\355buzn\351, \350i zn\341m\351, kte\370\355 s
ami spo\370it necht\354j\355 a kter\375m je aspo\362 55let." }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 43 "V\375nosnost kles\341 s rostouc
\355velikost\355 \372lo\236ek:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 101 "
pointplot\n([seq([i,PP(10*i,10,4/100.)],i=10..50)],style=line,\ntitle=
\"Zavislost na velikosti ulozek\");" }}{PARA 13 "" 1 "" {GLPLOT2D 400 
300 300 {PLOTDATA 2 "6%-%'CURVESG6#7K7$$\"#5\"\"!$\"+5YPs6!#57$$\"#6F*
$\"+!Q_4;\"F-7$$\"#7F*$\"+BwP^6F-7$$\"#8F*$\"+KbBV6F-7$$\"#9F*$\"+joAO
6F-7$$\"#:F*$\"+)HI,8\"F-7$$\"#;F*$\"+L'yZ7\"F-7$$\"#<F*$\"+*=V+7\"F-7
$$\"#=F*$\"+1L#e6\"F-7$$\"#>F*$\"+D\"R?6\"F-7$$\"#?F*$\"+xki36F-7$$\"#
@F*$\"+`/L*4\"F-7$$\"#AF*$\"+$>P34\"F-7$$\"#BF*$\"+>p/$3\"F-7$$\"#CF*$
\"+dd(e2\"F-7$$\"#DF*$\"+fEDp5F-7$$\"#EF*$\"+kq6j5F-7$$\"#FF*$\"+CqTd5
F-7$$\"#GF*$\"+Bx5_5F-7$$\"#HF*$\"+&H]r/\"F-7$$\"#IF*$\"+e3^U5F-7$$\"#
JF*$\"+ozzL5F-7$$\"#KF*$\"+t1fD5F-7$$\"#LF*$\"+2h%y,\"F-7$$\"#MF*$\"+V
h_55F-7$$\"#NF*$\"+Onf.5F-7$$\"#OF*$\"+]QFq**!#67$$\"#PF*$\"+gp!z!**Fj
s7$$\"#QF*$\"+#z>'[)*Fjs7$$\"#RF*$\"+T%*=#z*Fjs7$$\"#SF*$\"+SSTQ(*Fjs7
$$\"#TF*$\"+)3DGl*Fjs7$$\"#UF*$\"+#QE4d*Fjs7$$\"#VF*$\"+CM[#\\*Fjs7$$
\"#WF*$\"+_6G<%*Fjs7$$\"#XF*$\"+MA7X$*Fjs7$$\"#YF*$\"+s\\#eF*Fjs7$$\"#
ZF*$\"+`=A4#*Fjs7$$\"#[F*$\"+V$e^9*Fjs7$$\"#\\F*$\"+([\"\\$3*Fjs7$$\"#
]F*$\"+3))3C!*Fjs-%&TITLEG6#Q>Zavislost~na~velikosti~ulozek6\"-%&STYLE
G6#%%LINEG" 1 6 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "C
urve 1" }}}{PARA 0 "" 0 "" {TEXT -1 73 "Je l\351pe spo\370it za dva li
di dv\354 men\232\355 \350\341stkym, ne\236 za jednoho jednu v\354t
\232\355." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 94 "pointplot\n([s
eq([i,PP(500,10,i/100)],i=1..10)],style=line,\ntitle=\"Zavislost na ur
okove mire\");" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "
6%-%'CURVESG6#7,7$$\"\"\"\"\"!$\"+;T:(4'!#67$$\"\"#F*$\"+q*=62(F-7$$\"
\"$F*$\"+PHxY!)F-7$$\"\"%F*$\"+#4'3C!*F-7$$\"\"&F*$\"+K5I+5!#57$$\"\"'
F*$\"+!\\\\$)4\"FB7$$\"\"(F*$\"+'=]l>\"FB7$$\"\")F*$\"+b')*[H\"FB7$$\"
\"*F*$\"+J1R$R\"FB7$$\"#5F*$\"+TA-#\\\"FB-%&TITLEG6#Q:Zavislost~na~uro
kove~mire6\"-%&STYLEG6#%%LINEG" 1 6 0 1 10 0 2 9 1 4 2 1.000000 
45.000000 45.000000 0 0 "Curve 1" }}}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 119 "N:='N';zeta:='zeta';i:='i';
N:='N';\n#solve\n(\nsubs(N=T,\nsimplify(\nsum(x*(1+zeta)^(i/12),i=1..1
2*N)\n)\n)\n=Nasporeno\n,zeta);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{SECT 0 
{PARA 3 "" 0 "" {TEXT -1 16 "Stavebni sporeni" }}{EXCHG {PARA 0 "" 0 "
" {TEXT -1 50 "stavebn\355 spo\370en\355\n\310MSS do konce \370\355jna
 sleva 1500K\350." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 218 "CilovaCastka:=300000;\nxi:=
0.02;\nVstupniPoplatek:=.01*CilovaCastka;\nPoplatekZaVedeni:=250; \nSt
atniPodpora:=x->min(3000,0.15*x);\nDobaSporeni:=6;#let\nVstupniPoplate
k:=x->0.01*x;\n\nUlozka:=100;\nPocatek:=CisloDne(1,11,2006);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 426 "StavNaKonciRoku:=t->\nsum(U
lozky[t]['j'][1]*(1+xi)^(CisloDne(31,12,t)-Ulozky[t]['j'][2])/DelkaRok
u(t)),j=1..nops([Ulozky[t]])\n-PoplatekZaVedeni*(1+xi)^(CisloDne(31,12
,t)-CisloDne(1,3,t)/DelkaRoku(t)) # ocekavam poplatek za vedeni uctu 1
. 3. \n+\nStatniPodpora[t]*(1+xi)^(CisloDne(31,12,t)-CisloDne(1,3,t)/D
elkaRoku(t)) # ocekavam statni podporu 1. 3. \nNasporenaCasatka:=t->St
avNaKonciRoku[t]-StavNaKonciRoku[t-1]-StatniPodpora[t]" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "for t from 2007 to  2007+6 do\nUloz
ky:=" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1672 "#local i,j,Mesic,
Rok,Data,StatniPodpora;\n#global CilovaCastka,xi,VstupniPoplatek,Popla
tekZaVedeni,Pocatek;\n\nsave CilovaCastka,xi,VstupniPoplatek,PoplatekZ
aVedeni, Pocatek, Ulozka, `Store`;\n\nunassign('Pocatek','CilovaCastka
','xi','VstupniPoplatek','PoplatekZaVedeni','Ulozka');\n\nData:=Prikla
d[7](UCO);\nassign(Data);\n\n#zeta:=evalf((1+xi)^(1/365)-1,14);\n\nPM[
1]:=Datum(Pocatek)[2];\n#KM[5]:=PM[5];\nfor j from 2 to 5 do\nPM[j]:=1
;\n#KM[j-1]:=12;\nod;\nunassign('i','j');\n\nA:=Datum(Pocatek)[3]; # A
 je letopocet, ve jkterem zacneme sporit\n\nKoment:=NULL;\nRok[0]:=-Vs
tupniPoplatek*(1+xi)^(-Vzdalenost(31,12,A-1,Datum(Pocatek))/DelkaRoku(
A));\n#  diskontuji vstupni poplatek\n\nMesic:=3;\nwhile CisloDne(1,Me
sic,A)<Pocatek do\nRok[0]:=Rok[0]+PoplatekZaVedeni*(1+xi)^(-Vzdalenost
(31,12,A-1,1,Mesic,A)/DelkaRoku(A)); \n# Vracim poplatky, ktere by se \+
platili pred uzavrenim smlouvy a diskontuji je \nMesic:=Mesic+3\nod: #
##\n\n\nSP[0]:=0;\nStav[0]:=Rok[0]:\n\nfor j from 1 to 5 do\n  A:=Datu
m(Pocatek)[3]+j-1; # A je aktualni letopocet\n\n  Rok[j]:=add(Ulozka*(
1+xi)^# velky rozdil, pokud zde pouziji sum a add !!!!!!!\n(Vzdalenost
(Datum(Pocatek)[1],i,A,31,12,A)/DelkaRoku(A)),\ni=PM[j]..12)\n-\nPopla
tekZaVedeni*\nadd(\n(1+xi)^(Vzdalenost(1,3*k,A,31,12,A)/DelkaRoku(A)),
\nk=1..4)\n+SP[j-1]*(1+xi)^(Vzdalenost(1,3,A,31,12,A)/DelkaRoku(A))\n;
\n\nNasporenaCastka[j]:=Rok[j]-SP[j-1];\nStav[j]:=Stav[j-1]*(1+xi)+Rok
[j];\nSP[j]:=min(4500,NasporenaCastka[j]/4);\n#print(evalf([Rok[j],SP[
j],Stav[j]]))\nKoment:=Koment,[A,evalf(Stav[j])]\nod:\n\nxxx:=evalf(\n
Stav[5]*(1+xi)^(Vzdalenost(31,12,A,1,3,A+1)/DelkaRoku(A+1))+SP[5]\n)\n
-PoplatekZaVedeni*(1+xi)^(Vzdalenost(1,3,A+1,1,3,A+1)/DelkaRoku(A+1))
\n;\nread store;\nxxx,[Koment,`. . .`];\n" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 1 "\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "f:=x-
>f(x-1)+1;\nf(0):=2;\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fGf*6#%
\"xG6\"6$%)operatorG%&arrowGF(,&-F$6#,&9$\"\"\"F1!\"\"F1F1F1F(F(F(" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%\"fG6#\"\"!\"\"#" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 5 "f(3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#
\"\"&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}}{MARK "3 1 0
 0" 50 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }