{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 70 "  maple solve of a nonlinear, first-order ODE:  y' = (r-y)y  (s
ee p80)" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 32 "clear workspace & load OD
E 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 OD
E" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "ode := diff(y(x),x) = \+
(r-y(x))*y(x);" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 
0 "" {TEXT -1 16 "solve without IV" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 19 "dsolve([ode],y(x));" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 
-1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 13 "solve with IV" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 34 "soln := dsolve([ode,y(0)=a],y(x));" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 50 "se
t value of r=0.71 (like text) & plot for two IVs" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 40 "solnA := eval(rhs(soln),\{r=0.71,a=0.5\});" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "solnB := eval(rhs(soln),\{
r=0.71,a=1.5\});" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "plot([s
olnA,solnB],x=0..6,color=[red,blue]);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}}{MARK "15" 0 }{VIEWOPTS 1 1 0 2 1 1805 1 1 1 1 }
{PAGENUMBERS 0 1 2 33 1 1 }