home *** CD-ROM | disk | FTP | other *** search
/ Antennas / Antennas_CD-ROM_Walnut_Creek_September_1996.iso / w4mb / vol1 / basic / flat.asc < prev    next >
Text File  |  1996-06-30  |  5KB  |  111 lines
  1. 100 CLS : PRINT "   ***********************************"
  2. 110 PRINT "   *          FLAT TOP BEAMS         *"
  3. 120 PRINT "   *   REFERENCES-KRAUS, ANTENNAS    *"
  4. 130 PRINT "   *  HAM RADIO, MAY 1976, MAY 1980  *"
  5. 140 PRINT "   *      CQ MAGAZINE, DEC 1973      *"
  6. 150 PRINT "   *     PROGRAM COPYRIGHT 1985      *"
  7. 160 PRINT "   *       R.P. HAVILAND, W4MB       *"
  8. 170 REM PROGRAM 17
  9. 180 PRINT "   ***********************************"
  10. 190 DEF FNP (X) = INT(100 * X + .5) / 100
  11. 200 PRINT "A FLAT TOP BEAM EMPLOYS TWO HALF WAVE DIPOLES, CLOSE SPACED, AND"
  12. 210 PRINT " BOTH CENTER FED, OUT OF PHASE"
  13. 220 PRINT : PRINT "THE ZL-SPECIAL CHANGES ELEMENT LENGTH TO DEVELOP UNI-DIRECTIONAL GAIN."
  14. 230 PRINT : PRINT "THE FOLDED SPECIAL IS FOR SMALL SPACE."
  15. 240 PRINT : PRINT "ALL HAVE A TWIST IN THE PHASING LINE."
  16. 250 PRINT : INPUT "ENTER DESIGN FREQUENCY, MHZ"; FO
  17. 260 LA = 984 / FO
  18. 270 PRINT : PRINT "ENTER  1=FLAT-TOP BEAM"
  19. 280 PRINT "       2=ZL SPECIAL"
  20. 290 PRINT "       3=FOLDED TWIN-LEAD SPECIAL"
  21. 300 PRINT "       4=FOLDED TUBING SPECIAL"
  22. 310 PRINT "       5=NEW FREQUENCY"
  23. 320 PRINT "       6=QUIT"
  24. 330 INPUT PC
  25. 340 IF PC < 1 OR PC > 6 THEN 320
  26. 350 ON PC GOSUB 400, 800, 1200, 1600, 250, 370
  27. 360 GOTO 270
  28. 370 STOP
  29. 400 PRINT "  WIRE (THIN) CONDUCTOR IS ASSUMED"
  30. 410 LR = .492 * LA
  31. 420 SP = LA / 8
  32. 430 LS = .4 * LA
  33. 440 PRINT "LENGTH RADIATORS="; FNP(LR); "FEET"
  34. 450 PRINT "RADIATOR SPACING="; FNP(SP); "FEET"
  35. 460 PRINT "OPEN LINE PHASING LENGTH="; FNP(.95 * LA / 2); "FEET"
  36. 470 PRINT "TWIN-LEAD PHASING LENGTH="; FNP(LS); "FEET"
  37. 480 PRINT : PRINT "GAIN=3.9 DB"
  38. 490 PRINT "FRONT/BACK RATIO=0 DB"
  39. 500 PRINT "DRIVE IMPEDANCE=9 OHMS"
  40. 510 PRINT : PRINT "PRESS A KEY FOR MORE"
  41. 520 Q$ = INKEY$: IF Q$ = "" GOTO 520
  42. 530 RETURN
  43. 800 PRINT : PRINT "FOR ELEMENTS OF 300 OHM TWINLEAD"
  44. 810 LF = .4546 * LA
  45. 820 LB = .4834 * LA
  46. 830 SP = .12 * LA
  47. 840 PRINT "FORWARD RADIATOR LENGTH="; FNP(LF); "FEET"
  48. 850 PRINT "REAR RADIATOR LENGTH="; FNP(LB); "FEET"
  49. 860 PRINT "ELEMENT SPACING="; FNP(SP); "FEET"
  50. 870 PRINT "PHASING SECTION LENGTH="; FNP(SP); "FEET"
  51. 880 PRINT "FEED POINT IS THE FORWARD RADIATOR"
  52. 890 PRINT "GAIN=6 DB"
  53. 900 PRINT "FRONT/BACK RATIO=15 DB"
  54. 910 PRINT "DRIVE IMPEDANCE=70 OHMS"
  55. 920 PRINT : PRINT "PRESS A KEY FOR MORE"
  56. 930 Q$ = INKEY$: IF Q$ = "" GOTO 930
  57. 940 RETURN
  58. 1200 PRINT : PRINT "FOR ELEMENTS OF 300 OHM TWIN-LEAD"
  59. 1210 PRINT "WITH ENDS FOLDED WITH 2 INCH SPACING TO GIVE SPAN OF";
  60. 1220 PRINT FNP(.292 * LA); "FEET"
  61. 1230 PRINT "FRONT ELEMENT LENGTH="; FNP(.4512 * LA); "FEET"
  62. 1240 PRINT "REAR ELEMENT LENGTH="; FNP(.4797 * LA); "FEET"
  63. 1250 PRINT "SPACING="; FNP(.121 * LA); "FEET"
  64. 1260 PRINT "PHASING SECTION LENGTH="; FNP(.121 * LA); "FEET"
  65. 1270 PRINT "FEED POINT IS AT THE FORWARD RADIATOR"
  66. 1280 PRINT "GAIN=6 DB APPROX."
  67. 1290 PRINT "FRONT/BACK RATIO=12 DB APPROX"
  68. 1300 PRINT "FEED IMPEDANCE=70 OHMS APPROX."
  69. 1310 PRINT "PRESS A KEY FOR MORE"
  70. 1320 Q$ = INKEY$: IF Q$ = "" GOTO 1320
  71. 1330 RETURN
  72. 1600 PRINT : PRINT "FOR THE FOLDED ZL-SPECAL,"
  73. 1610 PRINT " ELEMENTS ARE SHAPED AS FOUR U SECTIONS": PRINT
  74. 1620 PRINT "     AAAAAA AAAAAA       ^"
  75. 1630 PRINT "     B           B    RADIATION"
  76. 1640 PRINT "     B           B"
  77. 1650 PRINT "     CCCCC   CCCCC": PRINT
  78. 1660 PRINT "     EEEEEE EEEEEE"
  79. 1670 PRINT "     F           F"
  80. 1680 PRINT "     F           F"
  81. 1690 PRINT "     GGGGG   GGGGG": PRINT
  82. 1700 PRINT " AA AND EE ARE CONNECTED BY A PHASING "
  83. 1710 PRINT "SECTION WITH A 180 DEG TWIST"
  84. 1720 PRINT : PRINT "PRESS A KEY TO CONTINUE"
  85. 1730 Q$ = INKEY$: IF Q$ = "" THEN 1730
  86. 1740 PRINT : PRINT "DIMENSIONS IN FEET ARE"
  87. 1750 PRINT : PRINT " LENGTH OF AAAAAA="; FNP(.0805 * LA)
  88. 1760 PRINT " LENGTH OF BB="; FNP(.0722 * LA)
  89. 1770 PRINT " LENGTH OF CCCCC="; FNP(.0794 * LA)
  90. 1780 PRINT " SEPARATION, C-E="; FNP(8.999999E-03 * LA)
  91. 1790 PRINT " LENGTH OF EEEEEE="; FNP(.0794 * LA)
  92. 1800 PRINT " LENGTH OF FF="; FNP(.0745 * LA)
  93. 1810 PRINT " LENGTH OF GGGGG="; FNP(.072 * LA)
  94. 1820 PRINT " LENGTH OF PHASING SECTION="; FNP(.1034 * LA)
  95. 1830 PRINT : PRINT "PRESS A KEY TO CONTINUE"
  96. 1840 Q$ = INKEY$: IF Q$ = "" GOTO 1840
  97. 1850 DS = .25 * INT(28 / FO + .5)
  98. 1860 IF DS = 0 THEN DS = .25
  99. 1870 DS = .25 * INT(28 / FO + .5)
  100. 1880 IF DS = 0 THEN DS = .25
  101. 1900 PRINT "DIAMETER OF SECTIONS AAAAAA AND EEEEEE ARE"; DS; "INCHES"
  102. 1910 PRINT "OTHER SECTIONS HALF THIS"
  103. 1920 PRINT "DRIVE IMPEDANCE=48 OHMS"
  104. 1930 PRINT "GAIN=4 DB APPROX."
  105. 1940 PRINT "F-B RATIO=10 DB APPROX."
  106. 1950 PRINT "TURNING RADIUS="; FNP(.102 * LA + .15); "FEET"
  107. 1960 PRINT : PRINT "PRESS A KEY TO CONTINUE"
  108. 1970 Q$ = INKEY$: IF Q$ = "" THEN 1970
  109. 1980 RETURN
  110.  
  111.