{VERSION 3 0 "DEC ALPHA UNIX" "3.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 
0 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 }
{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 -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 }3 3 0 -1 -1 -1 0 0 
0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 314 "denum:=proc(n::nonn
egint,S::list(nonnegint))\n  local nu,q,r,ls,head,i,c;\n  option remem
ber;\n  nu:=nops(S);\n  if nu=0 then 0\n  elif nu=1 then \n    q:=iquo
(n,S[1],r);\n    if r=0 then 1\n    else 0\n    fi\n  else\n    ls:=S[
nu];\n    head:=[seq(S[i],i=1..nu-1)];\n    add(denum(n-c*ls,head),c=0
..iquo(n,ls))\n  fi\nend:\n    " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 29 "denum(1000,[50,100,200,500]);" }}{PARA 11 "" 1 "" {XPPMATH 20 
"6#\"#\\" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 343 "denum2:=proc(n
::nonnegint,S::list(nonnegint),b::nonnegint)\n  local nu,q,r,ls,head,i
,c;\n  option remember;\n  nu:=nops(S);\n  if nu=0 then 0\n  elif nu=1
 then \n    q:=iquo(n,S[1],r);\n    if r=0 and q<=b then 1\n    else 0
\n    fi\n  else\n    ls:=S[nu];\n    head:=[seq(S[i],i=1..nu-1)];\n  \+
  add(denum2(n-c*ls,head,b),c=0..min(b,iquo(n,ls)))\n  fi\nend:\n" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "denum2(1000,[50,100,200,500]
,3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"'" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 740 "denum3:=proc(n::nonnegint,S::list(nonnegint),b:
:nonnegint)\n  local depth,level,nn,flag,up,down,i,c,cpt,T;\n  depth:=
nops(S);\n  if depth=0 then RETURN(NULL) fi;\n  level:=0:\n  nn:=n;\n \+
 flag:=down;\n  cpt:=0;\n  do\n    if flag=down and nn=0 and max(seq(c
[i],i=1..depth))<=b then \n      cpt:=cpt+1;\n      T[cpt]:=[seq(c[i],
i=1..depth)];\n      flag:=up \n    fi;\n    if level<depth and flag=d
own then\n        level:=level+1;\n        c[level]:=0\n    elif level
>0 then\n      if nn>=S[level] then\n        flag:=down;\n        c[le
vel]:=c[level]+1;\n        nn:=nn-S[level];\n      else \n        flag
:=up;\n        nn:=nn+c[level]*S[level];\n        c[level]:=0;\n      \+
  level:=level-1;\n      fi\n    else\n      break\n    fi;\n  od;\n  \+
[seq(T[i],i=1..cpt)]\nend:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
32 "denum3(1000,[50,100,200,500],3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "
6#7(7&\"\"!F%F%\"\"#7&F%\"\"\"F&F(7&F%\"\"$F(F(7&F&F%F&F(7&F&F&F(F(7&F
&F*F*F%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "4 0 \+
0" 280 }{VIEWOPTS 1 1 0 1 1 1803 }