home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Antennas
/
Antennas_CD-ROM_Walnut_Creek_September_1996.iso
/
w4mb
/
vol1
/
basic
/
co_loss.asc
< prev
next >
Wrap
Text File
|
1996-06-30
|
742b
|
19 lines
100 CLS : PRINT " ************************************"
110 PRINT " * COAX LOSS CALCULATOR *"
120 PRINT " * PROGRAM COPYRIGHT 1985 *"
130 PRINT " * R.P. HAVILAND, W4MB *"
140 PRINT " ************************************"
150 REM PROGRAM 26
160 PRINT : PRINT
200 PRINT "THIS PROGRAM CALCULATES TOTAL LOSS OF"
210 PRINT "A PIECE OF COAX CABLE, FROM INPUT SWR"
220 PRINT "WITH FAR END OPEN OR SHORT CIRCUITED."
400 PRINT : INPUT "ENTER MEASURED SWR (>1) "; SR
410 IF SR = 1 GOTO 400
420 LO = ABS(5 / 2.3 * LOG(((SR - 1) / (SR + 1)) ^ 2))
600 PRINT "CABLE LOSS IS"; INT(100 * LO + .5) / 100; "DB"
610 PRINT : INPUT "ENTER ANY SWR=RERUN OR ZERO=QUIT"; SR
620 IF SR <> 0 GOTO 410
700 END