DEFDBL A-Z SCREEN 12 WINDOW (0, 40000)-(3, 45400) tinitial = 0 tfinal = 3 t = tinitial S = 45400 I = 2100 R = 2500 numberofsteps = 30 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 LINE (t, S)-(t + deltat, S + deltaS) t = t + deltat S = S + deltaS I = I + deltaI R = R + deltaR NEXT k