home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / etronics / 5.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1989-01-07  |  673 b   |  18 lines
  1. 100  CLS
  2. 110  PRINT: INPUT "WHAT VALUE OF Q WOULD YOU LIKE ";Q
  3. 120  IF Q > 20 THEN PRINT: PRINT "SORRY THA'S TOO HIGH": GOTO 110
  4. 130  PRINT : INPUT "WHAT IS THE CENTER FREQUENCY ";F
  5. 140  PRINT : INPUT "WHAT PASSBAND GAIN WOULD YOU LIKE ";G
  6. 150  PRINT : INPUT "WHAT BALUE OF CAPACITOR WOULD YOU LIKE TO USE ";C
  7. 160  R1 = Q / (6.28*F*G*C)
  8. 170  R5 = 2 * R1 * G
  9. 180  R3 = Q/((C*6.28*F)*(2*Q^2-G))
  10. 190  IF R3 < 10 THEN PRINT : PRINT "YOU HAVE ASKED FOR TOO MUCH GAIN": PRINT
  11. 200  R1 = INT(R1):R3 = INT(R3):R5 = INT(R5)
  12. 210  PRINT: PRINT "FEEDBACK RESISTOR = ";R5;" OHMS"
  13. 220  PRINT: PRINT "INPUT RESISTOR = ";R1;" OHMS"
  14. 230  PRINT: PRINT "GROUND RESISTOR = ";R3;" OHMS"
  15. 240  GOTO 400
  16. 400  PRINT :PRINT "               HIT SPACE BAR TO RETURN TO MENU"
  17. 410  K$ = INKEY$: IF K$=" " THEN RUN "MENU2" ELSE 410
  18.