{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 "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 }} {SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT -1 3 "02." }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 155 "PolynomialCR:=proc(alist,plist,x)\nlocal s,t; \ngcdex(plist[1],plist[2],x,'s','t');\nrem(alist[1]*plist[2]*t+alist[2 ]*plist[1]*s,plist[1]*plist[2],x)\nend proc:" }}}{EXCHG {PARA 0 "" 0 " " {TEXT -1 3 "03." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "Polyno mialCR([0,1],[x,x-1],x);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 3 "04." } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "cr:=PolynomialCR([0,1],[x^ 2-2,x^2+1],x);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 3 "05." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "rem(cr,x^2+1,x);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 3 "06." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 394 "PolynomialCR:=proc(alist,plist,x)\nlocal s,t,na,a,p;\nna:=nops(al ist);\nif na=nops(plist) and na>2 \n then a:=PolynomialCR(alist[1..2] ,plist[1..2],x);\n p:=plist[1]*plist[2];\n return(Polynomi alCR([a,op(alist[3..na])],[p,op(plist[3..na])],x));\n else [gcdex(pli st[1],plist[2],x,'s','t')];\n return(rem(alist[1]*plist[2]*t+ali st[2]*plist[1]*s,plist[1]*plist[2],x));\nend if;\nend proc:" }}} {EXCHG {PARA 0 "" 0 "" {TEXT -1 3 "07." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "cr:=PolynomialCR([0,0,0,1],[x^2-2,x^3+1,x+2,x],x);" } }}{EXCHG {PARA 0 "" 0 "" {TEXT -1 3 "08." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "map(y->rem(cr,y,x),[x^2-2,x^3+1,x+2,x]);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 3 "09." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "factor(cr);" }}}}{MARK "1 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }