10 PRINT "CEFEIDAS BINARIAS O DE DOBLE NUCLEO"
PRINT
20 PRINT "MASA=DIST^3/PERI^2"
25 PRINT "LUMINOSIDAD=300*PERIODO"
26 PRINT "USAR SOFTWARE SADEYA ESTELAR3.EXE"
27 INPUT "EXPONENTE LUMINOSIDAD L=MAS^3.5 3-3.5"; expo

40 INPUT "DISTA ENTRE NUCLEOS EN U.A"; DIST
45 INPUT "DISTANCIA EN AÑOS LUZ"; dal

50 INPUT "PERIODO EN DIAS"; PER
INPUT "MAGNITUD APARENTE"; M1


55 DMIN = 1.3 * DIST

60 PERI = PER / 365.25
70 MASA = (DIST ^ 3) / (PERI ^ 2)
72 LUM = 300 * PER
REM INMAG=(LOG(LUM)/LOG(10))/(LOG(2.512)/LOG(10))
REM RMAB=4.83-INMAG
REM LGD=(MAB-(M1+5)/-5)
REM DAL=10^LGD


73 MASA2 = LUM ^ (1 / expo)
75 dist2 = ((PERI ^ 2) * MASA) ^ (1 / expo)
77 RVRAD = dist2 * 3.1416 * 2 * 149600000
78 TRAD = PER * 24 * 3600
79 VRAD = RVRAD / TRAD
80
81
90 PRINT "MASA, MASA2 SOL=1="; MASA; MASA2
REM PRINT "MAGNITUD ABSOLUTA=";MAB
REM PRINT "LOG DIST";LGD
REM PRINT "INC.MAG";INMAG

92 PRINT "DIAMETRO ATMOSFERA MIN.U.A.="; DMIN
94 REM DAL = SQR(LUM) * 10

   REM DAL2 = SQR(LUM / 2) * 10



95 REM MV = 5 * (LOG(DAL / 3.2616) / LOG(10) - 1)
 REM MV2 = 5 * (LOG(DAL2 / 3.2616) / LOG(10) - 1)
96 REM PRINT "DISTANCIA A¥OS LUZ="; DAL
97 PRINT "VEL RAD="; VRAD
98 PRINT "dist2 U.A.="; dist2
99 REM PRINT "MAG V MIN MAX="; MV; MV2
PRINT "LUMINOSIDAD SOL=1="; LUM
PRINT
PRINT



GOTO 27

100 END