{VERSION 5 0 "APPLE_PPC_MAC" "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 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT 
-1 61 "  maple solve of a linear, 2nd-order ODE:  1.5 u'' + k u = 0 " 
}}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "
" }}{PARA 0 "" 0 "" {TEXT -1 32 "clear workspace & load ODE stuff" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 14 "with(DEtools):" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 10 "define ODE" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "k := 3/2;" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 41 "ode := (3/2)*diff(u(x),x,x) + k*u(x) = 0;" }}}{EXCHG 
{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 16 "solve wit
hout IV" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "dsolve([ode],u(x
));" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT 
-1 13 "solve with IV" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "v :=
 1;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "soln := dsolve([ode,u(0)=2,D
(u)(0)=v],u(x));" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "
" 0 "" {TEXT -1 4 "plot" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "
solnA := eval(rhs(soln));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
36 "plot([solnA],x=0..6*Pi,color=[red]);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}}{MARK "6 0 0" 0 }{VIEWOPTS 1 1 0 2 1 1805 1 1 1 
1 }{PAGENUMBERS 0 1 2 33 1 1 }