{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 "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" 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" -1 13 1 {CSTYLE "" -1 -1 "Times " 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 0 0 1 0 1 0 2 2 0 1 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 82 "plotsetup(ps,plotout put=`i:\\\\m85cm1fa.eps`,plotoptions=`color,noborder,portrait`);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "plot(BesselJ(0,2*sqrt(x)),x= 0..20);" }}{PARA 13 "" 1 "" {GLPLOT2D 1129 557 557 {PLOTDATA 2 "6%-%'C URVESG6$7\\o7$$\"\"!F)$\"\"\"F)7$$\"+3x&)*3\"!#5$\"+())z%R*)F/7$$\"++&FX$!+pE&oE$F/7$$\"+]Z/NaFX$!+E)*3'z#F/7$$\"+]$fC&eFX$!+WJV)G# F/7$$\"+'z6:B'FX$!+J,=+=F/7$$\"+<=C#o'FX$!+;Xj07F/7$$\"+n#pS1(FX$!+ZAJ QqFjn7$$\"+j`A3vFX$!+s!40O\"Fjn7$$\"+n(y8!zFX$\"+.AUEMFjn7$$\"+j.tK$)F X$\"+if_M$)Fjn7$$\"+)3zMu)FX$\"+6v6h7F/7$$\"+#H_?<*FX$\"+1U5h;F/7$$\"+ !G;cc*FX$\"+'GTQ)>F/7$$\"+4#G,***FX$\"+&RE@G#F/7$$\"+!o2J/\"!\")$\"+!o =i`#F/7$$\"+%Q#\\\"3\"F`x$\"+X<>6FF/7$$\"+;*[H7\"F`x$\"+%pHE&GF/7$$\"+ qvxl6F`x$\"+=[U[HF/7$$\"+`qn27F`x$\"+k'\\Z*HF/7$$\"+cp@[7F`x$\"+`-N(*H F/7$$\"+3'HKH\"F`x$\"+OY![&HF/7$$\"+xanL8F`x$\"+DX#*yGF/7$$\"+v+'oP\"F `x$\"+3j6iFF/7$$\"+S<*fT\"F`x$\"+_>=F/7$$\"+1*3`i\"F`x$\"+%y3fc\"F/7$$\"+$*zym;F`x$\"+%)z?68F/7$$ \"+^j?4F`x$!+[mj>FFjn7$$\"+/Uac>F`x$!+J9>X^Fjn7$$\"#?F)$!+6Dp[wFjn-%' COLOURG6&%$RGBG$\"#5!\"\"F(F(-%+AXESLABELSG6$Q\"x6\"Q!Fa`l-%%VIEWG6$;F (Fb_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 "" {MPLTEXT 1 0 19 "plotsetup( default);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "?Bessel" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "aux:=K->K/(sqrt(2*K)-2*K):pl ot(aux,0..1/3);" }}{PARA 13 "" 1 "" {GLPLOT2D 558 558 558 {PLOTDATA 2 "6%-%'CURVESG6$7fn7$$\"31+++#*o`qA!#@$\"3Y(=)**=&*o)3\"!#>7$$\"3')**** *\\yt5a%F*$\"3Y:fBo=l`:F-7$$\"3^******z1h6oF*$\"3#p-aY,4i\">F-7$$\"3s* *****pv9#3*F*$\"3&Q7B65WeA#F-7$$\"3#******f8ABO\"!#?$\"3qn03l6k`FF-7$$ \"3&******R^Hk\"=F@$\"3wQF7BN&p?$F-7$$\"3\")*****4FWYs#F@$\"3YKxrha9&) RF-7$$\"3*)*****z-fGj$F@$\"3yc]_em4fYF-7$$\"3k******R&)G\\aF@$\"3lw-)G 7h#GeF-7$$\"3A+++b!=dE(F@$\"3q:)>*zI[`oF-7$$\"3&******p#\\mU5F-$\"3?!G B>8\")*Q%)F-7$$\"33+++\\!e(e8F-$\"37U@\"y\"fSp)*F-7$$\"3))*****pf<(p?F -$\"3gp+3,t6x7!#=7$$\"3#******p%)*Q&y#F-$\"3%z&o]5nrW:Feo7$$\"3!****** >jgw\\$F-$\"3iv([Ndtzz\"Feo7$$\"3u*****f#o-eTF-$\"3Mz[))p#zh-#Feo7$$\" 3s*****4x(zT[F-$\"3')>o(fcS)eAFeo7$$\"35+++fY&*[bF-$\"31sx\\#Feo7 $$\"3a+++(oVQD'F-$\"3Sm7t$e\"*et#Feo7$$\"3[*****Rp3*ypF-$\"3;\"4lFvS@) HFeo7$$\"3h*****pMYvh(F-$\"3omi-)eW5?$Feo7$$\"3E+++$3,lL)F-$\"35@@%es( f]MFeo7$$\"3u*****f\"zSe!*F-$\"3\"e!zB>$>`q$Feo7$$\"3S*****f\"*)4a(*F- $\"3!3ILxY^a&RFeo7$$\"3'*******)H&eQ5Feo$\"3il'yj9@r=%Feo7$$\"3'****** *opq86Feo$\"3]]%pg_())oWFeo7$$\"3'******z([Mx6Feo$\"3YGup31[8ZFeo7$$\" 37+++%*3P^7Feo$\"3tY[I!3&[0]Feo7$$\"3-+++hk*oJ\"Feo$\"3'z:>NWi7F&Feo7$ $\"35+++%R)y)Q\"Feo$\"3c([7RjK9d&Feo7$$\"3))*****R^YsX\"Feo$\"35&f%oj' oi'eFeo7$$\"3')*****>Qv'G:Feo$\"3[,#p3\"*4S='Feo7$$\"3!*******z$pUf\"F eo$\"3mv*4Alyb['Feo7$$\"31+++o8-l;Feo$\"3r%>6L*Q:AoFeo7$$\"3*)******)z 7&QFeo$\"33-G83bpv#)Fe o7$$\"3)******p3&z7?Feo$\"3w#)=&3Vp*y')Feo7$$\"3-+++%fh.3#Feo$\"3ObfFn C'f3*Feo7$$\"3'*******yEQb@Feo$\"3#*pm)fOh(e&*Feo7$$\"3%******4Y#zAAFe o$\"3V]\"p_)\\Q+5!#<7$$\"31+++#zmZH#Feo$\"3Y2*R,'**>]5Fgx7$$\"33+++Ki) *fBFeo$\"3'4BQY,\\v4\"Fgx7$$\"3,+++3$)GJCFeo$\"3g$zV$4$>>:\"Fgx7$$\"37 +++0!y$)\\#Feo$\"3*p)Qke1x07Fgx7$$\"3++++pg]oDFeo$\"3QKV@#[(4l7Fgx7$$ \"3#)******o!pqj#Feo$\"3ANQ$Q/ojK\"Fgx7$$\"3-+++x\"[)3FFeo$\"3)otBHK)H %R\"Fgx7$$\"33+++*)*zzx#Feo$\"3S')>\"=qMPY\"Fgx7$$\"3C+++^sn[GFeo$\"3) zj><3?#R:Fgx7$$\"3x*****\\5*y=HFeo$\"3.*[%=Jt+>;Fgx7$$\"3/+++;Y@$)HFeo $\"3gv/%fx$4(p\"Fgx7$$\"35+++BN0dIFeo$\"3%)\\vTjg\"Gz\"Fgx7$$\"3')**** *>#f4BJFeo$\"3K![R0/$o%)=Fgx7$$\"35+++%*3^$>$Feo$\"3Ca'HMi'*)*)>Fgx7$$ \"31+++1q!4E$Feo$\"3krwT\"e[%)4#Fgx7$$\"3:LLLLLLLLFeo$\"3])e\"Rr[uCAFg x-%'COLOURG6&%$RGBG$\"#5!\"\"$\"\"!F`^lF_^l-%+AXESLABELSG6$Q!6\"Fd^l-% %VIEWG6$;F_^l$\"+LLLLL!#5%(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 "" {MPLTEXT 1 0 16 "evalf(aux(2/9));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$ \"\"\"\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "plot([seq([k ,BesselJZeros(0,k)/k],k=1..40)],style=point);" }}{PARA 13 "" 1 "" {GLPLOT2D 558 558 558 {PLOTDATA 2 "6&-%'CURVESG6$7J7$$\"\"\"\"\"!$\"+e b#[S#!\"*7$$\"\"#F*$\"+b!R+w#F-7$$\"\"$F*$\"+rfd%)GF-7$$\"\"%F*$\"+5O) y%HF-7$$\"\"&F*$\"+UN=')HF-7$$\"\"'F*$\"+'*R%=,$F-7$$\"\"(F*$\"+0QBIIF -7$$\"\")F*$\"+T*eS/$F-7$$\"\"*F*$\"+95$[0$F-7$$\"#5F*$\"+Z1YjIF-7$$\" #6F*$\"+5\"H02$F-7$$\"#7F*$\"+i[UwIF-7$$\"#8F*$\"+mtT\"3$F-7$$\"#9F*$ \"+3%*p&3$F-7$$\"#:F*$\"+eDT*3$F-7$$\"#;F*$\"+>Jm#4$F-7$$\"#F*$\"+vvO+JF-7$$\"#?F*$\"+gMU-JF-7$$ \"#@F*$\"+QSG/JF-7$$\"#AF*$\"+ye(f5$F-7$$\"#BF*$\"+R4_2JF-7$$\"#CF*$\" +Fv$*3JF-7$$\"#DF*$\"+D5C5JF-7$$\"#EF*$\"+cWW6JF-7$$\"#FF*$\"+=*eD6$F- 7$$\"#GF*$\"+ARf8JF-7$$\"#HF*$\"+xwb9JF-7$$\"#IF*$\"+#Hda6$F-7$$\"#JF* $\"+n*)H;JF-7$$\"#KF*$\"+@\")3JF-7$$\"#OF*$\"+`p!)>JF-7$$\"#PF*$\"+Q\\R?JF-7$ $\"#QF*$\"+:?&47$F-7$$\"#RF*$\"+n0[@JF-7$$\"#SF*$\"+AF)>7$F--%'COLOURG 6&%$RGBG$FX!\"\"$F*F*Fax-%+AXESLABELSG6$Q!6\"Fex-%&STYLEG6#%&POINTG-%% VIEWG6$%(DEFAULTGF^y" 1 5 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 " " }}}}{MARK "5 1 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }