\mnb150ÿ{\rtf1\ansi\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\froman\fcharset1 Times New Roman;}{\f3\fmodern\fprq1 Courier New;}} {\colortbl\red0\green0\blue0;\red255\green0\blue0;} \deflang1031\pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f3\fs22\cf1 {\pntext\f1\'b7\tab}Faktoren:=proc(a:DOM_POLY,x,p,s) \par \pard\li600\ri1\fi-300\plain\f3\fs22\cf1 local tab,k,i,j,bliste,faktorliste,pos; \par begin \par tab:=[k $ k=0..p-1]; \par bliste:=tab; \par for k from 1 to s do \par bliste:=[(bliste[i]+tab[j]*x^k $ j=1..p) $ i=1..p^k] \par end_for; \par delete bliste[1]; \par bliste:=map(bliste,y->poly(y,[x],IntMod(p))); \par faktorliste:=[]; \par for i from 1 to nops(bliste) do \par if divide(a,bliste[i])[2]=poly(0,[x],IntMod(p)) \par then faktorliste:=[op(faktorliste),bliste[i]] \par end_if; \par end_for; \par faktorliste \par end_proc: \par \pard\ri4\plain\f2\fs22\cf0 01. \par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f3\fs22\cf1 {\pntext\f1\'b7\tab}Faktoren(poly(x^4+x+1,[x],IntMod(2)),x,2,2) \par \pard\ri4\plain\f2\fs22\cf0 02. \par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f3\fs22\cf1 {\pntext\f1\'b7\tab}factor(x^4+x+1) \par }