{VERSION 4 0 "IBM INTEL NT" "4.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 13 "with(linalg):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "w:=vector([2,8,4,3]);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 2 "w;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "w[3];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "map(sqrt,w);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "matadd(w,w );" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "v:=scalarmul(w,5);" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "u:=vector([5,4,3,-3]);" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "matadd(u,w);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "matadd(u,v,w);" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 14 "matadd(u,u,u);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "matadd(u,v);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "evalm(v);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "evalm(u);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "norm(u,2);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "3*u;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "evalm(3*u);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "u/norm(u,2);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "evalm (u/norm(u,2));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "evalf(u/n orm(u,2));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "evalf(evalm(u /norm(u,2)));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "x:=scalarm ul(v,dotprod(u,v)/dotprod(v,v));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "y:=u-x;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "x +y;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "dotprod(x,y);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "a:=vector(3);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "b:=vector(3): c:=vector(3):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "f:=crossprod(a+b,c);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "g:=crossprod(a,c)+crossprod( b,c);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "map(simplify,evalm (f-g));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "map(simplify,f-g );" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "0 0 0" 6 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }