{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 }{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 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 224 "reducepol:=proc(p,x ,redp)\nlocal n,m,rules,pol;\npol:=p;\nn:=degree(redp,x);\nm:=degree(p ,x);\nrules:=seq(map(y->y*x^i,x^n=-redp+lcoeff(redp)*x^n),i=0..m-n);\n while degree(pol,x)>=n do\n pol:=subs(rules,pol);\nend do;\npol\nend \+ proc:" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 3 "01." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "reihe:=sum(a[k]*x^k,k=1..3);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 3 "02." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "inverse:=sum(i[k]*x^k,k=0..3);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 3 "03." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "collect( reducepol(expand(subs(x=reihe,inverse)),x,x^4),x);" }}}}{MARK "0 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }