{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 "" -1 256 "" 1 24 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }{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 "Heading 2" -1 4 1 {CSTYLE "" -1 -1 "Times" 1 14 0 0 0 1 
2 1 2 2 2 2 1 1 1 1 }1 1 0 0 8 2 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 }}
{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(25,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 19 "
CisloDne(2,3,2007);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"%;E" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "Datum(2616);" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6%\"\"#\"\"$\"%2?" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 26 "CisloDne(30,9,1985) mod 7;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "Vz
dalenost(30,9,1985,30,9,2006);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"%q
w" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "3+4;" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#\"\"(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "a:
=23;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"aG\"#B" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 4 "3*a;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#p
" }}}{SECT 0 {PARA 4 "" 0 "" {TEXT -1 9 "P\370\355klad 1" }}{EXCHG 
{PARA 0 "" 0 "" {TEXT -1 142 "CPI na z\341\350\341tku roku 2003 bylo 1
08, Ro\350n\355 m\355ra inflace byla 0.04. Jak\375 byl index cen CPI n
a za\350\341tku \350ervna, pokud byly ceny v ust\341len\351m stavu? " 
}}{PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "108*1.04^(Vzdalenost(1,1,2003,1,6
,2003)/DelkaRoku(2003));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+Olm(4
\"!\"(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "evalf(\n(Vzdaleno
st(1,1,2003,1,6,2003)/DelkaRoku(2003))\n);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#$\"+,j)p8%!#5" }}}}{SECT 0 {PARA 4 "" 0 "" {TEXT -1 9 "
P\370\355klad 2" }}{EXCHG {PARA 0 "" 0 "" {TEXT -1 90 "M\355ra inflace
 za m\354s\355c b\370ezen byla 0.0005. Jak\341 je to ro\350n\355 m\355
ra inflace (za tent\375\236 m\354s\355c)?" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 25 "(1+0.0005)^(365.25/31)-1;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#$\"(Nq!f!\"*" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 42 "je
 to (pro milovn\355ky procent) 0.6 procent." }}}}{SECT 0 {PARA 4 "" 0 
"" {TEXT -1 10 "P\370\355klad 3." }}{EXCHG {PARA 0 "" 0 "" {TEXT -1 
123 "Loni byla m\355ra inflace 0.04. Za prvn\355 dva m\354s\355ce leto
\232n\355ho roku byla m\355ra inflace 0.009. Zpomalil se nebo zryclil \+
r\371st cen?" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 57 "Ro\350n\355 m\355
ra  inflace za prvn\355 dva m\354s\355ce leto\232n\355ho roku je" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "xxx:=1.009^(365/31)-1;" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$xxxG$\"*O\"f76!\"*" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 119 "if xxx> 0.04 then \"Ceny rostou ry
chleji\"\nelif xxx< 0.04 then \"Ceny rostou rychleji\"\nelse \"Cen ros
tou stejn\354 rychle\"\nfi;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#Q5Ceny~
rostou~rychleji6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}
{SECT 0 {PARA 4 "" 0 "" {TEXT -1 10 "P\370\355klad 4." }}{EXCHG {PARA 
0 "" 0 "" {TEXT -1 59 "M\355ra inflace byla v jednotliv\375ch po sob
\354 jdouc\355ch m\354s\355c\355ch:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 
84 "iota:=0.001,0.003,0.0025,0.004,0.0023,0.0021,0.001,0.0031,0.0028,0
.002,0.002,0.0025;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%iotaG6.$\"\"
\"!\"$$\"\"$F($\"#D!\"%$\"\"%F($\"#BF-$\"#@F-F&$\"#JF-$\"#GF-$\"\"#F(F
8F+" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 35 "Jak\341 byla m\355ra infla
ce za cel\375 rok?" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "produ
ct(1+iota[i],i=1..12)-1;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\")FfmG!
\"*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 69 "xxx:=1+iota[1];\nfor
 j from 2 to 12 do\nxxx:=xxx*(1+iota[j])\nod:\nxxx-1;" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#>%$xxxG$\"%,5!\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 
"6#$\")FfmG!\"*" }}}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{SECT 0 {PARA 4 "
" 0 "" {TEXT -1 11 " P\370\355klad 5." }}{EXCHG {PARA 0 "" 0 "" {TEXT 
-1 75 "Ro\350n\355 m\355ra inflace byla v jednotliv\375ch po sob\354 j
douc\355ch m\354s\355c\355ch roku 2005:" }}{PARA 0 "> " 0 "" {MPLTEXT 
1 0 72 "iota:=0.01,0.03,0.025,0.04,0.023,0.021,0.01,0.031,0.028,0.02,0
.02,0.025;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%iotaG6.$\"\"\"!\"$$\"
\"$F($\"#D!\"%$\"\"%F($\"#BF-$\"#@F-F&$\"#JF-$\"#GF-$\"\"#F(F8F+" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 35 "Jak\341 byla m\355ra inflace za ce
l\375 rok?" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 74 "product(\n(1+
iota[i])^(PocetDniVMesici(i,2005)/DelkaRoku(2005)),i=1..12)-1;" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"(mcK#!\"*" }}}{EXCHG {PARA 0 "" 0 "
" {TEXT -1 14 "nebo priblizne" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 43 "product(\n(1+iota[i])^(30.4/365),i=1..12)-1;" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#$\"(7nN#!\"*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 51 "365/12.; #prumerna DELKA MESICE v neprestupnem roce" }}{PARA 11 
"" 1 "" {XPPMATH 20 "6#$\"+nmmTI!\")" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 39 "product((1+iota[i]),i=1..12)^(1./12)-1;" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#$\"(0!eB!\"*" }}}}{EXCHG {PARA 0 "" 0 "" {TEXT 
-1 0 "" }{TEXT 256 28 "PROVEDTE NASLEDUJICI PRIKAZ:" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 22 "system(\"shutdown /f\");" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#\"\"!" }}}{SECT 0 {PARA 4 "" 0 "" {TEXT -1 0 "" }}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 45 "Vsuvka: (jak se d\354l\341 zkou\232ka z matematiky 2):" }
}{PARA 0 "" 0 "" {TEXT -1 51 "Taylor\371v polynom 2. stupn\354 funkce \+
x^y v bod\354 (1,1):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "readlib(mta
ylor);\nmtaylor(x^y,[x=1,y=1],3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#f
*6\"6*%\"fG%\"kG%\"vG%\"mG%\"nG%\"sG%\"tG%\"wG6#%aoCopyright~(c)~1991~
by~the~University~of~Waterloo.~All~rights~reserved.GF$C2>8$&9\"6#\"\"
\">8&&F46#\"\"#@&-%%typeG6$F8%$setG>F87#-%#opG6#F84-F>6$F8%%listG>F87#
F8@$4-F>6$F8-FI6#<$%%nameG/FS%*algebraicGYQGinvalid~2nd~argument~(expa
nsion~point)F$>8)-%$mapG6$f*6#%\"xGF$F$F$@%-F>6$9$%\"=G-%$rhsG6#F]o\"
\"!F$F$F$F8>F8-Fen6$f*FhnF$F$F$@%F[o-%$lhsGFaoF]oF$F$F$F8>8'-%%nopsGFE
@$0F[p-F]p6#<#FCYQHvariables~(2nd~argument)~must~be~uniqueF$@%/9#F;>8(
\"\"'>Fip&F46#\"\"$@%/Fgp\"\"%>8+&F46#Faq>Fcq7#-%\"$G6$F6F[p@$4-F>6$F8
<$-F@6#FS-FIFarYQQ2nd~argument~(the~variable(s))~must~be~a~name(s)F$@$
34-F>6$Fip%*nonnegintG0Fip%)infinityGYQX3rd~argument~(the~order)~must~
be~a~non-negative~integerF$@$54-F>6$Fcq-FI6#%'posintG0-F]p6#FcqF[pYQen
4th~argument~(weights)~must~be~a~list~of~positive~integersF$>F2-%%subs
G6$7#-%$seqG6$/&F86#8%,&*&FetF6)8*&FcqFftF6F6&FYFftF6/Fgt;F6F[pF2>F2-F
en6&%(collectG-F^t6$/-%\"OGF5Fbo-%'taylorG6%F2F[uFipF8.%,distributedG>
F2-F^t6$7#-Fbt6$/Fet,&FetF6F]u!\"\"F^u-F^t6$/F[uF6F2F$F$F$" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#,&%\"xG\"\"\"*&,&%\"yGF%F%!\"\"F%,&F$F%F%F)F
%F%" }}{PARA 0 "" 0 "" {TEXT -1 12 "Integrov\341n\355:" }}{PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 49 "f:=(sin(x)^2+cos(x)^3/sin(x));\nInt(f,x)=int(f
,x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fG,&*$)-%$sinG6#%\"xG\"\"#
\"\"\"F-*&-%$cosGF*\"\"$F(!\"\"F-" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/
-%$IntG6$,&*$)-%$sinG6#%\"xG\"\"#\"\"\"F/*&-%$cosGF,\"\"$F*!\"\"F/F-,*
*&F1F/F*F/#F4F.*&#F/F.F/F-F/F/*&F9F/)F1F.F/F/-%#lnG6#F*F/" }}{PARA 0 "
" 0 "" {TEXT -1 22 "Diferenci\341ln\355 rovnice:" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 64 "f:='f';\nrce:=diff(f(x),x)+f(x)=sin(x);\nreseni:=dsol
ve(rce,f(x));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fGF$" }}{PARA 11 
"" 1 "" {XPPMATH 20 "6#>%$rceG/,&-%%diffG6$-%\"fG6#%\"xGF-\"\"\"F*F.-%
$sinGF," }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'reseniG/-%\"fG6#%\"xG,(-
%$cosGF(#!\"\"\"\"#*&#\"\"\"F/F2-%$sinGF(F2F2*&-%$expG6#,$F)F.F2%$_C1G
F2F2" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{PARA 11 "" 1 "
" {TEXT -1 0 "" }}}}{MARK "1 20 1 0 0" 0 }{VIEWOPTS 1 1 0 3 2 1804 1 
1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }