home *** CD-ROM | disk | FTP | other *** search
/ Antennas / Antennas_CD-ROM_Walnut_Creek_September_1996.iso / w4mb / vol2 / basic / cros.asc < prev    next >
Text File  |  1996-06-30  |  8KB  |  175 lines
  1. 2 ON ERROR GOTO 60000
  2. 3 CLS
  3. 10 PRINT "   **************************************************************"
  4. 20 PRINT "   *                        CROSS ANTENNAS                      *"
  5. 30 PRINT "   *   REFERENCE- ROEDERER, IEEE TRANS ANT. & PROP., MAY 1990   *"
  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(100*X+.5)/100
  11. 90 MTOIN=39.37
  12. 200 PRINT " A CROSS ANTENNA IF FORMED OF THREE OR MORE IDENTICAL U-SHAPED"
  13. 210 PRINT "  ARMS FACING A COMMON CENTER, WITH ADJACENT ENDS JOINED."
  14. 220 PRINT "   THE LONG SIDES ARE ONE-HALF WAVE LONG, AND THE SHORT SIDES"
  15. 230 PRINT "    HAVE A LENGTH OF 360 DEGREES/NO. OF ARMS."
  16. 240 PRINT " THE CROSS MAY BE FED AT THE CENTER OF ANY SIDE, GIVING SIMULTANEOUS"
  17. 250 PRINT "  H AND V POLARIZATION. IT MAY BE FED AGAINST A REFLECTOR, WITH"
  18. 260 PRINT "   A LOAD RESISTOR AT THE END AWAY FROM THE FEED POINT, GIVING"
  19. 270 PRINT "    CIRCULAR POLARIZATION."
  20. 280 PRINT 
  21. 400 PRINT " ENTER 1- SEE DESIGN SKETCH"
  22. 410 PRINT "       2- DO PROTOTYPE DESIGN"
  23. 420 PRINT "       3- SCALE DESIGN TO NEW FREQUENCY"
  24. 430 PRINT "       4- PRINTOUT DESIGN DATA
  25. 440 PRINT "       5- QUIT
  26. 450 INPUT TEM
  27. 460 IF TEM<1 OR TEM >5 THEN 400
  28. 470 ON TEM GOSUB 1000,2000,3000,4000,50000
  29. 480 CLS
  30. 490 GOTO 400
  31. 1000 CLS
  32. 1010 PRINT "  SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS" 
  33. 1020 PRINT "  S                              S"
  34. 1030 PRINT "  S            CCCCC             S     STANDING-WAVE"
  35. 1040 PRINT "  S            C   C             S        FOUR-ARM CROSS"
  36. 1050 PRINT "  S            C   C             S     S- REFLECTOR SCREEN EDGE"
  37. 1060 PRINT "  S            C   C             S     C- CONDUCTOR"
  38. 1070 PRINT "  S    CCCCCCCC     CCCCCCCC     S     F- BALANCED FEED"
  39. 1080 PRINT "  S    C                   C     S"
  40. 1090 PRINT "  S    CCCCCCCC     CCCFFCCC     S     RADIATION IS NORMAL TO" 
  41. 1100 PRINT "  S            C   C             S      REFLECTOR, AND IS" 
  42. 1110 PRINT "  S            C   C             S       BOTH H AND V POLARIZED"
  43. 1120 PRINT "  S            C   C             S"
  44. 1130 PRINT "  S            CCCCC             S"
  45. 1140 PRINT "  S                              S"
  46. 1150 PRINT "  SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS"
  47. 1160 PRINT 
  48. 1170 INPUT "PRESS RETURN FOR MORE";T$
  49. 1400 CLS
  50. 1410 PRINT "  SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS" 
  51. 1420 PRINT "  S                              S"
  52. 1430 PRINT "  S            CCCCC             S     TRAVELING-WAVE"
  53. 1440 PRINT "  S            C   C             S        FOUR-ARM CROSS"
  54. 1450 PRINT "  S            C   C             S     S- REFLECTOR SCREEN EDGE"
  55. 1460 PRINT "  S            C   C             S     C- CONDUCTOR"
  56. 1470 PRINT "  S    CCCCCCCC     CCCCCCCC     S     F- FEED AGAINST SCREEN"
  57. 1480 PRINT "  S    C                   C     S     R- RESISTOR TO SCREEN"
  58. 1490 PRINT "  S    CCCCCCCC     CCCCCCCC     S    NOTE UNBALANCED FEED"
  59. 1500 PRINT "  S            C   C             S"         
  60. 1510 PRINT "  S            C   C             S      RADIATION IS NORMAL TO" 
  61. 1520 PRINT "  S            C   C             S       REFLECTOR, AND IS"
  62. 1530 PRINT "  S            CF RC             S        CIRCULARY POLARIZED"
  63. 1540 PRINT "  S                              S"
  64. 1550 PRINT "  SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS"
  65. 1560 PRINT 
  66. 1570 INPUT "PRESS RETURN FOR MORE";T$
  67. 1999 RETURN
  68. 2000 CLS
  69. 2010 PRINT " DATA FOR 4-ARM PROTOTYPE
  70. 2020 PRINT                                             
  71. 2030 PRINT "  LENGTH LONG ARMS= 0.5 METER"
  72. 2040 PRINT "   LENGTH SHORT ARMS= 0.25 METER"
  73. 2050 PRINT "    CONDUCTOR DIAMETER= 0.012 METER"
  74. 2060 PRINT "  RADIATOR-SCREEN SPACING= 0.2 METER"
  75. 2070 PRINT "   MINIMUM REFLECTOR SCREEN SIZE- 1.5 BY 1.5 WAVELANGTHS
  76. 2080 PRINT "    (INFINITE GROUND-PLANE USED IN PROTOTYPE ANALYSIS)"
  77. 2100 PRINT 
  78. 2110 PRINT " PERFORMANCE OF STANDING WAVE VERSION"
  79. 2120 PRINT "  FREQUENCY OF MAXIMUM GAIN- 320 MHZ"
  80. 2130 PRINT "   MAXIMUM GAIN- 12.8 DB ISOTROPIC, NORMAL TO SCREEN PLANE"
  81. 2140 PRINT "    3 DB GAIN BANDWIDTH- 40 MHZ"
  82. 2150 PRINT "     BEAMWIDTH-42 DEGREES"
  83. 2160 PRINT "      DRIVE RESISTANCE= 180 +/- 20 OHMS OVER BANDWIDTH"
  84. 2170 PRINT "             REACTANCE=   -25 +/- 25 OHMS OVER BANDWIDTH"
  85. 2180 PRINT " MAJOR LOBE GAIN EXCEEDS 7.5 DB OVER FREQUENCY RANGE 75-475 MHZ"
  86. 2190 PRINT 
  87. 2220 INPUT "  PRESS RETURN FOR MORE";T$
  88. 2400 PRINT
  89. 2410 PRINT " PERFORMANCE OF CIRCULARY POLARIZED VERSION" 
  90. 2420 PRINT "  FREQUENCY OF PURELY CIRCULAR POLARIZATION- 307 MHZ"
  91. 2430 PRINT "   GAIN AT THIS FREQUENCY- 11.5 DB ISOTROPIC"
  92. 2440 PRINT " DRIVE RESISTANCE- 290 OHMS
  93. 2450 PRINT "        REACTANCE-  40 OHMS"
  94. 2460 PRINT 
  95. 2500 PRINT " THESE VALUES ARE FOR A LOAD RESISTANCE OF 168 OHMS"
  96. 2510 PRINT "  AND WILL VARY WITH LOAD RESISTANCE AND SPACING FROM SCREEN"
  97. 2520 PRINT  
  98. 2530 INPUT "  PRESS RETURN FOR MORE";T$
  99. 2999 RETURN
  100. 3000 INPUT " ENTER OPERATING FREQUENCY, MHZ";FO
  101. 3010 IF FO=<0 THEN 400
  102. 3020 LAM=299.8/FO
  103. 3030 LAMIN=LAM*39.37
  104. 3040 RATCP=307/FO
  105. 3050 RATSW=320/FO
  106. 3060 PRINT "   WAVELENGTH=";FNP(LAM);"METERS"
  107. 3070 PRINT "             =";FNP(LAMIN);"INCHES"
  108. 3100 INPUT " ENTER 1=CIRCULAR POLARIZED, 2- STANDING WAVE TYPE";TCODE
  109. 3110 IF TCODE<1 OR TCODE>2 THEN 3100
  110. 3120 IF TCODE=1 THEN RAT=RATCP
  111. 3130 IF TCODE=2 THEN RAT=RATSW
  112. 3180 PRINT 
  113. 3200 LLONG=.5*RAT
  114. 3210 LLONGIN=LLONG*MTOIN
  115. 3220 LSHORT=.25*RAT
  116. 3230 LSHORTIN=LSHORT*MTOIN
  117. 3240 SEP=.2*RAT
  118. 3250 SEPIN=SEP*RAT
  119. 3260 DIA=.012*RAT
  120. 3270 DIAIN=DIA*MTOIN
  121. 3300 PRINT 
  122. 3310 PRINT " LONG ARM LENGTH=";FNP(LLONG);"METER"
  123. 3320 PRINT "                =";FNP(LLONGIN);"INCHES"
  124. 3330 PRINT " SHORT ARM LENGTH=";FNP(LSHORT);"METER"
  125. 3340 PRINT "                 =";FNP(LSHORTIN);"INCHES
  126. 3350 PRINT " ELEMENT-SCREEN SPACING=";FNP(SEP);"METER"
  127. 3360 PRINT "                       =";FNP(SEPIN);"INCHES"
  128. 3370 PRINT " ELEMENT DIAMETER=";DIA;"METER"
  129. 3380 PRINT "                 =";FNP(DIAIN);"INCHES"
  130. 3390 PRINT " MINIMUM SCREEN SIZE=";FNP(1.5*LAM);"METERS SQUARE"
  131. 3400 PRINT "                    =";FNP(1.5*LAMIN);"INCHES SQUARE"
  132. 3500 IF TCODE<>1 THEN 3600 
  133. 3510 PRINT " LOAD RESISTOR= 168 OHMS"
  134. 3520 PRINT "  WITH A DISSIPATION RATION OF 5 TO 10 PERCENT OF INPUT POWER."
  135. 3600 PRINT " FOR PERFORMANCE VALUES SEE ROUTINE 2"
  136. 3610 PRINT
  137. 3990 INPUT " PRESS RETURN TO CONTINUE";T$
  138. 3999 RETURN 
  139. 4000 INPUT " PRESS RETURN FOR ELEMENT SKETCH AND DIMENSIONS";T$ 
  140. 4010 LPRINT " LONG ARM LENGTH=";FNP(LLONG);"METER"
  141. 4020 LPRINT "                =";FNP(LLONGIN);"INCHES"
  142. 4030 LPRINT " SHORT ARM LENGTH=";FNP(LSHORT);"METER"
  143. 4040 LPRINT "                 =";FNP(LSHORTIN);"INCHES
  144. 4050 LPRINT " ELEMENT-SCREEN SPACING=";FNP(SEP);"METER"
  145. 4060 LPRINT "                       =";FNP(SEPIN);"INCHES"
  146. 4070 LPRINT " ELEMENT DIAMETER=";DIA;"METER"
  147. 4080 LPRINT "                 =";FNP(DIAIN);"INCHES"
  148. 4090 LPRINT " MINIMUM SCREEN SIZE=";FNP(1.5*LAM);"METERS SQUARE"
  149. 4100 LPRINT "                    =";FNP(1.5*LAMIN);"INCHES SQUARE"
  150. 4110 LPRINT " FOR TRAVELING WAVE VERSION, OPEN SHORT ARM, GENERATOR/LOAD TO ENDS."
  151. 4120 LPRINT "  LOAD RESISTOR= 168 OHMS"
  152. 4130 LPRINT "   WITH A DISSIPATION RATION OF 5 TO 10 PERCENT OF INPUT POWER."
  153. 4200 LPRINT 
  154. 4210 LPRINT " PERFORMANCE OF STANDING WAVE VERSION"
  155. 4220 LPRINT "  FREQUENCY OF MAXIMUM GAIN-";320/RAT;"MHZ"
  156. 4230 LPRINT "   MAXIMUM GAIN- 12.8 DB ISOTROPIC, NORMAL TO SCREEN PLANE"
  157. 4240 LPRINT "    3 DB GAIN BANDWIDTH- 40 MHZ"
  158. 4250 LPRINT "     BEAMWIDTH-42 DEGREES"
  159. 4260 LPRINT "      DRIVE RESISTANCE= 180 +/- 20 OHMS OVER BANDWIDTH"
  160. 4270 LPRINT "             REACTANCE=   -25 +/- 25 OHMS OVER BANDWIDTH"
  161. 4280 LPRINT " MAJOR LOBE GAIN EXCEEDS 7.5 DB OVER FREQUENCY RANGE 75-475 MHZ"
  162. 4400 LPRINT
  163. 4410 LPRINT " PERFORMANCE OF CIRCULARY POLARIZED VERSION" 
  164. 4420 LPRINT "  FREQUENCY OF PURELY CIRCULAR POLARIZATION-";307/RAT;"MHZ"
  165. 4430 LPRINT "   GAIN AT THIS FREQUENCY- 11.5 DB ISOTROPIC"
  166. 4440 LPRINT " DRIVE RESISTANCE- 290 OHMS
  167. 4450 LPRINT "        REACTANCE-  40 OHMS"
  168. 4460 LPRINT 
  169. 4500 LPRINT " THESE VALUES ARE FOR A LOAD RESISTANCE OF 168 OHMS"
  170. 4510 LPRINT "  AND WILL VARY WITH LOAD RESISTANCE AND SPACING FROM SCREEN"
  171. 4600 RETURN
  172. 50000 END
  173. 60000 PRINT "ERROR";ERR;"AT LINE";ERL
  174. 60010 STOP
  175.