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