home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / misc / ham436 / vhf-yagi.bas (.txt) < prev   
Encoding:
GW-BASIC  |  1985-08-23  |  2.4 KB  |  60 lines
  1. 100  'This program calculates the demensions of a VHF Yagi antenna.
  2. 110  '
  3. 120  'Design assumptions are:
  4. 130  '  1. Driven element length in inches is 5600/frequency in MHZ.
  5. 140  '  2. The reflector is 5% longer than the driven element.
  6. 150  '  3. Reflector and first director spacing is 0.2 wavelengths from driven.
  7. 160  '  4. The first director is 5% shorter than the driven element.
  8. 170  '     Subsequent director lengths are calculated by adding 1% to
  9. 180  '     the shortening factor of the previous director. For example,
  10. 190  '     the 2nd director is 6% shorter than the driven element,
  11. 200  '     the 3rd is 7% shorter, the 4th, 8% shorter, etc.
  12. 210  '  5. Director spacing is 110% of previous spacing. Spacing starts
  13. 220  '     at 0.2 wavelengths.
  14. 230  '
  15. 240  ' The program is well documented via remarks, so any of the above
  16. 250  ' assumptions may be easily changed.
  17. 260  '
  18. 270  '-------------------- PROGRAM BEGINS --------------------------------------
  19. 280  '
  20. 290  CLS
  21. 300  DEFINT I
  22. 302  PRINT "THE OUTPUT OF THIS PROGRAM IS TO A PRINTER."
  23. 304  PRINT "TURN PRINTER ON AND ALIGN PAPER BEFORE PROCEEDING."
  24. 306  PRINT
  25. 310  INPUT"WHAT FREQUENCY (MHZ) ";FREQ
  26. 320  INPUT"HOW MANY ELEMENTS (3 MINIMUM) ";ELNO
  27. 330  WL = 11808/FREQ 'wavelength in free space (inches)
  28. 340  DR = 5600/FREQ 'driven element length (inches)
  29. 350  RF = DR * 1.05 'reflector length
  30. 360  SPR = WL * 0.2 'reflector spacing
  31. 370  PL(1) = DR * 0.95'first director length
  32. 380  SPP(1) = WL * 0.2 'first director spacing
  33. 390  FOR I = 2 TO (ELNO -2)
  34. 396  PRINT
  35. 400  SPP(I) = SPP(I-1) * 1.1 'each director spacing 10% greater than previous
  36. 410  PL(I) = DR * (100 - (4 + I))*0.01 'director length
  37. 420  LN1 = LN1 + SPP(I) 'keep track of overall length
  38. 430  NEXT
  39. 440  DEF FNX(X) = INT(X*100+0.5)*0.01 'function to round off printing to 2 dec.
  40. 450  LNT = SPR + SPP(1) + LN1 'total beam length
  41. 460  LPRINT"DESIGN DATA FOR VHF YAGI BEAM ANTENNA: "
  42. 470  LPRINT
  43. 480  LPRINT"---- DESIGN FREQUENCY IS";FREQ;" MHZ"
  44. 490  LPRINT"---- TOTAL NUMBER OF ELEMENTS IS";ELNO
  45. 500  LPRINT
  46. 510  LPRINT
  47. 520  LPRINT TAB(35);"LENGTH IN INCHES"
  48. 530  LPRINT "REFLECTOR";TAB(40);FNX(RF)
  49. 540  LPRINT "REFLECTOR TO DRIVEN";TAB(41);FNX(SPR)
  50. 550  LPRINT "DRIVEN";TAB(40);FNX(DR)
  51. 560  LPRINT "DRIVEN TO 1st DIRECTOR";TAB(41);FNX(SPP(1))
  52. 570  LPRINT "1st DIRECTOR LENGTH";TAB(40);FNX(PL(1))
  53. 580  LPRINT
  54. 590  FOR I = 2 TO (ELNO -2)
  55. 600  LPRINT"DIRECTOR No.";I;" LENGTH IS";FNX(PL(I));" INCHES"
  56. 610  LPRINT "SPACED";FNX(SPP(I));" INCHES FROM DIRECTOR No.";I-1
  57. 620  LPRINT
  58. 630  NEXT
  59. 640  LPRINT "------ OVERALL BEAM LENGTH IS";FNX(LNT);" INCHES ------"
  60.