{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 "Text Output" -1 6 
1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 2 2 2 2 2 1 2 1 3 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 }}
{SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT -1 309 "This Maple Procedure auto
mates the process of solving a Second Order Nonhomogeneous Linear Diff
erentail Equation.  Here we assume that the nonhomogeneous function on
 the R.H.S. is denoted by f(x) and the linearly independent functions \+
that come about from the homogeneous equation are called y1(x) and y2(
x). " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 193 "VarParameter:=proc
(y1,y2,f)\nlocal W, yp;\nW:=y1*diff(y2,x) - y2*diff(y1,x):\nW:=simplif
y(W);\nyp:=-y1*int(y2*f/W,x)+y2*int(y1*f/W,x):\nprintf(\"%s\",\"The Pa
rticular Solution is:\");\nsimplify(yp);\nend:" }}}{EXCHG {PARA 0 "" 
0 "" {TEXT -1 263 "This maple procedure only outputs the particular so
lution without the homogeneous part.  The syntax is VarParameter(y1(x)
, y2(x), f(x));  So if we want to solve y\" + y = tan(x), we first see
 that y1 and y2 are sin(x) and cos(x), and then enter the following li
ne." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "VarParameter(sin(x),
cos(x),tan(x));" }}{PARA 6 "" 1 "" {TEXT -1 27 "The Particular Solutio
n is:" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*&-%$cosG6#%\"xG\"\"\"-%#ln
G6#*&,&F)F)-%$sinGF'F)F)F%!\"\"F)F1" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}}{MARK "1 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 
1 }{PAGENUMBERS 0 1 2 33 1 1 }