home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / etronics / 4.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1989-01-07  |  707 b   |  26 lines
  1. 100  CLS
  2. 110  INPUT "FILTER LOAD IN OHMS ";R
  3. 120  INPUT "UPPER CUTOFF FREQUENCY IN Hz ";FH
  4. 130  INPUT "LOWER CUTOFF FREQUENCY IN Hz ";FL
  5. 140  BW = FH - FL
  6. 150  FO = SQR(FH*FL)
  7. 160  C1 = 2.215/(6.28*R*BW)
  8. 170  L1 = (R*BW)/(6.28*FO^2*2.215)
  9. 180  C2 = BW/(6.28*FO^2*1.088*R)
  10. 190  L2 = (R*1.088)/(6.28*BW)
  11. 200  PRINT
  12. 210  PRINT "   CP = ";C1;" FARADS"
  13. 220  PRINT "   LP = ";L1;" HENRIES"
  14. 230  PRINT "   CS = ";C2;" FARADS"
  15. 240  PRINT "   LS = ";L2;" HENRIES"
  16. 250  PRINT
  17. 260  PRINT "THE BANDWIDTH IS ";BW;" Hz"
  18. 270  PRINT "THE CENTER FREQUENCY IS ";FO;" Hz"
  19. 280  IF BW > FO / 10 THEN 400
  20. 290  PRINT
  21. 300  PRINT "THE FILTER IS NOT PRACTICAL"
  22. 310  PRINT "THE BANDWIDTH IS TOO NARROW"
  23. 320  GOTO 400
  24. 400  PRINT :PRINT "               HIT SPACE BAR TO RETURN TO MENU"
  25. 410  K$ = INKEY$: IF K$=" " THEN RUN "MENU2" ELSE 410
  26.