{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 "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 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "M:=(2+4*exp(t)+3*exp
(u)+1*exp(t+u))/10:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "mtay
lor(M,[t,u],2):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "xm:=coef
f(%,t):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "ym:=coeff(%%,u):
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "M:=M*exp(-xm*t-ym*u):" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "M:=subs(\{t=t*w,u=u*w\},M
):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "C:=expand(mtaylor(log
(M),w,5)/w^2):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "C0:=subs(
w=0,C):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "C:=mtaylor(exp(s
ubs(\{t=t*I,u=u*I\},C-C0)),w,3):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 32 "C0:=exp(subs(\{t=t*I,u=u*I\},C0)):" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 15 "with(inttrans):" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 26 "f:=fourier(C0*C,t,x)/2/Pi:" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 23 "f:=fourier(f,u,y)/2/Pi;" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%\"fG,$*&#\"\"\"\"'++vF(*0\"\"##F(F+-%$expG6#,$*&F+F()
%\"xGF+F(!\"\"F(\"#5F,-F.6#,$*(F+F(F3F(%\"yGF(F4F(-F.6#,&*(F+F(\"\"&F4
F3F+F4*(F?F(F+F4F:F+F4F(,P*(\"&vo%F()%\"wGF+F()F:\"\"'F(F(*(\"'+]iF(FD
F()F:\"\"%F(F4*(\"'DcmF(FDF()F:F+F(F(*(\"'+D6F(FEF(F:F(F4*(\"'+v=F(FEF
()F:\"\"$F(F(*(\"&+![F(FEF()F3FTF(F4**\"'++@F(FEF(F2F(F:F(F4*(\"&++$F(
FEF(F3F(F(**\"'++:F(FEF(F3F(FNF(F4**\"&+](F(FDF(F2F(FJF(F4**\"'+]DF(FD
F(F3F(F:F(F4**\"'++]F(FDF(F3F(FSF(F(**\"'+](*F(FDF(F2F(FNF(F(**FinF(FD
F(F3F()F:F?F(F4\"'+]PF(*&\"'+v:F(FDF(F4*(\"%sIF(FDF()F3FGF(F(**\"&!)o#
F(FDF()F3F?F(F:F(F(*(\"'+gXF(FDF()F3FKF(F4**\"&+!yF(FDF(F]pF(FNF(F(**
\"'++QF(FDF(FWF(F:F(F(**\"&++'F(FDF(FWF(FSF(F(*(\"'+ScF(FDF(F2F(F(F(%#
PiGF4F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "f:=subs(\{x=x*
w-xm/w,y=y*w-ym/w\},f)*w^2:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
23 "f:=subs(w=1/sqrt(n),f):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
6 "n:=10:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 89 "for i from 0 t
o n do for j from 0 to n do p[i,j]:=evalf(subs(\{x=i,y=j\},f)) end do \+
end do:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "P:=(2+4*z+3*u+1*
z*u)/10:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "prob:=expand(P^
n):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "lar:=0:" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 109 "for i from 0 to n do for j from 0 \+
to n do lar:=max(lar,abs(p[i,j]-coeff(coeff(prob,z,i),u,j))) end do en
d do;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "lar;" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#$\")ta()G!#6" }}}}{MARK "22" 0 }{VIEWOPTS 1 1 0 
1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }