{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 27 "P := x^3 + a*x^2 + b *x + c;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "Q := subs(x = y- a/3, P);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "expand(Q);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "sort(%, y);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "collect(%%, y);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "R := sort(collect(Q, y), y);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "p := coeff(R, y); q := subs(y=0, R) ;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "sort(q, [a, b, c]);" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "(-3 + 10/9*sqrt(3)*I)^(1/3 );" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "evalc(%);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "u := simplify(%);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "expand(cos(3*alpha));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "evalf(u);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "rho := -1/2 + sqrt(3)/2*I; u := 1 + 2/3*sqrt(3)*I;" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "evalc(u*rho + 7/(3*u*rho)) ;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 49 "evalc(u*conjugate(rho) + 7/(3*u*conjugate(rho)));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "u := (-10 + 6*sqrt(3))^(1/3);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "simplify(u - 2/u);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "evalf(%);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "0 0 0" 27 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 } {PAGENUMBERS 0 1 2 33 1 1 }