{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" -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 }{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 "" {TEXT -1 62 "Bessel's Differential Equa tion - Solutions (exact and series) " }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 59 "de := t^2*diff(y(t),t$2)+ t*diff(y(t),t)+(t^2-m^2)*y(t) = 0;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6# >%#deG/,(*&)%\"tG\"\"#\"\"\"-%%diffG6$-%\"yG6#F)-%\"$G6$F)F*F+F+*&F)F+ -F-6$F/F)F+F+*&,&*$F(F+F+*$)%\"mGF*F+!\"\"F+F/F+F+\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "dsolve(de,y(t));" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#/-%\"yG6#%\"tG,&*&%$_C1G\"\"\"-%(BesselJG6$%\"mGF'F+F +*&%$_C2GF+-%(BesselYGF.F+F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "Order :=10;" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%&OrderG\"#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "dsolve(de,y(t),type=series);" }}{PARA 12 "" 1 " " {XPPMATH 20 "6#/-%\"yG6#%\"tG,&*(%$_C1G\"\"\")F'%\"mGF++/F'F+\"\"!*& F+F+,&F-!\"%\"\"%!\"\"F4\"\"#*&F+F+*&,&F-!\")\"#;F4F+F1F+F4F3*&F+F+*(, &F-!#7\"#OF4F+F8F+F1F+F4\"\"'*&F+F+**,&F-!#;\"#kF4F+F=F+F8F+F1F+F4\"\" )-%\"OG6#F+\"#5F+F+*(%$_C2GF+)F',$F-F4F++/F'F+F/*&F+F+,&F-F3F3F4F4F5*& F+F+*&,&F-FFF:F4F+FQF+F4F3*&F+F+*(,&F-\"#7F?F4F+FTF+FQF+F4F@*&F+F+**,& F-F:FEF4F+FWF+FTF+FQF+F4FFFGFJF+F+" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 16 "Case when m = 0." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 53 " de := t^2*diff(y(t),t$2)+t*diff(y(t),t)+t^2*y(t) = 0;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#deG/,(*&)%\"tG\"\"#\"\"\"-%%diffG6$-%\"yG6#F)-% \"$G6$F)F*F+F+*&F)F+-F-6$F/F)F+F+*&F(F+F/F+F+\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "dsolve(de,y(t));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/-%\"yG6#%\"tG,&*&%$_C1G\"\"\"-%(BesselJG6$\"\"!F'F+F+* &%$_C2GF+-%(BesselYGF.F+F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "Y := unapply(rhs(%),t);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"YGf *6#%\"tG6\"6$%)operatorG%&arrowGF(,&*&%$_C1G\"\"\"-%(BesselJG6$\"\"!9$ F/F/*&%$_C2GF/-%(BesselYGF2F/F/F(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "dsolve(de,y(t),type=series);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#/-%\"yG6#%\"tG,&*&%$_C1G\"\"\"++F'F+\"\"!#!\"\"\"\"%\" \"##F+\"#kF0-%\"OG6#F+\"\"'F+F+*&%$_C2GF+,&*&-%#lnGF&F+F,F+F++)F'#F+F0 F1#!\"$\"$G\"F0F4F7F+F+F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "_C1:=1;_C2:=0;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$_C1G\"\"\"" } }{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$_C2G\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "Y(t);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%(Besse lJG6$\"\"!%\"tG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "plot(Y(t ),t=0..20);" }}{PARA 13 "" 1 "" {GLPLOT2D 191 191 191 {PLOTDATA 2 "6%- %'CURVESG6$7\\r7$$\"\"!F)$\"\"\"F)7$$\"+S&)G\\a!#6$\"+\"pxD***!#57$$\" +3x&)*3\"F2$\"+#HF.(**F27$$\"+ilyM;F2$\"+S$)HL**F27$$\"+(HF27$$\"+'zs$HLFY$!+a3+1NF2 7$$\"+]h5NMFY$!+DGI.PF27$$\"+/&R3a$FY$!+[S)Q&QF27$$\"+eGdYOFY$!+!))>w& RF27$$\"+8iI_PFY$!+!)f\"[,%F27$$\"+)3'o1QFY$!+S1LESF27$$\"+kf1hQFY$!+y D'e-%F27$$\"+SeW:RFY$!+q=e8SF27$$\"+:d#)pRFY$!+wio*)RF27$$\"+maeySFY$! +Re(z!RF27$$\"+<_M(=%FY$!+:-%Gy$F27$$\"+8l$*yVFY$!+d%=YY$F27$$\"+4y_qX FY$!+!QLf.$F27$$\"+IU@'y%FY$!+,IBXCF27$$\"+]1!>+&FY$!+g&R(p!R7HF/7$$\"+]?vVcFY$\"+_$R6:%F/7$$\" +]$fC&eFY$\"+.J7y5F27$$\"+'z6:B'FY$\"+A0n*3#F27$$\"+0o(oX'FY$\"+%)4)>` #F27$$\"+<=C#o'FY$\"+(*[CLGF27$$\"+!o)pxnFY$\"+\"4fc\"HF27$$\"+Sb:toFY $\"+)\\e0(HF27$$\"+qR)3#pFY$\"+m$[w)HF27$$\"+0ChopFY$\"+f&Ry*HF27$$\"+ N3M;qFY$\"+sm:,IF27$$\"+n#pS1(FY$\"+%4Rw*HF27$$\"+!y)e>rFY$\"+p/-&)HF2 7$$\"+!H3^<(FY$\"+NoLjHF27$$\"++yiIsFY$\"+)fBF$HF27$$\"+:t9'G(FY$\"+)[ TL*GF27$$\"+Sj=(R(FY$\"+dj.*y#F27$$\"+j`A3vFY$\"+h!)=_EF27$$\"+l?![q(F Y$\"+].'oL#F27$$\"+n(y8!zFY$\"+$*[fS>F27$$\"+j.tK$)FY$\"+yecF()F/7$$\" +)3zMu)FY$!+ji^?CF/7$$\"+#H_?<*FY$!+cQ518F27$$\"+!G;cc*FY$!+U+]S?F27$$ \"+XA(yx*FY$!+Qii,BF27$$\"+4#G,***FY$!+#=W\\X#F27$$\"+yY_/5!\")$!+FLYw CF27$$\"+Ol.55F]_l$!+[NO!\\#F27$$\"+$R[b,\"F]_l$!+JZk'\\#F27$$\"+]-1@5 F]_l$!+\"RH`\\#F27$$\"+lR3K5F]_l$!+]66qCF27$$\"+!o2J/\"F]_l$!+%)GL:CF2 7$$\"+K+Ii5F]_l$!+%=$\\_AF27$$\"+%Q#\\\"3\"F]_l$!+9Af5?F27$$\"+;*[H7\" F]_l$!+$y9$p7F27$$\"+qvxl6F]_l$!+@r!y6$F/7$$\"+`qn27F]_l$\"+'f'=jkF/7$ $\"+cp@[7F]_l$\"+h43R9F27$$\"+#GB2F\"F]_l$\"+'\\!GvF27$$\"+3fU'R\"F]_l$\"+'ehtv\"F27$$\"+S<*fT\"F]_l$ \"+&f5yZ\"F27$$\"+&)Hxe9F]_l$\"+u\\@JqF/7$$\"+.o-*\\\"F]_l$!+W;rA7F/7$ $\"+TO5T:F]_l$!+l$y)*Q*F/7$$\"+U9C#e\"F]_l$!+6#*zg:F27$$\"+u^x.;F]_l$! +aP#=y\"F27$$\"+1*3`i\"F]_l$!+,L9=>F27$$\"+y'ycj\"F]_l$!+qn!>&>F27$$\" +]%[gk\"F]_l$!+#e_X'>F27$$\"+A#=kl\"F]_l$!+X)yg&>F27$$\"+$*zym;F]_l$!+ 0#3n#>F27$$\"+sr*zo\"F]_l$!+mjl.=F27$$\"+^j?4F]_l$\"+*=ohh\"F27$$\"+`f@E>F]_l$\"+jI\\)o\"F27$$\"+q`KO>F]_l$\" +sECVF]_l$\"+gE&*zF]_l$\"+IQM)z\"F27$$\"+ `\"3u'>F]_l$\"+Dce(z\"F27$$\"+-@Fy>F]_l$\"+&o%pvF]_l$\" +8Q/L " 0 "" {MPLTEXT 1 0 27 "z01:=fsolve(Y(t)=0,t=0..4);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$z01G$\"+eb#[S#!\"*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "z02:=fsolve(Y(t)=0,t=4..8);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$z02G$\"+5\"y+_&!\"*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "_C1:=0;_C2:=1;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$ _C1G\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$_C2G\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "Y(t);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%(BesselYG6$\"\"!%\"tG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "plot(Y(t),t=0..20);" }}{PARA 13 "" 1 "" {GLPLOT2D 191 191 191 {PLOTDATA 2 "6%-%'CURVESG6$7at7$$\"+N@Ki8!#6$!+E*\\&3G!\"*7$$\"+qUkCFF *$!+z5)oO#F-7$$\"+0k'p3%F*$!+c\\;3@F-7$$\"+S&)G\\aF*$!+W_EC>F-7$$\"+v1 h6oF*$!+wFI\"y\"F-7$$\"+5G$R<)F*$!+iD>k;F-7$$\"+X\\DO&*F*$!+B;*[c\"F-7 $$\"+3x&)*3\"!#5$!+oFO$!+\"\\ BE6\"F-7$$\"+pFO7$$\"+!)>]9QFO$!+T/U(R'FO7$$\"+2k'p3%FO$!+]O!o!fFO7$$\" +M3VfVFO$!+2vhVaFO7$$\"+<0dL[FO$!+m\"=Op%FO7$$\"++-r2`FO$!+3Gz.SFO7$$ \"+!))\\=y&FO$!+43TkLFO7$$\"+l&*)fD'FO$!+iC=oFFO7$$\"+]#H,t'FO$!+Z]`4A FO7$$\"+I*oU?(FO$!+Im8%o\"FO7$$\"+5'3%ywFO$!+TCd)=\"FO7$$\"+#H[D:)FO$! ++w=,sF*7$$\"+:w)*=#*FO$\"+NOp^CF*7$$\"+%pU&G5F-$\"+7*R?5\"FO7$$\"+Em= N6F-$\"+UlQi=FO7$$\"+e0$=C\"F-$\"+Gn=MDFO7$$\"+'R\"=\\8F-$\"+ClhEJFO7$ $\"+LA`c9F-$\"+**)G!ROFO7$$\"+qI)Qc\"F-$\"+T2cuSFO7$$\"+3RBr;F-$\"+5^z NWFO7$$\"+W^\"\\)=F-$\"+^XtU\\FO7$$\"+zjf)4#F-$\"+am?#=&FO7$$\"+WQ7[@F -$\"+m:c,_FO7$$\"+38l(>#F-$\"+ZM'y?&FO7$$\"+t(yrC#F-$\"+\\XR,_FO7$$\"+ Qiq'H#F-$\"+n*[C=&FO7$$\"+n6w&R#F-$\"+;\\O3^FO7$$\"+'4;[\\#F-$\"+.(3#) )\\FO7$$\"+!QZ**p#F-$\"+m_:0YFO7$$\"+j'y]!HF-$\"+H&[S1%FO7$$\"+IdA#)[!#77$$\"+<_M(=%F-$!+7f'z!*)F* 7$$\"+8l$*yVF-$!+^6=k:FO7$$\"+4y_qXF-$!+[/q_@FO7$$\"+IU@'y%F-$!+>fH$p# FO7$$\"+]1!>+&F-$!+10)z3$FO7$$\"+vm=5^F-$!+\\>VFKFO7$$\"++FZ=_F-$!+#pY lK$FO7$$\"+5dhs_F-$!+Ql(3O$FO7$$\"+D(enK&F-$!+)*f0&Q$FO7$$\"+S-INKFO7$$\"+]$fC&eF-$!+>l'36$FO7$$\"+vb)>/'F-$!+#G6i!GFO7$$ \"+'z6:B'F-$!+OA,7CFO7$$\"+0o(oX'F-$!+(=k$\\=FO7$$\"+<=C#o'F-$!+c`397F O7$$\"+Sb:toF-$!+>R*zV'F*7$$\"+n#pS1(F-$!+WZS1mF\\\\l7$$\"+:t9'G(F-$\" +GW=#)eF*7$$\"+j`A3vF-$\"+KbR%>\"FO7$$\"+l?![q(F-$\"+Jdwo;FO7$$\"+n(y8 !zF-$\"+4Grn?FO7$$\"+lX0<\")F-$\"+g-D.CFO7$$\"+j.tK$)F-$\"++[3?EFO7$$ \"+bR2%Q)F-$\"+a^N`EFO7$$\"+XvTN%)F-$\"+l0XzEFO7$$\"+N6w'[)F-$\"+2rM)p #FO7$$\"+DZ5Q&)F-$\"+v$R+r#FO7$$\"+:$[%*e)F-$\"+$RSXr#FO7$$\"+0>zS')F- $\"+\"[\")=r#FO7$$\"+&\\N@p)F-$\"+y?6-FFO7$$\"+)3zMu)F-$\"+:&*H&o#FO7$ $\"+!plx&*)F-$\"+?=GTDFO7$$\"+#H_?<*F-$\"+14z&G#FO7$$\"+!G;cc*F-$\"+A[ mv:FO7$$\"+XA(yx*F-$\"+3/r(4\"FO7$$\"+4#G,***F-$\"+?cy7eF*7$$\"+]-1@5! \")$\"+)fXP$HF\\\\l7$$\"+!o2J/\"Fbil$!+3Nw%G K#FO7$$\"+TCDw6Fbil$!+%)*4WK#FO7$$\"+w)*[\"=\"Fbil$!+\"*\\g>BFO7$$\"+7 ts'=\"Fbil$!+:RZ3BFO7$$\"+#=-s>\"Fbil$!+JG[nAFO7$$\"+`qn27Fbil$!+.-5-A FO7$$\"+/q%zA\"Fbil$!+f4&*4?FO7$$\"+cp@[7Fbil$!+Y*=$R`F\\\\l7$$\"+v+'oP\"Fbil$\"+.#*eC &)F*7$$\"+S<*fT\"Fbil$\"+\"G8'>:FO7$$\"+iBQP9Fbil$\"+s^T&y\"FO7$$\"+&) Hxe9Fbil$\"+uz]m>FO7$$\"+Sk$)o9Fbil$\"+C$y--#FO7$$\"+%*)**)y9Fbil$\"+7 &3L0#FO7$$\"+@;$R[\"Fbil$\"+8$y>1#FO7$$\"+[L'*)[\"Fbil$\"+A\"3a1#FO7$$ \"+w]*R\\\"Fbil$\"+>qgj?FO7$$\"+.o-*\\\"Fbil$\"+arfc?FO7$$\"+7ga4:Fbil $\"+#[&GD?FO7$$\"+A_1?:Fbil$\"+2!z=(>FO7$$\"+KWeI:Fbil$\"+ak6(*=FO7$$ \"+TO5T:Fbil$\"+cZ'>!=FO7$$\"+UDnh:Fbil$\"+Gloh:FO7$$\"+U9C#e\"Fbil$\" +tI9f7FO7$$\"+1*3`i\"Fbil$\"+RS#f&[F*7$$\"+$*zym;Fbil$!+3\\][KF*7$$\"+ ^j?4 Fbil$!+n5BA%)F*7$$\"+/Uac>Fbil$!+<(HuO\"F*7$$\"#?\"\"!$\"+\"ofSE'F*-%' COLOURG6&%$RGBG$\"#5!\"\"$F\\jmF\\jmFfjm-%+AXESLABELSG6$Q\"t6\"Q!F[[n- %%VIEWG6$;FfjmFjim%(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 0 "" }}}}{MARK "16 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }