{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 385 "Faktoren:=proc(a,x,p,s)\nlocal tab,k,i,j,blis te,faktorliste,pos;\ntab:=[seq(k,k=0..p-1)];\nbliste:=tab;\nfor k from 1 to s do\n bliste:=[seq(seq(bliste[i]+tab[j]*x^k,j=1..p),i=1..p^k)] \nend do;\nbliste:=subsop(1=NULL,bliste);\nfaktorliste:=[];\nfor i fro m 1 to nops(bliste) do\n if rem(a,bliste[i],x)=0\n then faktorlist e:=[op(faktorliste),bliste[i]]\n end if; \nend do;\nfaktorliste\nend \+ proc:" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 3 "03." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "a:=x^5+x^3+x;" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 3 "04." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "p:=11;" } }}{EXCHG {PARA 0 "" 0 "" {TEXT -1 3 "05." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "l:=Faktoren(a,x,p,2);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 3 "06." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "Expand(x *(x^2+x+1)*(x^2+10*x+1)) mod p;" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 3 "07." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "rest:=Quo(a,x^2+x+1 ,x) mod p;" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 3 "08." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "Quo(rest,x,x) mod p;" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 3 "09." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "Faktoren(x^4+2,x,5,2);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 3 " 10." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "Factor(a) mod p;" }} }{EXCHG {PARA 0 "" 0 "" {TEXT -1 3 "11." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "Factor(a) mod 10007;" }}}}{MARK "1 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }