2 CLS

5 PRINT "SADEYA INFORTECNICA"


6 PRINT
10 PRINT "CAUSAS DE UN TERREMOTO"
15 INPUT "METEORITO(1) DESPLOME(2) EXPLOSION-LIBERACION(3) ERUPCION(4)"; TEP
20 PRINT
21 IF TEP = 4 THEN 20000
23 IF TEP = 2 THEN 10000
25 IF TEP = 3 THEN 15000
31 INPUT "VELOCIDAD INFINITA O RELATIVA KM/S"; VEL
32 INPUT "DENSIDAD (AGUA=1): COMETAS DE .3 A 1, ASTEROIDES 2.5 A 3"; DEN
33 INPUT "DIAMETRO EN METROS"; DIA
  
   

36 MASA = (4 / 3) * 3.1416 * (DIA / 2) ^ 3 * DEN
   VOLU = (4 / 3) * 3.1416 * (DIA / 2) ^ 3
   VOLUK = VOLU / 1000000000
   NUMER = 5000 / VOLUK
37 vef = SQR(VEL * VEL + 11.2 * 11.2)
55 PRINT
77 jul = ((MASA * 1000) / 2) * (vef * 1000 * vef * 1000)
79 PA = .001 * DIA ^ 3: PC = 1 / PA
   PRINT "METEOROIDE"
85 PRINT "VELOCIDAD DE ENTRADA O IMPACTO KM/S="; vef
86 PRINT "MASA EN TONELADAS="; MASA
87 PRINT "ENERGIA JOULS, KILOT ="; jul; (jul / 850000000000#) / 4.2#
TNT = (jul / 850000000000#) / 4.2#

REM INPUT "ENERGIA DEL TERREMOTO EQUIVALENTE EN EXPLOSION TM. DE TNT"; TNT
TNT = TNT * 1000
RICHEP = (LOG(TNT) / LOG(10) + LOG(33) / LOG(10) * 2) / (LOG(33) / LOG(10))
PRINT "I. ESCALA RICHTER = "; RICHEP
PRINT
GOTO 6

10000 PRINT "DESPLOME TECTONICO"
INPUT "LONGITUD, ANCHURA, GROSOR MED. METROS. MATERIAL DESPLOME"; LONGI, ANCH, GROS
VOL = LONGI * ANCH * GROS
INPUT "DENSIDAD (AGUA=1)"; DEN
INPUT "ALTURA DESPLOME METROS"; ESP
MASA = VOL * DEN * 1000
TIE = SQR(ESP / (9.8 * .5))
vef = 9.8 * TIE
jul = (MASA / 2) * (vef * vef)
PRINT "DESPLOME"
PRINT "VELOCIDAD DE IMPACTO M/S="; vef
PRINT "MASA DESPLOME EN TONELADAS="; MASA

PRINT "ENERGIA JOULS, KILOT ="; jul; (jul / 850000000000#) / 4.2#
TNT = (jul / 850000000000#) / 4.2#

REM INPUT "ENERGIA DEL TERREMOTO EQUIVALENTE EN EXPLOSION TM. DE TNT"; TNT
TNT = TNT * 1000
RICHEP = (LOG(TNT) / LOG(10) + LOG(33) / LOG(10) * 2) / (LOG(33) / LOG(10))
PRINT "I. ESCALA RICHTER = "; RICHEP
PRINT
GOTO 6

15000 PRINT "CAUSA INESPECIFICA: EXPLOSION, LIBERACION TECTONICA..."
INPUT "EN JOULES(1) EN KTM DE TNT(2)"; TIP
IF TIP = 2 THEN 15020
INPUT "ENERGIA EN JOULS"; jul
TNT = (jul / 850000000000#) / 4.2#
GOTO 15030
15020 INPUT "ENERGIA DE LA EXPLOSION EN KTM. DE TNT"; TNT
15030 TNT = TNT * 1000
RICHEP = (LOG(TNT) / LOG(10) + LOG(33) / LOG(10) * 2) / (LOG(33) / LOG(10))
PRINT "I. ESCALA RICHTER = "; RICHEP
PRINT
GOTO 6

20000 PRINT "ERUPCION VOLCANICA "


INPUT "ENERGIA ERUPCION ESCALA VEI="; escv
 PRINT
    ijo0 = 1 / 12 * (1.7 * 1D+18) * 10 ^ (escv - 5)

    IMEG0 = ijo0 * 239 * (1 / 1D+18) * .5
   
   
    PRINT "ENERGIA EXPLOSION ERUPTIVA EN JOUL, MEG.="; ijo0; IMEG0
   
    ijo = (1.7 * 1D+18) * 10 ^ (escv - 5)

    IMEG = ijo * 239 * (1 / 1D+18) * .5
   
    PRINT "ENERGIA GLOBAL LIBERADA JOUL, MEG.="; ijo; IMEG

TNT = IMEG * 100000
TNT2 = IMEG0 * 10000
RICHEP = (LOG(TNT) / LOG(10) + LOG(33) / LOG(10) * 2) / (LOG(33) / LOG(10))
richep2 = (LOG(TNT2) / LOG(10) + LOG(33) / LOG(10) * 2) / (LOG(33) / LOG(10))
PRINT "I. ESCALA RICHTER EXPLOSION Y GLOBAL= "; richep2; RICHEP
PRINT





GOTO 6