1 CLS
2 PRINT "SADEYA/INFORTECNICA"
PRINT
PRINT "SUPLEMENTO ESTELAR"
PRINT "CALCULO DE LA VELOCIDAD TANGENCIAL Y REAL DE UNA ESTRELLA"
PRINT
10 INPUT "Velocidad radial Km/s"; VR
INPUT "Movimiento propio en A.R. ss"; xs
INPUT "Movimiento propio Dec.,,"; y
INPUT "Distancia en parsecs"; dp
INPUT "Dec. en grados"; de
dec = de / (180 / 3.1415926#)
xx = xs * 15
yy = y * COS(dec)

VTs = SQR(xx * xx + yy * yy)

lonal = dp * 3.26156 * 2 * 3.1415926#
lonk = lonal * 365.25 * 24 * 3600 * 300000
segkm = lonk / 1296000
vtana = segkm * VTs
vtans = vtana / (365.25 * 24 * 3600)


VTk = vtans

Vre = SQR(VTk * VTk + VR * VR)
PRINT "Velocidad tangencial ,,="; VTs
PRINT "Velocidad tangencial Km/s.="; VTk
PRINT "Velocidad real Km/s="; Vre
PRINT
INPUT "Si nuevo calculo 1"; nc
IF nc = 1 THEN 10
END