PRINT "SADEYA/INFORTECNICA"
PRINT
PRINT "MODELO EXPERIMENTAL INFLUENCIA TERMOGRAVITATORIA"

10 INPUT "UNIDAD DE MASA SOL(1) TIERRA(2) Kg.(3)"; tim
msk = 1.989 * 10 ^ 30
mst = 5.972 * 10 ^ 24
IF tim = 1 THEN INPUT "MASA CUERPO 1 SOL=1"; ma1
IF tim = 1 THEN INPUT "MASA CUERPO 2 SOL=1"; ma2
IF tim = 1 THEN mak1 = ma1 * msk
IF tim = 1 THEN mak2 = ma2 * msk
IF tim = 3 THEN INPUT "MASA CUERPO 1 Kg."; mak1
IF tim = 3 THEN INPUT "MASA CUERPO 2 Kg."; mak2
IF tim = 3 THEN ma1 = mak1 / msk
IF tim = 3 THEN ma2 = mak2 / msk
IF tim = 2 THEN INPUT "MASA CUERPO 1 TIERRA=1"; mat1
IF tim = 2 THEN INPUT "MASA CUERPO 2 TIERRA=1"; mat2
IF tim = 2 THEN ma1 = mat1 * (mst / msk)
IF tim = 2 THEN ma2 = mat2 * (mst / msk)
MA = ma1 * ma2

INPUT "DISTANCIA U.A.(1) RADSOL(2) kM.(3)"; TIP

IF TIP = 1 THEN INPUT "DISTANCIA  U.A."; UA
IF TIP = 1 THEN UAK = UA * 149600000
IF TIP = 1 THEN UAR = UAK / 695700

IF TIP = 2 THEN INPUT "DISTANCIA  RSOL."; UAR
IF TIP = 2 THEN UAK = UAR * 695700
IF TIP = 2 THEN UA = UAK / 149600000

IF TIP = 3 THEN INPUT "DISTANCIA Km."; UAK
IF TIP = 3 THEN UAR = UAK / 695700
IF TIP = 3 THEN UA = UAK / 149600000

20 INPUT "CONSTANTE C (1000000)"; CON
T = (MA / (UA * UA)) * CON
TT = T + 5741
mt1 = ma1 / (ma1 + ma2)
mt2 = ma2 / (ma1 + ma2)
ST2 = T * mt1
ST1 = T * mt2
PRINT "INFLUENCIA TERMOGRAVITATORIA K="; T
PRINT "TEMPERATURA SOL K="; TT
PRINT "SUMA TERMOD. A"; ST1
PRINT "SUMA TERMOD. B"; ST2


PRINT
GOTO 10