{VERSION 6 0 "IBM INTEL LINUX" "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 "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 }
{CSTYLE "" -1 256 "" 1 14 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
257 "" 1 18 0 0 0 0 0 1 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 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 0 }3 3 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 
0 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {PARA 0 "" 0 "" {TEXT -1 0 "" }{TEXT 257 29 "Asymptotic Expans
ion for erfc" }{TEXT -1 29 "\nasympotic_expansion_erfc.mws" }}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "restart:\nGamma:=n->(n-1)!;" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&GammaGj+6#%\"nG6\"6$%)operatorG%&ar
rowGF(-%*factorialG6#,&9$\"\"\"F1!\"\"F(F(F(6#\"\"!" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 189 "gplt:=plot((2/sqrt(Pi))*exp(-t^2),t=-2..
3,thickness=2,color=black):\negplt:=plot((2/sqrt(Pi))*exp(-t^2),t=0.5.
.3,filled=true,thickness=2,color=grey):\nplots[display](gplt,egplt,tit
le=\"erfc\");" }}{PARA 13 "" 1 "" {GLPLOT2D 274 218 218 {PLOTDATA 2 "6
'-%'CURVESG6%7en7$$!\"#\"\"!$\"3J0#4a`)pm?!#>7$$!3smm;HU,\"*=!#<$\"3Mp
/*=_[#eJF-7$$!3SL$3FH'='z\"F1$\"3,EXmEz>![%F-7$$!3hmmTgBa*o\"F1$\"3;PP
97,Q(\\'F-7$$!3amm\"H_\">#e\"F1$\"3'44>_$z]J#*F-7$$!3NL$3_!4Nv9F1$\"3:
WLwAT!)z7!#=7$$!3km;/wfHw8F1$\"3;N+2#=Mvp\"FH7$$!3;+]PM.tt7F1$\"3(=m'Q
(Q>xA#FH7$$!3em;/,oln6F1$\"36L]_G?@')GFH7$$!3%)**\\(oWB>1\"F1$\"3@!)Ra
P6]`OFH7$$!3eJLLepjJ&*FH$\"3%H(yhK>s[XFH7$$!3Ulm;z/ot&)FH$\"3rM&G[.2-T
&FH7$$!3u)****\\P[_\\(FH$\"3&p`oPK$*QV'FH7$$!3A*****\\7)Q7kFH$\"3+6kz$
*fgzuFH7$$!3d*****\\i^)o`FH$\"3C^v\"QRv!e%)FH7$$!3vlmT50A@WFH$\"3n-x(G
P9.G*FH7$$!3OKLLeaR%H$FH$\"3pU(=V=FB,\"F17$$!3kJLLLo#)RBFH$\"3'=]TBSj#
o5F17$$!3hl;a8<j%y\"FH$\"3k#*R&*ov+$4\"F17$$!3f***\\PfO%H7FH$\"3N/)=i!
=X66F17$$!3(>Le9;dr$)*F-$\"3-&Q@Ha7v6\"F17$$!34omT&Q[*ztF-$\"3l')Qx3.D
A6F17$$!3@/]P4'RF#\\F-$\"3[7p?N![c7\"F17$$!3MSLLL3`lCF-$\"3f7Wj^MpF6F1
7$$\"3+I+D1k;/B!#?$\"3e=,MwJPG6F17$$\"3LYLe9TOEHF-$\"3,(Gi6G8u7\"F17$$
\"3m*oT&)e6Bi&F-$\"3!\\4`$[z\"[7\"F17$$\"3+L+]i!f#=$)F-$\"3;'QfQZ)f?6F
17$$\"3l-+]7=EX8FH$\"3l/*HuAU\"36F17$$\"3+-+v=xpe=FH$\"3X>HI)4i+4\"F17
$$\"3<rm;H28IHFH$\"3?lxYPEaN5F17$$\"3`nm\"zpSS\"RFH$\"3t)f[4C[5o*FH7$$
\"3(GLL3_?`(\\FH$\"3\\MzL8o[4))FH7$$\"3*eL$e*)>pxgFH$\"3'>uC&='4*)z(FH
7$$\"3w++v$f4t.(FH$\"3:cLpf$Rm(oFH7$$\"3NPL$e*Gst!)FH$\"3)4*oRm!o(zeFH
7$$\"3Y+++]#RW9*FH$\"3#eC0;FS)*)[FH7$$\"3:++DJE>>5F1$\"3/#Rmc/$G$*RFH7
$$\"3F+]i!RU07\"F1$\"3$)\\<(f*zv9KFH7$$\"3+++v=S2L7F1$\"3Y7X&*RftmCFH7
$$\"3Jmmm\"p)=M8F1$\"3._+NqXw->FH7$$\"3B++](=]@W\"F1$\"3BBX+`C(*49FH7$
$\"36L$e*[$z*R:F1$\"3YY*H!pw>`5FH7$$\"3e++]iC$pk\"F1$\"3[G`c/#y**[(F-7
$$\"3[m;H2qcZ<F1$\"3.7E*yQ+EK&F-7$$\"3O+]7.\"fF&=F1$\"3sCY%fwhXk$F-7$$
\"3Xmm;/Ogb>F1$\"3M4XE\\-YjCF-7$$\"3x**\\ilAFj?F1$\"3gmPf47<)f\"F-7$$
\"3zLLL$)*pp;#F1$\"3cnChhRlI5F-7$$\"3(RL$3xe,tAF1$\"3OZ\"zZN(=OkF`s7$$
\"3Dn;HdO=yBF1$\"3_UvCEiIYRF`s7$$\"3a+++D>#[Z#F1$\"38K@#=Y_*oCF`s7$$\"
3SnmT&G!e&e#F1$\"3lL7<Q'3'49F`s7$$\"3#RLLL)Qk%o#F1$\"3T\\ydQ#QHO)!#@7$
$\"37+]iSjE!z#F1$\"3krK[Kn[!p%Fd\\l7$$\"3c+]P40O\"*GF1$\"3l)zYbO)*4k#F
d\\l7$$\"\"$F*$\"3kyuY>0`#R\"Fd\\l-%'COLOURG6&%$RGBGF*F*F*-%*THICKNESS
G6#\"\"#-%)POLYGONSG6S7,7$$\"3++++++++]FHF*7$$\"3Omm;a)G\\a&FHF*7$$\"3
&HLek`o!>gFHF*7$$\"3&pm;z>)G_lFHF*7$$\"3JnmT&QU!*3(FHF*7$F]_l$\"3K.@Nh
$ol#oFH7$Fj^l$\"3nDw\\To;XtFH7$Fg^l$\"30:e%eX7W&yFH7$Fd^l$\"3O?WW$*44(
H)FH7$Fa^l$\"3dZWN*yDyy)FH7&F\\_l7$$\"3HL$eRZXKi(FHF*7$F``l$\"3MA^Fpke
5jFHF__l7&F_`l7$$\"3xm;z>,_=\")FHF*7$Fg`l$\"3\">oU'[CFPeFHFb`l7&Ff`l7$
$\"3>**\\7G$[8j)FHF*7$F^al$\"3I3g\"3i$zc`FHFi`l7&F]al7$$\"35n;z%*frh\"
*FHF*7$Feal$\"31c\\5m&*Ru[FHF`al7&Fdal7$$\"3!3+Dcw#Q!p*FHF*7$F\\bl$\"3
$f'o!*ey,7WFHFgal7&F[bl7$$\"3ULL3_\"=M-\"F1F*7$Fcbl$\"3^kM.d\\'*eRFHF^
bl7&Fbbl7$$\"3%omTg(fJr5F1F*7$Fjbl$\"3Wy.w4i-\"e$FHFebl7&Fibl7$$\"3&**
**\\7eP_7\"F1F*7$Facl$\"3\"zH+=]Q5=$FHF\\cl7&F`cl7$$\"3#****\\Pf!Qz6F1
F*7$Fhcl$\"3q\"42&zr(y!GFHFccl7&Fgcl7$$\"3-++v=ubJ7F1F*7$F_dl$\"3&)*eg
s]tfZ#FHFjcl7&F^dl7$$\"3$o;zW(*Q*y7F1F*7$Ffdl$\"3Y$*)3S\"eH)>#FHFadl7&
Fedl7$$\"3\\LL3F-GN8F1F*7$F]el$\"3Qc]'oKGs*=FHFhdl7&F\\el7$$\"3ULLLe'3
IQ\"F1F*7$Fdel$\"3%)e!*\\(G\"Qm;FHF_el7&Fcel7$$\"3\"**\\7.<G&Q9F1F*7$F
[fl$\"3LLatL4wC9FHFfel7&Fjel7$$\"3TLL$eMsw[\"F1F*7$Fbfl$\"3Q=(3)\\F#RB
\"FHF]fl7&Fafl7$$\"3;+DJ&H\"fT:F1F*7$Fifl$\"3A]xDk!zz/\"FHFdfl7&Fhfl7$
$\"35+v$f)[$Hf\"F1F*7$F`gl$\"3Q#[$pZt\">#*)F-F[gl7&F_gl7$$\"3cL$ek`1lk
\"F1F*7$Fggl$\"3Gv)f(HA\\+vF-Fbgl7&Ffgl7$$\"3OLe*[.-dp\"F1F*7$F^hl$\"3
M5-:-&*HjjF-Figl7&F]hl7$$\"3lm;/Egw[<F1F*7$Fehl$\"3fq7U`QL+`F-F`hl7&Fd
hl7$$\"3zm\"z%*f%)Q!=F1F*7$F\\il$\"3sQ$H$=ltdVF-Fghl7&F[il7$$\"3/+voza
'=&=F1F*7$Fcil$\"3g(*evCskcOF-F^il7&Fbil7$$\"3(om\"zWho.>F1F*7$Fjil$\"
3(eT`^8u*4IF-Feil7&Fiil7$$\"3-++]i>Ad>F1F*7$Fajl$\"3^hW$R.5zW#F-F\\jl7
&F`jl7$$\"32+]i:jf4?F1F*7$Fhjl$\"3QtPl%*yo))>F-Fcjl7&Fgjl7$$\"39+DJ&>r
-1#F1F*7$F_[m$\"3@qn5G:2=;F-Fjjl7&F^[m7$$\"3++]P4q`;@F1F*7$Ff[m$\"3p**
*RVX&=z7F-Fa[m7&Fe[m7$$\"3:LL$eM%4n@F1F*7$F]\\m$\"3urm)Qf)4I5F-Fh[m7&F
\\\\m7$$\"37++v$4v5A#F1F*7$Fd\\m$\"3>Ui*)*e!RG\")F`sF_\\m7&Fc\\m7$$\"3
cm\"zWn*)*pAF1F*7$F[]m$\"3g\"))o(fMGDlF`sFf\\m7&Fj\\m7$$\"3H++DJiYBBF1
F*7$Fb]m$\"3avis\\+4/^F`sF]]m7&Fa]m7$$\"3,Lek.NytBF1F*7$Fi]m$\"37VgSw(
*oHSF`sFd]m7&Fh]m7$$\"3S+Dc^&zjU#F1F*7$F`^m$\"3)fnuzo%eIJF`sF[^m7&F_^m
7$$\"3XLL3-=!yZ#F1F*7$Fg^m$\"3I\"e/+q#yKCF`sFb^m7&Ff^m7$$\"3))*\\7G8O;
`#F1F*7$F^_m$\"3c1)3=HJx&=F`sFi^m7&F]_m7$$\"3!pmm;*\\[$e#F1F*7$Fe_m$\"
3n8#Rmne\\U\"F`sF`_m7&Fd_m7$$\"3*pmT&Qz]OEF1F*7$F\\`m$\"3]/P;UYV!3\"F`
sFg_m7&F[`m7$$\"3iLekG=4*o#F1F*7$Fc`m$\"3?J-P\"f;a;)Fd\\lF^`m7&Fb`m7$$
\"3F++]i4TPFF1F*7$Fj`m$\"3U*yMv$p4#G'Fd\\lFe`m7&Fi`m7$$\"3qL$3F9!z#z#F
1F*7$Faam$\"34%))3Gue[i%Fd\\lF\\am7&F`am7$$\"3'pmm;%>KUGF1F*7$Fham$\"3
#H5yP+![)\\$Fd\\lFcam7&Fgam7$$\"31+DJqJ8&*GF1F*7$F_bm$\"3f'>$fi)oRe#Fd
\\lFjam7&F^bm7$$\"3G+voa-oXHF1F*7$Ffbm$\"3A%=NQH#RB>Fd\\lFabm7&Febm7$F
`]lF*F_]lFhbm7\"-%&STYLEG6#%,PATCHNOGRIDG-Fe]l6&Fg]l$\")=THv!\")FdcmFd
cmFh]l-%&TITLEG6#Q%erfc6\"-%+AXESLABELSG6%Q\"tF[dmQ!F[dm-%%FONTG6#%(DE
FAULTG-%%VIEWG6$;F(F`]lFddm" 1 2 0 1 10 0 2 9 1 4 2 1.000000 
45.000000 45.000000 0 0 "Curve 1" "Curve 2" }}}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 95 "ae_term:=(lambda,n)->(2/sqrt(Pi))*exp(-lambda^2)*(
-1)^n*Gamma(2*n+1)/((n!)*(2*lambda)^(2*n+1));" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%(ae_termGj+6$%'lambdaG%\"nG6\"6$%)operatorG%&arrowGF)
,$*0\"\"#\"\"\"-%%sqrtG6#%#PiG!\"\"-%$expG6#,$*$)9$F/F0F5F0)F59%F0-%&G
ammaG6#,&*&F/F0F>F0F0F0F0F0-%*factorialG6#F>F5),$*&F/F0F<F0F0FBF5F0F)F
)F)6$\"\"!FK" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "seq(ae_term
(lambda,n),n=0..4);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6'*(%#PiG#!\"\"\"
\"#-%$expG6#,$*$)%'lambdaGF'\"\"\"F&F/F.F&,$*&#F/F'F/*(F$F%F(F/F.!\"$F
/F&,$*&#\"\"$\"\"%F/*(F$F%F(F/F.!\"&F/F/,$*&#\"#:\"\")F/*(F$F%F(F/F.!
\"(F/F&,$*&#\"$0\"\"#;F/*(F$F%F(F/F.!\"*F/F/" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 62 "r:=unapply(simplify(ae_term(lambda,n+1)/ae_term(
lambda,n)),n);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"rGj+6#%\"nG6\"6$
%)operatorG%&arrowGF(,$*&#\"\"\"\"\"#F/*&%'lambdaG!\"#,&*&F0F/9$F/F/F/
F/F/F/!\"\"F(F(F(6#\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 73 
"ae_partial_sum:=unapply('evalf(add(ae_term(lambda,n),n=0..N))',lambda
,N);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%/ae_partial_sumG-%\"@G6$%&ev
alfGj+6$%'lambdaG%\"NG6\"6$%)operatorG%&arrowGF--%$addG6$-%(ae_termG6$
9$%\"nG/F8;\"\"!9%F-F-F-6$F;F;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 78 "taylor_partial_sum:=unapply('convert(taylor(erfc(x),x=0,2*n+1)
,polynom)',x,n);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 87 "for n from 0 to
 20 do\n  tay[n]:=evalf(taylor_partial_sum(lambda,n));\nod: unassign('
n'):" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%3taylor_partial_sumGj+6$%\"x
G%\"nG6\"6$%)operatorG%&arrowGF)-%(convertG6$-%'taylorG6%-%%erfcG6#9$/
F6\"\"!,&*&\"\"#\"\"\"9%F<F<F<F<%(polynomGF)F)F)6$\"$8&\"*;/S\"=" }}}
{PARA 0 "" 0 "" {TEXT -1 0 "" }{TEXT 256 68 "Comparison of (divergent)
 asymptotic expansion with Taylor expansion" }}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 335 "lambda:=2.5;\nexactplt:=plot(erfc(lambda),n=0..20)
:\naeplot:=plot([seq([n,ae_partial_sum(lambda,n)],n=0..20)] ,color=blu
e,style=point):\ntayplot:=plot([seq([n,tay[n]],n=0..20)] ,style=point)
:\nplots[display](tayplot,aeplot,exactplt);\nplots[display](tayplot,ae
plot,exactplt,view=[0..20,-2*erfc(lambda)..2*erfc(lambda)]);\nunassign
('lambda'):" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'lambdaG$\"#D!\"\"" }
}{PARA 13 "" 1 "" {GLPLOT2D 387 387 387 {PLOTDATA 2 "6'-%'CURVESG6%777
$$\"\"!F)$\"\"\"F)7$F*$!36+++=z%4#=!#<7$$\"\"#F)$\"3$*******4p-cSF/7$$
\"\"$F)$!3>+++!*3IjpF/7$$\"\"%F)$\"3r+++S$3XV*F/7$$\"\"&F)$!3$******>[
Q$\\5!#;7$$\"\"'F)$\"3t++++]T())*F/7$$\"\"(F)$!3U+++!*4Vw!)F/7$$\"\")F
)$\"3x******HT;CeF/7$$\"\"*F)$!3)******\\dZ!ePF/7$$\"#5F)$\"3?+++R?\"e
>#F/7$$\"#6F)$!31+++:Q&4<\"F/7$$\"#7F)$\"3l******H9Rcd!#=7$$\"#8F)$!3)
******\\#)*p7EFbo7$$\"#9F)$\"31+++!=dG6\"Fbo7$$\"#:F)$!3t******>![jN%!
#>7$$\"#;F)$\"3))*****zhS%z;Fbp7$$\"#<F)$!30+++qf'RN&!#?7$$\"#=F)$\"3,
+++kf^BBF]q7$$\"#>F)$!3++++?\\z\")>!#@7$$\"#?F)$\"3M+++)poy)eFhq-%'COL
OURG6&%$RGBG$Fen!\"\"F(F(-%&STYLEG6#%&POINTG-F$6%777$F($\"37+++g%olN%F
hq7$F*$\"3$)*****H)H/3SFhq7$F1$\"3;+++(4*o\"4%Fhq7$F6$\"3-+++_1BeSFhq7
$F;$\"3B+++#Qnp2%Fhq7$F@$\"3<+++OpZjSFhq7$FF$\"3v*****z_[`2%Fhq7$FK$\"
31+++s?+jSFhq7$FP$\"30+++>y\"y2%Fhq7$FU$\"3(******HSow0%Fhq7$FZ$\"3.++
+:bH)3%Fhq7$Fin$\"3\")*****z'>%o.%Fhq7$F^o$\"34+++&\\;:8%Fhq7$Fdo$\"3w
******Ru;URFhq7$Fio$\"38+++)Rh6N%Fhq7$F^p$\"3\")*****fT&H-MFhq7$Fdp$\"
3d*****H1$[bdFhq7$Fip$!3H+++VIKpX!#A7$F_q$\"33+++qIy$p\"F]q7$Fdq$!32++
+un1bMF]q7$Fjq$\"3-+++uW$4E\"Fbp-F_r6&FarF(F($\"*++++\"!\")Fdr-F$6$7S7
$F($\"3#)*****R<?&pSFhq7$$\"39LLLL3VfVFboFdw7$$\"3%pmm;H[D:)FboFdw7$$
\"3MLLLe0$=C\"F/Fdw7$$\"3iLLL3RBr;F/Fdw7$$\"3kmm;zjf)4#F/Fdw7$$\"3ULL$
e4;[\\#F/Fdw7$$\"3!)****\\i'y]!HF/Fdw7$$\"3oLL$ezs$HLF/Fdw7$$\"3=++]7i
I_PF/Fdw7$$\"3Onmm;_M(=%F/Fdw7$$\"3$QLL$3y_qXF/Fdw7$$\"3]+++]1!>+&F/Fd
w7$$\"3J+++]Z/NaF/Fdw7$$\"3<+++]$fC&eF/Fdw7$$\"3qLL$ez6:B'F/Fdw7$$\"30
nmm;=C#o'F/Fdw7$$\"3Nnmmm#pS1(F/Fdw7$$\"3<++]i`A3vF/Fdw7$$\"3Rmmmm(y8!
zF/Fdw7$$\"3K,+]i.tK$)F/Fdw7$$\"3!3++v3zMu)F/Fdw7$$\"3Yomm\"H_?<*F/Fdw
7$$\"3,nm;zihl&*F/Fdw7$$\"3;LLL3#G,***F/Fdw7$$\"3WLLezw5V5FDFdw7$$\"3.
++v$Q#\\\"3\"FDFdw7$$\"3\\LL$e\"*[H7\"FDFdw7$$\"3-+++qvxl6FDFdw7$$\"31
++]_qn27FDFdw7$$\"36++Dcp@[7FDFdw7$$\"3+++]2'HKH\"FDFdw7$$\"3`mmmwanL8
FDFdw7$$\"34+++v+'oP\"FDFdw7$$\"3CLLeR<*fT\"FDFdw7$$\"3B+++&)Hxe9FDFdw
7$$\"3gmm\"H!o-*\\\"FDFdw7$$\"39++DTO5T:FDFdw7$$\"3emmmT9C#e\"FDFdw7$$
\"3\"****\\i!*3`i\"FDFdw7$$\"3_LLL$*zym;FDFdw7$$\"3fLL$3N1#4<FDFdw7$$
\"3!pm;HYt7v\"FDFdw7$$\"3@+++q(G**y\"FDFdw7$$\"3'pmmT6KU$=FDFdw7$$\"3d
LLL`v&Q(=FDFdw7$$\"30++DOl5;>FDFdw7$$\"3A++v.Uac>FDFdw7$FjqFdwF^r-%+AX
ESLABELSG6%Q!6\"Fg`l-%%FONTG6#%(DEFAULTG-%%VIEWG6$;F(FjqF\\al" 1 2 0 
1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" 
"Curve 3" }}}{PARA 13 "" 1 "" {GLPLOT2D 387 387 387 {PLOTDATA 2 "6'-%'
CURVESG6%777$$\"\"!F)$\"\"\"F)7$F*$!36+++=z%4#=!#<7$$\"\"#F)$\"3$*****
**4p-cSF/7$$\"\"$F)$!3>+++!*3IjpF/7$$\"\"%F)$\"3r+++S$3XV*F/7$$\"\"&F)
$!3$******>[Q$\\5!#;7$$\"\"'F)$\"3t++++]T())*F/7$$\"\"(F)$!3U+++!*4Vw!
)F/7$$\"\")F)$\"3x******HT;CeF/7$$\"\"*F)$!3)******\\dZ!ePF/7$$\"#5F)$
\"3?+++R?\"e>#F/7$$\"#6F)$!31+++:Q&4<\"F/7$$\"#7F)$\"3l******H9Rcd!#=7
$$\"#8F)$!3)******\\#)*p7EFbo7$$\"#9F)$\"31+++!=dG6\"Fbo7$$\"#:F)$!3t*
*****>![jN%!#>7$$\"#;F)$\"3))*****zhS%z;Fbp7$$\"#<F)$!30+++qf'RN&!#?7$
$\"#=F)$\"3,+++kf^BBF]q7$$\"#>F)$!3++++?\\z\")>!#@7$$\"#?F)$\"3M+++)po
y)eFhq-%'COLOURG6&%$RGBG$Fen!\"\"F(F(-%&STYLEG6#%&POINTG-F$6%777$F($\"
37+++g%olN%Fhq7$F*$\"3$)*****H)H/3SFhq7$F1$\"3;+++(4*o\"4%Fhq7$F6$\"3-
+++_1BeSFhq7$F;$\"3B+++#Qnp2%Fhq7$F@$\"3<+++OpZjSFhq7$FF$\"3v*****z_[`
2%Fhq7$FK$\"31+++s?+jSFhq7$FP$\"30+++>y\"y2%Fhq7$FU$\"3(******HSow0%Fh
q7$FZ$\"3.+++:bH)3%Fhq7$Fin$\"3\")*****z'>%o.%Fhq7$F^o$\"34+++&\\;:8%F
hq7$Fdo$\"3w******Ru;URFhq7$Fio$\"38+++)Rh6N%Fhq7$F^p$\"3\")*****fT&H-
MFhq7$Fdp$\"3d*****H1$[bdFhq7$Fip$!3H+++VIKpX!#A7$F_q$\"33+++qIy$p\"F]
q7$Fdq$!32+++un1bMF]q7$Fjq$\"3-+++uW$4E\"Fbp-F_r6&FarF(F($\"*++++\"!\"
)Fdr-F$6$7S7$F($\"3#)*****R<?&pSFhq7$$\"39LLLL3VfVFboFdw7$$\"3%pmm;H[D
:)FboFdw7$$\"3MLLLe0$=C\"F/Fdw7$$\"3iLLL3RBr;F/Fdw7$$\"3kmm;zjf)4#F/Fd
w7$$\"3ULL$e4;[\\#F/Fdw7$$\"3!)****\\i'y]!HF/Fdw7$$\"3oLL$ezs$HLF/Fdw7
$$\"3=++]7iI_PF/Fdw7$$\"3Onmm;_M(=%F/Fdw7$$\"3$QLL$3y_qXF/Fdw7$$\"3]++
+]1!>+&F/Fdw7$$\"3J+++]Z/NaF/Fdw7$$\"3<+++]$fC&eF/Fdw7$$\"3qLL$ez6:B'F
/Fdw7$$\"30nmm;=C#o'F/Fdw7$$\"3Nnmmm#pS1(F/Fdw7$$\"3<++]i`A3vF/Fdw7$$
\"3Rmmmm(y8!zF/Fdw7$$\"3K,+]i.tK$)F/Fdw7$$\"3!3++v3zMu)F/Fdw7$$\"3Yomm
\"H_?<*F/Fdw7$$\"3,nm;zihl&*F/Fdw7$$\"3;LLL3#G,***F/Fdw7$$\"3WLLezw5V5
FDFdw7$$\"3.++v$Q#\\\"3\"FDFdw7$$\"3\\LL$e\"*[H7\"FDFdw7$$\"3-+++qvxl6
FDFdw7$$\"31++]_qn27FDFdw7$$\"36++Dcp@[7FDFdw7$$\"3+++]2'HKH\"FDFdw7$$
\"3`mmmwanL8FDFdw7$$\"34+++v+'oP\"FDFdw7$$\"3CLLeR<*fT\"FDFdw7$$\"3B++
+&)Hxe9FDFdw7$$\"3gmm\"H!o-*\\\"FDFdw7$$\"39++DTO5T:FDFdw7$$\"3emmmT9C
#e\"FDFdw7$$\"3\"****\\i!*3`i\"FDFdw7$$\"3_LLL$*zym;FDFdw7$$\"3fLL$3N1
#4<FDFdw7$$\"3!pm;HYt7v\"FDFdw7$$\"3@+++q(G**y\"FDFdw7$$\"3'pmmT6KU$=F
DFdw7$$\"3dLLL`v&Q(=FDFdw7$$\"30++DOl5;>FDFdw7$$\"3A++v.Uac>FDFdw7$Fjq
FdwF^r-%+AXESLABELSG6%Q!6\"Fg`l-%%FONTG6#%(DEFAULTG-%%VIEWG6$;F(Fjq;$!
+[./R\")!#8$\"+[./R\")Fdal" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 
45.000000 0 0 "Curve 1" "Curve 2" "Curve 3" }}}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 285 "lambda:=2.5;\naeplot:=plot([seq([n,log10(abs(ae_p
artial_sum(lambda,n)-erfc(lambda)))],n=0..20)] ,color=blue,style=point
):\ntayplot:=plot([seq([n,log10(abs(tay[n]-erfc(lambda)))],n=0..20)] ,
style=point):\nplots[display](tayplot,aeplot,exactplt,title=\"log10 ab
s error\");\nunassign('lambda'):" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%
'lambdaG$\"#D!\"\"" }}{PARA 13 "" 1 "" {GLPLOT2D 387 387 387 
{PLOTDATA 2 "6(-%'CURVESG6%777$$\"\"!F)$!3(******\\zHxw\"!#@7$$\"\"\"F
)$\"3))*****HrXRg#!#=7$$\"\"#F)$\"3:+++;Dd!3'F27$$\"\"$F)$\"3^+++BaSG%
)F27$$\"\"%F)$\"3-+++$R0qu*F27$$\"\"&F)$\"36+++UC$4-\"!#<7$$\"\"'F)$\"
37+++x)[1&**F27$$\"\"(F)$\"3t*****4p8C2*F27$$\"\")F)$\"3b+++(eK?l(F27$
$\"\"*F)$\"3a*****4+$4]dF27$$\"#5F)$\"3$)*****>mY^T$F27$$\"#6F)$\"3s**
***zQn!po!#>7$$\"#7F)$!3-+++\"=o:S#F27$$\"#8F)$!3++++lbMAeF27$$\"#9F)$
!3!******4;;:b*F27$$\"#:F)$!32+++l#RoN\"FG7$$\"#;F)$!3)*******4&)[&y\"
FG7$$\"#<F)$!3#******pI3&RAFG7$$\"#=F)$!3#******fowur#FG7$$\"#>F)$!3!)
*****HB]\"=KFG7$$\"#?F)$!38+++sGKSPFG-%'COLOURG6&%$RGBG$Fhn!\"\"F(F(-%
&STYLEG6#%&POINTG-F$6%777$F($!3\")*****>/X?a%FG7$F.$!3()*****R)fG6_FG7
$F4$!3z*****\\SbUl&FG7$F9$!3l*****fWCt%fFG7$F>$!38+++;l+GhFG7$FC$!3***
****>II(=iFG7$FI$!3u*****z2aWB'FG7$FN$!3w*****z%)ye='FG7$FS$!3d******
\\^/\"3'FG7$FX$!3&*******[n@EfFG7$Fgn$!3L+++n@TEdFG7$F\\o$!3&******RzT
d[&FG7$Fbo$!3A+++#3Mw?&FG7$Fgo$!3%)*****ps\"*\\*[FG7$F\\p$!3))*****px.
.b%FG7$Fap$!35+++ZysvTFG7$Ffp$!3/+++*)>:tPFG7$F[q$!3<+++N?CWLFG7$F`q$!
3'******zYy/*GFG7$Feq$!3*)*****ph&=8CFG7$Fjq$!31+++-]b8>FG-F_r6&FarF(F
($\"*++++\"!\")Fdr-F$6$7S7$F($\"3#)*****R<?&pSF,7$$\"39LLLL3VfVF2Fcw7$
$\"3%pmm;H[D:)F2Fcw7$$\"3MLLLe0$=C\"FGFcw7$$\"3iLLL3RBr;FGFcw7$$\"3kmm
;zjf)4#FGFcw7$$\"3ULL$e4;[\\#FGFcw7$$\"3!)****\\i'y]!HFGFcw7$$\"3oLL$e
zs$HLFGFcw7$$\"3=++]7iI_PFGFcw7$$\"3Onmm;_M(=%FGFcw7$$\"3$QLL$3y_qXFGF
cw7$$\"3]+++]1!>+&FGFcw7$$\"3J+++]Z/NaFGFcw7$$\"3<+++]$fC&eFGFcw7$$\"3
qLL$ez6:B'FGFcw7$$\"30nmm;=C#o'FGFcw7$$\"3Nnmmm#pS1(FGFcw7$$\"3<++]i`A
3vFGFcw7$$\"3Rmmmm(y8!zFGFcw7$$\"3K,+]i.tK$)FGFcw7$$\"3!3++v3zMu)FGFcw
7$$\"3Yomm\"H_?<*FGFcw7$$\"3,nm;zihl&*FGFcw7$$\"3;LLL3#G,***FGFcw7$$\"
3WLLezw5V5!#;Fcw7$$\"3.++v$Q#\\\"3\"F`\\lFcw7$$\"3\\LL$e\"*[H7\"F`\\lF
cw7$$\"3-+++qvxl6F`\\lFcw7$$\"31++]_qn27F`\\lFcw7$$\"36++Dcp@[7F`\\lFc
w7$$\"3+++]2'HKH\"F`\\lFcw7$$\"3`mmmwanL8F`\\lFcw7$$\"34+++v+'oP\"F`\\
lFcw7$$\"3CLLeR<*fT\"F`\\lFcw7$$\"3B+++&)Hxe9F`\\lFcw7$$\"3gmm\"H!o-*
\\\"F`\\lFcw7$$\"39++DTO5T:F`\\lFcw7$$\"3emmmT9C#e\"F`\\lFcw7$$\"3\"**
**\\i!*3`i\"F`\\lFcw7$$\"3_LLL$*zym;F`\\lFcw7$$\"3fLL$3N1#4<F`\\lFcw7$
$\"3!pm;HYt7v\"F`\\lFcw7$$\"3@+++q(G**y\"F`\\lFcw7$$\"3'pmmT6KU$=F`\\l
Fcw7$$\"3dLLL`v&Q(=F`\\lFcw7$$\"30++DOl5;>F`\\lFcw7$$\"3A++v.Uac>F`\\l
Fcw7$FjqFcwF^r-%&TITLEG6#Q0log10~abs~error6\"-%+AXESLABELSG6%Q!Fh`lF\\
al-%%FONTG6#%(DEFAULTG-%%VIEWG6$;F(FjqF`al" 1 2 0 1 10 0 2 9 1 4 2 
1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" "Curve 3" }}}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "1 0 0" 9 }
{VIEWOPTS 1 1 0 3 4 1802 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }