DEFDBL A-Z tinitial = 0 tfinal = 1 t = tinitial S = 45400 I = 2100 R = 2500 numberofsteps = 10 deltat = (tfinal - tinitial) / numberofsteps FOR k = 1 TO numberofsteps Sprime = -.00001 * S * I Iprime = .00001 * S * I - I / 14 Rprime = I / 14 deltaS = Sprime * deltat deltaI = Iprime * deltat deltaR = Rprime * deltat t = t + deltat S = S + deltaS I = I + deltaI R = R + deltaR NEXT k PRINT t, S, I, R