home *** CD-ROM | disk | FTP | other *** search
/ Antennas / Antennas_CD-ROM_Walnut_Creek_September_1996.iso / w4mb / vol2 / basic / slmp.asc < prev    next >
Text File  |  1996-06-30  |  6KB  |  167 lines
  1. 2 ON ERROR GOTO 60000
  2. 3 CLS
  3. 10 PRINT "   **************************************************************"
  4. 20 PRINT "   *                VHF-UHF SLEEVE MONOPOLE ANTENNA             *"
  5. 30 PRINT "   *                  REFERENCE- KRAUS, ANTENNAS                *
  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 PI=3.141592
  12. 100 MTOIN=39.37
  13. 200 PRINT " THE SLEEVE ANTENNA USES TWO SECTIONS OF DIFFERENT DIAMETER,"
  14. 210 PRINT "  TO SECURE FEED POINT MATCHING AND IMPROVED SWR BANDWIDTH.:
  15. 220 PRINT "   THIS DESIGN IS FOR A MONOPOLE, WITH THE BASE SECTION "
  16. 230 PRINT "    THE LARGEST DIAMETER. A SPECIFIC DESIGN IS PREPARED,"
  17. 240 PRINT "     THEN A VARIATION TO ALLOW USE OF STANDARD CONDUCTOR SIZES"
  18. 250 PRINT " PROGRAM DATA IS BASED ON MININEC ANALYSIS"
  19. 260 PRINT
  20. 270 INPUT "PAPER COPY OF DESIGN DATA, Y/N";P$
  21. 280 PRINT  
  22. 400 PRINT " ENTER 1= SEE CONSTRUCTION SCHEMATIC"
  23. 410 PRINT "       2= DO SLIM DESIGN"
  24. 420 PRINT "       3= DO THICK DESIGN"
  25. 430 PRINT "       4= DO THICKER DESIGN"
  26. 440 PRINT "       5= QUIT"
  27. 450 INPUT TEM
  28. 460 ON TEM GOSUB 1000,2000,3000,4000,5000,400
  29. 470 CLS
  30. 480 GOTO 400
  31. 1000 CLS
  32. 1010 PRINT 
  33. 1020 PRINT "           CC"
  34. 1030 PRINT "           CC            CC- SMALLER CONDUCTOR (ROD)"
  35. 1040 PRINT "           CC            BB- LARGER CONDUCTOR (SLEEVE)"
  36. 1050 PRINT "           CC            GG- GROUND PLANE"
  37. 1060 PRINT "           CC"
  38. 1070 PRINT "           CC            FEED AT BC JUNCTION (INSULATED), WITH"
  39. 1080 PRINT "          B  B            COAX SHIELD TO B, AND CENTER"
  40. 1090 PRINT "          B  B             CONDUCTOR TO C."
  41. 1100 PRINT "          B  B"
  42. 1110 PRINT "          B  B           IN SOME DESIGNS, CC EXTENDS THROUGH"
  43. 1120 PRINT "          B  B            THE CENTER OF B  B, WITH INSULATION"
  44. 1130 PRINT "          B  B             TO FORM A TRANSMISION LINE SECTION."
  45. 1140 PRINT "  GGGGGGGGG  GGGGGGGGGG"
  46. 1150 PRINT
  47. 1200 INPUT "PRESS RETURN TO CONTINUE";T$
  48. 1999 RETURN
  49. 2000 CLS
  50. 2010 INPUT "ENTER DESIGN CENTER FREQUENCY, MHZ";FO
  51. 2020 IF FO=<0 THEN 2000
  52. 2030 LAM=299.8/FO
  53. 2040 LAMIN=LAM*2.54
  54. 2050 INPUT "ENTER 1= 50 OHM FEED, 2=75 OHM";FEED
  55. 2060 IF FEED<1 OR FEED>2 THEN 2050
  56. 2070 ON FEED GOTO 2200,2400
  57. 2200 RAT=37.27/FO
  58. 2210 LOA=2*RAT
  59. 2220 LOAIN=LOA*MTOIN
  60. 2230 LS=.666666*RAT
  61. 2240 LSIN=LS*MTOIN
  62. 2250 DIAS=.025*RAT
  63. 2260 DIASIN=DIAS*MTOIN
  64. 2270 DIAC=.0125*RAT
  65. 2280 DIACIN=DIAC*MTOIN
  66. 2290 ZIN=51.4
  67. 2300 RDEL=3.45
  68. 2310 XDEL=-14.07
  69. 2320 GOTO 2600 
  70. 2400 RAT=37.63/FO
  71. 2410 LOA=2*RAT
  72. 2420 LOAIN=LOA*MTOIN
  73. 2430 LS=RAT
  74. 2440 LSIN=LS*MTOIN
  75. 2450 DIAS=.025*RAT
  76. 2460 DIASIN=DIAS*MTOIN
  77. 2470 DIAC=.0125*RAT
  78. 2480 DIACIN=DIAC*MTOIN
  79. 2490 ZIN=78
  80. 2500 RDEL=6.3
  81. 2510 XDEL=-19.7
  82. 2600 PRINT " OVERALL LENGTH OF MONOPOLE=";FNP(LOA);"METER"
  83. 2610 PRINT "                           ="FNP(LOAIN);"INCHES"
  84. 2620 PRINT " LENGTH OF SLEEVE=";FNP(LS);"METER"
  85. 2630 PRINT "                 ="FNP(LSIN);"INCHES"
  86. 2640 PRINT " DIAMETER OF SLEEVE=";FNP(100*DIAS);"CM"
  87. 2650 PRINT "                   =";FNP(DIASIN);"INCHES"
  88. 2660 PRINT " DIAMETER OF ROD CONDUCTOR=";FNP(100*DIAC);"CM"
  89. 2670 PRINT "                          =";FNP(DIACIN);"INCHES"
  90. 2680 PRINT " FEED IMPEDANCE AT DESIGN FREQUENCY=";ZIN;"+J 0 OHMS"
  91. 2690 PRINT "  RESISTANCE INCREMENT=";RDEL;"OHMS/MHZ"
  92. 2700 PRINT "   REACTANCE INCREMENT=";XDEL;"OHMS/MHZ"
  93. 2710 PRINT 
  94. 2720 IF P$<>"Y" THEN 2990
  95. 2800 LPRINT "          SLEEVE MONOPOLE DATA"
  96. 2810 LPRINT 
  97. 2820 LPRINT " OVERALL LENGTH OF MONOPOLE=";FNP(LOA);"METER"
  98. 2830 LPRINT "                           ="FNP(LOAIN);"INCHES"
  99. 2840 LPRINT " LENGTH OF SLEEVE=";FNP(LS);"METER"
  100. 2850 LPRINT "                 ="FNP(LSIN);"INCHES"
  101. 2860 LPRINT " DIAMETER OF SLEEVE=";FNP(100*DIAS);"CM"
  102. 2870 LPRINT "                   =";FNP(DIASIN);"INCHES"
  103. 2880 LPRINT " DIAMETER OF ROD CONDUCTOR=";FNP(100*DIAC);"CM"
  104. 2890 LPRINT "                          =";FNP(DIACIN);"INCHES"
  105. 2900 LPRINT " FEED IMPEDANCE AT DESIGN FREQUENCY=";ZIN;"+J 0 OHMS"
  106. 2910 LPRINT "  RESISTANCE INCREMENT=";RDEL;"OHMS/MHZ"
  107. 2920 LPRINT "   REACTANCE INCREMENT=";XDEL;"OHMS/MHZ"
  108. 2930 LPRINT 
  109. 2990 INPUT "PRESS RETURN TO CONTINUE";T$
  110. 2999 RETURN
  111. 3000 CLS
  112. 3010 INPUT "ENTER DESIGN CENTER FREQUENCY, MHZ";FO
  113. 3020 IF FO=<0 THEN 3000
  114. 3030 LAM=299.8/FO
  115. 3040 LAMIN=LAM*2.54
  116. 3050 INPUT "ENTER 1= 50 OHM FEED, 2=75 OHM";FEED
  117. 3060 IF FEED<1 OR FEED>2 THEN 3050
  118. 3070 ON FEED GOTO 3200,3400
  119. 3200 RAT=37.18/FO
  120. 3210 LOA=2*RAT
  121. 3220 LOAIN=LOA*MTOIN
  122. 3230 LS=.666666*RAT
  123. 3240 LSIN=LS*MTOIN
  124. 3250 DIAS=.05*RAT
  125. 3260 DIASIN=DIAS*MTOIN
  126. 3270 DIAC=.025*RAT
  127. 3280 DIACIN=DIAC*MTOIN
  128. 3290 ZIN=52.1
  129. 3300 RDEL=3.69
  130. 3310 XDEL=-11.69
  131. 3320 GOTO 2600
  132. 3400 RAT=37.69/FO
  133. 3410 LOA=2*RAT
  134. 3420 LOAIN=LOA*MTOIN
  135. 3430 LS=RAT
  136. 3440 LSIN=LS*MTOIN
  137. 3450 DIAS=.05*RAT
  138. 3460 DIASIN=DIAS*MTOIN
  139. 3470 DIAC=.025*RAT
  140. 3480 DIACIN=DIAC*MTOIN
  141. 3490 ZIN=80
  142. 3500 RDEL=6.75
  143. 3510 XDEL=-15.95
  144. 3520 GOTO 2600
  145. 4000 CLS
  146. 4010 INPUT "ENTER DESIGN CENTER FREQUENCY, MHZ";FO
  147. 4020 IF FO=<0 THEN 4000
  148. 4030 LAM=299.8/FO
  149. 4040 LAMIN=LAM*2.54
  150. 4050 PRINT  "50 OHM FEED ONLY. "
  151. 4200 RAT=37.095/FO
  152. 4210 LOA=2*RAT
  153. 4220 LOAIN=LOA*MTOIN
  154. 4230 LS=.666666*RAT
  155. 4240 LSIN=LS*MTOIN
  156. 4250 DIAS=.1*RAT
  157. 4260 DIASIN=DIAS*MTOIN
  158. 4270 DIAC=.05*RAT
  159. 4280 DIACIN=DIAC*MTOIN
  160. 4290 ZIN=53.4
  161. 4300 RDEL=4.13
  162. 4310 XDEL=-9.25
  163. 4320 GOTO 2600
  164. 5000 END
  165. 60000 PRINT "ERROR";ERR;"AT LINE";ERL
  166. 60010 STOP
  167.