**TI92**mainFunction: 03\15\1996 06:15:31 PMRrk2xx¥Z(t,x,y,h) Func Local a1,a2,a3,a4,b1,b2,b3,b4 f1(t,x,y)a1 f2(t,x,y)b1 f1(t+h/2,x+h*a1/2,y+h*b1/2)a2 f2(t+h/2,x+h*a1/2,y+h*b1/2)b2 f1(t+h/2,x+h*a2/2,y+h*b2/2)a3 f2(t+h/2,x+h*a2/2,y+h*b2/2)b3 f1(t+h,x+h*a3,y+h*b3)a4 f2(t+h,x+h*a3,y+h*b3)b4 x+h*(a1+2*a2+2*a3+a4)/6 EndFunc]äåÜ>J