2
PRINT

PRINT "SADEYA/INFORTECNICA"
PRINT "PROBABILIDAD POISSON DE N SUCESOS (TERREMOTOS, ERUPCIONES..."
PRINT "A PARTIR DE UN TIEMPO DE RECURRENCIA Y DE UNA MAGNITUD"
PRINT
   INPUT "NUMERO DE SUCESOS"; N
   INPUT "PERIODO EN UNIDAD DE TIEMPO (ANS,DIAS,ETC...) DEL ESTUDIO"; T
   INPUT "EN LA MISMA UNIDAD TIEMPO DE RECURRENCIA DEL SUCESO"; tr
   INPUT "MAGNITUD ESCALA 10 (RICHTER, VEI...) DEL SUCESO ESPERADO"; MAGP
   INPUT "MAGNITUD ESCALA 10 DEL SUCESO OBSERVADO"; MAGR
PRINT

REM TERMINO TER
tr = 10 ^ (MAGP - MAGR) * tr
REM ter = (1 / (TR * 10 ^ (magr - MAGP)) * (T))
ter = (T / tr)

REM FACTORIAL

M = N
TOT = M
30 M = M - 1
TOT = TOT * M
IF M > 2 THEN 30
IF TOT < 2 THEN TOT = 1
REM PRINT TOT

AA = 1 / TOT
AB = (ter) ^ N
AC = 2.71828183# ^ -ter
PR = AA * AB * AC
REM PR = 1 - PR
PRINT "PROB.P-Q DE"; N; "SUCESOS DE MAG."; MAGP; "EN TIEMPO"; T; " ="; PR; 1 - PR
REM PR2 = 1 - (1 - (ter)) ^ T
PR3 = 1 - 2.71828183# ^ -ter
PRINT "PROBABILIDAD PARA UN SUCESO="; PR3
PRINT
INPUT "NUEVO CALCULO (1)"; NUC

IF NUC = 1 THEN 2

END