{VERSION 5 0 "IBM INTEL NT" "5.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 1 12 255 0 0 1 2 1 2 2 1 2 0 0 0 1 }{CSTYLE "Text" -1 200 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 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 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }} {SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "01." }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 400 "PrimDispersion:=proc(q,r,k)\nlocal s,t,n,a,b, c,d,j;\ns:=collect(q,k);\nt:=collect(r,k);\nn:=degree(s,k);\nif n=0 or not(n=degree(t,k))\n then return []\nend if;\na:=coeff(s,k,n);\nb:=c oeff(s,k,n-1);\nc:=coeff(t,k,n);\nd:=coeff(t,k,n-1);\nj:=normal((b*c-a *d)/(a*c*n));\nif not(type(j,integer) and j>=0)\n then return []\nend if;\nif normal(c*s-a*subs(k=k+j,t))=0\n then return [j]\n else retu rn []\nend if;\nend proc:" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "02. " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "PrimDispersion(k,k-1234 ,k);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "03." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "q:=expand(subs(k=k+4321,3*k^2+m*k-5*m+1));" } }}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "04." }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 31 "r:=expand(n*(3*k^2+m*k-5*m+1));" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "05." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "PrimDispersion(q,r,k);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "06." } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 650 "DispersionsMenge:=proc(q, r,k)\nlocal f,g,m,n,i,j,result,tmp,op1,op2;\nf:=factor(q);\ng:=factor( r);\nif type(f,`*`)\n then m:=nops(f)\n else m:=1\nend if;\nif type( g,`*`)\n then n:=nops(f)\n else n:=1\nend if;\nresult:=[];\nfor i fr om 1 to m do\n if type(f,`*`)\n then op1:=op(i,f)\n else op1:=f \n end if;\n if type(op1,`^`)\n then op1:=op(1,op1)\n end if;\n \+ for j from 1 to n do\n if type(g,`*`)\n then op2:=op(j,g)\n \+ else op2:=g\n end if;\n if type(op2,`^`)\n then op2:=op (1,op2)\n end if;\n tmp:=PrimDispersion(op1,op2,k);\n if tmp< >[]\n then result:=[op(result),tmp[1]]\n end if;\n end do;\ne nd do;\n\{op(result)\}\nend proc:" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "07." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "DispersionsMe nge(k^2*(k+4),k*(k-3)^3,k);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "08 ." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "q:=expand(k*(3*k^2+a)* (k-22536)*(k^3+a));" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "09." }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "r:=expand(subs(k=k-345,k*(3* k^2+a)*(k-22536)*(k^3+a)));;" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 200 3 "1 0." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "DispersionsMenge(q,r, k);" }}}}{MARK "1 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 } {PAGENUMBERS 0 1 2 33 1 1 }