10 PRINT "CEFEIDAS BINARIAS O DE DOBLE NUCLEO"
PRINT


20 PRINT "MASA=DIST^3/PERI^2"
25 PRINT "LUMINOSIDAD=300*PERIODO"

30
40 INPUT "DISTA ENTRE NUCLEOS EXP EN U.A"; DIST
50 INPUT "PERIODO EN DIAS"; PER
55 DMIN = 1.3 * DIST
57 INPUT "EXPONENTE LUMINOSIDAD (3-3.5)"; EL

60 peri = PER / 365.25
70 MASA = (DIST ^ 3) / (peri ^ 2)
72 LUM = 300 * PER
73
74 masa2 = LUM ^ (1 / EL)
75 dis = (masa2 * peri * peri) ^ (1 / 3)
77 DISS = dis * 149600000 / 696300
80
90 PRINT "MASA, MASA2 SOL=1="; MASA; masa2
91 PRINT "DIS2 U.A. R. SOL="; dis; DISS
92 PRINT "DIAMETRO ATMOSFERA MINIM.="; DMIN
94 DAL = SQR(LUM) * 55
96 PRINT "DISTANCIA A¥OS LUZ K="; DAL


95 PRINT "LUMINOSIDAD="; LUM

97 INPUT "NUEVO CALCULO (1)"; NC
98 IF NC = 1 THEN 40
99 PRINT
100 END