home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / HAMRADIO / J_ANT.ZIP / J-ANT.BAS (.txt)
Encoding:
GW-BASIC  |  1986-07-10  |  1.0 KB  |  27 lines
  1. 1  REM Data taken from article in April 1982 QST by John S. Belrose, VE2CV
  2. 2  REM Program written by Marv Hayes, NF6G, 3/20/83.
  3. 90  PRINT "These calculations are for a 'J' antenna made from 300 ohm"
  4. 91  PRINT "twin-lead such as Belden 8230 with a velocity factor of .8"
  5. 95  PRINT " "
  6. 100  INPUT "Please enter the design frequency in mHz";FREQ
  7. 105  PRINT " "
  8. 200  LAMBDA = 11811/FREQ
  9. 300  STUB = 0.83 * LAMBDA / 4
  10. 400  RADIATOR = 0.965 * LAMBDA / 2
  11. 500  TAP = LAMBDA * 0.0136
  12. 600  GAP = 0.25
  13. 1000  PRINT "DESIGN         LENGTH OF    LENGTH OF        TAP         GAP"
  14. 1100  PRINT " FREQ          1/4 WAVE     RADIATOR       DISTANCE    DISTANCE"
  15. 1200  PRINT "(mHz)          (inches)     (inches)       (inches)    (inches)"
  16. 1300  PRINT " "
  17. 1400  PRINT FREQ, STUB, RADIATOR, TAP, GAP
  18. 1890  PRINT " "
  19. 1900  PRINT "If this antenna will be inclosed inside a PVC plastic tube,"
  20. 1901  PRINT "the dimensions should be reduced (multiply by 0.95)."
  21. 1905  PRINT " "
  22. 1910  STUB = STUB * 0.95
  23. 1920  RADIATOR = RADIATOR * 0.95
  24. 1930  TAP = TAP * 0.95
  25. 1950  PRINT FREQ, STUB, RADIATOR, TAP, GAP
  26. 2000  END
  27.