CLS

5 PRINT
PRINT "SADEYA/INFORTECNICA"
PRINT
PRINT "INTENSIDAD SEĽAL RADIO"

INPUT "RECEPTOR 1 LIMITE 2 ORIENTACION 3"; TIP
IF TIP = 3 THEN GOTO 1000
IF TIP = 2 THEN GOTO 100
TIP = 1
10 PRINT
INPUT "DISTANCIA EMISORA EN Km."; DK
DK = DK * 1000
ALTM = (DK * DK) / 12742000




20 INPUT "POTENCIA DE EMISION WAT."; KW
   INPUT "LIMITE POTENCIA DECIBEL (EJEM.50)"; DELIM

KW = KW * 1000
IT = KW / (DK ^ 3)

DEC = (LOG(IT) / LOG(10)) * 10 + 125
AA = 10 ^ ((DELIM - 125) / 10)
DK2 = (KW / AA) ^ (1 / 3)


PRINT "DECIBELIOS RECEP. LIMITE="; DEC

IF DEC > 75 THEN PRINT "SEĽAL EXCELENTE"
IF DEC < 75 AND DEC > 65 THEN PRINT "SEĽAL BUENA"
IF DEC < 65 AND DEC > 55 THEN PRINT "SEĽAL ACEPTABLE"
IF DEC < 55 AND DEC > 45 THEN PRINT "SEĽAL DEBIL"
IF DEC < 45 THEN PRINT "SEĽAL DIFICIL"

PRINT " ALTURA MINIMA METROS="; ALTM
REM POL = 10 ^ (DK ^ 3) * 10 + 50
REM PRINT "LIMITE POTENCIA"; POL

PRINT "LIMITE DISTANCIA/POT. METROS="; DK2; "PARA DECIBEL="; DELIM


PRINT

GOTO 5
END

100 INPUT " ALTURA EMISOR EN METROS "; ALTM
HORI = SQR(ALTM * 12742000)
LIMIT = 4 / 3 * HORI
PRINT "HORIZONTE METROS ="; HORI
PRINT "MAXIMO INCLUIDA REF. METROS="; LIMIT
DK = LIMIT


GOTO 20

1000  INPUT "LONGITUD Y LATITUD GRADOS DE LA ANTENA"; LON1, LAT1
INPUT "LONGITUD Y LATITUD GRADOS DEL RECEPTOR"; LON2, LAT2
     RAD = 180 / 3.1416
     
     LON1 = LON1 / RAD
     LON2 = LON2 / RAD
     
     LAT1 = LAT1 / RAD
     LAT2 = LAT2 / RAD
     
     ACO = (SIN(LON1) * SIN(LON2)) + (COS(LON1) * COS(LON2) * (COS(LAT2 - LAT1)))
     PRINT "ACO"; ACO
     ATA = SQR(1 - ACO * ACO) / ACO
     PRINT "ATA"; ATA

     D = 60 * ATN(ATA)
     PRINT "D"; D
     DK = D * 12750 * 3.1416 / 360

     PRINT "DISTANCIA KM.="; DK
     
     ACOO = (SIN(LON2) - SIN(LON1) * COS(D / 60)) / (SIN(D / 60) * COS(LON1))
     
    
     ATAA = SQR(1 - ACOO * ACOO) / ACOO
     
     H = ATN(ATAA)
    
     PRINT "DISTANCIA="; D
     PRINT "AZIMUT="; H * RAD
     GOTO 1000