{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 "Error" 7 8 1 {CSTYLE "" -1 -1 "" 0 1 255 0 255 1 0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{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 Output" -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 0 {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 0 "> " 0 "" {MPLTEXT 1 0 519 "Datum:=proc(den)\nlocal Den, Mes ic, 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:=2 000+i;\n i:=1;\n while Den > PocetDniVMesici(i,Rok) do\n Den := Den - PocetDniVMesici(i,Rok);\n i:=i+1;\n od;\n Mesic:=i;\nelse\nDen:=Den- 1;\ni:=0;\n while Den < 0 do\n Den := Den+ DelkaRoku(2000+i);\n i:=i -1;\n od;\n Rok:=2000+i;\ni:=1;\n while Den > PocetDniVMesici(i,Rok) d o\n Den := Den - PocetDniVMesici(i,Rok);\n i:=i+1;\n od;\n Mesic:=i; \n\nfi;\nDen,Mesic,Rok;\nend;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*Pr estupnyGf*6#%$RokG6\"F(F(@%50-%$modG6$9$\"\"%\"\"!3/-F-6$F/\"$+\"F10-F -6$,$*&#\"\"\"F6F=F/F=F=F0F1%&falseG%%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$.-%0PocetDniVMesiciG6$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%&arrowG F-,&-%)CisloDneG6%9'9(9)\"\"\"-F36%9$9%9&!\"\"F-F-F-" }}{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$\"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[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)*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 117 "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, \350ili v\375nosnost penzijn\355ho p\370ipoji\232t\354n\355." }{MPLTEXT 1 0 364 "\nPP:=proc(Ulozky,Pocet Let,PredpokladanaUrokovaMira)\nlocal N,T,x,xi,i,z,zeta,Nasporeno;\nT:= PocetLet;\nxi:=PredpokladanaUrokovaMira; \nx:=Ulozky;\n#T:=50;x:=500;x i:=.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(\nsub s(N=T,\nsimplify(\nsum(x*(1.+zeta)^(i/12.),i=1..12*N)\n)\n)\n=Nasporen o\n,zeta);\nend;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#PPGf*6%%'Ulozky G%)PocetLetG%9PredpokladanaUrokovaMiraG6*%\"NG%\"TG%\"xG%#xiG%\"iG%\"z G%%zetaG%*NasporenoG6\"F3C(>8%9%>8'9&>8&9$>8+-%%subsG6$/8$F6-%)simplif yG6#-%$sumG6$*&,&F<\"\"\"-%$StPG6#FF?-%&evalfG6#F?-%'fsolveG6$/-FA6$FC-FF6#-FI6$*& F " 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):" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 136 "Z\341vislost v\375nosnosti spo\370en\355 kles\341 s d\351lkou spo\370en\355 (asymp tota je p\370edpokl\341dan\341 pr\371m\354rn\341 \372rokov\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=l ine,title=\"Zavislost na delce sporeni\");" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6%-%'CURVESG6#7F7$$\"\"&\"\"!$\"+$f Q>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$$\"#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*$\"+]jmPa FB7$$\"#KF*$\"+2--'Q&FB7$$\"#LF*$\"+')*3wL&FB7$$\"#MF*$\"+:[9#H&FB7$$ \"#NF*$\"+$)GP\\_FB7$$\"#OF*$\"+Io14_FB7$$\"#PF*$\"+(*[-r^FB7$$\"#QF*$ \"+Vm1N^FB7$$\"#RF*$\"+I-.,^FB7$$\"#SF*$\"+k+xo]FB-%&STYLEG6#%%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 sami 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 \372 lo\236ek:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 101 "pointplot\n([seq([i,P P(10*i,10,4/100.)],i=10..50)],style=line,\ntitle=\"Zavislost na veliko sti ulozek\");" }}{PARA 0 "" 0 "" {TEXT -1 73 "Je l\351pe spo\370it za dva lidi dv\354 men\232\355 \350\341stkym, ne\236 za jednoho jednu v \354t\232\355." }}{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*$\"+joAO6F-7$$\"#:F*$\"+)HI,8 \"F-7$$\"#;F*$\"+L'yZ7\"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*$\"+CqTd5F-7$$\"#GF*$\"+Bx5_5F -7$$\"#HF*$\"+&H]r/\"F-7$$\"#IF*$\"+e3^U5F-7$$\"#JF*$\"+ozzL5F-7$$\"#K F*$\"+t1fD5F-7$$\"#LF*$\"+2h%y,\"F-7$$\"#MF*$\"+Vh_55F-7$$\"#NF*$\"+On f.5F-7$$\"#OF*$\"+]QFq**!#67$$\"#PF*$\"+gp!z!**Fjs7$$\"#QF*$\"+#z>'[)* Fjs7$$\"#RF*$\"+T%*=#z*Fjs7$$\"#SF*$\"+SSTQ(*Fjs7$$\"#TF*$\"+)3DGl*Fjs 7$$\"#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-%&ST YLEG6#%%LINEG-%&TITLEG6#Q>Zavislost~na~velikosti~ulozek6\"" 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 "" {MPLTEXT 1 0 94 "pointplot\n([seq([i,PP(500,10,i/100 )],i=1..10)],style=line,\ntitle=\"Zavislost na urokove mire\");" }} {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6%-%'CURVESG6#7,7$$\"\"\"\"\"!$\"+;T:(4'!#67$$\"\"#F* $\"+j*=62(F-7$$\"\"$F*$\"+PHxY!)F-7$$\"\"%F*$\"+#4'3C!*F-7$$\"\"&F*$\" +S5I+5!#57$$\"\"'F*$\"+$\\\\$)4\"FB7$$\"\"(F*$\"+'=]l>\"FB7$$\"\")F*$ \"+b')*[H\"FB7$$\"\"*F*$\"+J1R$R\"FB7$$\"#5F*$\"+SA-#\\\"FB-%&STYLEG6# %%LINEG-%&TITLEG6#Q:Zavislost~na~urokove~mire6\"" 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 "" {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..12*N)\n)\n)\n=Naspo reno\n,zeta);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"NGF$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%zetaGF$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#> %\"iGF$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"NGF$" }}{PARA 11 "" 1 " " {XPPMATH 20 "6$/,$*(%\"xG\"\"\",&),&F'F'%%zetaGF',&%\"TGF'#F'\"#7F'! \"\"*$)F*F.F'F'F',&F1F'F'F0F0F0%*NasporenoGF+" }}}{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 kon ce \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 18 "solve(.15*x=3000);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"&++#\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 552 "Cilova Castka:=300000;\nxi:=0.02;\nVstupniPoplatek:=.01*CilovaCastka;\nPoplat ekZaVedeni:=250; \n\nSP:=x->min(3000,0.15*x);\nStatniPodpora(0):=0;\n \nDobaSporeni:=6;#let\n\n\n\nUlozka:=100;\nPocatek:=CisloDne(1,11,2006 );\n\nStavNaKonciRoku(Datum(Pocatek)[3]-1):=VstupniPoplatek*\n(1+xi)^( (CisloDne(\nDatum(Pocatek)[1],Datum(Pocatek)[2],\nDatum(Pocatek)[3]-1) -Pocatek)/365.25);\n\nNasporenaCastka(Datum(Pocatek)[3]-2):=0;\nNaspor enaCastka(Datum(Pocatek)[3]-1):=StavNaKonciRoku(Datum(Pocatek)[3]-1); \n\nStatniPodpora(Datum(Pocatek)[3]-2):=0;\nStatniPodpora(Datum(Pocate k)[3]-1):=0;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%-CilovaCastkaG\"'++I " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#xiG$\"\"#!\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%0VstupniPoplatekG$\"'++I!\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%1PoplatekZaVedeniG\"$]#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#SPGf*6#%\"xG6\"6$%)operatorG%&arrowGF(-%$minG6$\"%+I*&$\"#:! \"#\"\"\"9$F4F(F(F(" }}{PARA 8 "" 1 "" {TEXT -1 44 "Error, invalid lef t hand side in assignment\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%,Doba SporeniG\"\"'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'UlozkaG\"$+\"" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%(PocatekG\"%&\\#" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>-%0StavNaKonciRokuG6#\"%0?$\"+Oj@TH!\"'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%0NasporenaCastkaG6#\"%/?\"\"!" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#>-%0NasporenaCastkaG6#\"%0?$\"+Oj@TH!\"'" }} {PARA 8 "" 1 "" {TEXT -1 44 "Error, invalid left hand side in assignme nt\n" }}{PARA 8 "" 1 "" {TEXT -1 44 "Error, invalid left hand side in \+ assignment\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "\nPol:=(x,j )->`if`(nops([x])=1,x,[x[j],j]);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6# >%$PolGf*6$%\"xG%\"jG6\"6$%)operatorG%&arrowGF)-%#ifG6%/-%%nopsG6#7#9$ \"\"\"F57$&F56#9%F:F)F)F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 144 "Pol:=proc()\n#print(x,x[j],j);\n#print(nargs,args[1..2],args[narg s],args[args[nargs]]);\nif nargs<=2 then\n args[1]\nelse args[args[nar gs]]\nfi\nend;\n\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$PolGf*6\"F&F& F&@%19#\"\"#&9\"6#\"\"\"&F,6#&F,6#F)F&F&F&" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 552 "StavNaKonciRoku:=t->\n`if`(t%0S tavNaKonciRokuGf*6#%\"tG6\"6$%)operatorG%&arrowGF(-%#ifG6%29$&-%&Datum G6#%(PocatekG6#\"\"$\"\"!,**&-F$6#,&F0\"\"\"F>!\"\"F>,&F>F>%#xiGF>F>F> -%$addG6$*&&-%$PolG6$&%'UlozkyG6#F0%\"jG6#F>F>)F@*&,&-%)CisloDneG6%\"# J\"#7F0F>&FG6#\"\"#F?F>-%*DelkaRokuGFLF?F>/FM;F>-%%nopsG6#7#FJF>*&%1Po platekZaVedeniGF>)F@*&,&FRF>-FS6%F>F7F0F?F>FZF?F>F?*&-%.StatniPodporaG FF^oF>F>F(F(F(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6'\"%0?\"\"!\"\"\"7 $\"$]#\"%c=\"$M$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6(\"%1?,&$\"(x@+%!\" (\"\"\"*&$\"+n]o;5!\"*F(--%*PIECEWISEG6'7$,&$\"$+\"!\"\"F(*&$\"\"%F5F( %\"xGF(F(2F9\"$+#7$,&$\"$+$F5F(*&$\"\"$F5F(F9F(F(2F9F?7$,&$\"$+'F5F(*& $\"\"#F5F(F9F(F(2F9\"$+%7$,&$\"%+5F5F(*&$F(F5F(F9F(F(2F9\"$+&7$\"$]\"% *otherwiseG6#\"%0?F(F(FJ7$\"$]#\"%@A7$\"\"!\"%5A\"$M$" }}{PARA 12 "" 1 "" {XPPMATH 20 "6(\"%2?,($\"()R%3)!\"(\"\"\"*&$\"+o(=q.\"!\"*F(--%*P IECEWISEG6'7$,&$\"$+\"!\"\"F(*&$\"\"%F5F(%\"xGF(F(2F9\"$+#7$,&$\"$+$F5 F(*&$\"\"$F5F(F9F(F(2F9F?7$,&$\"$+'F5F(*&$\"\"#F5F(F9F(F(2F9\"$+%7$,&$ \"%+5F5F(*&$F(F5F(F9F(F(2F9\"$+&7$\"$]\"%*otherwiseG6#\"%0?F(F(*&$\"+n ]o;5F,F(-F.6#\"%1?F(F(FJ7$\"$]#\"%'e#7$\"\"!\"%vD\"$M$" }}{PARA 12 "" 1 "" {XPPMATH 20 "6(\"%3?,*$\"+Ou\"z.#!\"&\"\"\"*&$\"+V\"fx0\"!\"*F(-- %*PIECEWISEG6'7$,&$\"$+\"!\"\"F(*&$\"\"%F5F(%\"xGF(F(2F9\"$+#7$,&$\"$+ $F5F(*&$\"\"$F5F(F9F(F(2F9F?7$,&$\"$+'F5F(*&$\"\"#F5F(F9F(F(2F9\"$+%7$ ,&$\"%+5F5F(*&$F(F5F(F9F(F(2F9\"$+&7$\"$]\"%*otherwiseG6#\"%0?F(F(*&$ \"+o(=q.\"F,F(-F.6#\"%1?F(F(*&$\"+.\"Rm,\"F,F(-F.6#\"%2?F(F(FJ7$\"$]# \"%^H7$\"&++#\"%SH\"$N$" }}{PARA 12 "" 1 "" {XPPMATH 20 "6(\"%4?,,$\"+ _M];T!\"&\"\"\"*&$\"+EV\"*y5!\"*F(--%*PIECEWISEG6'7$,&$\"$+\"!\"\"F(*& $\"\"%F5F(%\"xGF(F(2F9\"$+#7$,&$\"$+$F5F(*&$\"\"$F5F(F9F(F(2F9F?7$,&$ \"$+'F5F(*&$\"\"#F5F(F9F(F(2F9\"$+%7$,&$\"%+5F5F(*&$F(F5F(F9F(F(2F9\"$ +&7$\"$]\"%*otherwiseG6#\"%0?F(F(*&$\"+V\"fx0\"F,F(-F.6#\"%1?F(F(*&$\" +&)=(p.\"F,F(-F.6#\"%2?F(F(*&$\"+n]o;5F,F(-F.6#\"%3?F(F(FJ7$\"$]#\"% \"!\"*F(--%*PIECEWISEG6'7$,&$\"$+\"!\"\"F(*&$\"\"%F5F(%\"xGF(F(2F9\"$+ #7$,&$\"$+$F5F(*&$\"\"$F5F(F9F(F(2F9F?7$,&$\"$+'F5F(*&$\"\"#F5F(F9F(F( 2F9\"$+%7$,&$\"%+5F5F(*&$F(F5F(F9F(F(2F9\"$+&7$\"$]\"%*otherwiseG6#\"% 0?F(F(*&$\"+k:&y;\"F,F(-F.6#\"%1?F(F(*&$\"+^2!\\9\"F,F(-F.6#\"%2?F(F(* &$\"+lC]A6F,F(-F.6#\"%3?F(F(*&$\"+8E\\+6F,F(-F.6#\"%4?F(F(*&$\"+EV\"*y 5F,F(-F.6#\"%5?F(F(*&$\"+B8rd5F,F(-F.6#\"%6?F(F(*&$\"+o(=q.\"F,F(-F.6# \"%7?F(F(*&$\"+n]o;5F,F(-F.6#\"%8?F(F(F(7$\"$]#\"%V^\"$M$" }}{PARA 12 "" 1 "" {XPPMATH 20 "6'\"%:?,8$\"+#Ra<4*!\"&\"\"\"*&$\"+nF.:7!\"*F(--% *PIECEWISEG6'7$,&$\"$+\"!\"\"F(*&$\"\"%F5F(%\"xGF(F(2F9\"$+#7$,&$\"$+$ F5F(*&$\"\"$F5F(F9F(F(2F9F?7$,&$\"$+'F5F(*&$\"\"#F5F(F9F(F(2F9\"$+%7$, &$\"%+5F5F(*&$F(F5F(F9F(F(2F9\"$+&7$\"$]\"%*otherwiseG6#\"%0?F(F(*&$\" +&f37>\"F,F(-F.6#\"%1?F(F(*&$\"+m()zn6F,F(-F.6#\"%2?F(F(*&$\"+9D&\\9\" F,F(-F.6#\"%3?F(F(*&$\"+lC]A6F,F(-F.6#\"%4?F(F(*&$\"+8E\\+6F,F(-F.6#\" %5?F(F(*&$\"+\\b')y5F,F(-F.6#\"%6?F(F(*&$\"+V\"fx0\"F,F(-F.6#\"%7?F(F( *&$\"+o(=q.\"F,F(-F.6#\"%8?F(F(*&$\"+n]o;5F,F(-F.6#\"%9?F(F(F(7$\"$]# \"%3b\"$M$" }}{PARA 12 "" 1 "" {XPPMATH 20 "6'\"%;?,:$\"+n2jt#*!\"&\" \"\"*&$\"+AMLR7!\"*F(--%*PIECEWISEG6'7$,&$\"$+\"!\"\"F(*&$\"\"%F5F(%\" xGF(F(2F9\"$+#7$,&$\"$+$F5F(*&$\"\"$F5F(F9F(F(2F9F?7$,&$\"$+'F5F(*&$\" \"#F5F(F9F(F(2F9\"$+%7$,&$\"%+5F5F(*&$F(F5F(F9F(F(2F9\"$+&7$\"$]\"%*ot herwiseG6#\"%0?F(F(*&$\"+nF.:7F,F(-F.6#\"%1?F(F(*&$\"+TZ:\">\"F,F(-F.6 #\"%2?F(F(*&$\"+k:&y;\"F,F(-F.6#\"%3?F(F(*&$\"+9D&\\9\"F,F(-F.6#\"%4?F (F(*&$\"+lC]A6F,F(-F.6#\"%5?F(F(*&$\"+gGW+6F,F(-F.6#\"%6?F(F(*&$\"+EV \"*y5F,F(-F.6#\"%7?F(F(*&$\"+V\"fx0\"F,F(-F.6#\"%8?F(F(*&$\"+o(=q.\"F, F(-F.6#\"%9?F(F(*&$\"+.\"Rm,\"F,F(-F.6#\"%:?F(F(F(7$\"$]#\"%te\"$N$" } }{PARA 12 "" 1 "" {XPPMATH 20 "6'\"%\"F,F(-F.6#\"%3?F(F(*&$\"+k:&y;\"F,F(-F.6#\"%4?F(F(*&$\"+9D& \\9\"F,F(-F.6#\"%5?F(F(*&$\"+<$\"+#Hm$['*! \"&\"\"\"*&$\"+#\\-%*G\"!\"*F(--%*PIECEWISEG6'7$,&$\"$+\"!\"\"F(*&$\" \"%F5F(%\"xGF(F(2F9\"$+#7$,&$\"$+$F5F(*&$\"\"$F5F(F9F(F(2F9F?7$,&$\"$+ 'F5F(*&$\"\"#F5F(F9F(F(2F9\"$+%7$,&$\"%+5F5F(*&$F(F5F(F9F(F(2F9\"$+&7$ \"$]\"%*otherwiseG6#\"%0?F(F(*&$\"+!4?TE\"F,F(-F.6#\"%1?F(F(*&$\"+$Rx# R7F,F(-F.6#\"%2?F(F(*&$\"+nF.:7F,F(-F.6#\"%3?F(F(*&$\"+&f37>\"F,F(-F.6 #\"%4?F(F(*&$\"+k:&y;\"F,F(-F.6#\"%5?F(F(*&$\"+^2!\\9\"F,F(-F.6#\"%6?F (F(*&$\"+lC]A6F,F(-F.6#\"%7?F(F(*&$\"+8E\\+6F,F(-F.6#\"%8?F(F(*&$\"+EV \"*y5F,F(-F.6#\"%9?F(F(*&$\"+B8rd5F,F(-F.6#\"%:?F(F(*&$\"+o(=q.\"F,F(- F.6#\"%;?F(F(*&$\"+n]o;5F,F(-F.6#\"%?,@$\"+ROPT)*!\"&\"\"\"*&$\"+U0>:8 !\"*F(--%*PIECEWISEG6'7$,&$\"$+\"!\"\"F(*&$\"\"%F5F(%\"xGF(F(2F9\"$+#7 $,&$\"$+$F5F(*&$\"\"$F5F(F9F(F(2F9F?7$,&$\"$+'F5F(*&$\"\"#F5F(F9F(F(2F 9\"$+%7$,&$\"%+5F5F(*&$F(F5F(F9F(F(2F9\"$+&7$\"$]\"%*otherwiseG6#\"%0? F(F(*&$\"+#\\-%*G\"F,F(-F.6#\"%1?F(F(*&$\"+TH1k7F,F(-F.6#\"%2?F(F(*&$ \"+AMLR7F,F(-F.6#\"%3?F(F(*&$\"+nF.:7F,F(-F.6#\"%4?F(F(*&$\"+&f37>\"F, F(-F.6#\"%5?F(F(*&$\"+m()zn6F,F(-F.6#\"%6?F(F(*&$\"+9D&\\9\"F,F(-F.6# \"%7?F(F(*&$\"+lC]A6F,F(-F.6#\"%8?F(F(*&$\"+8E\\+6F,F(-F.6#\"%9?F(F(*& $\"+\\b')y5F,F(-F.6#\"%:?F(F(*&$\"+V\"fx0\"F,F(-F.6#\"%;?F(F(*&$\"+o(= q.\"F,F(-F.6#\"%:8F,F(-F.6#\"%1?F(F(*&$\"++UM*G\"F,F(-F.6#\"%2?F(F( *&$\"+!4?TE\"F,F(-F.6#\"%3?F(F(*&$\"+AMLR7F,F(-F.6#\"%4?F(F(*&$\"+nF.: 7F,F(-F.6#\"%5?F(F(*&$\"+TZ:\">\"F,F(-F.6#\"%6?F(F(*&$\"+k:&y;\"F,F(-F .6#\"%7?F(F(*&$\"+9D&\\9\"F,F(-F.6#\"%8?F(F(*&$\"+lC]A6F,F(-F.6#\"%9?F (F(*&$\"+gGW+6F,F(-F.6#\"%:?F(F(*&$\"+EV\"*y5F,F(-F.6#\"%;?F(F(*&$\"+V \"fx0\"F,F(-F.6#\"%?F(F(F(7$\"$]#\"%Mt\"$N$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 68 "t:=2006;\nStavNaKonciRoku(t)-StavNaKonciRoku(t-1)-Sta tniPodpora(t-1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"tG\"%1?" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#,&$\"(x@+%!\"(\"\"\"*&$\")n]o;!\"*F'-- %*PIECEWISEG6'7$,&$\"$+\"!\"\"F'*&$\"\"%F4F'%\"xGF'F'2F8\"$+#7$,&$\"$+ $F4F'*&$\"\"$F4F'F8F'F'2F8F>7$,&$\"$+'F4F'*&$\"\"#F4F'F8F'F'2F8\"$+%7$ ,&$\"%+5F4F'*&$F'F4F'F8F'F'2F8\"$+&7$\"$]\"%*otherwiseG6#\"%0?F'F'" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 191 "NasporenaCastka:=t->`if`(t %0Na sporenaCastkaGf*6#%\"tG6\"6$%)operatorG%&arrowGF(-%#ifG6%29$&-%&DatumG 6#%(PocatekG6#\"\"$\"\"!,(-%0StavNaKonciRokuG6#F0\"\"\"-F;6#,&F0F=F=! \"\"FA-%.StatniPodporaGF?FAF(F(F(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$ \"%0?\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"%1?,&$\"(x@+%!\"(\"\" \"*&$\")n]o;!\"*F(--%*PIECEWISEG6'7$,&$\"$+\"!\"\"F(*&$\"\"%F5F(%\"xGF (F(2F9\"$+#7$,&$\"$+$F5F(*&$\"\"$F5F(F9F(F(2F9F?7$,&$\"$+'F5F(*&$\"\"# F5F(F9F(F(2F9\"$+%7$,&$\"%+5F5F(*&$F(F5F(F9F(F(2F9\"$+&7$\"$]\"%*other wiseG6#\"%0?F(F(" }}{PARA 12 "" 1 "" {XPPMATH 20 "6$\"%2?,($\"(@A3%!\" (\"\"\"*&$\"),PL?!\"*F(--%*PIECEWISEG6'7$,&$\"$+\"!\"\"F(*&$\"\"%F5F(% \"xGF(F(2F9\"$+#7$,&$\"$+$F5F(*&$\"\"$F5F(F9F(F(2F9F?7$,&$\"$+'F5F(*&$ \"\"#F5F(F9F(F(2F9\"$+%7$,&$\"%+5F5F(*&$F(F5F(F9F(F(2F9\"$+&7$\"$]\"%* otherwiseG6#\"%0?F(F(*&$\")n]o;F,F(-F.6#\"%1?F(F(" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 16 "SP(20377.87646);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"%+I" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "SP( NasporenaCastka(2006));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%$minG6$\" %+I,&$\")bE.g!\"*\"\"\"*&$\"*0gF]#!#6F+--%*PIECEWISEG6'7$,&$\"$+\"!\" \"F+*&$\"\"%F8F+%\"xGF+F+2F<\"$+#7$,&$\"$+$F8F+*&$\"\"$F8F+F " 0 "" {MPLTEXT 1 0 43 "\n\nStatniPodpora:=t->SP(NasporenaCastka(t));" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "StatniPodpora(2006);" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#>%.StatniPodporaGf*6#%\"tG6\"6$%)operatorG%&arro wGF(-%#SPG6#-%0NasporenaCastkaG6#9$F(F(F(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\")bE.g!\"*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "NasporenaCastka(1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"!" }}} {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 188 "StavEkv:=tau->\nadd(\n `if `(Datum(UlozkyEkv[i][2])[3]>tau,\n 0,\n UlozkyEkv[i][1])\n *(1+'zeta')^((CisloDne(31,12,tau)-Pol(UlozkyEkv[i][2]))/DelkaRoku(t)), \ni=1..nops(UlozkyEkv));\n\n\n" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%(S tavEkvGf*6#%$tauG6\"6$%)operatorG%&arrowGF(-%$addG6$*&-%#ifG6%29$&-%&D atumG6#&&%*UlozkyEkvG6#%\"iG6#\"\"#6#\"\"$\"\"!&F:6#\"\"\"FE),&FEFE.%% zetaGFE*&,&-%)CisloDneG6%\"#J\"#7F4FE-%$PolGF8!\"\"FE-%*DelkaRokuG6#% \"tGFSFE/F=;FE-%%nopsG6#F;F(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 355 "A:=NULL;\n\n\nUlozky:='Ulozky';NULL;\nfor t from 200 5 to 2020 do\nx:=0.;\nUlozky[t]:=[x,CisloDne(31,1,t)]\nod;\nUlozky[Da tum(Pocatek)[3]]:=[VstupniPoplatek,Pocatek];\nfor t from 2006 to 2006 +6 do\nx:=z;\nUlozky[t]:=Ulozky[t],[x,CisloDne(20,1,t)]\nod;\n\nUlozky Ekv:=convert(Ulozky,list);\n\nCilovaCatska:=StavNaKonciRoku(2012);\n\n rce:=StavNaKonciRoku(2012)=StavEkv(2012);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "\nA:=A,[x,fsolve(rce)];\n\n" }{XPPMATH 20 "6#>%'Ulozk yGF$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG6\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'UlozkyGF$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG$ \"\"!F&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%'UlozkyG6#\"%0?7$$\"\"!F *\"%c=" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG$\"\"!F&" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#>&%'UlozkyG6#\"%1?7$$\"\"!F*\"%@A" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#>%\"xG$\"\"!F&" }}{PARA 11 "" 1 "" {XPPMATH 20 " 6#>&%'UlozkyG6#\"%2?7$$\"\"!F*\"%'e#" }}{PARA 11 "" 1 "" {XPPMATH 20 " 6#>%\"xG$\"\"!F&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%'UlozkyG6#\"%3? 7$$\"\"!F*\"%^H" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG$\"\"!F&" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>&%'UlozkyG6#\"%4?7$$\"\"!F*\"%%\"xG$\"\"!F&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%'UlozkyG6#\"%5?7$$\"\"!F*\"%#o$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG$\"\"!F&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%'U lozkyG6#\"%6?7$$\"\"!F*\"%ZS" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG $\"\"!F&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%'UlozkyG6#\"%7?7$$\"\"! F*\"%7W" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG$\"\"!F&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%'UlozkyG6#\"%8?7$$\"\"!F*\"%yZ" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#>%\"xG$\"\"!F&" }}{PARA 11 "" 1 "" {XPPMATH 20 " 6#>&%'UlozkyG6#\"%9?7$$\"\"!F*\"%V^" }}{PARA 11 "" 1 "" {XPPMATH 20 "6 #>%\"xG$\"\"!F&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%'UlozkyG6#\"%:?7 $$\"\"!F*\"%3b" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG$\"\"!F&" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>&%'UlozkyG6#\"%;?7$$\"\"!F*\"%te" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG$\"\"!F&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%'UlozkyG6#\"%%\"xG$\"\"!F&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%'U lozkyG6#\"%=?7$$\"\"!F*\"%/m" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG $\"\"!F&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%'UlozkyG6#\"%>?7$$\"\"! F*\"%pp" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG$\"\"!F&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%'UlozkyG6#\"%??7$$\"\"!F*\"%Mt" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#>&%'UlozkyG6#\"%1?7$$\"'++I!\"#\"%&\\#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG%\"zG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%'UlozkyG6#\"%1?6$7$$\"'++I!\"#\"%&\\#7$%\"zG\"%5A" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#>%\"xG%\"zG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#> &%'UlozkyG6#\"%2?6$7$$\"\"!F+\"%'e#7$%\"zG\"%vD" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG%\"zG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%'Uloz kyG6#\"%3?6$7$$\"\"!F+\"%^H7$%\"zG\"%SH" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG%\"zG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%'UlozkyG6#\"%4 ?6$7$$\"\"!F+\"%%\" xG%\"zG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%'UlozkyG6#\"%5?6$7$$\"\" !F+\"%#o$7$%\"zG\"%rO" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG%\"zG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%'UlozkyG6#\"%6?6$7$$\"\"!F+\"%ZS7 $%\"zG\"%OS" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG%\"zG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%'UlozkyG6#\"%7?6$7$$\"\"!F+\"%7W7$%\"zG\" %,W" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%*UlozkyEkvG797$$\"\"!F(\"%c=7 $$\"'++I!\"#\"%&\\#7$%\"zG\"%5A7$F'\"%'e#7$F0\"%vD7$F'\"%^H7$F0\"%SH7$ F'\"%%-CilovaCatskaG,2$\"+=c%**\\\" !\"'\"\"\"*&$\"+2%$rceG/,2$\"+=c%** \\\"!\"'\"\"\"*&$\"+2F*F/F*F**&$\"*0gF]#!#6F*F3F*F*F*F**&$\"+ EV\"*y5F.F*-F46$F6,*$\"+l7VXIFGFH*&$\"+J-4!f\"F>F*F/F*F**&$\"*:b+0$FOF *F3F*F**&$\"*Xle\\#FOF*FBF*F*F*F**&$\"+V\"fx0\"F.F*-F46$F6,,$\"+bA^1JF GFH*&$\"+1v)=i\"F>F*F/F*F**&$\"*Dc56$FOF*F3F*F**&$\"*I<*\\IFOF*FBF*F** &FMF*FSF*F*F*F**&$\"+o(=q.\"F.F*-F46$F6,.$\"+&\\U'oJFGFH*&$\"+a_Ka;F>F *F/F*F**&$\"*XxK<$FOF*F3F*F**&$\"*q:46$FOF*FBF*F**&FfnF*FSF*F**&FMF*F^ oF*F*F*F**&$\"+.\"Rm,\"F.F*-F46$F6,0$\"+]`,KKFGFH*&$\"+gF*F/F* F**&$\"*0VnB$FOF*F3F*F**&$\"*!R8tJFOF*FBF*F**&FgoF*FSF*F**&FfnF*F^oF*F **&FMF*F`pF*F*F*F*,2*&$\"'++I!\"#F*),&F*F*%%zetaGF*#\"%_A\"$l$F*F**&F/ F*)Fjr#\"%PDF^sF*F**&F/F*)Fjr#\"%s@F^sF*F**&F/F*)Fjr#\"%2=F^sF*F**&F/F *)Fjr#\"%T9F^sF*F**&F/F*)Fjr#\"%w5F^sF*F**&F/F*)Fjr#\"$6(F^sF*F**&F/F* )Fjr#\"$Y$F^sF*F*" }}{PARA 8 "" 1 "" {TEXT -1 81 "Error, (in fsolve) n umber of equations, 1, does not match number of variables, 2\n" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1672 "#lo cal i,j,Mesic,Rok,Data,StatniPodpora;\n#global CilovaCastka,xi,Vstupni Poplatek,PoplatekZaVedeni,Pocatek;\n\nsave CilovaCastka,xi,VstupniPopl atek,PoplatekZaVedeni, Pocatek, Ulozka, `Store`;\n\nunassign('Pocatek' ,'CilovaCastka','xi','VstupniPoplatek','PoplatekZaVedeni','Ulozka');\n \nData:=Priklad[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(Po catek)[3]; # A je letopocet, ve jkterem zacneme sporit\n\nKoment:=NULL ;\nRok[0]:=-VstupniPoplatek*(1+xi)^(-Vzdalenost(31,12,A-1,Datum(Pocate k))/DelkaRoku(A));\n# diskontuji vstupni poplatek\n\nMesic:=3;\nwhile CisloDne(1,Mesic,A) \+ " 0 "" {MPLTEXT 1 0 1 "\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%DataG- &%(PrikladG6#\"\"(6#%$UCOG" }}{PARA 8 "" 1 "" {TEXT -1 87 "Error, (in \+ Datum) cannot determine if this expression is true or false: 0 <= Poca tek+2\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%#PMG6#\"\"#\"\"\"" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>&%#PMG6#\"\"$\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%#PMG6#\"\"%\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%#PMG6#\"\"&\"\"\"" }}{PARA 8 "" 1 "" {TEXT -1 87 "Error, (in \+ Datum) cannot determine if this expression is true or false: 0 <= Poca tek+2\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'KomentG6\"" }}{PARA 8 " " 1 "" {TEXT -1 87 "Error, (in Datum) cannot determine if this express ion is true or false: 0 <= Pocatek+2\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&MesicG\"\"$" }}{PARA 8 "" 1 "" {TEXT -1 73 "Error, (in CisloD ne) CisloDne uses a 3rd argument, Rok, which is missing\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%#SPG6#\"\"!F'" }}{PARA 8 "" 1 "" {TEXT -1 87 "Error, (in Datum) cannot determine if this expression is true or f alse: 0 <= Pocatek+2\n" }}{PARA 8 "" 1 "" {TEXT -1 78 "Error, (in Vzda lenost) Vzdalenost uses a 6th argument, RokB, which is missing\n" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%-CilovaCastkaG\"'++I" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#xiG$\"\"#!\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 " 6#>%0VstupniPoplatekG$\"'++I!\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>% 1PoplatekZaVedeniG\"$]#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%(PocatekG \"%&\\#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'UlozkaG\"$+\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%$xxxG7#%&.~.~.G" }}}{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 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}}{MARK "3 26 0 0" 0 } {VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }