home *** CD-ROM | disk | FTP | other *** search
/ Antennas / Antennas_CD-ROM_Walnut_Creek_September_1996.iso / w4mb / vol2 / basic / mhbb.asc < prev    next >
Text File  |  1996-06-30  |  19KB  |  384 lines
  1. 1 CLS
  2. 2 ON ERROR GOTO 60000
  3. 10 DIM F(10), RR(10), XR(10), ZR(10), SW(10)
  4. 20 PRINT "   **************************************************************"
  5. 30 PRINT "   *                  BROAD-BAND MF/HF DIPOLES                  *"
  6. 40 PRINT "   *              REFERENCE-WITT, QST OCTOBER 1986              *"
  7. 50 PRINT "   *                   JASIK, ANTENNA HANDBOOK                  *"
  8. 60 PRINT "   *            SCHELKUNOFF, ELECTROMAGNETIC WAVES 1985         *"
  9. 70 PRINT "   *                   PROGRAM COPYRIGHT, 1991                  *"
  10. 80 PRINT "   *           MINILAB BOOKS, DAYTONA BEACH,FL 32121-1086       *"
  11. 90 PRINT "   **************************************************************"
  12. 100 PRINT
  13. 110 DEF FNP (X) = INT(100 * X + .5) / 100
  14. 120 DEF FNASIN (X) = ATN(X / SQR(1 - X * X))
  15. 130 PI = 3.141593
  16. 140 DEF FNACOS (X) = PI / 2 - ATN(X / SQR(1 - X * X))
  17. 150 INPUT " ENTER Y FOR PRINTED COPY"; P$: IF P$ = "y" THEN P$ = "Y"
  18. 160 IF P$ = "Y" THEN LPRINT "   BROADBAND ANTENNA": LPRINT
  19. 200 INPUT "  ENTER DESIGN FREQUENCY, MHZ"; FO: IF FO < 1 OR FO > 30 THEN 200
  20. 210 INPUT " ENTER BASIC CONDUCTOR DIAMETER, INCHES"; DIAC
  21. 220 PRINT :  PRINT "ENTER TYPE OF BROADBANDING"
  22. 230 PRINT "        1= NONE"
  23. 240 PRINT "        2= QUARTER WAVE SHORT/OPEN COAX RESONATOR"
  24. 250 PRINT "        3= HALF WAVE OPEN COAX RESONATOR"
  25. 260 PRINT "        4= HALF WAVE SHORTED COAX RESONATOR"
  26. 270 PRINT "        5= DOUBLE BAZOOKA (2 HALF-WAVE RESONATORS)"
  27. 280 PRINT "        6= LC NETWORK"
  28. 290 INPUT TYR: IF TYR < 1 OR TYR > 6 THEN 220
  29. 300 INPUT " ENTER FEED-LINE COAX IMPEDANCE, OHMS"; FZO
  30. 310 IF TYR = 6 OR TYR = 1 THEN 360
  31. 320 INPUT "  ENTER RESONATOR COAX SHIELD DIAMETER,INCHES"; CSDIA
  32. 330 INPUT "   ENTER RESONATOR COAX VELOCITY FACTOR"; CVF
  33. 340 INPUT "    ENTER RESONATOR COAX LOSS, DB/100 FEET"; CLOSS
  34. 350 INPUT "     ENTER RESONATOR COAX IMPEDANCE, OHMS"; ZS
  35. 360 PRINT " THE BASIC DIPOLE CHARACTERISTICS ARE;": PRINT
  36. 370 IF P$ = "Y" THEN LPRINT " THE BASIC DIPOLE CHARACTERISTICS ARE;"
  37. 400 LAM = 984 / FO
  38. 410 LD = LAM / 2
  39. 420 DEFF = DIAC
  40. 430 IF TYR = 5 THEN 450
  41. 440 LCX = LD * CVF: IF TYR = 2 THEN LCX = LCX / 2
  42. 450 DEFF = (LCX * CSDIA + DIAC * (LD - LCX)) / LD
  43. 460 KR = 12 * LD / DEFF
  44. 470 LR = 1 - 1 / (4.6719 * LOG(KR) - 8)
  45. 480 TV = LAM * LR / 2
  46. 490 IF ABS(LD - TV) > .00001 THEN LD = TV: GOTO 420
  47. 500 PRINT : PRINT " THE FREE-SPACE WAVELENGTH="; FNP(LAM); "FEET"
  48. 510 IF P$ = "Y" THEN LPRINT : LPRINT " THE FREE -SPACE WAVELENGTH="; FNP(LAM); "FEET"
  49. 520 PRINT "  THE AVERAGE DIAMETER IS"; DEFF; "INCHES"
  50. 530 IF P$ = "Y" THEN LPRINT "  THE AVERAGE DIAMETER IS"; DEFF; "INCHES"
  51. 540 PRINT "   THE LENGTH-DIAMETER RATIO IS"; FNP(KR)
  52. 550 PRINT
  53. 560 PRINT " ANTENNA LENGTH="; FNP(.95 * LD); "FEET"
  54. 570 IF P$ = "Y" THEN LPRINT "  THE LENGTH-DIAMETER RATIO IS"; FNP(KR)
  55. 580 IF P$ = "Y" THEN LPRINT : LPRINT " ANTENNA LENGTH="; FNP(.95 * LD); "FEET"
  56. 590 INPUT "PRESS RETURN FOR MORE"; T$
  57. 700 PRINT : PRINT " UNCOMPENSATED FEED VALUES AND FEED LINE SWR ARE"
  58. 710 PRINT : PRINT " FREQUENCY  RESISTANCE  REACTANCE  SWR"
  59. 720 IF P$ = "Y" THEN LPRINT : LPRINT " UNCOMPENSATED FEED VALUES AND FEED LINE SWR ARE"
  60. 730 IF P$ = "Y" THEN LPRINT " FREQUENCY  RESISTANCE  REACTANCE  SWR"
  61. 740 LSF = 0: USF = 0
  62. 750 FOR N = .9 TO 1.1 STEP .02
  63. 760 M = 50 * (N - .9)
  64. 770 F(M) = N * FO
  65. 780 RR = 17.32 + 30 * LOG(2 * PI * LR * N): RR(M) = RR
  66. 790 XR = (18.6777 * LOG(KR) + 32) * (N - 1) / .1: XR(M) = XR
  67. 800 ZR = SQR(RR * RR + XR * XR): ZR(M) = ZR
  68. 820 RC = SQR(((RR - FZO) * (RR - FZO) + XR * XR) / ((RR + FZO) * (RR + FZO) + XR * XR))
  69. 830 SW = (1 + RC) / (1 - RC): SW(M) = SW
  70. 840 IF N < 1 AND LSF = 0 THEN IF SW < 2 THEN LSF = (SW(M - 1) - 2) / (SW(M - 1) - SW(M)) * .02 * FO + F(M - 1)
  71. 850 IF N > 1 AND USF = 0 THEN IF SW > 2 THEN USF = (2 - SW(M - 1)) / (SW(M) - SW(M - 1)) * .02 * FO + F(M - 1)
  72. 860 PRINT FNP(N * FO), FNP(RR), FNP(XR), FNP(SW)
  73. 870 IF P$ = "Y" THEN LPRINT FNP(N * FO), FNP(RR), FNP(XR), FNP(SW)
  74. 880 NEXT N
  75. 890 QA = FO / ABS(USF - LSF)
  76. 900 PRINT "  2:1 SWR BANDWIDTH LIMITS ="; FNP(LSF); "AND"; FNP(USF); "MHZ"
  77. 910 IF P$ = "Y" THEN LPRINT " 2:1 SWR BANDWIDTH LIMITS="; FNP(LSF), FNP(USF); "MHZ"
  78. 920 BWD = USF - LSF
  79. 930 PRINT " BANDWIDTH OF SIMPLE DIPOLE="; INT(BWD * 1000); "KHZ"
  80. 940 IF P$ = "Y" THEN LPRINT " BANDWIDTH OF SIMPLE DIPOLE="; INT(BWD * 1000); "KHZ"
  81. 950 PRINT "        ANTENNA Q FOR 2:1 BANDWIDTH="; INT(QA)
  82. 960 IF P$ = "Y" THEN LPRINT "        ANTENNA Q FOR 2:1 BANDWIDTH="; INT(QA)
  83. 970 PRINT
  84. 980 INPUT " PRESS RETURN FOR MORE"; T$
  85. 990 ON TYR GOTO 1000, 2000, 3000, 4000, 5000, 6000
  86. 1000 CLS  'RERUNS
  87. 1010 PRINT "  ENTER 1= SET PRINTER OUTPUT AND REPEAT OUTPUT"
  88. 1020 PRINT "        2= CHANGE FREQUENCY (RERUN)"
  89. 1030 PRINT "        3= CHANGE BROAD-BANDING TYPE"
  90. 1040 PRINT "        4= CHANGE FEED COAX IMPEDANCE"
  91. 1050 PRINT "        5= CHANGE RESONATOR COAX DIAMETER"
  92. 1060 PRINT "        6= SEE ANTENNA SCHEMATICS, SCREEN ONLY"
  93. 1070 PRINT "        7= QUIT"
  94. 1100 INPUT TEM: IF TEM < 1 OR TEM > 7 THEN 1000
  95. 1110 ON TEM GOTO 1200, 200, 220, 300, 320, 7000, 1999
  96. 1200 P$ = "Y"
  97. 1210 GOTO 500
  98. 1999 STOP
  99. 2000 CLS  'QUARTER WAVE
  100. 2010 GOSUB 8000
  101. 2020 X = SQR(PI * ZN / 4 / ZS)
  102. 2030 IF X = 0 THEN X = .0000001
  103. 2040 L2 = 492 * CVF / PI / FO * FNASIN(X)
  104. 2050 L1 = 246 * CVF / FO - L2
  105. 2060 PRINT " FOR THE OPEN END SECTION, COAX LENGTH L1="; FNP(L1); "FEET"
  106. 2070 PRINT "   REMAINING CONDUCTOR LENGTH="; .475 * LD - L1; "FEET"
  107. 2080 PRINT " FOR THE SHORTED END SECTION, COAX LENGTH L2="; FNP(L2); "FEET"
  108. 2090 PRINT "   REMAINING CONDUCTOR LENGTH="; .475 * LD - L2; "FEET"
  109. 2100 IF P$ <> "Y" THEN 2800
  110. 2200 LPRINT " FOR THE OPEN END SECTION, COAX LENGTH L1="; FNP(L1); "FEET"
  111. 2210 LPRINT "   REMAINING CONDUCTOR LENGTH="; .475 * LD - L1; "FEET"
  112. 2220 LPRINT " FOR THE SHORTED END SECTION, COAX LENGTH L2="; FNP(L2); "FEET"
  113. 2230 LPRINT "   REMAINING CONDUCTOR LENGTH="; .475 * LD - L2; "FEET"
  114. 2800 GOSUB 9000
  115. 2990 INPUT " PRESS RETURN TO CONTINUE"; T$
  116. 2999 GOTO 1000
  117. 3000 CLS  'HALF WAVE SHORTED
  118. 3010 GOSUB 8000
  119. 3020 X = SQR(PI * ZN / 2 / ZS)
  120. 3030 IF X = 0 THEN X = .0000001
  121. 3040 L1 = 492 * CVF / PI / FO * FNACOS(X)
  122. 3050 L2 = 492 * CVF / FO - L1
  123. 3060 PRINT " FOR THE SHORTER SECTION, COAX LENGTH L1="; FNP(L1); "FEET"
  124. 3070 PRINT "   REMAINING CONDUCTOR LENGTH="; .475 * LD - L1; "FEET"
  125. 3080 PRINT " FOR THE LONGER SECTION, COAX LENGTH L2="; FNP(L2); "FEET"
  126. 3090 PRINT "   REMAINING CONDUCTOR LENGTH="; .475 * LD - L2; "FEET"
  127. 3100 IF P$ <> "Y" THEN 3800
  128. 3200 LPRINT " FOR THE SHORTER SECTION, COAX LENGTH L1="; FNP(L1); "FEET"
  129. 3210 LPRINT "   REMAINING CONDUCTOR LENGTH="; .475 * LD - L1; "FEET"
  130. 3220 LPRINT " FOR THE LONGER SECTION, COAX LENGTH L2="; FNP(L2); "FEET"
  131. 3230 LPRINT "   REMAINING CONDUCTOR LENGTH="; .475 * LD - L2; "FEET"
  132. 3800 GOSUB 9000
  133. 3990 INPUT " PRESS RETURN TO CONTINUE"; T$
  134. 3999 GOTO 1000
  135. 4000 CLS  'HALF WAVE OPEN
  136. 4010 GOSUB 8000
  137. 4020 X = SQR(PI * ZN / 2 / ZS)
  138. 4030 IF X = 0 THEN X = .0000001
  139. 4040 L2 = 492 * CVF / PI / FO * FNACOS(X)
  140. 4050 L1 = 492 * CVF / FO - L1
  141. 4060 PRINT " FOR THE OPEN END SECTION, COAX LENGTH L1="; FNP(L1); "FEET"
  142. 4070 PRINT "   REMAINING CONDUCTOR LENGTH="; .475 * LD - L1; "FEET"
  143. 4080 PRINT " FOR THE SHORTED END SECTION, COAX LENGTH L2="; FNP(L2); "FEET"
  144. 4090 PRINT "   REMAINING CONDUCTOR LENGTH="; .475 * LD - L2; "FEET"
  145. 4100 IF P$ <> "Y" THEN 4800
  146. 4200 LPRINT " FOR THE OPEN END SECTION, COAX LENGTH L1="; FNP(L1); "FEET"
  147. 4210 LPRINT "   REMAINING CONDUCTOR LENGTH="; .475 * LD - L1; "FEET"
  148. 4220 LPRINT " FOR THE SHORTED END SECTION, COAX LENGTH L2="; FNP(L2); "FEET"
  149. 4230 LPRINT "   REMAINING CONDUCTOR LENGTH="; .475 * LD - L2; "FEET"
  150. 4800 GOSUB 9000
  151. 4990 INPUT " PRESS RETURN TO CONTINUE"; T$
  152. 4999 GOTO 1000
  153. 5000 CLS     'BAZOOKAS
  154. 5010 PRINT " WITH COAX SECTIONS IN SERIES"
  155. 5020 ZS = 2 * ZS
  156. 5030 GOSUB 8000
  157. 5040 L2 = LD * CVF / 2
  158. 5050 L1 = L2
  159. 5060 PRINT " FOR THE RIGHT END SECTION, LENGTH L1="; FNP(L1); "FEET"
  160. 5070 PRINT "   REMAINING CONDUCTOR LENGTH="; .475 * LD - L1; "FEET"
  161. 5080 PRINT " FOR THE LEFT END SECTION, LENGTH L2="; FNP(L2); "FEET"
  162. 5090 PRINT "   REMAINING CONDUCTOR LENGTH="; .475 * LD - L1; "FEET"
  163. 5100 IF P$ <> "Y" THEN 5300
  164. 5110 LPRINT " WITH COAX SECTIONS IN SERIES"
  165. 5200 LPRINT " FOR THE RIGHT END SECTION, LENGTH L1="; FNP(L1); "FEET"
  166. 5210 LPRINT "   REMAINING CONDUCTOR LENGTH="; .475 * LD - L1; "FEET"
  167. 5220 LPRINT " FOR THE LEFT END SECTION, LENGTH L2="; FNP(L2); "FEET"
  168. 5230 LPRINT "   REMAINING CONDUCTOR LENGTH="; .475 * LD - L1; "FEET"
  169. 5300 GOSUB 9000
  170. 5310 INPUT " PRESS RETURN TO CONTINUE"; T$
  171. 5400 PRINT " WITH COAX SECTIONS IN PARALLEL"
  172. 5410 ZS = ZS / 2
  173. 5420 GOSUB 8000
  174. 5430 L2 = LD * CVF / 2
  175. 5440 L1 = L2
  176. 5450 PRINT " FOR THE RIGHT END SECTION, LENGTH L1="; FNP(L1); "FEET"
  177. 5460 PRINT "   REMAINING CONDUCTOR LENGTH="; .475 * LD - L1; "FEET"
  178. 5470 PRINT " FOR THE LEFT END SECTION, LENGTH L2="; FNP(L2); "FEET"
  179. 5480 PRINT "   REMAINING CONDUCTOR LENGTH="; .475 * LD - L2; "FEET"
  180. 5500 IF P$ <> "Y" THEN 5800
  181. 5510 LPRINT " WITH COAX SECTIONS IN SERIES"
  182. 5600 LPRINT " FOR THE RIGHT END SECTION, LENGTH L1="; FNP(L1); "FEET"
  183. 5610 LPRINT "   REMAINING CONDUCTOR LENGTH="; .475 * LD - L1; "FEET"
  184. 5620 LPRINT " FOR THE LEFT END SECTION, LENGTH L2="; FNP(L2); "FEET"
  185. 5630 LPRINT "   REMAINING CONDUCTOR LENGTH="; .475 * LD - L2; "FEET"
  186. 5800 GOSUB 9000
  187. 5810 INPUT " PRESS RETURN TO CONTINUE"; T$
  188. 5820 ZS = 2 * ZS
  189. 5999 GOTO 1000
  190. 6000 CLS   'LC
  191. 6010 GOSUB 8000
  192. 6020 LN = ZN / 2 / PI / FO
  193. 6030 CN = 1000000! / 2 / PI / FO / ZN
  194. 6040 FM = FO / 2 / QA * SQR((SM - 1) * (1 + QA / QN))
  195. 6050 FL = SQR(FO * FO + FM * FM) - FM
  196. 6060 FH = FO * FO / FL
  197. 6100 PRINT
  198. 6110 PRINT " RESONATOR INDUCTANCE="; FNP(LN); "MICROHENRIES"
  199. 6120 PRINT "          CAPACITANCE="; FNP(CN); "PICOFARADS"
  200. 6130 PRINT
  201. 6200 PRINT " COIL IMPEDANCE="; FNP(ZN); "OHMS"
  202. 6210 PRINT "  IMPEDANCE RATIO, ANTENNA TAPS TO COIL="; FNP(ZR / ZN); ":1"
  203. 6220 PRINT "   IMPEDANCE RATIO, LINE TAP TO ANTENNA TAPS ="; FNP(NZ); ":1"
  204. 6230 PRINT " LOWER MATCH FREQUENCY="; FNP(FL); "MHZ"
  205. 6240 PRINT "  UPPER MATCH FREQUENCY="; FNP(FH); "MHZ"
  206. 6250 PRINT
  207. 6300 IF P$ <> "Y" THEN 6800
  208. 6400 LPRINT
  209. 6410 LPRINT " RESONATOR INDUCTANCE="; FNP(LN); "MICROHENRIES"
  210. 6420 LPRINT "          CAPACITANCE="; FNP(CN); "PICOFARADS"
  211. 6430 LPRINT
  212. 6500 LPRINT " COIL IMPEDANCE="; FNP(ZN); "OHMS"
  213. 6510 LPRINT "  IMPEDANCE RATIO, ANTENNA TAPS TO COIL="; FNP(ZR / ZN); ":1"
  214. 6520 LPRINT "   IMPEDANCE RATIO, LINE TAP TO ANTENNA TAPS ="; FNP(NZ); ":1"
  215. 6530 LPRINT " LOWER MATCH FREQUENCY="; FNP(FL); "MHZ"
  216. 6540 LPRINT "  UPPER MATCH FREQUENCY="; FNP(FH); "MHZ"
  217. 6550 LPRINT
  218. 6800 GOSUB 9000
  219. 6810 INPUT " PRESS RETURN TO CONTINUE"; T$
  220. 6820 ZS = 2 * ZS
  221. 6999 GOTO 1000
  222. 7000 CLS   'SCHEMATICS
  223. 7010 PRINT "        SIMPLE DIPOLE"
  224. 7020 PRINT "                                               R-RADIATOR WIRE"
  225. 7030 PRINT "  RRRRRRRRRRRRRRRRRRRR RRRRRRRRRRRRRRRRRRRRR     OR COAX CENTER"
  226. 7040 PRINT "                     F F                       F-FEED COAX"
  227. 7050 PRINT
  228. 7100 PRINT "   TWO QUARTER-WAVE RESONATORS IN SERIES"
  229. 7110 PRINT
  230. 7120 PRINT "        CCCCCCCCCCCCCC CCCCCCCCCCCCCCC          C-COAX SHIELD"
  231. 7130 PRINT "  RRRRRRSRRRRRRRRRRRRR RRRRRRRRRRRRRRSRRRRRR    S-SHORT"
  232. 7140 PRINT "        CCCCCCCCCCCCCC CCCCCCCCCCCCCCC"
  233. 7150 PRINT "                     F F"
  234. 7160 PRINT
  235. 7200 PRINT "   TWO QUARTER-WAVE RESONATORS IN PARALLEL"
  236. 7210 PRINT
  237. 7220 PRINT "        CCCCCCCCCCCCCC CCCCCCCCCCCCCCC "
  238. 7230 PRINT "  RRRRRRSRRRRRRRRRRRRRXRRRRRRRRRRRRRRSRRRRRR    X- SHIELD-CENTER"
  239. 7240 PRINT "        CCCCCCCCCCCCCCXCCCCCCCCCCCCCCC           CROSS CONNECTED"
  240. 7250 PRINT "                     F F"
  241. 7260 PRINT
  242. 7270 INPUT " PRESS RETURN TO CONTINUE"; T$
  243. 7280 CLS
  244. 7300 PRINT "   ASSYMETRIC QUARTER-WAVE RESONATOR"
  245. 7310 PRINT "                                                F-FEED"
  246. 7320 PRINT "        CCCCCCCCCCCCCC CCCCCCO                  C-COAX SHIELD"
  247. 7330 PRINT "  RRRRRRSRRRRRRRRRRRRRXRRRRRRRRRRRRRRRRRRRRR    S-SHIELD-CENTER"
  248. 7340 PRINT "        CCCCCCCCCCCCCCXCCCCCCO                     SHORT"
  249. 7350 PRINT "                     F F                        O- NO SHORT"
  250. 7360 PRINT
  251. 7400 PRINT "   SHORTED ASSYMETRIC HALF-WAVE RESONATOR        R-RADIATOR WIRE"; ""
  252. 7410 PRINT "                                                F-FEED"
  253. 7420 PRINT "                CCCCCC CCCCCCCCCCCCCCCCCCCC"
  254. 7430 PRINT "  RRRRRRRRRRRRRRSRRRRRXRRRRRRRRRRRRRRRRRRRSR    X- SHIELD-CENTER"
  255. 7440 PRINT "                CCCCCCXCCCCCCCCCCCCCCCCCCCC      CROSS CONNECTED"
  256. 7450 PRINT "                     F F"
  257. 7460 PRINT "                                                      NOTE"
  258. 7500 PRINT "   OPEN ASSYMETRIC HALF-WAVE RESONATOR           FOR SIMPLICITY"
  259. 7510 PRINT "                                                 R SECTIONS ARE"
  260. 7520 PRINT "                OCCCCC CCCCCCCCCCCCCCCCCCCO      ASSUMED TO BE"
  261. 7530 PRINT "  RRRRRRRRRRRRRRRRRRRRXRRRRRRRRRRRRRRRRRRRRR     SAME DIAMETER AS"
  262. 7540 PRINT "                OCCCCCXCCCCCCCCCCCCCCCCCCCO      C SECTIONS. THIS"
  263. 7550 PRINT "                     F F                         CAUSES A SMALL"
  264. 7560 PRINT "                                                 ERROR IN BANDWIDTH"
  265. 7570 INPUT " PRESS RETURN TO CONTINUE"; T$
  266. 7580 CLS
  267. 7600 PRINT "         LC MATCHING NETWORK"
  268. 7610 PRINT
  269. 7620 PRINT "            D    D                  D- TAPS TO DIPOLE"
  270. 7630 PRINT "     LLLLLLLLLLLLLLLLLLLLL          L- COIL ON FERRITE"
  271. 7640 PRINT "     W         T     T   W          T- TAPS TO TRANSMISSION LINE"
  272. 7650 PRINT "     W                   W          W- CONNECTING WIRE"
  273. 7660 PRINT "     W                   W          CCC- CAPACITOR"
  274. 7670 PRINT "     WWWWWWWWWCCCWWWWWWWWW "
  275. 7680 PRINT ""
  276. 7690 INPUT " PAPER COPY OF SCHEMATICS, Y/N"; T$
  277. 7800 IF T$ = "Y" THEN GOSUB 10000
  278. 7700 GOTO 1000
  279. 8000 PRINT
  280. 8010 INPUT " ENTER MAXIMUM ALLOWED SWR, NULL=2"; SM
  281. 8020 IF SM = 0 THEN SM = 2
  282. 8030 IF TYR < 6 THEN 8060
  283. 8040 INPUT " ENTER ESTIMATED Q OF LC RESONATOR, 0=200"; QN
  284. 8050 IF QN = 0 THEN QN = 200: GOTO 8070
  285. 8060 QN = 2.78 * FO / CLOSS / CVF
  286. 8070 ZN = RR(5) * SM / QA + RR(5) * (SM - 1) / QN
  287. 8080 NZ = RR(5) / FZO * (SM - QA / (QN + QA))
  288. 8100 IF TYR = 6 THEN 8990
  289. 8110 PRINT " BALUN TRANSFORMER RATIO="; FNP(NZ); ":1 IMPEDANCE RATIO"
  290. 8120 PRINT "                        ="; FNP(SQR(NZ)); ":1 TURNS RATIO"
  291. 8200 IF P$ = "Y" THEN LPRINT " BALUN TRANSFORMER RATIO="; FNP(NZ); ":1 IMPEDANCE RATIO"
  292. 8210 IF P$ = "Y" THEN LPRINT "                        ="; FNP(SQR(NZ)); ":1 TURNS RATIO"
  293. 8990 RETURN
  294. 9000 PRINT
  295. 9010 PRINT " WITH BROADBANDING OF TYPE"
  296. 9020 IF TYR = 2 THEN PRINT " QUARTER WAVE TWO-PART OPEN/SHORTED COAX RESONATOR"
  297. 9030 IF TYR = 3 THEN PRINT " HALF WAVE TWO-PART OPEN COAX RESONATOR"
  298. 9040 IF TYR = 4 THEN PRINT " HALF WAVE TWO-PART SHORTED COAX RESONATOR"
  299. 9050 IF TYR = 5 THEN PRINT " 2 QUARTER-WAVE COAX RESONATORS"
  300. 9060 IF TYR = 6 THEN PRINT " TAPPED COIL-CAPACITOR RESONATOR"
  301. 9100 PRINT
  302. 9110 BW = FO / QN / QA / SQR(SM) * SQR((QN + QA) * ((2 * QN + QA) * SM - QA) * (SM - 1))
  303. 9120 BWIF = BW / BWD
  304. 9130 EFC = 100 * (1 - QA / SM / (QN + QA))
  305. 9140 EFE = 100 * SM * QN * QN / ((QN + QA) * (SM * (QN + QA) - QA))
  306. 9150 PRINT " COMPENSATED BANDWIDTH="; INT(1000 * BW); "KHZ"
  307. 9160 PRINT "  BANDWIDTH IMPROVEMENT="; FNP(BWIF); ":1"
  308. 9170 PRINT " EFFICIENCY AT BAND CENTER= "; INT(EFC); " PERCENT"
  309. 9180 PRINT "  AT SWR="; SM; " BAND EDGES"
  310. 9190 PRINT "                EFFICIENCY= "; INT(EFE); " PERCENT"
  311. 9200 PRINT
  312. 9210 IF P$ <> "Y" THEN 9990
  313. 9300 LPRINT
  314. 9310 LPRINT " WITH BROADBANDING OF TYPE"
  315. 9320 IF TYR = 2 THEN LPRINT " QUARTER WAVE TWO-PART OPEN/SHORTED COAX RESONATOR"
  316. 9330 IF TYR = 3 THEN LPRINT " HALF WAVE TWO-PART OPEN COAX RESONATOR"
  317. 9340 IF TYR = 4 THEN LPRINT " HALF WAVE TWO-PART SHORTED COAX RESONATOR"
  318. 9350 IF TYR = 5 THEN LPRINT " 2 HALF WAVE COAX RESONATORS"
  319. 9360 IF TYR = 6 THEN LPRINT " TAPPED COIL-CAPACITOR RESONATOR"
  320. 9400 LPRINT
  321. 9410 LPRINT " COMPENSATED BANDWIDTH="; INT(1000 * BW); "KHZ"
  322. 9420 LPRINT "  BANDWIDTH IMPROVEMENT="; FNP(BWIF); ":1"
  323. 9430 LPRINT " EFFICIENCY AT BAND CENTER= "; INT(EFC); " PERCENT"
  324. 9440 LPRINT "  AT SWR="; SM; " BAND EDGES"
  325. 9450 LPRINT "                EFFICIENCY= "; INT(EFE); " PERCENT"
  326. 9460 LPRINT
  327. 9990 RETURN
  328. 10000 CLS   ' PRINT SCHEMATICS
  329. 10010 LPRINT "        SIMPLE DIPOLE"
  330. 10020 LPRINT "                                               R-RADIATOR WIRE"
  331. 10030 LPRINT "  RRRRRRRRRRRRRRRRRRRR RRRRRRRRRRRRRRRRRRRRR     OR COAX CENTER"
  332. 10040 LPRINT "                     F F                       F-FEED COAX"
  333. 10050 LPRINT
  334. 10100 LPRINT "   TWO QUARTER-WAVE RESONATORS IN SERIES"
  335. 10101 LPRINT
  336. 10120 LPRINT "        CCCCCCCCCCCCCC CCCCCCCCCCCCCCC          C-COAX SHIELD"
  337. 10130 LPRINT "  RRRRRRSRRRRRRRRRRRRR RRRRRRRRRRRRRRSRRRRRR    S-SHORT"
  338. 10140 LPRINT "        CCCCCCCCCCCCCC CCCCCCCCCCCCCCC"
  339. 10150 LPRINT "                     F F"
  340. 10160 LPRINT
  341. 10200 LPRINT "   TWO QUARTER-WAVE RESONATORS IN PARALLEL"
  342. 10210 LPRINT
  343. 10220 LPRINT "        CCCCCCCCCCCCCC CCCCCCCCCCCCCCC "
  344. 10230 LPRINT "  RRRRRRSRRRRRRRRRRRRRXRRRRRRRRRRRRRRSRRRRRR    X- SHIELD-CENTER"
  345. 10240 LPRINT "        CCCCCCCCCCCCCCXCCCCCCCCCCCCCCC           CROSS CONNECTED"
  346. 10250 LPRINT "                     F F"
  347. 10260 LPRINT
  348. 10300 LPRINT "   ASSYMETRIC QUARTER-WAVE RESONATOR"
  349. 10310 LPRINT "                                                F-FEED"
  350. 10320 LPRINT "        CCCCCCCCCCCCCC CCCCCCO                  C-COAX SHIELD"
  351. 10330 LPRINT "  RRRRRRSRRRRRRRRRRRRRXRRRRRRRRRRRRRRRRRRRRR    S-SHIELD-CENTER"
  352. 10340 LPRINT "        CCCCCCCCCCCCCCXCCCCCCO                     SHORT"
  353. 10350 LPRINT "                     F F                        O- NO SHORT"
  354. 10360 LPRINT
  355. 10400 LPRINT "   SHORTED ASSYMETRIC HALF-WAVE RESONATOR        R-RADIATOR WIRE"; ""
  356. 10410 LPRINT "                                                F-FEED"
  357. 10420 LPRINT "                CCCCCC CCCCCCCCCCCCCCCCCCCC"
  358. 10430 LPRINT "  RRRRRRRRRRRRRRSRRRRRXRRRRRRRRRRRRRRRRRRRSR    X- SHIELD-CENTER"
  359. 10440 LPRINT "                CCCCCCXCCCCCCCCCCCCCCCCCCCC      CROSS CONNECTED"
  360. 10450 LPRINT "                     F F"
  361. 10460 LPRINT "                                                      NOTE"
  362. 10500 LPRINT "   OPEN ASSYMETRIC HALF-WAVE RESONATOR           FOR SIMPLICITY"
  363. 10510 LPRINT "                                                 R SECTIONS ARE"
  364. 10520 LPRINT "                OCCCCC CCCCCCCCCCCCCCCCCCCO      ASSUMED TO BE"
  365. 10530 LPRINT "  RRRRRRRRRRRRRRRRRRRRXRRRRRRRRRRRRRRRRRRRRR     SAME DIAMETER AS"
  366. 10540 LPRINT "                OCCCCCXCCCCCCCCCCCCCCCCCCCO      C SECTIONS. THIS"
  367. 10550 LPRINT "                     F F                         CAUSES A SMALL"
  368. 10560 LPRINT "                                                 ERROR IN BANDWIDTH"
  369. 10600 LPRINT "         LC MATCHING NETWORK"
  370. 10610 LPRINT
  371. 10620 LPRINT "            D    D                  D- TAPS TO DIPOLE"
  372. 10630 LPRINT "     LLLLLLLLLLLLLLLLLLLLL          L- COIL ON FERRITE"
  373. 10640 LPRINT "     W         T     T   W          T- TAPS TO TRANSMISSION LINE"
  374. 10650 LPRINT "     W                   W          W- CONNECTING WIRE"
  375. 10660 LPRINT "     W                   W          CCC- CAPACITOR"
  376. 10670 LPRINT "     WWWWWWWWWCCCWWWWWWWWW "
  377. 10680 LPRINT ""
  378. 10990 RETURN
  379. 11000 END
  380. 60000 PRINT " ERROR"; ERR; "AT LINE"; ERL
  381. 60010 INPUT "PRESS RETURN TO ATTAMPT RECOVERY FROM ERROR"; T$
  382. 60020 GOTO 1000
  383.  
  384.