{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 }{CSTYLE "" -1 256 "" 0 1 0 0 0 0 0 1 0 0 0 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 "" {TEXT 256 13 "taylor_cosine" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "t:=taylor(cos(x),x=0,5+1); " } {TEXT -1 42 "Sets up the Taylor series in a formal way." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "P5:=convert(t,polynom); " }{TEXT -1 28 "Converts it to a polynomial." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "P1:=convert(taylor(cos(x),x=0,2),polynom); " }{TEXT -1 26 "First order approximation." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "P2:=convert(taylor(cos(x),x=0,3),polynom); " }{TEXT -1 27 "Second order approximation." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "plot(\{cos(x),P1,P2,P5\},x=-6..6,y=-1.5..1.5); " } {TEXT -1 23 "Plot all four together." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "P10:=convert(taylor(cos(x),x=0,11),polynom); " } {TEXT -1 26 "Tenth order approximation." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "plot(\{cos(x),P10\},x=-6..6,y=-1.5..1.5);" }}}}{MARK "0 0 0" 13 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }