{VERSION 2 3 "HP RISC UNIX" "2.3" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 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 }}
{SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT -1 59 "Program til beregning af d
e foerste N koeff. i q-ekspansion" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 7 "N:=100;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 165 
"nulliste:=[]:\n for i from 1 to N do\nnulliste:=[op(nulliste),0] od:
\nidentitet:=[]:\nidentitet:=[op(identitet),1]:\nfor i from 2 to N do
\nidentitet:=[op(identitet),0] od:" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 121 "gange:=proc(l:list,n)\nif nops(l)>=n then [op(nullis
te[1..n]),op(l[1..nops(l)-n])] else\n[op(nulliste[1..nops(l)])] fi\nen
d:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 154 "ggange:=proc(l:list,
n) local i,m,w, nyvaerdi;\ngange(l,n);m:=gange(l,n);w:=[];\nfor i from
 1 to nops(l) do nyvaerdi:=l[i]-m[i]; w:=[op(w),nyvaerdi]\nod;\nend:" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "resultat:=identitet;" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 256 "for n from 1 while n<N do\n
resultat:=ggange(resultat,n) od:for n from 1 while n<N do\nresultat:=g
gange(resultat,n) od:\nfor n from 1 while 11*n<N do\nresultat:=ggange(
resultat,11*n) od:\nfor n from 1 while 11*n<N do\nresultat:=ggange(res
ultat,11*n) od:\nresultat;" }}}}{MARK "2 0 0" 36 }{VIEWOPTS 1 1 0 1 1 
1803 }