{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 }{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 "Maple Output" 0 11 1 {CSTYLE "" -1 -1 "" 0 1 0 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 }{PSTYLE "" 11 12 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 276 "PrimitiverTeil:=pro c(a,x)\nlocal liste,nenner,kgV,ggT,k;\nliste:=[seq(coeff(a,x,k),k=0..d egree(a,x))];\nnenner:=map(denom,liste);\nkgV:=ilcm(op(nenner));\nlist e:=map(x->x*kgV,liste);\nggT:=igcd(op(liste));\nliste:=map(x->x/ggT,li ste);\nsum(liste[k]*x^(k-1),k=1..nops(liste))\nend proc:" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 3 "05." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 125 "rnd1:=rand(0..9):\nrnd2:=rand(1..9):\na:=eval(sum('rnd1()'/'r nd2()'*x^k,k=0..10));\nb:=eval(sum('rnd1()'/'rnd2()'*x^k,k=0..10));" } }{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"aG,8#\"\"\"\"\"*F'*&#\"\"(\"\"'F' %\"xGF'F'*$)F-\"\"#F'F'*&#\"\"&\"\"$F'*$)F-F4F'F'F'*&#F'\"\")F'*$)F-\" \"%F'F'F'*&F3F')F-F3F'F'*&#F+F(F'*$)F-F,F'F'F'*&F0F')F-F+F'F'*&#F,F+F' *$)F-F9F'F'F'*&F*F'*$)F-F(F'F'F'*&#F4F0F'*$)F-\"#5F'F'F'" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#>%\"bG,4#\"\"$\"\"%\"\"\"*&#F'\"\"&F)%\"xGF)F)*& #F(\"\"*F)*$)F-\"\"#F)F)F)*&#F)F'F)*$)F-F'F)F)F)*&#F)\"\"(F)*$)F-F(F)F )F)*&#F(F'F)*$)F-\"\"'F)F)F)*&#F,F'F)*$)F-\"\")F)F)F)*&#F,F0F)*$)F-F0F )F)F)*&#F0F,F)*$)F-\"#5F)F)F)" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 3 "0 6." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 51 "c:=expand(PrimitiverT eil(a,x)*PrimitiverTeil(b,x));" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%\" cG,L\"&?H&\"\"\"*&\"''*zfF'%\"xGF'F'*&\"(WL#QF')F*\"#f$F')F*\"#9F'F'*&\"(+W4*F')F*\"#:F'F'*&\"(O>x$F')F*\"#;F' F'*&\"(%yi=F')F*\"#>F'F'*&\"(3Yr\"F')F*\"#?F'F'" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 3 "07." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "igc d(coeffs(c,x));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "0 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }