{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 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 7 "Set 4.5" }{MPLTEXT 1 0 0 "
" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 3 "Q4:" }{MPLTEXT 1 0 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "Z:=sqrt(x);" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#>%\"ZG*$%\"xG#\"\"\"\"\"#" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 106 "eq:=4*x^2*(diff(y(z),z,z)*diff(Z,x)^2+diff(y(z)
,z)*diff(Z,x,x))\n+4*x*diff(y(z),z)*diff(Z,x)+(x-1/36)*y(z);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%#eqG,(*(\"\"%\"\"\")%\"xG\"\"#F(,&*&#F(F'F
(*&-%%diffG6$-%\"yG6#%\"zG-%\"$G6$F6F+F(F*!\"\"F(F(*&#F(F'F(*&-F16$F3F
6F(F*#!\"$F+F(F:F(F(*(F+F(F*#F(F+F>F(F(*&,&F*F(#F(\"#OF:F(F3F(F(" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "eq:=expand(eq);" }}{PARA 11 
"" 1 "" {XPPMATH 20 "6#>%#eqG,**&%\"xG\"\"\"-%%diffG6$-%\"yG6#%\"zG-%
\"$G6$F/\"\"#F(F(*&F'#F(F3-F*6$F,F/F(F(*&F,F(F'F(F(*&#F(\"#OF(F,F(!\"
\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "eval(eq,\{sqrt(x)=z,x
=z^2\});" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,**&)%\"zG\"\"#\"\"\"-%%di
ffG6$-%\"yG6#F&-%\"$G6$F&F'F(F(*&F&F(-F*6$F,F&F(F(*&F,F(F%F(F(*&#F(\"#
OF(F,F(!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "sol:=A*Bess
elJ(1/6,sqrt(x))+B*BesselJ(-1/6,sqrt(x));" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%$solG,&*&%\"AG\"\"\"-%(BesselJG6$#F(\"\"'*$%\"xG#F(\"
\"#F(F(*&%\"BGF(-F*6$#!\"\"F-F.F(F(" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 77 "simplify(eval(4*x^2*diff(y(x),x,x)+4*x*diff(y(x),x)+(
x-1/36)*y(x),y(x)=sol));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"!" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 3 "Q6:" }{MPLTEXT 1 0 0 "" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "Z:=sqrt(x);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"ZG*$%\"xG#\"\"\"\"\"#" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 93 "eq:=x*(diff(y(z),z,z)*diff(Z,x)^2+diff(y(z),z)*diff(Z
,x,x))\n+diff(y(z),z)*diff(Z,x)+1/4*y(z);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%#eqG,(*&%\"xG\"\"\",&*&#F(\"\"%F(*&-%%diffG6$-%\"yG6#
%\"zG-%\"$G6$F4\"\"#F(F'!\"\"F(F(*&#F(F,F(*&-F/6$F1F4F(F'#!\"$F8F(F9F(
F(*&#F(F8F(*&F=F(F'#F9F8F(F(*&F+F(F1F(F(" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 17 "eq:=expand(4*eq);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#
>%#eqG,(-%%diffG6$-%\"yG6#%\"zG-%\"$G6$F,\"\"#\"\"\"*&-F'6$F)F,F1%\"xG
#!\"\"F0F1F)F1" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "eval(eq,
\{x^(-1/2)=1/z\});" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,(-%%diffG6$-%\"
yG6#%\"zG-%\"$G6$F*\"\"#\"\"\"*&-F%6$F'F*F/F*!\"\"F/F'F/" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "expand(z^2*%);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#,(*&)%\"zG\"\"#\"\"\"-%%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 47 "sol:=A*BesselJ(0,sqrt(x))+B*BesselY(0,sqrt(x));" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$solG,&*&%\"AG\"\"\"-%(BesselJG6$\"
\"!*$%\"xG#F(\"\"#F(F(*&%\"BGF(-%(BesselYGF+F(F(" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 64 "simplify(eval(x*diff(y(x),x,x)+diff(y(x),x)+1
/4*y(x),y(x)=sol));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"!" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 4 "Q10:" }{MPLTEXT 1 0 0 "" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "eq:=x*diff(y(x),x,x)-5*diff(y(x),x)
+x*y(x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#eqG,(*&%\"xG\"\"\"-%%di
ffG6$-%\"yG6#F'-%\"$G6$F'\"\"#F(F(*&\"\"&F(-F*6$F,F'F(!\"\"*&F'F(F,F(F
(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "eval(eq,y(x)=x^3*u(x))
;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,**&%\"xG\"\"\",(*(\"\"'F&F%F&-%
\"uG6#F%F&F&*(F)F&)F%\"\"#F&-%%diffG6$F*F%F&F&*&)F%\"\"$F&-F16$F*-%\"$
G6$F%F/F&F&F&F&*(\"#:F&F.F&F*F&!\"\"*(\"\"&F&F4F&F0F&F=*&)F%\"\"%F&F*F
&F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "expand(%/x^2);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#,**&\"\"*\"\"\"-%\"uG6#%\"xGF&!\"\"*&F
*F&-%%diffG6$F'F*F&F&*&)F*\"\"#F&-F.6$F'-%\"$G6$F*F2F&F&*&F1F&F'F&F&" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "sol:=(A*x^3*BesselJ(3,x)+
B*x^3*BesselY(3,x));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$solG,&*(%\"
AG\"\"\")%\"xG\"\"$F(-%(BesselJG6$F+F*F(F(*(%\"BGF(F)F(-%(BesselYGF.F(
F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "simplify(eval(eq,y(x)
=sol));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"!" }}}{EXCHG {PARA 0 "
" 0 "" {TEXT -1 7 "Set 4.6" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "" 0 
"" {TEXT -1 3 "Q2:" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 35 "sol:=A*BesselJ(5,x)+B*BesselY(5,x);" }}{PARA 11 "" 1 
"" {XPPMATH 20 "6#>%$solG,&*&%\"AG\"\"\"-%(BesselJG6$\"\"&%\"xGF(F(*&%
\"BGF(-%(BesselYGF+F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 71 "
expand(eval(x^2*diff(y(x),x,x)+x*diff(y(x),x)+(x^2-25)*y(x),y(x)=sol))
;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"!" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 63 "f:=BesselJ(5,x): fd:=diff(f,x); s:=BesselY(5,x): sd
:=diff(s,x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#fdG,&-%(BesselJG6$
\"\"%%\"xG\"\"\"*(\"\"&F+F*!\"\"-F'6$F-F*F+F." }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%#sdG,&-%(BesselYG6$\"\"%%\"xG\"\"\"*(\"\"&F+F*!\"\"-F
'6$F-F*F+F." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 73 "evalm(matrix
(2,2,[sd,-s,-fd,f])&*[1.24,-0.87]/(f*sd-s*fd)): eval(%,x=1.);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'vectorG6#7$$\"+5$)Q:@!\"'$!+T&3Ht#!
#7" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "sol:=evalm(%&*[f,s]);
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$solG,&*&$\"+5$)Q:@!\"'\"\"\"-%(
BesselJG6$\"\"&%\"xGF*F**&$\"+T&3Ht#!#7F*-%(BesselYGF-F*!\"\"" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "plot(sol,x=1..20);" }}{PARA 
13 "" 1 "" {GLPLOT2D 494 494 494 {PLOTDATA 2 "6%-%'CURVESG6$7eq7$$\"\"
\"\"\"!$\"++++S7!\"*7$$\"+Hf999F-$\"+s)Q#**HF-7$$\"+)3#\\u<F-$\"+d%*\\
O&)F-7$$\"+I!R(z@F-$\"+#pv#>A!\")7$$\"+8An(e#F-$\"+%3>#3[F=7$$\"+glm$*
HF-$\"+?P8A!*F=7$$\"+\"Hv+P$F-$\"+p7>m9!\"(7$$\"+HZ#)fPF-$\"+(f/UB#FM7
$$\"+cT!H;%F-$\"+*o6g?$FM7$$\"+-4pkXF-$\"+elP+VFM7$$\"+bz(z(\\F-$\"+:d
TjaFM7$$\"+=9+U`F-$\"+/Fg>kFM7$$\"+<c!=v&F-$\"+KaN#H(FM7$$\"+k!\\v&fF-
$\"+q!)32wFM7$$\"+7DHjhF-$\"+ONk<yFM7$$\"+![GCE'F-$\"+DorxyFM7$$\"+ZWc
hjF-$\"+k*3!4zFM7$$\"+KC86kF-$\"+,()[8zFM7$$\"+:/qgkF-$\"+KoM5zFM7$$\"
+*Ro-^'F-$\"+3ZY**yFM7$$\"+#QO)flF-$\"+\"pN2)yFM7$$\"+%H'))RnF-$\"+k?L
XxFM7$$\"+1i$*>pF-$\"+[VF-vFM7$$\"+D(H\"[tF-$\"+>eE$\\'FM7$$\"+kx\\HvF
-$\"+R;F#*eFM7$$\"+.e'3r(F-$\"+-&p()>&FM7$$\"+\\*R=#zF-$\"+B&*G!H%FM7$
$\"+%49G8)F-$\"+aKs#H$FM7$$\"+h>c>$)F-$\"+XkObBFM7$$\"+G)4j])F-$\"+%[:
rQ\"FM7$$\"+O=?6()F-$\"+Qb@RJF=7$$\"+WQ4;*)F-$!+\"f/#HuF=7$$\"+)[*>6\"
*F-$!+53p2<FM7$$\"+K^I1$*F-$!+-o42EFM7$$\"+/u()4&*F-$!+l%H4X$FM7$$\"+w
'\\Mr*F-$!++(*puTFM7$$\"+oDR+**F-$!+`1%fr%FM7$$\"+YNt35F=$!+=&oc7&FM7$
$\"+/d\")=5F=$!+V5`)G&FM7$$\"+jy*)G5F=$!+ub?4aFM7$$\"+U*QR.\"F=$!+7HZ`
aFM7$$\"+A+)*Q5F=$!+nZ$p[&FM7$$\"+,6-W5F=$!+%*ya4bFM7$$\"+!=i!\\5F=$!+
C+H@bFM7$$\"+W%)Ha5F=$!+N_(>_&FM7$$\"+4Z`f5F=$!+`I&4^&FM7$$\"+u4xk5F=$
!+G5F)[&FM7$$\"+Qs+q5F=$!+)R,SX&FM7$$\"+n(z/3\"F=$!+X66^`FM7$$\"+'H_44
\"F=$!+q'\\L?&FM7$$\"+I]=46F=$!+StbV[FM7$$\"+kxTF6F=$!+XnniVFM7$$\"+<'
4r9\"F=$!+kl%Hs$FM7$$\"+q9!o;\"F=$!+Sf\\yHFM7$$\"+!3Xr=\"F=$!+x/*[7#FM
7$$\"+\"p)[27F=$!+WCI97FM7$$\"+Y4RF7F=$!+*z@;)HF=7$$\"++KHZ7F=$\"+wb`H
hF=7$$\"+a'\\lE\"F=$\"+qS&=Y\"FM7$$\"+3h!eG\"F=$\"+y^i_AFM7$$\"+=r=28F
=$\"+U8nLIFM7$$\"+F\"o&G8F=$\"+5s'\\o$FM7$$\"+:*zxM\"F=$\"+#40*RTFM7$$
\"+.<*pO\"F=$\"+k9!zX%FM7$$\"+X![sP\"F=$\"+'))>%oXFM7$$\"+(Q/vQ\"F=$\"
+1=eOYFM7$$\"+eDj#R\"F=$\"+#*)RYl%FM7$$\"+H2w(R\"F=$\"+$G!*>m%FM7$$\"+
+*))GS\"F=$\"+3SkeYFM7$$\"+rq,39F=$\"+vjjWYFM7$$\"+7YgE9F=$\"++>p0XFM7
$$\"+_@>X9F=$\"+#>FKB%FM7$$\"+WK^l9F=$\"+n#pPz$FM7$$\"+OV$e[\"F=$\"+9t
JBKFM7$$\"++\\&\\]\"F=$\"+il['e#FM7$$\"+ja2C:F=$\"+L5Mu=FM7$$\"+h>1W:F
=$\"+8g1v5FM7$$\"+f%[Sc\"F=$\"+%eW+[#F=7$$\"+9*)e$e\"F=$!+$pJ;f&F=7$$
\"+p$HJg\"F=$!+*optL\"FM7$$\"+:keB;F=$!+>'*f#4#FM7$$\"+hM/W;F=$!++t$)f
FFM7$$\"+Gguj;F=$!+Prt'H$FM7$$\"+%f[Mo\"F=$!+Dh\">r$FM7$$\"+aH_$p\"F=$
!+-:nsQFM7$$\"+9tf.<F=$!+N%Gn*RFM7$$\"+u;n8<F=$!+*z@J3%FM7$$\"+LguB<F=
$!+ygBJTFM7$$\"+-:uG<F=$!+6J!39%FM7$$\"+sptL<F=$!+[\"*)39%FM7$$\"+UCtQ
<F=$!+Sj^JTFM7$$\"+7zsV<F=$!+!HGF6%FM7$$\"+^)=Pv\"F=$!+]s=ZSFM7$$\"+!z
4Pw\"F=$!+1w.XRFM7$$\"+g52#y\"F=$!+;PulOFM7$$\"+JBV+=F=$!+N[LwKFM7$$\"
+?kZ@=F=$!+YlR6FFM7$$\"+30_U=F=$!+\"[TH/#FM7$$\"+#fU8'=F=$!+XDC!Q\"FM7
$$\"+wY;!)=F=$!+f2*>z'F=7$$\"+UHB+>F=$\"+RG'HW)F-7$$\"+47I?>F=$\"+F3!*
o$)F=7$$\"+,\"4&R>F=$\"+D<$4_\"FM7$$\"+$*pre>F=$\"+s(\\i9#FM7$$\"#?F*$
\"+N.$y>$FM-%'COLOURG6&%$RGBG$\"#5!\"\"$F*F*Fi\\m-%+AXESLABELSG6$Q\"x6
\"Q!F^]m-%%VIEWG6$;F(F^\\m%(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 
3 "Q4:" }{MPLTEXT 1 0 0 "" }{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 8 "restart:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 
"eq0:=diff(y(x),x,x)+x*y(x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$eq0
G,&-%%diffG6$-%\"yG6#%\"xG-%\"$G6$F,\"\"#\"\"\"*&F,F1F)F1F1" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "eq1:expand(eval(x^(3/2)*eq0,
y(x)=u(x)*sqrt(x)));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,**&)%\"xG\"\"
#\"\"\"-%%diffG6$-%\"uG6#F&-%\"$G6$F&F'F(F(*&F&F(-F*6$F,F&F(F(*&#F(\"
\"%F(F,F(!\"\"*&)F&\"\"$F(F,F(F(" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 15 "Z:=2/3*x^(3/2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%
\"ZG,$*(\"\"#\"\"\"\"\"$!\"\"%\"xG#F)F'F(" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 112 "eq3:=expand(x^2*(diff(u(z),z,z)*diff(Z,x)^2+diff(u
(z),z)*diff(Z,x,x))\n+x*diff(u(z),z)*diff(Z,x)+(x^3-1/4)*u(z));" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$eq3G,**&)%\"xG\"\"$\"\"\"-%%diffG6$
-%\"uG6#%\"zG-%\"$G6$F1\"\"#F*F**&#F)F5F**&)F(F7F*-F,6$F.F1F*F*F**&F.F
*F'F*F**&#F*\"\"%F*F.F*!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 38 "eval(eq3,\{x^(3/2)=3/2*z,x^3=9/4*z^2\});" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#,**&#\"\"*\"\"%\"\"\"*&)%\"zG\"\"#F(-%%diffG6$-%\"uG6#F
+-%\"$G6$F+F,F(F(F(*&F%F(*&F+F(-F.6$F0F+F(F(F(*&F%F(*&F0F(F*F(F(F(*&#F
(F'F(F0F(!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "4/9*%;" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#,**&)%\"zG\"\"#\"\"\"-%%diffG6$-%\"uG6
#F&-%\"$G6$F&F'F(F(*&F&F(-F*6$F,F&F(F(*&F,F(F%F(F(*&#F(\"\"*F(F,F(!\"
\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 76 "sol:=A*sqrt(x)*Bessel
J(1/3,2/3*x^(3/2))+B*sqrt(x)*BesselJ(-1/3,2/3*x^(3/2));" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%$solG,&*(%\"AG\"\"\"%\"xG#F(\"\"#-%(BesselJG6$
#F(\"\"$,$*(F+F(F0!\"\"F)#F0F+F(F(F(*(%\"BGF(F)F*-F-6$#F3F0F1F(F(" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "simplify(eval(eq0,y(x)=sol))
;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"!" }}}}{MARK "40" 0 }
{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }