{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 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 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 }{PSTYLE "Text Output" -1 6 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 2 2 2 2 2 1 2 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Output" -1 11 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 3 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Output" -1 12 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 3 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple P lot" -1 13 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 0 0 1 0 1 0 2 2 0 1 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "restart;Digits:=10: " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 61 "a:=[2, -6, 0, -1, +3, 4 ];\nn:=nops(a)-1;\na:=array(0..n, a): \n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"aG7(\"\"#!\"'\"\"!!\"\"\"\"$\"\"%" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"nG\"\"&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 106 "horner:=proc(n,x)\nlocal i, p;\np:=a[n];\nfor i from n-1 to 0 b y -1 do\n p:=a[i]+p*x;\n od; RETURN(p);\nend;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'hornerGf*6$%\"nG%\"xG6$%\"iG%\"pG6\"F,C%>8%&%\"aG6#9 $?(8$,&F3\"\"\"F7!\"\"F8\"\"!%%trueG>F/,&&F16#F5F7*&F/F79%F7F7-%'RETUR NG6#F/F,F,F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "horner(n,0) ;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"#" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 126 "horner0:=proc(n,x)\nlocal i, p;\np:=0;\nfor i from n to 0 by -1 do\n p:=a[i]+p*x; printf(`% 10.0f`,p);\n od: printf( `\\n`);\nend;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%(horner0Gf*6$%\"nG% \"xG6$%\"iG%\"pG6\"F,C%>8%\"\"!?(8$9$!\"\"F0%%trueGC$>F/,&&%\"aG6#F2\" \"\"*&F/F<9%F " 0 "" {MPLTEXT 1 0 14 "horner0(n, 2);" }}{PARA 6 "" 1 "" {TEXT -1 60 " 4 11 21 42 78 \+ 158" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 216 "horner1:=proc(n,x) \nlocal i, j, b;\nfor i from 0 to n do b[i]:=a[i]; od; b[n+1]:=0;\nfor j from 0 to n do\nfor i from n to j by -1 do\n b[i]:=b[i]+b[i+1]*x: \n printf(`% 10.2f`,b[i]);\n od:\n printf(`\\n`);\n od:\nend; " }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%(horner1Gf*6$%\"nG%\"xG6%%\"iG% \"jG%\"bG6\"F-C%?(8$\"\"!\"\"\"9$%%trueG>&8&6#F0&%\"aGF8>&F76#,&F3F2F2 F2F1?(8%F1F2F3F4C$?(F0F3!\"\"F@F4C$>F6,&F6F2*&&F76#,&F0F2F2F2F29%F2F2- %'printfG6$%(%~10.2fGF6-FM6#%\"|+GF-F-F-" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "horner1(n, 2);" }}{PARA 6 "" 1 "" {TEXT -1 60 " \+ 4.00 11.00 21.00 42.00 78.00 158.00" }}{PARA 6 "" 1 "" {TEXT -1 50 " 4.00 19.00 59.00 160.00 398.00" }}{PARA 6 "" 1 "" {TEXT -1 40 " 4.00 27.00 113.00 386.0 0" }}{PARA 6 "" 1 "" {TEXT -1 30 " 4.00 35.00 183.00" }} {PARA 6 "" 1 "" {TEXT -1 20 " 4.00 43.00" }}{PARA 6 "" 1 "" {TEXT -1 10 " 4.00" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 225 "horner2:=proc(n,x)\nlocal i, j; global b;\nfor i from 0 to n do b[i]: =a[i]; od: b[n+1]:=0:\nfor j from 0 to n do\nfor i from n to j by -1 d o\n b[i]:=b[i]+b[i+1]*x:\n #printf(`% 10.2f`,b[i]);\n od:\n #p rintf(`\\n`);\n od:\nend;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%(horn er2Gf*6$%\"nG%\"xG6$%\"iG%\"jG6\"F,C%?(8$\"\"!\"\"\"9$%%trueG>&%\"bG6# F/&%\"aGF7>&F66#,&F2F1F1F1F0?(8%F0F1F2F3?(F/F2!\"\"F?F3>F5,&F5F1*&&F66 #,&F/F1F1F1F19%F1F1F,6#F6F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "horner2(n, 2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"%" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 34 "plot(horner(n,x),x=-2..2, -5..15);" }}{PARA 13 "" 1 "" {GLPLOT2D 624 624 624 {PLOTDATA 2 "6%-%'CURVESG6$7W7$$!\"#\"\"!$! #eF*7$$!3MLLL$Q6G\">!#<$!3%3Mo-XV\"zT!#;7$$!3bmm;M!\\p$=F0$!3rn5XZ6dGI F37$$!3MLLL))Qj^F37$$!3ALLL=Kvl;F0$!3o'4rOc`&e6F37$$! 3wmm;C2G!e\"F0$!3;\\\\wr^*QG&F07$$!3OLL$3yO5]\"F0$!3@/)=Y,BOi)!#=7$$!3 &*****\\nU)*=9F0$\"3mmQ=b39ADF07$$!3SLL$3WDTL\"F0$\"33^d:.rGx\\F07$$!3 5++]d(Q&\\7F0$\"31Q\\DrV3xlF07$$!3gmmmc4`i6F0$\"3IjonY2QKvF07$$!3KLLLQ W*e3\"F0$\"39%\\!f$zgw#zF07$$!3w++++()>'***FM$\"39*=0g7<'**zF07$$!3E++ ++0\"*H\"*FM$\"3%z8>)[6)fy(F07$$!35++++83&H)FM$\"3)))=&\\-WC(R(F07$$!3 \\LLL3k(p`(FM$\"3o/OcE'eb%pF07$$!3Anmmmj^NmFM$\"34hcc)G40M'F07$$!3)zmm mYh=(eFM$\"3R@gg6;*H!eF07$$!3+,++v#\\N)\\FM$\"3e5$o?@()f<&F07$$!3commm CC(>%FM$\"3^=qT-&)GLYF07$$!39*****\\FRXL$FM$\"3-6X$\\x+%eSF07$$!3t**** *\\#=/8DFM$\"3c)G;O!>lJNF07$$!3=mmm;a*el\"FM$\"3[*)Hub_$)**HF07$$!3kom m;Wn(o)!#>$\"3Pe8cus1ADF07$$!3IqLLL$eV(>!#?$\"3t$pTx:Y=,#F07$$\"3)Qjmm \"f`@')F[s$\"3_:O!\\!=D#[\"F07$$\"3%z****\\nZ)H;FM$\"3vzCDX)Q.-\"F07$$ \"3ckmm;$y*eCFM$\"3i>\"z]Z!4V_FM7$$\"3f)******R^bJ$FM$\"3'o*>P%GB,l#F[ s7$$\"3'e*****\\5a`TFM$!3#*)QWSOU/D%FM7$$\"3'o****\\7RV'\\FM$!3W$=uI#f M\")zFM7$$\"3Y'*****\\@fkeFM$!3]&Q!f`]4)3\"F07$$\"3_ILLL&4Nn'FM$!3'Gr* p$4Go<\"F07$$\"3A*******\\,s`(FM$!3/gWw$)FM$!3Q: Is,%f&e`FM7$$\"3M*******pfa<*FM$\"3y7zfWSU*\\%FM7$$\"39HLLeg`!)**FM$\" 3I?e>B4Wb>F07$$\"3w****\\#G2A3\"F0$\"3=WQEb&e=H%F07$$\"3;LLL$)G[k6F0$ \"3PGydWzP:vF07$$\"3#)****\\7yh]7F0$\"3/lao(y?;@\"F37$$\"3xmmm')fdL8F0 $\"3%3nLxbd')z\"F37$$\"3bmmm,FT=9F0$\"3M3Y3\\NVuDF37$$\"3FLL$e#pa-:F0$ \"3CXA)\\W;y))RA!RzF37$$\"3ILLe*3k**y\"F0$\"3AXI\\QY0#)*)F37$$\"34++]sI @K=F0$\"3N@?@mxc75!#:7$$\"33+++S2ls=F0$\"3C'4b,*H3K6F\\[l7$$\"34++]2%) 38>F0$\"3M\"Q7(*zr?E\"F\\[l7$$\"3/++v.Uac>F0$\"3$ptfB`'=99F\\[l7$$\"\" #F*$\"$e\"F*-%'COLOURG6&%$RGBG$\"#5!\"\"$F*F*Fh\\l-%+AXESLABELSG6$Q\"x 6\"Q!F]]l-%%VIEWG6$;F(F]\\l;$!\"&F*$\"#:F*" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG }{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "12 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }