{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 "" 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 }{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 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 385 "Faktoren:=proc(a,x, p,s)\nlocal tab,k,i,j,bliste,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);\nf aktorliste:=[];\nfor i from 1 to nops(bliste) do\n if rem(a,bliste[i] ,x)=0\n then faktorliste:=[op(faktorliste),bliste[i]]\n end if; \n end do;\nfaktorliste\nend proc:" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 3 "01." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "Faktoren(x^4+x+1,x, 2,2);" }{TEXT -1 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7#\"\"\"" }}} {EXCHG {PARA 0 "" 0 "" {TEXT -1 3 "02." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "factor(x^4+x+1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#, (*$)%\"xG\"\"%\"\"\"F(F&F(F(F(" }}}{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 }