{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 "" 0 1 0 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 }{PSTYLE "Maple Output" 0 11 1 
{CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 0 -1 -1 -1 0 
0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "t0:=0;" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%#t0G\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 6 "y0:=1;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#y0G\"\"\"
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "deltat:=.25;" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%'deltatG$\"#D!\"#" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 14 "f:=(t,y)->t-y;" }}{PARA 11 "" 1 "" {XPPMATH 20 "
6#>%\"fGf*6$%\"tG%\"yG6\"6$%)operatorG%&arrowGF),&9$\"\"\"9%!\"\"F)F)F
)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "h1:=f(t0,y0);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#h1G$\"*(p%Q_&!#5" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 34 "h2:=f(t0+deltat/2,y0+deltat*h1/2);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#h2G$\"+5mLL<!#5" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 34 "h3:=f(t0+deltat/2,y0+deltat*h2/2);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#h3G$\"+@wr&e\"!#5" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 30 "h4:=f(t0+deltat,y0+deltat*h3);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%#h4G$\"+#Hbfl#!#5" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 34 "y1:=y0+deltat*(h1+2*h2+2*h3+h4)/6;" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%#y1G$\"+))R)yN(!#5" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 14 "t0:=t0+deltat;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>
%#t0G$\"#v!\"#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "y0:=y1;" }
}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#y0G$\"+.`hZp!#5" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "9 0 0" 0 }{VIEWOPTS 1 1 0 1 
1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }