{VERSION 3 0 "SUN SPARC SOLARIS" "3.0" }
{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 "" 0 1 0 0 0 0 0 
0 0 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 "" {MPLTEXT 1 0 23 "f:=(x,y)->evalf(2*y-
6);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 150 "numde:=proc(x0,y0,x
1,N)\nlocal h,x,y,i :\nh:=evalf((x1-x0)/N):\nx:=x0: y:=y0:\nfor i to N
 do\n  y:=y+evalf(h*f(x,y)):\n  x:=evalf(x+h):\nod:\nprint(x,y);\nend:
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "numde(0,1,1,400);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "evalf(3-2*exp(2));" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 260 "numdr:=proc(x0,y0,x1,N)\nlo
cal h,x,y,i,k1,k2,k3,k4 :\nh:=evalf((x1-x0)/N):\nx:=x0: y:=y0:\nfor i \+
to N do\n  k1:=h*f(x,y):\n  k2:=h*f(x+h/2,y+k1/2):\n  k3:=h*f(x+h/2,y+
k2/2):\n  k4:=h*f(x+h,y+k3):\n  y:=y+evalf((k1+2*k2+2*k3+k4)/6):\n  x:
=evalf(x+h):\nod:\nprint(x,y);\nend:" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 17 "numdr(0,1,1,100);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 67 "maple:=dsolve(\{diff(y(x),x)=f(x,y(x)),y(0)=1\}, y(x)
, type=numeric);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "maple(1)
;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "9" 0 }
{VIEWOPTS 1 1 0 1 1 1803 }