home *** CD-ROM | disk | FTP | other *** search
/ Antennas / Antennas_CD-ROM_Walnut_Creek_September_1996.iso / w4mb / vol2 / basic / 4pvy.asc < prev    next >
Text File  |  1996-06-30  |  3KB  |  54 lines
  1. 3 CLS
  2. 10 PRINT "   ****************************************************************"
  3. 20 PRINT "   *                  THE W2PV FOUR ELEMENT YAGI                  *"
  4. 30 PRINT "   *             REFERENCE- MYERS, QST, OCTOBER 1986              *
  5. 40 PRINT "   *                PROGRAM BY  R.P. HAVILAND, W4MB               *"
  6. 50 PRINT "   *                       COPYRIGHT 1990                         *"
  7. 60 PRINT "   *          MINILAB BOOKS, DAYTONA BEACH, FL 32121-1086         *"
  8. 70 PRINT "   ****************************************************************"
  9. 80 DEF FNP(X)=INT(1000*X+.5)/1000
  10. 90 PI=3.141592
  11. 100 PRINT "  THIS PROGRAM GIVES PRIMARY DIMENSIONS FOR A FOUR ELEMENT YAGI ANTENNA"
  12. 110 PRINT "   HAVING A GAIN OF 9.6 DBI, AND A BANDWIDTH OF ABOUT 1.5 PERCENT FOR"
  13. 120 PRINT "    FOR A F/B RATIO OF 20 DB OR BETTER.
  14. 130 PRINT "  USE TAPER AND SCALE PROGRAMS TO ADJUST ELEMENT LENGTHS IF"
  15. 140 PRINT "   ELEMENT DIAMETER IS CHANGED.
  16. 150 PRINT 
  17. 200 INPUT " ENTER DESIGN FREQUENCY, MHZ";FREQ
  18. 210 LAMBDA=984/FREQ
  19. 300 PRINT 
  20. 310 PRINT " DESIGN ELEMENT DIAMETER=";FNP(.001*12*LAMBDA);"INCHES
  21. 320 PRINT "  FOLLOWING DIMENSIONS ARE IN FEET"
  22. 330 PRINT 
  23. 340 PRINT " ELEMENT    LENGTH       SPACING     DISTANCE FROM REFLECTOR"
  24. 350 PRINT " REFLECTOR  ";FNP(.5070001*LAMBDA),,0
  25. 360 PRINT ,,FNP(.1235*LAMBDA)
  26. 370 PRINT " RADIATOR   ";FNP(.475*LAMBDA),, FNP(.1235*LAMBDA)
  27. 380 PRINT ,,FNP(.2005*LAMBDA)
  28. 390 PRINT " DIRECTOR   ";FNP(.465*LAMBDA),, FNP(.324*LAMBDA)
  29. 400 PRINT ,,FNP(.2495*LAMBDA)
  30. 410 PRINT " DIRECTOR   ";FNP(.448*LAMBDA),, FNP(.5735*LAMBDA)
  31. 500 PRINT 
  32. 510 PRINT " DRIVE IMPEDANCE IS 20 +j0 OHMNS AT THE DESIGN FREQUENCY"
  33. 520 PRINT "  USE A GAMMA MATCH OR SEE REFERENCE FOR HAIRPIN MATCH"
  34. 600 INPUT " ENTER 1=PRINT OUT, 2=NEW FREQUENCY, 3= QUIT";T$
  35. 610 IF T$="3" THEN STOP
  36. 620 IF T$="2"THEN CLS:GOTO 200
  37. 630 IF T$<>"1" THEN 600
  38. 700 LPRINT "     W2PV FOUR ELEMENT YAGI FOR";FREQ;"MHZ"
  39. 710 LPRINT "DESIGN ELEMENT DIAMETER=";FNP(.001*12*LAMBDA);"INCHES
  40. 720 LPRINT "  FOLLOWING DIMENSIONS ARE IN FEET"
  41. 730 LPRINT 
  42. 740 LPRINT " ELEMENT    LENGTH       SPACING     DISTANCE FROM REFLECTOR"
  43. 750 LPRINT "REFLECTOR  ";FNP(.5070001*LAMBDA),,0
  44. 760 LPRINT ,,FNP(.1235*LAMBDA)
  45. 770 LPRINT "RADIATOR   ";FNP(.475*LAMBDA),, FNP(.1235*LAMBDA)
  46. 780 LPRINT ,,FNP(.2005*LAMBDA)
  47. 790 LPRINT "DIRECTOR   ";FNP(.465*LAMBDA),, FNP(.324*LAMBDA)
  48. 800 LPRINT ,,FNP(.2495*LAMBDA)
  49. 810 LPRINT "DIRECTOR   ";FNP(.448*LAMBDA),, FNP(.5735*LAMBDA)
  50. 820 LPRINT 
  51. 830 LPRINT "  USE TAPER AND SCALE PROGRAMS TO ADJUST ELEMENT LENGTHS IF"
  52. 840 LPRINT "   ELEMENT DIAMETER IS CHANGED.
  53. 900 GOTO 600                          
  54.