CLS
PRINT "SADEYA/INFORTECNICA"
PRINT "EVOLUCION EPIDEMIA"
10 PRINT
pp = 1
DIA2 = 0
INPUT "CONTAGIADOS INICIALES="; INI
INPUT "RAZON PROGRESION CONTAGIO 1-4="; RAZ
INPUT "MORTALIDAD/100000 CONTAG.="; IM
INPUT "PERIODO DE AFECTACION DIAS="; PER



INPUT "INCREMENTO DIAS DESDE EL INICIO (1)="; DIA
INPUT "POBLACION DEL AREA="; pob






20 cont = INI * pp * RAZ ^ DIA
DIA2 = DIA + DIA2
PRINT
PRINT "DIA DESDE INICIO="; DIA2
NCON = pob - cont
GRA = cont * IM / 8000
MUE = cont * IM / 100000


PRINT "CONTAGIADOS, NO CONTAG.="; INT(cont); INT(NCON)
PRINT "GRAVES EL DIA"; DIA2 + PER - 2, INT(GRA)
PRINT "MUERTOS EL DIA"; DIA2 + PER + 1, INT(MUE)
IF (cont) > (pob - 1) THEN 99




INPUT "SECUENCIA R2 SI=1"; SEC

IF SEC > 1 THEN 100
INI = cont
pp = (1 + ((NCON) / (pob))) / RAZ

GOTO 20

99 PRINT "MAXIMO DEL CONTAGIO"
PRINT
100 INPUT "NUEVO CALCULO SI=1 "; NC
IF NC = 1 THEN 10
END