{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 "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 1 }{CSTYLE "2D Comment" 2 18 "" 0 1 0 0 0 0 0 0 0 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 "" 0 1 0 0 36 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 }{PSTYLE "Maple Output" 0 11 1 {CSTYLE "" -1 -1 "" 0 1 0 0 2 0 0 0 0 0 0 0 0 0 0 1 }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 1 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 256 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 256 "" 0 "" {TEXT -1 37 "LIMITING PROCEDURE FOR D ELTA FUNCTION" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" } }{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 23 "We define the function " }}}{EXCHG {PARA 0 "" 0 "" {XPPEDIT 18 0 "delta(x,Lambda)=sin(Lambda*x)/(pi*x)" "6#/-%&deltaG6$%\"xG%'LambdaG *&-%$sinG6#*&F(\"\"\"F'F.F.*&%#piGF.F'F.!\"\"" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 70 "For Maple to be able to handle the limit x->0 we speci fy it explicitly" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 54 "delta:= (x,L)->if x=0 then L/Pi else sin(L*x)/(Pi*x)fi;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&deltaGR6$%\"xG%\"LG6\"6$%)operatorG%&arrowGF)@%/9$\" \"!*&9%\"\"\"%#PiG!\"\"*&-%$sinG6#*&F2F3F/F3F3*&F4F3F/F3F5F)F)F)" }}} {EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" } }{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }} {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 31 "See how t he function looks like" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "p lot(delta(x,10),x=-3..3);" }}{PARA 13 "" 1 "" {GLPLOT2D 281 281 281 {PLOTDATA 2 "6%-%'CURVESG6$7_w7$$!\"$\"\"!$!1#G.F6M$[5!#;7$$!1+]PM@l$) H!#:$!19(z_(p!o1\"F-7$$!1++voUInHF1$!1$RXHRzo0\"F-7$$!1+]7.k&4&HF1$!1C l**\\J]=5F-7$$!1++]P&3Y$HF1$!1Tu(HR))Q_*!#<7$$!1++D1G\">!HF1$!1[Ygd8* \\V(FC7$$!1+++vq@pGF1$!1YD-Zov,XFC7$$!1+]78.K7GF1$\"1x`wa_0/m6)z+\"F-7$$!1+](=>P9p#F1 $\"1lkmLy[c6F-7$$!1]7.-1WvEF1$\"1\"*)48d3#)=\"F-7$$!1+v=7SWfEF1$\"18LN >!)y*=\"F-7$$!1]PMAuWVEF1$\"1#)3M8?#3;\"F-7$$!1++]K3XFEF1$\"1s%))3v\"o ,6F-7$$!1+++I./jDF1$\"14P,n\"*fGfFC7$$!1++]F)H')\\#F1$!1InJ76$*e=FC7$$ !1+](oXDXV#F1$!1u@\\fVek#*FC7$$!1++D'3@/P#F1$!1yh;?ZFH8F-7$$!1+](o%Gcb BF1$!1fi(\\T%G^8F-7$$!1++]2YqSBF1$!1u/k?ugV8F-7$$!1+]7oj%eK#F1$!1D%>4F NgI\"F-7$$!1++vG\"))4J#F1$!1X;Ts\\,R7F-7$$!1+++];F\"G#F1$!1s[xU?n@5F-7 $$!1++Dr^b^AF1$!1#*=<,I^yqFC7$$!1++D'y:+>#F1$\"1$f%=N))o?8FC7$$!1++D,k ZG@F1$\"1())4h+#*pq*FC7$$!1++DTVl'4#F1$\"14AM#z)H(H\"F-7$$!1++D\"GK[1# F1$\"1>w4#H#p,:F-7$$!1++D^7#*[?F1$\"1c$*=bo')\\:F-7$$!1++D@-,L?F1$\"1: ;V*=N$f:F-7$$!1++D\">*4F1$\"1``ekE([F)FC7$$!1++DO\"3V(=F1$!1\\(>$33#[!=FC 7$$!1+]i&G_!4=F1$!1Jhh'o]4@\"F-7$$!1+++NkzV`!H!=F-7$$!1++DY!>jo\"F1$!1\\FD'yTps\"F-7$$!1+](=N!ed;F1$!1Sq5\")[3l 9F-7$$!1++]d;%)G;F1$!1xgO.[pr5F-7$$!1++DJd8k:F1$\"1/G)))QkWN\"FC7$$!1+ ++0)H%*\\\"F1$\"1t'>*z:l*Q\"F-7$$!1++](*R%pY\"F1$\"1$*)zhM$pp=F-7$$!1+ ++!>eWV\"F1$\"1D<8pPYr@F-7$$!1++D'G:#=9F1$\"197TH\"p@C#F-7$$!1++]#Qs>S \"F1$\"1v9z[L![D#F-7$$!1++vy%HdQ\"F1$\"1)p@*\\(zw?#F-7$$!1+++vl[p8F1$ \"1!4tAKJ15#F-7$$!1+++&QuoI\"F1$\"1j`Zbgys6F-7$$!1+++&>iUC\"F1$!1aNdM< pdJFC7$$!1+]7GVS(=\"F1$!1xmIc_=6N^:iRF-7$$!1+]P%) 4W3yF-$\"1#3UM,eA2%F-7$$!1+vV[C)=k(F-$\"1)RV4=$*>2%F-7$$!1++]7RKvuF-$ \"1KZt-@]cRF-7$$!1,+D1Qf&)oF-$\"1%pV_zK%>EF-7$$!1-+++P'eH'F-$\"1)p\"4* zU)4k!#=7$$!1++D1j$)[cF-$!1z<;x)z&RLF-7$$!1****\\7*3=+&F-$!1]/BM$=#*4' F-7$$!1**\\iS\"yx%[F-$!1r\"QaI6g]'F-7$$!1***\\(otu$p%F-$!14/?=VR!y'F-7 $$!1**\\(of;(RXF-$!1-MWR!*R2pF-7$$!1*****\\#eo&Q%F-$!1U2l^H-uoF-7$$!1* **\\7GCw2%F-$!1Z)oP/(o&G'F-7$$!1)***\\PFcpPF-$!1H%[(GG+h\\F-7$$!1)*\\P MG8[MF-$!1\"4u*pdn&y#F-7$$!1)**\\7$HqEJF-$\"1G\\h?Ex::FC7$$!1)\\(ozz)f 'HF-$\"1X&\\qw=\\(=F-7$$!1)*\\7GIF0GF-$\"1..kO'HYu$F-7$$!1)\\il2eXk#F- $\"1U@[FS@RdF-7$$!1)****\\7VQ[#F-$\"1>WVC?UMyF-7$$!1)\\(oHmDOBF-$\"1Iv *yYLV#)*F-7$$!1)*\\PM,n)=#F-$\"1Ieg_0Y&=\"F17$$!1)\\i!RO3T?F-$\"1!3A** R5-R\"F17$$!1)**\\P9(\\$*=F-$\"1+G[efH%f\"F17$$!1)\\P%[1\"fu\"F-$\"1)Q >-]\"H&z\"F17$$!1)*\\7`TK)f\"F-$\"1#o*['>o2*>F17$$!1)\\7ylP2X\"F-$\"1r 2=<-Ly@F17$$!1)***\\i6:.8F-$\"1d@KQ1lbBF17$$!1()*\\i:sw%)*FC$\"1HB![f* *Hp#F17$$!1$***\\(oKQm'FC$\"1:eD\")**o_HF17$$!1***\\(=K**zMFC$\"1gZRa$ R#>JF17$$!1b+++v`hHFhal$\"1nX#>eLE=$F17$$\"1'**\\ilg4,$FC$\"1B*e%*R?_8 $F17$$\"1)***\\i]2=jFC$\"1YV\\BP^vHF17$$\"1***\\(o%*=D'*FC$\"1$**fL&p( Qr#F17$$\"1++](QIKH\"F-$\"1nxm2r9nBF17$$\"1+]7GI#F1 7$$\"1++voc6\"e\"F-$\"1\\D&Ry!48?F17$$\"1+]P4$e]s\"F-$\"1Z#flz+L#=F17$ $\"1+++]4+p=F-$\"1O$=gFOzi\"F17$$\"1**\\i!fVH,#F-$\"1]t/O#[#H9F17$$\"1 ***\\7B')o:#F-$\"1xSJ$H!\\H7F17$$\"1**\\(=()G3I#F-$\"1,j3eq)3.\"F17$$ \"1****\\7:xWCF-$\"1JP>\"yKgN)F-7$$\"1*\\7y]L-g#F-$\"1!fHK21\"3jF-7$$ \"1+]7.bpbFF-$\"1#zT:RzwM%F-7$$\"1+vV)\\d6\"HF-$\"17)4X\\pt\\#F-7$$\"1 ++v$\\>m1$F-$\"1@RS-!)zuxFC7$$\"1,]P%[VvP$F-$!1iivdh4.AF-7$$\"1,++vuY) o$F-$!1+&[_[2x[%F-7$$\"1++D\"Q#o4SF-$!1='=$)Rfy0'F-7$$\"1++](G(*3L%F-$ !1ssG7@l%F-$!1 %[X(*oR)HoF-7$$\"1)*\\(ok>F\"[F-$!1E2qS(o1e'F-7$$\"1)******4FL(\\F-$!1 &*oZ^*yO='F-7$$\"1)***\\P$>=g&F-$!1?]/uo**yNF-7$$\"1)****\\d6.B'F-$!1B #GPA)3+FFC7$$\"1***\\785%QoF-$\"1TFS/4n`CF-7$$\"1++](o3lW(F-$\"1@))*=c NY#RF-7$$\"1+voHhI:wF-$\"1Gx$Ruy81%F-7$$\"1+](=d.Ty(F-$\"1WIXk,DzSF-7$ $\"1\\(oHH-&oyF-$\"1f#zBoT\\/%F-7$$\"1*\\iS,,H&zF-$\"1(p')*p8(G)RF-7$$ \"1\\i:N(*HP!)F-$\"1G`Q_'[S*QF-7$$\"1***\\iX)p@\")F-$\"1E5i['Q'zPF-7$$ \"1**\\iSLHf%)F-$\"12&4vgyU4$F-7$$\"1*****\\A))oz)F-$\"1/Hj]'3c7#F-7$$ \"1++]iid.%*F-$\"1[Tr<3@wrFhal7$$\"1+++Ik-,5F1$!1G:3C?>d1V#F-7$$\"1++]FL!e1\"F1$!1(HmGrX!=GF-7$$\"1+](=b(*>3\"F1 $!1!G#*4tKm*GF-7$$\"1++Dw<>)4\"F1$!1;()e61A)*GF-7$$\"1+]i+gQ96F1$!1x=; VP-DGF-7$$\"1+++D-eI6F1$!1!>0zQd5o#F-7$$\"1+](=sx#*=\"F1$!14pKu_fp;F-7 $$\"1++v=_(zC\"F1$!13qU/s`1AFC7$$\"1+](o3Z@J\"F1$\"1JN\"3)G]y7F-7$$\"1 +++b*=jP\"F1$\"1JzHe#3H:#F-7$$\"1](=n899R\"F1$\"1=T0jB,JAF-7$$\"1+vV=$ 4lS\"F1$\"1mM9`TCdAF-7$$\"1]i:+Xg@9F1$\"1*[t0*p7KAF-7$$\"1+](=o*pO9F1$ \"1(4B^F0t:#F-7$$\"1+DJX+*oY\"F1$\"1i+_&)fNq=F-7$$\"1++v3/3(\\\"F1$\"1 5.WMw?H9F-7$$\"1++Dmc>g:F1$\"1?*z[1!pe@FC7$$\"1++vB4JB;F1$!1Yc#eR.1$)* FC7$$\"1+D1uU;a;F1$!1FCq!)ewC9F-7$$\"1+]PCw,&o\"F1$!1zTCJW?=!=F-7$$\"1+vou4(er\"F1$!1$[&Q%[S<%=F-7$$\"1]P%)\\ wHJF1$\"18s!3 -k%H$)FC7$$\"1+++!)RO+?F1$\"1WTRSq3b9F-7$$\"1+D1k3F;?F1$\"1c$H&\\xfE:F -7$$\"1+]7[xw 7#F1$\"1\"popk>\"3)*FC7$$\"1+]i?(>2>#F1$\"1Us'))eu$=7FC7$$\"1++v)Q?QD# F1$!1*>.'=0\\YtFC7$$\"1+D1p=\"GG#F1$!1cC4\"4)[N5F-7$$\"1+]P\\L!=J#F1$! 1ncAV+WV7F-7$$\"1]7`*3*HEBF1$!12ERX*=wI\"F-7$$\"1+voH[zSBF1$!1MA&*oVuV 8F-7$$\"1]P%)p0HbBF1$!1D'>XP79N\"F-7$$\"1+++5jypBF1$!1qX!R!H\"3L\"F-7$ $\"1++DE8COCF1$!1js0*35&)4*FC7$$\"1++]Ujp-DF1$!1_!*znj%GM\"FC7$$\"1++D ,X8iDF1$\"1R_(z3n:$eFC7$$\"1+++gEd@EF1$\"1D:&H%>ds5F-7$$\"1]PfGgTPEF1$ \"1`z\"yMA?9\"F-7$$\"1+v=(RfKl#F1$\"1a@X'*y?#=\"F-7$$\"1]7ylF5pEF1$\"1 hvl(HzC>\"F-7$$\"1+]PMh%\\o#F1$\"1v()=(fNH<\"F-7$$\"1+DcrGj;FF1$\"12J' QOb%[5F-7$$\"1++v3'>$[FF1$\"1Xp6-)olB)FC7$$\"1+++5h(*3GF1$\"1@hEL=qz?F C7$$\"1++D6EjpGF1$!1>$\\%RL>VXFC7$$\"1+vVeWA-HF1$!1Ty:()yGfuFC7$$\"1+] i0j\"[$HF1$!1\\]]>$yR`*FC7$$\"1](=#HA6^HF1$!1=7/8;+>5F-7$$\"1+D\"G:3u' HF1$!1O7uVE.d5F-7$$\"1]iSwSq$)HF1$!1SL " 0 "" {MPLTEXT 1 0 16 "f:=x->1/(x^2+1);" } }{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fGR6#%\"xG6\"6$%)operatorG%&arrow GF(*&\"\"\"F-,&*$)9$\"\"#F-F-F-F-!\"\"F(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "plot(f(x),x=-3..3);" }}{PARA 13 "" 1 "" {GLPLOT2D 303 303 303 {PLOTDATA 2 "6%-%'CURVESG6$7in7$$!\"$\"\"!$\"1++ +++++5!#;7$$!1+++vq@pG!#:$\"1sw=,79$3\"F-7$$!1++D^NUbFF1$\"1vLj\\Z#Q; \"F-7$$!1++]K3XFEF1$\"1l@VlDEl7F-7$$!1++]F)H')\\#F1$\"1A/K%f91Q\"F-7$$ !1++D'3@/P#F1$\"1y7\"e%f#3^\"F-7$$!1++Dr^b^AF1$\"1C/3')>eZ;F-7$$!1++D, kZG@F1$\"1RP(yh$=3=F-7$$!1++Dh\")=,?F1$\"1`gn$=+\")*>F-7$$!1++DO\"3V(= F1$\"1@oHYd!e@#F-7$$!1+++NkzViUC\"F1$\"1S,D)fcV#RF-7$$!1++DhkaI6F1$\"1iRg6\\b*Q%F-7$$!1++ +]XF`**F-$\"1?L41tTB]F-7$$!1++++Az2))F-$\"1+AjlMNJcF-7$$!1++]7RKvuF-$ \"1q#f*G><:kF-7$$!1-+++P'eH'F-$\"1[%3Mbz8;(F-7$$!1****\\7*3=+&F-$\"1fE :aA%))*zF-7$$!1)***\\PFcpPF-$\"1ob#f8Jev)F-7$$!1)****\\7VQ[#F-$\"1;_Ay H!*=%*F-7$$!1)**\\P9(\\$*=F-$\"1r8AIl(Ql*F-7$$!1)***\\i6:.8F-$\"1n.ZTa ,L)*F-7$$!1()*\\i:sw%)*!#<$\"1XAcnZ&R!**F-7$$!1$***\\(oKQm'Fds$\"1pbId '*yb**F-7$$!1'*\\7`H\">2&Fds$\"155<.^tK917bMF-7$$\"1++v3/3(\\\"F1$\"1F-7$$\"1+ +]_!>w7#F1$\"1$oHEWx$4=F-7$$\"1++v)Q?QD#F1$\"1nfO%G;[k\"F-7$$\"1+++5jy pBF1$\"1-9V%38:^\"F-7$$\"1++]Ujp-DF1$\"1A4oN)[nP\"F-7$$\"1+++gEd@EF1$ \"1fn)\\T@-F\"F-7$$\"1++v3'>$[FF1$\"1x(HAxW\"p6F-7$$\"1++D6EjpGF1$\"1A `k,:'G3\"F-7$$\"\"$F*F+-%'COLOURG6&%$RGBG$\"#5!\"\"F*F*-%+AXESLABELSG6 $Q\"x6\"%!G-%%VIEWG6$;F(Fc^l%(DEFAULTG" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 34 "For x=0 , f(x)=1. Let us evaluate" }}{PARA 0 "" 0 "" {XPPEDIT 18 0 "int(f(x)*delta(x,Lambda),x=-infinity..infinity)" "6#-%$ intG6$*&-%\"fG6#%\"xG\"\"\"-%&deltaG6$F*%'LambdaGF+/F*;,$%)infinityG! \"\"F3" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 13 "for Lambda=10" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "a1:=evalf(Int(delta(-x,10)*f (x),x=-infinity..infinity));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#a1G $\"+,ga****!#5" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 17 "Similarly for x =1" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "f(1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6##\"\"\"\"\"#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "a1:=evalf(Int(delta(-x,10)*f(x-1),x=-infinity..infini ty));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#a1G$\"+wp1+]!#5" }}} {EXCHG {PARA 0 "" 0 "" {TEXT -1 83 "If we had approximated the delta-f unction by delta(x,Lambda) with a larger value of" }}{PARA 0 "" 0 "" {TEXT -1 51 "Lambda we would expect an even better aproximation!" }}}} {MARK "8 3 0" 76 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }