home *** CD-ROM | disk | FTP | other *** search
/ Antennas / Antennas_CD-ROM_Walnut_Creek_September_1996.iso / public / hopkins / trans.bas < prev    next >
BASIC Source File  |  1996-06-30  |  465b  |  18 lines
  1. 10 CLS
  2. 20 PRINT "                 IMPEDANCE TRANSFORMATION"
  3. 30 PRINT "                 ========================"
  4. 40 PRINT
  5. 50 PRINT
  6. 60 INPUT "WHAT IS THE INPUT IMPEDANCE ";ZI
  7. 70 PRINT
  8. 80 INPUT"WHAT IS THE REQUIRED IMPEDANCE";RZ
  9. 90 PRINT
  10. 100 PRINT
  11. 110 PRINT "THE IMPEDANCE OF THE MATCHING LINE = ";SQR(ZI*RZ);" OHMS."
  12. 120 PRINT
  13. 130 PRINT
  14. 140 INPUT "ANOTHER CALCULATION Y=YES N=NO ";A$
  15. 150 IF A$="Y" GOTO 10
  16. 160 IF A$="N"THEN RUN "MENU"
  17. 170 GOTO 120
  18.