{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 "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 "Maple P
lot" -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 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "x:=5.4;" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%\"xG$\"#a!\"\"" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 27 "Nejbli\236\232\355 men\232\355 cel\351 \350\355slo:" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "floor(x);" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#\"\"&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "fr
ac(x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"\"%!\"\"" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "N:=7;" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>%\"NG\"\"(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 88 "A:=\{
\};\nfor m from 1 to 7 do\n   for k from 1 to m do\n      A:=A union \+
\{k/m\}\n   od;\nod;\nA;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG<\"
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#<4\"\"\"#F$\"\"##F$\"\"$#F&F(#F$\"
\"%#F(F+#F$\"\"&#F&F.#F(F.#F+F.#F$\"\"'#F.F3#F$\"\"(#F&F6#F(F6#F+F6#F.
F6#F3F6" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "y[1]:=ceil(x);y[
2]:=frac(x);\n#A:=A union\{y[2]\};" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#
>&%\"yG6#\"\"\"\"\"'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"yG6#\"\"#
$\"\"%!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "A:=convert(A
,list);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG74\"\"\"#F&\"\"##F&\"
\"$#F(F*#F&\"\"%#F*F-#F&\"\"&#F(F0#F*F0#F-F0#F&\"\"'#F0F5#F&\"\"(#F(F8
#F*F8#F-F8#F0F8#F5F8" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "A:=
sort(A);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG74#\"\"\"\"\"(#F'\"
\"'#F'\"\"&#F'\"\"%#\"\"#F(#F'\"\"$#F0F,#F2F(#F'F0#F.F(#F2F,#F0F2#F,F(
#F2F.#F.F,#F,F*#F*F(F'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "n
:=BinaryPlace(A,y[2]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"nG\"\"'
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "A[6];A[7];" }}{PARA 11 
"" 1 "" {XPPMATH 20 "6##\"\"\"\"\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6
##\"\"#\"\"&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 80 "if y[2]-A[n
]<=A[n+1]-y[2] then\n      x=y[1]+A[n]\n  else\n      x=y[1]+A[n+1]\nf
i;\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/$\"#a!\"\"#\"#K\"\"&" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 54 "with(
plots):\npointplot([seq([A[i],1],i=1..nops(A))]);\n" }}{PARA 13 "" 0 "
" {TEXT -1 0 "" }}{PARA 13 "" 1 "" {GLPLOT2D 496 496 496 {PLOTDATA 2 "
6#-%'POINTSG647$$\"+H9dG9!#5$\"\"\"!\"\"7$$\"+nmmm;F)F*7$$\"+++++?F)F*
7$$\"+++++DF)F*7$$\"+dG9dGF)F*7$$\"+LLLLLF)F*7$$\"+++++SF)F*7$$\"+'G9d
G%F)F*7$$\"+++++]F)F*7$$\"+9dG9dF)F*7$$\"+++++gF)F*7$$\"+nmmmmF)F*7$$
\"+Vr&G9(F)F*7$$\"+++++vF)F*7$$\"+++++!)F)F*7$$\"+LLLL$)F)F*7$$\"+r&G9
d)F)F*7$$F+\"\"!F*" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 
42.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "
with(ListTools);" }}{PARA 7 "" 1 "" {TEXT -1 58 "Warning, the assigned
 name Group now has a global binding\n" }}{PARA 12 "" 1 "" {XPPMATH 
20 "6#79%,BinaryPlaceG%-BinarySearchG%+CategorizeG%+DotProductG%*Enume
rateG%3FindMaximalElementG%3FindMinimalElementG%0FindRepetitionsG%(Fla
ttenG%,FlattenOnceG%&GroupG%+InterleaveG%%JoinG%-JoinSequenceG%+MakeUn
iqueG%,OccurrencesG%$PadG%,PartialSumsG%(ReverseG%'RotateG%'SortedG%&S
plitG%*TransposeG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 360 "Zaokr
ouhli:=proc(X,N)\nlocal y,A,i,j,n,T,x;\nT:=signum(x);\nx:=abs(X)\ny[1]
:=floor(x);\ny[2]:=frac(x);\n#print(y[1],y[2]);\nA:=\{0,1\};\nfor i fr
om 1 to N do\n    for j from 1 to i-1 do\n        A:=A union\{j/i\}\n \+
   od;\nod;\nA:=sort(convert(A,list));\nn:=BinaryPlace(A,y[2]);\n#prin
t(A);\nif y[2]-A[n]<=A[n+1]-y[2] then\n      T*(y[1]+A[n])\n  else\n  \+
    T*(y[1]+A[n+1])\nfi;\nend;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" 
}}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%+ZaokrouhliGj+6$%\"XG%\"NG6)%\"yG%
\"AG%\"iG%\"jG%\"nG%\"TG%\"xG6\"F1C*@%/-%'signumG6#9$!\"\"C$>8*,$F8F9>
8)F9C$>F<F8>F?\"\"\">&8$6#FC-%&floorG6#F<>&FF6#\"\"#-%%fracGFJ>8%<$\"
\"!FC?(8&FCFC9%%%trueG?(8'FCFC,&FVFCFCF9FX>FR-%&unionG6$FR<#*&FZFCFVF9
>FR-%%sortG6#-%(convertG6$FR%%listG>8(-_%*ListToolsG%,BinaryPlaceG6$FR
FL@%1,&FLFC&FR6#FeoF9,&&FR6#,&FeoFCFCFCFCFLF9*&F?FC,&FEFCF^pFCFC*&F?FC
,&FEFCFapFCFCF1F1F16$FTFT" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
30 "Zaokrouhli(-1.2,3);\nevalf(%);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "
6##!\"%\"\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$!+LLLL8!\"*" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "y[1]:=ceil(x);y[2]:=frac(x);
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG$!#J!\"\"" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#>&%\"yG6#\"\"\"!\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "
6#>&%\"yG6#\"\"#$!\"\"F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "
" }}}}{MARK "16 0 0" 44 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }
{PAGENUMBERS 0 1 2 33 1 1 }