home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / math / erpcalc / erpcalc.bas (.txt)
Encoding:
GW-BASIC  |  1987-05-31  |  1.0 KB  |  28 lines
  1. 10  ' ** PROGRAM CALCULATES EFFECTIVE RADIATED POWER **
  2. 20  ' ** PROGRAM WRITTEN BY R. INGARGIOLA **
  3. 30  ' ** 70 GOXGLOVE RD **
  4. 40  ' ** WEST ISLIP N.Y. 11752 **
  5. 50  ' ** COPY WRITE 03/17/83 **
  6. 60  CLEAR 500
  7. 70  CLS:PRINT TAB(5)"*** PROGRAM CALCULATES EFFECTIVE RADIATED POWER ***"
  8. 80  PRINT:PRINT TAB(40)"WRITTEN BY R. INGARGIOLA"
  9. 90  INPUT "ENTER OUTPUT POWER AS MEASURED IN WATTS ";P:IF P<1 THEN GOTO 70
  10. 100  INPUT "ENTER ANTENNA GAIN (DB) RATING ";G
  11. 110  INPUT "ENTER TRANSMISSION LINE LOSS IN (DB) ";L
  12. 120  PRINT STRING$(63,"-")
  13. 130  R = G - L
  14. 140  AL=EXP((R/10)*LOG(10)) '  ANTILOG FORMULA BASE 10
  15. 150  AL=INT(AL*100+0.5)/100 '   CONVERT TO INTEGER
  16. 160  W=AL*P
  17. 170  PRINT:PRINT"THE SOLUTION TO  P1/P2 = ANTILOG DB/10
  18. 180  PRINT"----------------"
  19. 190  PRINT TAB(22)"POWER = ANTILOG ";R;"/10"
  20. 200  PRINT TAB(28)"= ANTILOG ";AL
  21. 210  PRINT TAB(21)" E R P = ";W;"WATTS"
  22. 220  PRINT "DO YOU WISH TO RUN AGAIN (Y/N) ?"
  23. 230  A$=INKEY$:IF A$="" THEN 230 ELSE IF A$="Y" THEN RUN
  24. 240  IF A$="N" THEN 250 ELSE GOTO 230
  25. 250  CLS:PRINT "* END OF PROGRAM *"
  26. 260  PRINT TAB(29)"73 'S"
  27. 270  END
  28.