DEFDBL A-Z SCREEN 12 WINDOW (0, 0)-(20, 47000) tinitial = 0 t = tinitial S = 45400 I = 2100 R = 2500 Iprime = .00001 * S * I - I / 14 deltat = .01 DO WHILE Iprime > 0 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 LOOP PRINT t