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 EN U.A"; DIST
50 INPUT "PERIODO EN DIAS"; PER
55 DMIN = 1.3 * DIST

60 peri = PER / 365.25
70 MASA = (DIST ^ 3) / (peri ^ 2)
72 LUM = 300 * PER
73
74 masa2 = LUM ^ (1 / 3)
75 dis = (masa2 * peri * peri) ^ (1 / 3)

80
90 PRINT "MASA, MASA2="; MASA; masa2
91 PRINT "DIS2 U.A.="; dis
92 PRINT "DIAMETRO ATMOSFERA MIN.="; DMIN
94 DAL = SQR(LUM) * 10
96 PRINT "DISTANCIA A¥OS LUZ K="; DAL


95 PRINT "LUMINOSIDAD="; LUM

100 END