home *** CD-ROM | disk | FTP | other *** search
/ Antennas / Antennas_CD-ROM_Walnut_Creek_September_1996.iso / w4mb / vol2 / basic / wged.asc < prev    next >
Text File  |  1996-06-30  |  11KB  |  232 lines
  1. 2 ON ERROR GOTO 60000
  2. 3 CLS
  3. 10 PRINT "   ***************************************************************"
  4. 20 PRINT "   *                    OPEN WAVEGUIDE ANTENNA                   *"
  5. 30 PRINT "   *             EVANS AND JESSUP, RSGB VHF-UHF MANUAL           *
  6. 40 PRINT "   *                PROGRAM BY  R.P. HAVILAND, W4MB              *"
  7. 50 PRINT "   *                       COPYRGHT 1990                         *"
  8. 60 PRINT "   *          MINILAB BOOKS, DAYTONA BEACH, FL 32121-1086        *"
  9. 70 PRINT "   ***************************************************************"
  10. 80 DEF FNP(X)=INT(1000*X+.5)/1000
  11. 90 PI=3.141592
  12. 200 PRINT " THE OPEN END OF A WAVEGUIDE WILL RADIATE AS AN ANTENNA."
  13. 210 PRINT "  SUCH DEVICES ARE OFTEN USED AS THE FEED FOR A PARABOLIC DISH,"
  14. 220 PRINT "   BUT ARE PRACTICAL AS MODEST GAIN ANTENNAS."
  15. 230 PRINT " THIS PROGRAM GIVES DATA ON THREE SUCH TYPES OF ANTENNAS."
  16. 300 PRINT 
  17. 310 INPUT "ENTER OPERATING FREQUENCY, MHZ";FO
  18. 320 LAMCM=299.8/FO*100  'CM
  19. 330 LAMIN=LAMCM*.3937 'INCHES
  20. 400 PRINT
  21. 410 PRINT " ENTER 1= SIMPLE RECTANGULAR WAVEGUIDE ANTENNA"
  22. 420 PRINT "       2= MATCHED RECTANGULAR WAVEGUIDE ANTENNA"
  23. 430 PRINT "       3= SIMPLE CIRCULAR WAVEGUIDE ANTENNA"
  24. 440 PRINT "       4= CHOKE-WAVEGUIDE ANTENNA/FEED"
  25. 450 PRINT "       5= SCHEMATIC OF ANTENNAS"
  26. 460 PRINT "       6= QUIT"
  27. 500 INPUT "ENTER TYPE";TE
  28. 510 IF TE=1 THEN GOSUB 1000
  29. 520 IF TE=2 THEN GOSUB 2000
  30. 530 IF TE=3 THEN GOSUB 3000
  31. 540 IF TE=4 THEN GOSUB 4000
  32. 550 IF TE=5 THEN GOSUB 5000
  33. 560 IF TE=6 THEN STOP
  34. 600 CLS
  35. 610 GOTO 400
  36. 1000 CLS: PRINT "         OPEN END RECTANGULAR WAVEGUIDE"
  37. 1010 PRINT " PRACTICAL MINIMUM, MAXIMUM WIDTH OF RECTANGULAR GUIDE "
  38. 1020 PRINT,"=" ,FNP(.6*LAMCM),FNP(.95*LAMCM),"CM"
  39. 1030 PRINT,"=" ,FNP(.6*LAMIN),FNP(.95*LAMIN),"INCHES"
  40. 1040 INPUT "ENTER DESIGN WAVEGUIDE WIDTH, INCHES";INGA
  41. 1050 INGB=.5*INGA
  42. 1060 LAMGIN=LAMIN/SQR(1-(LAMIN/2/INGA)^2)
  43. 1070 LAMGCM=LAMGIN/.3937
  44. 1080 PRINT " DESIGN WAVEGUIDE HEIGHT ASSUMED TO BE";INGB;"INCHES
  45. 1090 PRINT "  WAVELENGTH IN GUIDE=";FNP(LAMGCM);"CM"
  46. 1100 PRINT "                     =";FNP(LAMGIN);"INCHES"
  47. 1200 PRINT " MINIMUM LENGTH OF ANTENNA RESONATOR"
  48. 1210 PRINT "                    =";FNP(LAMGCM+.25*LAMGCM);"CM"
  49. 1220 PRINT "                    =";FNP(LAMGIN+.25*LAMGIN);"INCHES"
  50. 1230 PRINT " DISTANCE FROM SHORTED END TO COAX FEED POINT"
  51. 1240 PRINT "                    =";FNP(.25*LAMGCM);"CM"
  52. 1250 PRINT "                    =";FNP(.25*LAMGIN);"INCHES"
  53. 1260 PRINT "   BEST DESIGN MAKES SHORTED END POSITION ADJUSTABLE"
  54. 1400 GAIN=2.3*LOG(5*(INGA/LAMGIN)^2)
  55. 1410 EBW3=56*LAMIN/INGA
  56. 1420 EBW10=88*LAMIN/INGB
  57. 1430 HBW3=67*LAMIN/INGA
  58. 1440 HBW10=31+79*LAMIN/INGB
  59. 1500 PRINT "THE FOLLOWING VALUES ARE BASED ON APPROXIMATIONS:"
  60. 1600 PRINT " E-PLANE BEAMWIDTH=";FNP(EBW3);"DEGREES AT -3 DB"
  61. 1610 IF EBW10<360 THEN PRINT "                 =";FNP(EBW10);"DEGREES AT -10 DB"
  62. 1620 IF EBW10>360 THEN PRINT "     WITH EXTENSIVE BACK LOBES"
  63. 1630 PRINT " H-PLANE BEAMWIDTH=";FNP(HBW3);"DEGREES AT -3 DB"
  64. 1640 IF HBW10<360 THEN PRINT "                 =";FNP(HBW10);"DEGREES AT -10 DB"
  65. 1650 IF HBW10>360 THEN PRINT "     WITH EXTENSIVE BACK LOBES"
  66. 1660 PRINT " GAIN=";FNP(GAIN);"DB"
  67. 1900 INPUT "PRESS RETURN TO CONTINUE";T$
  68. 1999 RETURN
  69. 2000 CLS: PRINT "     STEP-MATCHED RECTANGULAR WAVEGUIDE"
  70. 2010 PRINT " PRACTICAL MINIMUM, MAXIMUM WIDTH OF RECTANGULAR GUIDE "
  71. 2020 PRINT,"=" ,FNP(.6*LAMCM),FNP(.95*LAMCM),"CM"
  72. 2030 PRINT,"=" ,FNP(.6*LAMIN),FNP(.95*LAMIN),"INCHES"
  73. 2040 INPUT "ENTER DESIGN WAVEGUIDE WIDTH, INCHES";INGA
  74. 2050 INGB=.5*INGA
  75. 2060 CMGA=INGA*2.54
  76. 2070 CMGB=INGB*2.54
  77. 2090 LAMGIN=LAMIN/SQR(1-(LAMIN/2/INGA)^2)
  78. 2100 LAMGCM=LAMGIN/.3937
  79. 2110 PRINT " DESIGN WAVEGUIDE HEIGHT ASSUMED TO BE";INGB;"INCHES
  80. 2120 PRINT "   WAVELENGTH IN GUIDE=";FNP(LAMGCM);"CM"
  81. 2130 PRINT "                     =";FNP(LAMGIN);"INCHES"
  82. 2200 PRINT " MINIMUM LENGTH OF ANTENNA RESONATOR"
  83. 2210 PRINT "                    =";FNP(LAMGCM+.25*LAMGCM);"CM"
  84. 2220 PRINT "                    =";FNP(LAMGIN+.25*LAMGIN);"INCHES"
  85. 2230 PRINT " DISTANCE FROM SHORTED END TO COAX FEED POINT"
  86. 2240 PRINT "                    =";FNP(.25*LAMGCM);"CM"
  87. 2250 PRINT "                    =";FNP(.25*LAMGIN);"INCHES"
  88. 2260 PRINT "   BEST DESIGN MAKES SHORTED END POSITION ADJUSTABLE"
  89. 2270 INPUT "PRESS RETURN TO CONTINUE";T$
  90. 2300 ZG=377*LAMGIN/LAMIN*2*INGB/INGA
  91. 2310 PRINT " WAVEGUIDE IMPEDANCE=";FNP(ZG);"OHMS"
  92. 2320 ZM=SQR(377*ZG)
  93. 2330 PRINT " MATCHING SECTION IMPEDANCE=";FNP(ZM);"OHMS"
  94. 2340 CMMA=LAMCM/2/SQR(1-1/(ZM/377)^2)
  95. 2350 INMA=CMMA*.3937
  96. 2360 LAMMCM=LAMCM/SQR(1-(LAMCM/2/CMMA)^2)
  97. 2370 LAMMIN=LAMMCM*.3937
  98. 2380 INMB=INMA/2
  99. 2400 PRINT " REQUIRED MATCHING SECTION"
  100. 2410 PRINT "            WIDTH     =";FNP(CMMA);"CM"
  101. 2420 PRINT "                      =";FNP(INMA);"INCHES"
  102. 2430 PRINT "            HEIGHT    =";FNP(.5*CMMA);"CM"
  103. 2440 PRINT "                      =";FNP(.5*INMA);"INCHES"
  104. 2450 PRINT "            LENGTH    =";FNP(.5*CMMA);"CM"
  105. 2460 PRINT "                      =";FNP(.5*INMA);"INCHES"
  106. 2500 PRINT "THE FOLLOWING VALUES ARE BASED ON APPROXIMATIONS:"
  107. 2510 EBW3=56*LAMIN/INMA
  108. 2520 EBW10=88*LAMIN/INMB
  109. 2530 HBW3=67*LAMIN/INMA
  110. 2540 HBW10=31+79*LAMIN/INMB
  111. 2600 PRINT " E-PLANE BEAMWIDTH=";FNP(EBW3);"DEGREES AT -3 DB"
  112. 2610 IF EBW10<360 THEN PRINT "                 =";FNP(EBW10);"DEGREES AT -10 DB"
  113. 2620 IF EBW10>360 THEN PRINT "     WITH EXTENSIVE BACK LOBES"
  114. 2630 PRINT " H-PLANE BEAMWIDTH=";FNP(HBW3);"DEGREES AT -3 DB"
  115. 2640 IF HBW10<360 THEN PRINT "                 =";FNP(HBW10);"DEGREES AT -10 DB"
  116. 2650 IF HBW10>360 THEN PRINT "     WITH EXTENSIVE BACK LOBES"
  117. 2660 PRINT " GAIN=";FNP(GAIN);"DB"
  118. 2700 PRINT "   ALTERNATE DESIGNS WITH HEIGHT OF MATCH AND GUIDE SECTIONS EQUAL,"
  119. 2710 PRINT "     OR WITH WIDTH OF MATCH AND GUIDE SECTIONS EQUAL"
  120. 2720 PRINT "       CAN BE USED."
  121. 2730 PRINT"     USE A 1.5 WAVELENGTH MATCHING SECTION FOR PATTERN SHAPING"
  122. 2900 INPUT "PRESS RETURN TO CONTINUE";T$
  123. 2999 RETURN
  124. 3000 CLS:PRINT "         OPEN-END CIRCULAR WAVEGUIDE"
  125. 3010 PRINT " PRACTICAL MINIMUM, MAXIMUM DIAMETER OF CIRCULAR GUIDE "
  126. 3020 PRINT,"=" ,FNP(.586*LAMCM),FNP(.95*LAMCM),"CM"
  127. 3030 PRINT,"=" ,FNP(.586*LAMIN),FNP(.95*LAMIN),"INCHES"
  128. 3040 INPUT "ENTER DESIGN WAVEGUIDE DIAMETER, INCHES";INGA
  129. 3050 INGB=.5*INGA
  130. 3060 LAMGIN=LAMIN/SQR(1-(LAMIN/2/INGA)^2)
  131. 3070 LAMGCM=LAMGIN/.3937
  132. 3200 PRINT " MINIMUM LENGTH OF ANTENNA RESONATOR"
  133. 3210 PRINT "                    =";FNP(LAMGCM+.25*LAMGCM);"CM"
  134. 3220 PRINT "                    =";FNP(LAMGIN+.25*LAMGIN);"INCHES"
  135. 3230 PRINT " DISTANCE FROM SHORTED END TO COAX FEED POINT"
  136. 3240 PRINT "                    =";FNP(.25*LAMGCM);"CM"
  137. 3250 PRINT "                    =";FNP(.25*LAMGIN);"INCHES"
  138. 3260 PRINT "   BEST DESIGN MAKES SHORTED END POSITION ADJUSTABLE"
  139. 3400 GAIN=2.3*LOG(5*(INGA/LAMGIN)^2)
  140. 3410 EBW3=60*LAMIN/INGA
  141. 3420 EBW10=90*LAMIN/INGB
  142. 3430 HBW3=70*LAMIN/INGA
  143. 3440 HBW10=110*LAMIN/INGB
  144. 3500 PRINT "THE FOLLOWING VALUES ARE BASED ON APPROXIMATIONS:"
  145. 3600 PRINT " E-PLANE BEAMWIDTH=";FNP(EBW3);"DEGREES AT -3 DB"
  146. 3610 IF EBW10<360 THEN PRINT "                 =";FNP(EBW10);"DEGREES AT -10 DB"
  147. 3620 IF EBW10>360 THEN PRINT "     WITH EXTENSIVE BACK LOBES"
  148. 3630 PRINT " H-PLANE BEAMWIDTH=";FNP(HBW3);"DEGREES AT -3 DB"
  149. 3640 IF HBW10<360 THEN PRINT "                 =";FNP(HBW10);"DEGREES AT -10 DB"
  150. 3650 IF HBW10>360 THEN PRINT "     WITH EXTENSIVE BACK LOBES"
  151. 3660 PRINT " GAIN=";FNP(GAIN);"DB"
  152. 3900 INPUT "PRESS RETURN TO CONTINUE";T$
  153. 3999 RETURN
  154. 4000 CLS
  155. 4010 PRINT " LENGTH OF GUIDE SECTION=";FNP(1.842*LAMCM);"CM"
  156. 4020 PRINT "   END TO FEED FLANGE   =";FNP(1.842*LAMIN);"INCHES"
  157. 4030 PRINT " INNER RADIUS OF GUIDE=";FNP(.85*LAMCM);"CM"
  158. 4040 PRINT "                      =";FNP(.85*LAMIN);"IN"
  159. 4050 PRINT " WIDTH OF CHOKE SLOTS=";FNP(.222*LAMCM);"CM"
  160. 4060 PRINT "                     =";FNP(.222*LAMIN);"IN"
  161. 4100 PRINT " WIDTH OF CHOKE SEPARATORS=";FNP(.042*LAMCM);"CM"
  162. 4110 PRINT "                          =";FNP(.042*LAMIN);"INCHES"
  163. 4200 PRINT " DEPTH OF INNER CHOKE SLOT=";FNP(.203*LAMCM);"CM"
  164. 4210 PRINT "                          =";FNP(.203*LAMIN);"INCHES"
  165. 4220 PRINT " DEPTH OF REMAINING 3 CHOKE SLOTS=";FNP(.197*LAMCM);"CM"
  166. 4230 PRINT "                                 =";FNP(.197*LAMIN);"INCHES"
  167. 4300 PRINT " DISTANCE, END OF WAVEGUIDE=";FNP(.378*LAMCM);"CM" 
  168. 4310 PRINT "   TO FRONT OF CHOKE       =";FNP(.378*LAMIN);"INCHES"
  169. 4400 PRINT " WALL THICKNESS AS CONVENIENT"
  170. 4410 PRINT
  171. 4500 PRINT " 10 DEGREE BEAMDIDH 130 DEGREES"
  172. 4600 PRINT "   DESIGN IS EXCELLENT FOR HORN ILLUMINATION"
  173. 4610 PRINT 
  174. 4990 INPUT " PRESS RETURN TO CONTINUE";T$
  175. 4999 RETURN
  176. 5000 CLS
  177. 5010 PRINT "   SIMPLE WAVEGUIDE ANTENNA, LOA=1.25 WAVELENGTHS"
  178. 5020 PRINT 
  179. 5030 PRINT "            SSS "
  180. 5040 PRINT "            SCS"
  181. 5050 PRINT "       GGGGGGCGGGGGGGGGGGGGGGGGGGGG"
  182. 5060 PRINT "       G     C"
  183. 5070 PRINT "       G     C"
  184. 5080 PRINT "       GGGGGGCGGGGGGGGGGGGGGGGGGGGG"
  185. 5090 PRINT "            SCS"
  186. 5100 PRINT "            SCS"
  187. 5110 PRINT "       COAX      FEED"
  188. 5120 PRINT "     ADJUSTABLE SHORT AT TOP END"
  189. 5130 PRINT 
  190. 5140 PRINT 
  191. 5150 INPUT "PRESS RETURN TO CONTINUE";T$
  192. 5160 CLS 
  193. 5200 PRINT 
  194. 5210 PRINT "   MATCHED WAVEGUIDE ANTENNA, LOA=1.5 WAVELENGTHS"
  195. 5220 PRINT 
  196. 5230 PRINT "            SSS"
  197. 5240 PRINT "            SCS                    GGGGG"
  198. 5250 PRINT "       GGGGGGCGGGGGGGGGGGGGGGGGGGGGG"
  199. 5260 PRINT "       G     C"
  200. 5270 PRINT "       G     C"
  201. 5280 PRINT "       GGGGGGCGGGGGGGGGGGGGGGGGGGGGG"
  202. 5290 PRINT "            SCS                    GGGGG"
  203. 5300 PRINT "            SCS"
  204. 5310 PRINT "      COAX         FEED              QUARTER-WAVE MATCHING SECTION"
  205. 5320 PRINT "   ADJUSTABLE SHORT AT TOP END"
  206. 5330 PRINT 
  207. 5340 INPUT "PRESS RETURN TO CONTINUE";T$
  208. 5350 CLS 
  209. 5500 PRINT 
  210. 5510 PRINT "         HALF OF CHOKE ANTENNA/FEED"
  211. 5520 PRINT
  212. 5530 PRINT "       ----F---------------------------------- LINE OF SYMMETRY"
  213. 5540 PRINT "           F
  214. 5550 PRINT "FEED       F                                    RADIATING"
  215. 5560 PRINT "END        F                                          END"
  216. 5570 PRINT "           FWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW"
  217. 5590 PRINT "           F                  C____"
  218. 5600 PRINT "                              C____           W- WALL OF GUIDE"
  219. 5610 PRINT "                              C____           F- JUNCTION FLANGE"
  220. 5620 PRINT "                              C____           C- CHOKE BASE"
  221. 5630 PRINT "
  222. 5640 PRINT
  223. 5650 PRINT "                                          ____ ARE CHOKE SEPARATORS"
  224. 5660 PRINT
  225. 5670 PRINT " GUIDE IS ROTATED ABOUT AXIS OF SYMMETRY."
  226. 5680 PRINT "  SEE PART 4 FOR DIMENSIONS"
  227. 5690 PRINT
  228. 5900 INPUT " PRESS RETURN TO CONTINUE";T$
  229. 5999 RETURN            
  230. 60000 PRINT "ERROR";ERR;"AT LINE";ERL
  231. 60010 STOP
  232.