{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 1 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "restart: with(linalg ):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "zuf := rand(100);" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 104 "n := 4: m := 3:\nf := sum( 'a[i]*X^i', 'i'=0..n);\ng := sum('b[j]*X^j', 'j'=0..m);\nS := sylveste r(f, g, X);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "resultant(f, g,X);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 104 "n := 5: m := 7:\n f := sum('a[i]*X^i', 'i'=0..n);\ng := sum('b[j]*X^j', 'j'=0..m);\nS := sylvester(f, g, X);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 81 "n : = 30: m := 40:\nf := sum('a[i]*X^i', 'i'=0..n):\ng := sum('b[j]*X^j', \+ 'j'=0..m):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 77 "for i from 0 \+ to n do a[i] := zuf() od:\nfor j from 0 to m do b[j] := zuf() od:" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "Zeit := time():\nresultant(f , g, X);\ntime() - Zeit;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 63 "Zeit := time():\nS := sylvester(f, g, X):\ndet(S);\ntime() - Zeit;" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "70!;" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 18 "evalf(log[10](%));" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 0 "" }}}}{MARK "0 0 0" 22 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }