{VERSION 5 0 "IBM INTEL NT" "5.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 }
{CSTYLE "" 0 21 "" 0 1 0 0 0 1 0 0 0 0 2 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 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 "" 0 256 1 {CSTYLE "" -1 -1 "" 1 14 0 0 0 0 0 1 0 0 
0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}}{SECT 0 {PARA 3 "" 0 "
" {TEXT -1 15 "greg. kalendar " }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 187 "Prestupny := proc (Rok) #procedura zjisti, zda je rok prestupny
 Vystup true: je prestupny\n if Rok mod 4 <> 0\n or Rok mod 100 = 0 an
d Rok/100 mod 4 <> 0\n then false\n else \ntrue\n fi \n end ;" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 307 "PocetDniVMesici := proc (Mesic,Rok
) #procedura urci pocet dni v mesici. Vstup je cislo mesice a cislo ro
ku\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 Prestup
ny(Rok) then \n      29\n    else \n    28\n   fi \n else 30;\n fi \nf
i; \nend:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 65 "DelkaRoku:=proc(Rok)\n
if Prestupny(Rok) then\n366\nelse\n365\nfi\nend;\n" }}{PARA 12 "" 1 "
" {XPPMATH 20 "6#>%*PrestupnyGf*6#%$RokG6\"F(F(@%50-%$modG6$9$\"\"%\"
\"!3/-F-6$F/\"$+\"F10-F-6$,$F/#\"\"\"F6F0F1%&falseG%%trueGF(F(F(" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*DelkaRokuGf*6#%$RokG6\"F(F(@%-%*Pre
stupnyG6#9$\"$m$\"$l$F(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
356 "CisloDne:=proc(Den,Mesic,Rokk)#zbytek po deleni sedmi udava den v
 tydnu\nlocal i;\ni:='i';\n# korekce pro neexistujici rok 0:\nif Rokk<
=0 then \nRok:=Rokk+1\nelse\nRok:=Rokk\nfi;\n`if`( Rok>=2000,\nadd(Del
kaRoku(i),i=2000..Rok-1)+add(PocetDniVMesici(i,Rok),i=1..Mesic-1)+Den-
2,\nadd(-DelkaRoku(i),i=Rok..2000-1)+\nadd(PocetDniVMesici(i,Rok),i=1.
.Mesic-1)+Den-2\n);\nend;" }}{PARA 7 "" 1 "" {TEXT -1 68 "Warning, `Ro
k` is implicitly declared local to procedure `CisloDne`\n" }}{PARA 12 
"" 1 "" {XPPMATH 20 "6#>%)CisloDneGf*6%%$DenG%&MesicG%%RokkG6$%\"iG%$R
okG6\"F-C%>8$.F0@%19&\"\"!>8%,&F4\"\"\"F9F9>F7F4-%#ifG6%1\"%+?F7,*-%$a
ddG6$-%*DelkaRokuG6#F0/F0;F?,&F7F9F9!\"\"F9-FB6$-%0PocetDniVMesiciG6$F
0F7/F0;F9,&9%F9F9FJF99$F9\"\"#FJ,*-FB6$,$FDFJ/F0;F7\"%**>F9FKF9FTF9FUF
JF-F-F-" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 0 "> " 
0 "" {MPLTEXT 1 0 105 "Vzdalenost:=(DenA,MesicA,RokA,DenB,MesicB,RokB)
->\nCisloDne(DenB,MesicB,RokB)-CisloDne(DenA,MesicA,RokA);\n" }}{PARA 
0 "> " 0 "" {MPLTEXT 1 0 596 "Datum:=proc(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 - PocetDn
iVMesici(i,Rok);\n  i:=i+1;\n od;\n Mesic:=i;\nelse\n#Den:=Den-1;\n#pr
int(Den);\ni:=0;\n while Den <= 0 do\n i:=i-1;\n  Den := Den+ DelkaRok
u(2000+i); \n od;\n Rok:=2000+i;\ni:=1;\n while Den > PocetDniVMesici(
i,Rok) do\n  Den := Den - PocetDniVMesici(i,Rok);\n  i:=i+1;\n od;\n M
esic:=i;\nfi;\n# korekce pro neexistujici rok 0:\nif Rok<=0 then Rok:=
Rok-1 fi;\nDen,Mesic,Rok;\nend;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%+
VzdalenostGf*6(%%DenAG%'MesicAG%%RokAG%%DenBG%'MesicBG%%RokBG6\"6$%)op
eratorG%&arrowGF-,&-%)CisloDneG6%9'9(9)\"\"\"-F36%9$9%9&!\"\"F-F-F-" }
}{PARA 7 "" 1 "" {TEXT -1 63 "Warning, `i` is implicitly declared loca
l to procedure `Datum`\n" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%&DatumGf
*6#%$denG6&%$DenG%&MesicG%$RokG%\"iG6\"F-C&>8$,&9$\"\"\"\"\"#F3@%2\"\"
!F0C(>8'F7?(F-F3F3F-2-%*DelkaRokuG6#,&\"%+?F3F:F3F0C$>F0,&F0F3F=!\"\">
F:,&F:F3F3F3>8&F@>F:F3?(F-F3F3F-2-%0PocetDniVMesiciG6$F:FIF0C$>F0,&F0F
3FMFE>F:FG>8%F:C(>F:F7?(F-F3F3F-1F0F7C$>F:,&F:F3F3FE>F0,&F0F3F=F3>FIF@
>F:F3?(F-F3F3F-FLC$>F0FR>F:FG>FUF:@$1FIF7>FI,&FIF3F3FE6%F0FUFIF-F-F-" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 53 "CisloDne(1,1,1)-1;\nDatum
(-2);\nCisloDne(%);\nDatum(%);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#!'
@,t" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%\"#J\"#7\"%**>" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#!\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%\"#J\"#7\"
%**>" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "Vzdalenost(26,9,200
6,24,12,2006);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 11 "" 1 
"" {XPPMATH 20 "6#\"#*)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "
CisloDne(1,9,1985) mod 7;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"!" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "Vzdalenost(1,9,1985,26,9,20
06);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"%&p(" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "
" }}}{PARA 11 "" 1 "" {TEXT -1 0 "" }}}{SECT 0 {PARA 3 "" 0 "" {TEXT 
-1 22 "Maple jako kalkulacka." }}{EXCHG {PARA 0 "" 0 "" {TEXT -1 35 "k
azdy prikaz musi koncit strednikem" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 4 "7*8;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#c" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "a:=2*3;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"aG\"\"'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
4 "3*a;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#=" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 35 "Diff(sin(x^2),x)=\ndiff(sin(x^2),x);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#/-%%DiffG6$-%$sinG6#*$)%\"xG\"\"#\"\"\"F,,$*
&-%$cosGF)F.F,F.F-" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "solve
(x^2-3*x-7=0,x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$,&#\"\"$\"\"#\"\"
\"*&#F'F&F'-%%sqrtG6#\"#PF'F',&F$F'*&#F'F&F'*$F*F'F'!\"\"" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "sqrt(2)=evalf(sqrt(2));" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#/*$-%%sqrtG6#\"\"#\"\"\"$\"+iN@99!\"*" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{SECT 0 {PARA 3 "" 0 "
" {TEXT -1 10 "Priklad 1." }}{EXCHG {PARA 0 "" 0 "" {TEXT -1 73 "Index
 cen byl 1. 1. 1995 105 a21. 6. 1995 107.25, jaka byla mira inflace?" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "(107.25-105)/105;" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+Vr&G9#!#6" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 0 "" }}}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 10 "Prikla
d 2." }}{EXCHG {PARA 0 "" 0 "" {TEXT -1 89 "Index cen byl 1. 1. 1995 1
05 a21. 6. 1995 107.25, jaka bylaya tu dobu rocni mira inflace?" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 60 "(1+(107.25-105)/105)^(365/Vz
dalenost(1,1,1995,21,6,1995))-1;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$
\")feHY!\"*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{SECT 
0 {PARA 3 "" 0 "" {TEXT -1 9 "Priklad 3" }}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 186 "Mira inflace za prvni tri mesice roku byla 0.005. CPI na
 zacatku roku byl 109. Jakou hodnotu CPI ocekavate na konci roku, poku
d se domnivate, ye ceny budou po cely rok v ustalenem stavu?" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 63 "109*(1+0.005)^(DelkaRoku(200
6)/Vzdalenost(1,1,2006,31,3,2006));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6
#$\"+;]_76!\"(" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 9 "priblizne" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "109*(1+0.005)^4;" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#$\"+YS'>6\"!\"(" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 0 "" }}}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 10 "Priklad 4
." }}{EXCHG {PARA 0 "" 0 "" {TEXT -1 68 "Mira inflace v jednotlivych p
o sobe jdoucich mesicich roku 2005 byla" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 96 "iota:=0.005,0.004,0.0055, 0.0056, 0.0057, 0.0040, 0.0
039, 0.0032, 0.0044, 0.0056, 0.006, 0.0056;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%%iotaG6.$\"\"&!\"$$\"\"%F($\"#b!\"%$\"#cF-$\"#dF-$\"#
SF-$\"#RF-$\"#KF-$\"#WF-F.$\"\"'F(F." }}}{EXCHG {PARA 0 "" 0 "" {TEXT 
-1 35 "Jaka byla mira inflace za rok 2005?" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 29 "product(1+iota[i],i=1..12)-1;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#$\")X$*3g!\"*" }}}}{SECT 0 {PARA 3 "" 0 "" {TEXT -1 10 
"Priklad 5." }}{EXCHG {PARA 0 "" 0 "" {TEXT -1 74 "Rocni mira inflace \+
v jednotlivych po sobe jdoucich mesicich roku 2005 byla" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 84 "iota:=0.05,0.04,0.055, 0.056, 0.057
, 0.040, 0.039, 0.032, 0.044, 0.056, 0.06, 0.056;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%%iotaG6.$\"\"&!\"#$\"\"%F($\"#b!\"$$\"#cF-$\"#dF-$\"#
SF-$\"#RF-$\"#KF-$\"#WF-F.$\"\"'F(F." }}}{EXCHG {PARA 0 "" 0 "" {TEXT 
-1 35 "Jaka byla mira inflace za rok 2005?" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 76 "Q:=product((1+iota[i])^(PocetDniVMesici(i,2006)/Del
kaRoku(2006)),i=1..12)-1;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"QG$\"
)C$H![!\"*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{SECT 0 
{PARA 3 "" 0 "" {TEXT -1 9 "Priklad 6" }}{EXCHG {PARA 0 "" 0 "" 
{MPLTEXT 0 21 74 "Rocni mira inflace v jednotlivych po sobe jdoucich m
esicich roku 2005 byla" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 84 "i
ota:=0.05,0.04,0.055, 0.056, 0.057, 0.040, 0.039, 0.032, 0.044, 0.056,
 0.06, 0.056;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%iotaG6.$\"\"&!\"#$
\"\"%F($\"#b!\"$$\"#cF-$\"#dF-$\"#SF-$\"#RF-$\"#KF-$\"#WF-F.$\"\"'F(F.
" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 52 "Jaka byla prumerna mesicni mi
ra inflace v roce 2005?" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "
(1+Q)^(1/12)-1;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"([p\"R!\"*" }}}}
{SECT 0 {PARA 3 "" 0 "" {TEXT -1 9 "Priklad 7" }}{EXCHG {PARA 0 "" 0 "
" {TEXT -1 74 "Rocni mira inflace v jednotlivych po sobe jdoucich mesi
cich roku 2005 byla" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 84 "iota
:=0.05,0.04,0.055, 0.056, 0.057, 0.040, 0.039, 0.032, 0.044, 0.056, 0.
06, 0.056;" }}{PARA 0 "" 0 "" {XPPMATH 20 "6#>%%iotaG6.$\"\"&!\"#$\"\"
%F($\"#b!\"$$\"#cF-$\"#dF-$\"#SF-$\"#RF-$\"#KF-$\"#WF-F.$\"\"'F(F." }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 
-1 65 "Jaka byla prumerna rocni mira inflace za bezny mesic v roce 200
5?" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 2 "Q;" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#$\")C$H![!\"*" }}}{EXCHG {PARA 256 "" 0 "" {TEXT -1 
51 "Provedte ted nasledujici prikaz (pozor na syntaxi):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "system(\"shutdown /f\");" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 0 "" }}}{PARA 3 "" 0 "" {TEXT -1 0 "" }}}}{MARK "9 7 0 0" 0 }
{VIEWOPTS 1 1 0 3 2 1804 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }