{VERSION 5 0 "HP RISC UNIX" "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 "" 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 "" 0 256 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 54 "with(linalg): with(L istTools):\nn := 3; m := 5; d := 1;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 115 "f := add(a[i]*x^i, i=0..n);\ng := add(b[j]*x^j, j=0. .m);\nU := add(u[j]*x^j, j=0..m-d);\nV := add(v[i]*x^i, i=0..n-d);" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "sort(collect(expand(U*f), x ), x);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "sort(collect(expa nd(V*g), x), x);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "sort(co llect(expand(U*f-V*g), x), x);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 65 "L := [seq(coeff(expand(U*f-V*g), x, i), i=Reverse([$0..n+m-d]) )];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 86 "A := genmatrix(L, [s eq(u[i], i=Reverse([$0..m-d])), seq(v[j], j=Reverse([$0..n-d]))]);" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 77 "for i from m+2-d to n+m+2-2 *d do A := mulcol(A, i, -1) od:\nM := transpose(A);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "R := sylvester(f, g, x);" }{TEXT -1 0 "" }}}{EXCHG {PARA 256 "" 0 "" {TEXT -1 48 "Die folgenden Zeilen sind nur sinnvoll falls d=2" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 65 "delcols(delrows(delrows(R, m-d+2..m), n-d+2..n), n+m+ 4-2*d..n+m);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "M6 := delco ls(M, 7..7);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "M7 := delco ls(M, 6..6);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "det(M6);" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "det(M7);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "resultant(f,g,x);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "0 0 0" 29 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }