{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 "01." }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 276 "PrimitiverTeil:=proc(a,x)\nlocal liste,nenner ,kgV,ggT,k;\nliste:=[seq(coeff(a,x,k),k=0..degree(a,x))];\nnenner:=map (denom,liste);\nkgV:=ilcm(op(nenner));\nliste:=map(x->x*kgV,liste);\ng gT:=igcd(op(liste));\nliste:=map(x->x/ggT,liste);\nsum(liste[k]*x^(k-1 ),k=1..nops(liste))\nend proc:" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 3 " 02." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 80 "rnd1:=rand(0..9):\nr nd2:=rand(1..9):\na:=eval(sum('rnd1()'/'rnd2()'*x^k,k=0..10));" }}} {EXCHG {PARA 0 "" 0 "" {TEXT -1 3 "03." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "PrimitiverTeil(a,x);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 3 "04." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "Primitiv erTeil(144*x^2+60*x-24,x);" }}}}{MARK "1 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }