{VERSION 2 3 "IBM INTEL NT" "2.3" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Courier" 1 12 0 
0 0 0 2 2 2 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "R3 \+
Font 0" -1 256 1 {CSTYLE "" -1 -1 "Ohlfs" 1 12 0 0 0 0 2 2 2 0 0 0 0 
0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT -1 57 "          Generating direc
tion fields and Solution Curves" }}{PARA 0 "" 0 "" {TEXT -1 39 "      \+
        using the DEplot command." }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 
23 "restart; with(DEtools);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
42 "eqn := diff(y(x),x) = (y(x)-x)*(1-y(x)^3);" }}}{EXCHG {PARA 0 "" 
0 "" {TEXT -1 35 "         Generate a direction field" }{TEXT -1 0 "" 
}}{PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "DEplot(eqn,y(x),x=0..2,y=0.5..2,a
rrows=SLIM);" }}}{PARA 0 "" 0 "" {TEXT -1 48 "      Plot solutions cur
ves using Euler's Method" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 80 "
DEplot(eqn,y(x),x=0..2,\{[0,2],[0,0.5]\},\narrows=NONE,method=classica
l[foreuler]);" }}}{PARA 0 "" 0 "" {TEXT -1 56 "      Plot solution cur
ves using Improved Euler's Method" }}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 80 "DEplot(eqn,y(x),x=0..2,\{[0,2],[0,0.5]\},\narrows=NON
E,method=classical[heunform]);" }}}{PARA 0 "" 0 "" {TEXT -1 51 "      \+
Plot direction field and solution curve using" }}{PARA 0 "" 0 "" 
{TEXT -1 33 "         the default method - RK4" }}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 53 "DEplot(eqn,y(x),x=0..2,\{[0,2],[0,0.5]\},arrows=
SMALL);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 80 "DEplot(eqn,y(x),
x=0..2,\{[0,2],[0,0.5]\},\narrows=NONE,method=classical[heunform]);" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "6 0 0" 29 }
{VIEWOPTS 1 1 0 1 1 1803 }