{VERSION 3 0 "IBM INTEL NT" "3.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 } {CSTYLE "" -1 256 "Comic Sans MS" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 } {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 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Text Output" -1 2 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 3 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Warning" 2 7 1 {CSTYLE "" -1 -1 "" 0 1 0 0 255 1 0 0 0 0 0 0 1 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 } {PSTYLE "Maple Output" 0 11 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 11 12 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Plot" 0 13 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 13 "" 1 "" {TEXT 256 25 "Definition der Prozedur: " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 424 "taylorPicture:=\nproc (zentrum,eps,n::posint)\n a:= zentrum-eps;\n b:= zentrum+eps;\n \+ for k from 1 to n do\n t:=taylor(f(x),x=zentrum,k); \n tp: =unapply(convert(t,polynom),x);\n q[k]:=plot(tp(x),x=a..b,y=-4..4 ,numpoints=1000,color=blue,args[4..nargs]):\n od;\n q:=plots[displ ay]([seq(q[k],k=1..n)],insequence=true);\n p:=plot(f(x),x=a..b,y=-4. .4,color=red,args[4..nargs]);\n plots[display]([q,p]);\n end;" }} {PARA 7 "" 1 "" {TEXT -1 41 "Warning, `a` is implicitly declared local " }}{PARA 7 "" 1 "" {TEXT -1 41 "Warning, `b` is implicitly declared l ocal" }}{PARA 7 "" 1 "" {TEXT -1 41 "Warning, `k` is implicitly declar ed local" }}{PARA 7 "" 1 "" {TEXT -1 41 "Warning, `t` is implicitly de clared local" }}{PARA 7 "" 1 "" {TEXT -1 42 "Warning, `tp` is implicit ly declared local" }}{PARA 7 "" 1 "" {TEXT -1 41 "Warning, `q` is impl icitly declared local" }}{PARA 7 "" 1 "" {TEXT -1 41 "Warning, `p` is \+ implicitly declared local" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%.taylor PictureGR6%%(zentrumG%$epsG'%\"nG%'posintG6)%\"aG%\"bG%\"kG%\"tG%#tpG% \"qG%\"pG6\"F4C(>8$,&9$\"\"\"9%!\"\">8%,&F9F:F;F:?(8&F:F:9&%%trueGC%>8 '-%'taylorG6%-%\"fG6#%\"xG/FMF9FA>8(-%(unapplyG6$-%(convertG6$FF%(poly nomGFM>&8)6#FA-%%plotG6(-FPFL/FM;F7F>/%\"yG;!\"%\"\"%/%*numpointsG\"%+ 5/%&colorG%%blueG&9\"6#;F`o9#>FZ-&%&plotsG6#%(displayG6$7#-%$seqG6$FY/ FA;F:FB/%+insequenceGFC>8*-Fgn6'FJFjnF\\o/Feo%$redGFgo-F^p6#7$FZF\\qF4 F4F4" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 107 "Die Funktion, von der di e Taylorreihe entwickelt werden soll, muss zun\344chst als Funktion f \+ definiert werden" }}{PARA 0 "" 0 "" {TEXT -1 29 "Der Aufruf hat dann d ie Form " }}{PARA 0 "" 0 "" {TEXT -1 101 "taylorPicture(, , )" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "f:=x->sin(x);" }}{PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 28 "taylorPicture(Pi,4.5*Pi,32);" }}{PARA 13 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}} {MARK "2 5 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }