home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…e: Engineering & Science / Explore_the_World_of_Software_Engineering_and_Science_HRS_Software_1998.iso / programs / electrnc / mcgarret.exe / VSWR.BAS < prev    next >
BASIC Source File  |  1986-08-11  |  368b  |  14 lines
  1. 100 REM PROGRAM CALCULATES VSWR FROM INCIDENT AND REFLECTED POWER
  2. 110 REM D. McGARRETT WROTE ME 9 SEPTEMBER 1985
  3. 115 PRINT
  4. 120 INPUT"INCIDENT PWR, REFLECTED PWR (WATTS)";PI,PR
  5. 130 GAMMA=SQR(PR/PI)
  6. 150 VSWR=(1+GAMMA)/(1-GAMMA)
  7. 155 VSWR=INT(VSWR*100+.5)/100
  8. 160 PRINT
  9. 170 PRINT"VSWR IS"VSWR
  10. 175 PRINT
  11. 180 INPUT"MORE(Y/N)";A$
  12. 190 IF A$="Y" THEN 115
  13. 200 END
  14.