{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 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "f := x^4 - 5*x^2 + 6*x - 2;" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "fStrich := diff(f, x);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "gcd(f, fStrich);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "h1 := f/%;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "h1 := simplify(%);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "g1 := simplify(h1/(x-1));" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 21 "f1 := simplify(f/h1);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "gcd(f1, diff(f1, x));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "h2 := f1/%;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "g2 := f1/gcd(h2, diff(f1, x));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "expand(g1*g2^2); f;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "solve(g1);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "solve(g2);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}} {MARK "0 0 0" 8 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }