10 CLS
20 PRINT "SADEYA INFORTECNICA"
30 PRINT "SUPLEMENTO ESTRELLAS DOBLES"
40 PRINT
50 INPUT "PERIODO EN DIAS"; PD
55 INPUT "VELOCIDAD RADIAL kM/S."; VS
60 PS = PD * 24 * 3600
70 LONK = PS * VS
80 LONUA = LONK / 149600000
90 radua = (LONUA / 3.1416) / 2
100 PRINT
110 PRINT "RADIO U.A.,km. ="; radua; radua * 149600000
115 PRINT
120 INPUT "PARA CUALQUIER OTRO ANGULO 1 PARA FIN 0"; OA
125 IF OA = 0 THEN END
130 IF OA = 1 THEN 200
150 GOTO 20
200 INPUT "ANGULO ENTRE PLANOS ORBITALES"; ang
210 ang = 3.1416 / 180 * ang
220 incr = (1 / (COS(ang)))
230 PRINT "VELOCIDAD TRASLACION="; VS * incr
240 PRINT "RADIO U.A.,Km.,Sol="; radua * incr; radua * incr * 149600000; radua * incr * 149600000 / 695700
242 SUE = TAN(ang) * radua * incr
244 suek = SUE * 149600000
245 PRINT "SUMA DE RADIOS ESTELARES MAXIMA PARA NO ECLIPSE"
246 PRINT "U.A., Km.,Sol="; SUE; suek; suek / 695700
250 VT = VS * incr
260 PA = PD / 365.25
360 PS = PD * 24 * 3600
370 LONK = PS * VT
380 LONUA = LONK / 149600000
390 RAUA = LONUA / 3.141592 / 2
400 masa = (PA * PA) / (RAUA * RAUA * RAUA)
405 masa = 1 / masa
410 PRINT "SUMA DE MASAS SOL1 = "; masa




450 GOTO 120