{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 }{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 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "a:=1;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "b:=-4;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "c: =13;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "test:=b^2-4*a*c;" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "if (test>0.0) then" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 " r[1]:=(-b+sqrt(test))/(2*a);" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 " r[2]:=(-b-sqrt(test))/(2*a);" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 49 " yh:=const[1]*exp(r[1]*x)+const[2 ]*exp(r[2]*x);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "elif (test=0.0) t hen" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 16 " r:=-b/(2*a) ;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 45 " yh:=const[1]*exp(r*x)+const[2]*x*exp(r*x );" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "else " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 20 " alpha1:=-b/(2*a);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 28 " beta1:=sqrt(-test)/(2*a);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 79 " yh:=const[1]*exp(alpha1*x)*cos(beta1*x)+const[2]*exp(alpha1*x)* sin(beta1*x);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "end if;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 32 "Type I g = k2 x^2 + k1 x \+ + k0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "k[2]:=1;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "k[1]:=1;" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 8 "k[0]:=1;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "A[2]:=k[2]/c;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "A[1]:= (k[1]-2*b*A[2])/c;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "A[0]: =(k[0]-b*A[1]-2*a*A[2])/c;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "yp:=A[2]*x^2+A[1]*x+A[0];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "y:=yp+yh;" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 28 "Type II g=k exp( alpha x )" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "k:=1;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "alpha:=1;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "A:=k/(a*alp ha^2+b*alpha+c);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "yp:=A*e xp(alpha*x);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "y:=yp+yh;" } }}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 " " }}{PARA 0 "" 0 "" {TEXT -1 46 "Type III g = k1 cos(beta x) + k2 si n(beta x)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "k[1]:=1;" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "k[2]:=0;" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 8 "beta:=2;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "lambda[1]:=b*beta;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "lambda[2]:=c-a*beta^2;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "lamda[3]:=lambda[1]^2+lambda[2]^2;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "A:=(lambda[2]*k[1]-lambda[1]*k[2])/lamda[ 3];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "B:=(lambda[1]*k[1]+l ambda[2]*k[2])/lamda[3];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "yp:=A*cos(beta*x)+B*sin(beta*x);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "y:=yp+yh;" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }} {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 49 "Type IV \+ g = (k2 x^2 + k1 x + k0) exp( alpha x )" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "k[2]:=1;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 " k[1]:=1;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "k[0]:=1;" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "alpha:=1;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "lambda[1]:=a*alpha^2+b*alpha+c;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "lambda[2]:=2*a*alpha+b;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "A[2]:=k[2]/lambda[1];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "A[1]:=(k[1]-2*lambda[2]*A[2])/lambd a[1];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "A[0]:=(k[0]-lambda [2]*A[1]-2*a*A[2])/lambda[1];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "yp:=(A[2]*x^2+A[1]*x+A[0])*exp(alpha*x);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 65 "Type V g = (p1 x + p0) cos(beta x) + (q1 x + q0) sin (beta x)" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "p[1]:=1;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "p[0]:=1;" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 8 "q[1]:=1;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "q[0]:=1;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "beta:=1;" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "lambda[1]:=b*beta;" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "lambda[2]:=c-a*beta^2;" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "lamda[3]:=lambda[1]^2+lambda [2]^2;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "A[1]:=(lambda[2]* p[1]-lambda[1]*q[1])/lamda[3];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "B[1]:=(lambda[1]*p[1]+lambda[2]*q[1])/lamda[3];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "k[1]:=p[0]-b*A[1]-2*a*beta*B[1];" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "k[2]:=q[0]-b*B[1]+2*a*beta *A[1];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "A[0]:=(lambda[2]* k[1]-lambda[1]*k[2])/lamda[3];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "B[0]:=(lambda[1]*k[1]+lambda[2]*k[2])/lamda[3];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "yp:=(A[1]*x+A[0])*cos(beta*x)+(B[1] *x+B[0])*sin(beta*x);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }} {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 71 "TYPE VI g = k1 exp(alpha x) cos(beta x) + k2 \+ exp(alpha x) sin(beta x)" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 " " 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "alpha :=1;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "beta:=3;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "k[1]:=0;" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 8 "k[2]:=4;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "lambda[1]:=b*beta+2*a*alpha*beta;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "lambda[2]:=c-a*beta^2+b*alpha+a*alpha^2;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "lamda[3]:=lambda[1]^2+lambda[2]^2; " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "A:=(lambda[2]*k[1]-lamb da[1]*k[2])/lamda[3];" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "B:=(lambda [1]*k[1]+lambda[2]*k[2])/lamda[3];" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "yp:=A*exp(alpha*x)*cos(beta*x)+B*exp(alpha*x)*sin(bet a*x);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "y:=yp+yh;" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 79 "*********** ********************************************************************" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }} {PARA 0 "" 0 "" {TEXT -1 77 "Case when a homogenous solution is a term in the form of particular solution " }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 11 "EX 13 p.211" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "g:=4*exp(2* x)*sin(3*x);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "yp:=x*(A*ex p(2*x)*cos(3*x)+B*exp(2*x)*sin(3*x));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "yp1:=diff(yp,x);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "yp2:=diff(yp1,x);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "eq1:=a*yp2+b*yp1+c*yp-g=0;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "eq3:=collect(eq1,\{sin(3*x), cos(3*x),x\});" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 ";" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "61 0 0" 35 } {VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }