**TI92**mainFunction: 03\15\1996 06:15:31 PMRrk2yx¥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 y+h*(b1+2*b2+2*b3+b4)/6 EndFunc]äåÜCJ