{VERSION 5 0 "IBM INTEL NT" "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 "Times" 1 12 0 
0 0 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }}
{SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT 
-1 35 "Horner Method or synthetic division" }}{PARA 0 "" 0 "" {TEXT 
-1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 26 "De
finition of a polinomial" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "poly:=x->x^3-6.1*x^2+3.2*x+1.5;" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "x:=4.71;" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 8 "poly(x);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 
-1 1 " " }}{PARA 0 "" 0 "" {TEXT -1 77 "Same polynomial evalutaion wit
h 3 digits arithmetic as we would do it by hand" }}{PARA 0 "" 0 "" 
{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "Digits:=3;
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "xq:=x*x;" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "xc:=xq*x;" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 11 "T2:=6.1*xq;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 10 "T1:=3.2*x;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "T3:= x
c;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "pp:= T3-T2+T1+1.5;" }
}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 85 "
Same polynomial evaluation with three digits arithmetic but using Horn
er algorithm to" }}{PARA 0 "" 0 "" {TEXT -1 25 " evaluate the polynomi
al." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 7 "x:='x';" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "
convert(poly(x),horner,x);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 1 " " }
}{PARA 0 "" 0 "" {TEXT -1 70 "Count number of add/sub and number of mu
ltiplications and compare with" }}{PARA 0 "" 0 "" {TEXT -1 24 "the ori
ginal polynomial." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" 
{TEXT -1 13 "Horner Method" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "with(linalg):" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 28 "v:=vector([1.5,3.2,-6.1,1]);" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "x:=4.71;" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 5 "v[2];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 60 "
p := v[4];\nfor i from 3 by -1 do\n   p := v[i] + x*p;\nend do;" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "24" 0 }
{VIEWOPTS 1 1 0 3 2 1804 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }