{VERSION 6 0 "IBM INTEL NT" "6.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 "_cstyle1" -1 204 "Courier" 1 12 255 0 0 1 2 1 2 2 1 2 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 "_ps tyle1" -1 200 1 {CSTYLE "" -1 -1 "Courier" 1 12 255 0 0 1 2 1 2 2 1 2 1 1 1 1 }1 1 0 0 0 0 2 0 2 0 2 2 0 1 }{PSTYLE "_pstyle2" -1 201 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 200 "> " 0 "" {MPLTEXT 1 204 28 "with(plots):with (plottools):" }}}{EXCHG {PARA 200 "> " 0 "" {MPLTEXT 1 204 31 "f:=(x,y )->sin(x)*exp(-x^2-y^2);" }}}{EXCHG {PARA 200 "> " 0 "" {MPLTEXT 1 204 63 "FF:=plot3d(f(x,y),x=-2..2,y=-1.5..1.5,color=cyan):\ndisplay(FF );" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "n:=1:mtaylor(f(x,y),[ x=a,y=b],n+1);" }}}{EXCHG {PARA 200 "> " 0 "" {MPLTEXT 1 204 84 "x0:=0 .5:y0:=0:P:=point([x0,y0,f(x0,y0)], color=red, symbol=circle):\ndispla y(\{FF,P\});" }}}{EXCHG }{EXCHG {PARA 200 "> " 0 "" {MPLTEXT 1 204 55 "n:=2:R:=unapply(mtaylor(f(x,y),[x=x0,y=y0],n+1),(x,y));" }}}{EXCHG {PARA 200 "> " 0 "" {MPLTEXT 1 204 130 "RR:=plot3d(R(x,y),x=-2..2,y=-1 .5..1.5,color=gold):\ndisplay(\{FF,RR,P\},view=-0.5..0.7,axes=boxed, s tyle=patch,orientation=[-97,81]);" }}}{EXCHG }{PARA 201 "" 0 "" {TEXT -1 0 "" }}}{MARK "0 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 } {PAGENUMBERS 0 1 2 33 1 1 }