home *** CD-ROM | disk | FTP | other *** search
/ Antennas / Antennas_CD-ROM_Walnut_Creek_September_1996.iso / w4mb / vol2 / basic / prod.asc < prev    next >
Text File  |  1996-06-30  |  8KB  |  151 lines
  1. 2 ON ERROR GOTO 60000
  2. 3 CLS
  3. 10 PRINT "   ***************************************************************"
  4. 20 PRINT "   *                       POLYROD ANTENNA                       *"
  5. 30 PRINT "   *        REFERENCE- MUELLER AND TYRRELL, BSTJ,OCT. 1947       *
  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 "THIS PROGRAM GIVES SOME DATA ON THE PERFORMANCE OF DILECTRIC ROD"
  13. 210 PRINT " ANTENNAS (POLYRODS), AND GIVES ONE SET OF SPECIFIC DESIGN VALUES."
  14. 220 PRINT "  SEE REFERENCE, AND KRAUS, ANTENNAS, FOR OTHER INFORMATION."
  15. 400 PRINT 
  16. 410 PRINT " ENTER D= DESIGN DATA"
  17. 420 PRINT "       G= GENERAL INFORMATION"
  18. 430 PRINT "       P= PAPER COPY OF DESIGN DATA"
  19. 440 PRINT "       S= SCHEMATIC OF ANTENNA"
  20. 450 PRINT "       Q= QUIT"
  21. 460 INPUT T$:IF T$="t" THEN T$="T"
  22. 470 IF T$="D" THEN GOSUB 1000
  23. 480 IF T$="G" THEN GOSUB 2000
  24. 490 IF T$="P" AND FO<>0 THEN GOSUB 4000
  25. 500 IF T$="Q" THEN STOP
  26. 510 IF T$="S" THEN GOSUB 3000
  27. 520 GOTO 400
  28. 1000 PRINT 
  29. 1010 PRINT " THIS DESIGN IS FOR A 6 WAVELENGTH LONG DILECTRIC ANTENNA,
  30. 1020 PRINT "  WITH A GAIN OF ABOUT 16 DBI."
  31. 1030 INPUT "ENTER OPERATING FREQUENCY, MHZ";FO
  32. 1040 IF FO<1000 OR FO>15000 THEN PRINT " IMPRACTICAL FREQUENCY":GOTO 1030
  33. 1050 LAMDA=299.8/FO 'METERS
  34. 1060 LAMIN=LAMDA*39.37 'IN
  35. 1100 PRINT 
  36. 1110 PRINT " ONE WAVELENGTH=";FNP(LAMDA);"METERS"
  37. 1120 PRINT "               =";FNP(100*LAMDA);"CM" 
  38. 1130 PRINT "               =";FNP(LAMIN);"INCHES
  39. 1200 PRINT " DIAMETER OF CYLINDRICAL END OF POLYROD= 0.3 WAVELENGTHS,"
  40. 1210 PRINT "               (RADIATING END)         =";FNP(.3*LAMDA);"METERS"
  41. 1220 PRINT "                                       =";FNP(30*LAMDA);"CM"
  42. 1230 PRINT "                                       =";FNP(.3*LAMIN);"INCHES"
  43. 1300 PRINT "      DIAMETER AT POLYROD       = 0.5 WAVELENGTHS,"
  44. 1310 PRINT "       AT WAVEGUIDE FEED        =";FNP(.5*LAMDA);"METERS"
  45. 1320 PRINT "         JUNCTION               =";FNP(50*LAMDA);"CM"
  46. 1330 PRINT "                                =";FNP(.5*LAMIN);"INCHES"
  47. 1400 PRINT " LENGTH OF POLYROD, FEED TO END=  6 WAVELENGTHS"
  48. 1410 PRINT "                               =";FNP(6*LAMDA);"METERS"
  49. 1420 PRINT "                               =";FNP(600*LAMDA);"CM"
  50. 1430 PRINT "                               =";FNP(6*LAMIN);"INCHES"
  51. 1500 PRINT " LENGTH OF UNIFORM DIAMETER SECTION OF POLYROD,FROM "
  52. 1510 PRINT "  RADIATING END TO ROD CENTER  =3 WAVELENGTHS"
  53. 1520 PRINT "                               =";FNP(3*LAMDA);"METERS"
  54. 1530 PRINT "                               =";FNP(300*LAMDA);"CM"
  55. 1540 PRINT "                               =";FNP(3*LAMIN);"INCHES"
  56. 1600 PRINT " LINEARLY TAPER FROM FEED WAVEGUIDE TO ROD CENTER."
  57. 1610 INPUT " PRESS RETURN FOR MORE";T$ 
  58. 1700 PRINT 
  59. 1710 PRINT " INSIDE DIAMETER OF CIRCULAR WAVEGUIDE=0.5 WAVELENGTHS"
  60. 1720 PRINT "                                      =";FNP(.5*LAMDA);"METERS"
  61. 1730 PRINT "                                      =";FNP(50*LAMDA);"CM"
  62. 1740 PRINT "                                      =";FNP(.5*LAMIN);"INCHES"
  63. 1750 PRINT " DISTANCE FROM WAVEGUIDE COAX FEED TO FEED END OF POLYROD"
  64. 1760 PRINT "  CAN BE AS CONVENIENT TO DESIGN"
  65. 1800 PRINT " DISTANCE FROM COAX FEED TO CLOSED END OF WAVEGUIDE"
  66. 1810 PRINT "  IS 1/4*(WAVELENGTH-IN-GUIDE); FOR POLYSTYRENE ROD"
  67. 1820 LAMCUT=PI*.5*LAMDA/1.841
  68. 1830 LAMG=LAMDA/SQR(2.48-LAMDA/LAMCUT)
  69. 1840 PRINT "            DISTANCE="FNP(.25*LAMG);"METERS"
  70. 1850 PRINT "                    ="FNP(25*LAMG);"CM"
  71. 1860 PRINT "                    ="FNP(39.37*.25*LAMG);"INCHES"
  72. 1900 INPUT "PRESS RETURN TO CONTINUE";T$
  73. 1999 RETURN
  74. 2000 PRINT 
  75. 2010 INPUT "ENTER LENGTH OF POLYROD, WAVELENGTHS";LLAM
  76. 2020 IF LLAM=<0 THEN 2010
  77. 2030 D=8*LLAM
  78. 2040 GAIN=10/2.3*LOG(D)
  79. 2050 BW=60/SQR(LLAM)
  80. 2060 PRINT 
  81. 2070 PRINT " ROD DIRECTIVITY=";INT(D)
  82. 2080 PRINT "            GAIN=";INT(GAIN);"DB"
  83. 2090 PRINT "       BEAMWIDTH="; INT(BW);"DEGREES"
  84. 2100 PRINT
  85. 2200 IF LLAM<>6 THEN PRINT " SEE REFERENCES FOR DESIGN DATA" 
  86. 2400 INPUT "PRESS RETURN TO CONTINUE";T$
  87. 2999 RETURN
  88. 3000 CLS
  89. 3010 PRINT "THE GENERAL APPEARANCE IS"
  90. 3020 PRINT
  91. 3030 PRINT "        SSS"
  92. 3040 PRINT "        SCS"
  93. 3050 PRINT "      GGGGGGGGGGGG"
  94. 3060 PRINT "      GPPCPPPPPPPPTTTTTTTTTTTTTTTTTTTTTT"
  95. 3070 PRINT "      GPPCPPPPPPPPTTTTTTTTTTTTTTTTTTTTTTPPPPPPPPPPPPPPPPPPPPP"
  96. 3080 PRINT "      GPPCPPPPPPPPTTTTTTTTTTTTTTTTTTTTTTPPPPPPPPPPPPPPPPPPPPP"
  97. 3090 PRINT "      GPPCPPPPPPPPTTTTTTTTTTTTTTTTTTTTTT"
  98. 3100 PRINT "      GGGCGGGGGGGG"
  99. 3110 PRINT "        SCS"           
  100. 3120 PRINT "        SCS"
  101. 3200 PRINT 
  102. 3210 PRINT " WHERE G=CIRCULAR WAVEGUIDE OF TE1,1 MODE (DIELECTRIC FILLED)"
  103. 3220 PRINT "  SCS=FEED COAX, C=CONDUCTOR, S=SHIELD"
  104. 3230 PRINT "   SSS=SHORTED COAX MATCHING SECTION"
  105. 3240 PRINT "    P=POLYSTYRENE ROD, WITH FEED CONDUCTOR C"
  106. 3250 PRINT "     T=LINEARLY TAPERED SECTION OF POLYSTYRENE ROD,"
  107. 3260 PRINT "       FROM WAVEGUIDE DIAMETER TO END CYLINDER DIAMETER."
  108. 3270 PRINT " ORIENT COAX FEED CONDUCTOR FOR DESIRED POLARIZATION"
  109. 3280 PRINT 
  110. 3300 INPUT "PRESS RETURN TO CONTINUE";T$
  111. 3310 RETURN
  112. 4000 LPRINT 
  113. 4010 LPRINT " THIS DESIGN IS FOR A 6 WAVELENGTH LONG DILECTRIC ANTENNA,
  114. 4020 LPRINT "  WITH A GAIN OF ABOUT 16 DBI."
  115. 4030 LPRINT " ONE WAVELENGTH=";FNP(LAMDA);"METERS"
  116. 4040 LPRINT "               =";FNP(100*LAMDA);"CM" 
  117. 4050 LPRINT "               =";FNP(LAMIN);"INCHES
  118. 4200 LPRINT " DIAMETER OF CYLINDRICAL END OF POLYROD= 0.3 WAVELENGTHS,"
  119. 4210 LPRINT "               (RADIATING END)         =";FNP(.3*LAMDA);"METERS"
  120. 4220 LPRINT "                                       =";FNP(30*LAMDA);"CM"
  121. 4230 LPRINT "                                       =";FNP(.3*LAMIN);"INCHES"
  122. 4300 LPRINT "      DIAMETER AT POLYROD       = 0.5 WAVELENGTHS,"
  123. 4310 LPRINT "       AT WAVEGUIDE FEED        =";FNP(.5*LAMDA);"METERS"
  124. 4320 LPRINT "         JUNCTION               =";FNP(50*LAMDA);"CM"
  125. 4330 LPRINT "                                =";FNP(.5*LAMIN);"INCHES"
  126. 4400 LPRINT " LENGTH OF POLYROD, FEED TO END=  6 WAVELENGTHS"
  127. 4410 LPRINT "                               =";FNP(6*LAMDA);"METERS"
  128. 4420 LPRINT "                               =";FNP(600*LAMDA);"CM"
  129. 4430 LPRINT "                               =";FNP(6*LAMIN);"INCHES"
  130. 4500 LPRINT " LENGTH OF UNIFORM DIAMETER SECTION OF POLYROD,FROM "
  131. 4510 LPRINT "  RADIATING END TO ROD CENTER  =3 WAVELENGTHS"
  132. 4520 LPRINT "                               =";FNP(3*LAMDA);"METERS"
  133. 4530 LPRINT "                               =";FNP(300*LAMDA);"CM"
  134. 4540 LPRINT "                               =";FNP(3*LAMIN);"INCHES"
  135. 4600 LPRINT " LINEARLY TAPER FROM FEED WAVEGUIDE TO ROD CENTER."
  136. 4700 LPRINT 
  137. 4710 LPRINT " INSIDE DIAMETER OF CIRCULAR WAVEGUIDE=0.5 WAVELENGTHS"
  138. 4720 LPRINT "                                      =";FNP(.5*LAMDA);"METERS"
  139. 4730 LPRINT "                                      =";FNP(50*LAMDA);"CM"
  140. 4740 LPRINT "                                      =";FNP(.5*LAMIN);"INCHES"
  141. 4750 LPRINT " DISTANCE FROM WAVEGUIDE COAX FEED TO FEED END OF POLYROD"
  142. 4760 LPRINT "  CAN BE AS CONVENIENT TO DESIGN"
  143. 4800 LPRINT " DISTANCE FROM COAX FEED TO CLOSED END OF WAVEGUIDE"
  144. 4810 LPRINT "  IS 1/4*(WAVELENGTH-IN-GUIDE); FOR POLYSTYRENE ROD"
  145. 4820 LPRINT "            DISTANCE="FNP(.25*LAMG);"METERS"
  146. 4830 LPRINT "                    ="FNP(25*LAMG);"CM"
  147. 4840 LPRINT "                    ="FNP(39.37*.25*LAMG);"INCHES"
  148. 4990 RETURN
  149. 60000 PRINT  "ERROR";ERR;"AT LINE";ERL
  150. 60010 STOP
  151.