{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 "" 0 1 0 0 0 0 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 "Text Output" -1 2 1 
{CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 3 0 }1 0 0 
-1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Heading 1" 0 3 1 {CSTYLE "" -1 -1 
"" 1 18 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }1 0 0 0 8 4 0 0 0 0 0 0 -1 0 }
{PSTYLE "Warning" 2 7 1 {CSTYLE "" -1 -1 "" 0 1 0 0 255 1 0 0 0 0 0 0 
1 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Output" 0 11 
1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 0 -1 -1 -1 
0 0 0 0 0 0 -1 0 }{PSTYLE "" 11 12 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 
0 0 0 0 0 0 0 0 0 0 }1 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 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%&falseG%%trueGF(F(
F(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*DelkaRokuGf*6#%$RokG6\"F(F(@%
-%*PrestupnyG6#9$\"$m$\"$l$F(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 356 "CisloDne:=proc(Den,Mesic,Rokk)#zbytek po deleni sedm
i 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>=2
000,\nadd(DelkaRoku(i),i=2000..Rok-1)+add(PocetDniVMesici(i,Rok),i=1..
Mesic-1)+Den-2,\nadd(-DelkaRoku(i),i=Rok..2000-1)+\nadd(PocetDniVMesic
i(i,Rok),i=1..Mesic-1)+Den-2\n);\nend;" }}{PARA 7 "" 1 "" {TEXT -1 68 
"Warning, `Rok` is implicitly declared local to procedure `CisloDne`\n
" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%)CisloDneGf*6%%$DenG%&MesicG%%Ro
kkG6$%\"iG%$RokG6\"F-C%>8$.F0@%19&\"\"!>8%,&F4\"\"\"F9F9>F7F4-%#ifG6%1
\"%+?F7,*-%$addG6$-%*DelkaRokuG6#F0/F0;F?,&F7F9F9!\"\"F9-FB6$-%0PocetD
niVMesiciG6$F0F7/F0;F9,&9%F9F9FJF99$F9\"\"#FJ,*-FB6$,$FDFJ/F0;F7\"%**>
F9FKF9FTF9FUFJF-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  De
n, Mesic, Rok;\nDen:=den+2;\nif Den>0 then\n i:=0;\n while Den > Delka
Roku(2000+i) do\n  Den := Den- DelkaRoku(2000+i);\n  i:=i+1;\n od;\n R
ok:=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 Mesic:=i;\nelse\n#Den
:=Den-1;\n#print(Den);\ni:=0;\n while Den <= 0 do\n i:=i-1;\n  Den := \+
Den+ DelkaRoku(2000+i); \n od;\n Rok:=2000+i;\ni:=1;\n while Den > Poc
etDniVMesici(i,Rok) do\n  Den := Den - PocetDniVMesici(i,Rok);\n  i:=i
+1;\n od;\n Mesic:=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%'Mesic
BG%%RokBG6\"6$%)operatorG%&arrowGF-,&-%)CisloDneG6%9'9(9)\"\"\"-F36%9$
9%9&!\"\"F-F-F-" }}{PARA 7 "" 1 "" {TEXT -1 63 "Warning, `i` is implic
itly declared local 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#,&\"%+?F3
F:F3F0C$>F0,&F0F3F=!\"\">F:,&F:F3F3F3>8&F@>F:F3?(F-F3F3F-2-%0PocetDniV
MesiciG6$F:FIF0C$>F0,&F0F3FMFE>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,2006,24,12,2006);" }}{PARA 0 "> " 0 "" {MPLTEXT 
1 0 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#!*" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 0 "" }}}{PARA 11 "" 1 "" {TEXT -1 0 "" }}}}{MARK 
"1 7 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 
1 }