home *** CD-ROM | disk | FTP | other *** search
/ Antennas / Antennas_CD-ROM_Walnut_Creek_September_1996.iso / w4mb / vol2 / basic / clsa.asc < prev    next >
Text File  |  1996-06-30  |  4KB  |  87 lines
  1. 2 ON ERROR GOTO 60000
  2. 3 CLS
  3. 10 PRINT "   **************************************************************"
  4. 20 PRINT "   *                     CYLINDER SLOT ANTENNA                  *"
  5. 30 PRINT "   *                REFERENCE - 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(100*X+.5)/100
  11. 90 PI=3.141592
  12. 100 INTM=1/39.37
  13. 200 PRINT 
  14. 210 PRINT " THE CYLINDER SLOT PRODUCES AN ESSENTIALLY 
  15. 220 PRINT "  ONNI-DIRECTIONAL HORIZONTALLY POLARIZED"
  16. 230 PRINT "   SIGNAL WHEN MOUNTED WITH THE CYLINDER AXIS VERTICAL"
  17. 240 PRINT "    THE SLOT IS PARALLEL TO THE CYLINDER AXIS"
  18. 250 PRINT "     CYLINDER WALLS ARE ASSUMED TO BE VERY THIN,"
  19. 260 PRINT "      AND CAN BE SHEET METAL OR MESH"
  20. 400 PRINT 
  21. 410 INPUT " ENTER OPERATING FREQUENCY, MHZ";FO
  22. 420 IF FO=<0 THEN 400
  23. 430 LAM=299.8/FO
  24. 440 PRINT "  WAVELENGTH=";FNP(LAM);"METERS"
  25. 450 PRINT "            =";FNP(LAM/INTM);"INCHES"
  26. 460 FRAT=146.2/FO
  27. 600 SLEN=58*FRAT
  28. 610 BWID=1*FRAT
  29. 620 LOA=60*FRAT
  30. 630 DIA=10*FRAT
  31. 640 SHTW=31*FRAT
  32. 650 FP=14*FRAT
  33. 660 SWID=1*FRAT
  34. 1000 PRINT 
  35. 1010 PRINT " SLOT LENGTH=";FNP(SLEN*INTM);"METERS"
  36. 1020 PRINT "            =";FNP(SLEN);"INCHES"
  37. 1030 PRINT " END BRIDGES=";FNP(100*BWID*INTM);"CM"
  38. 1040 PRINT "            =";FNP(BWID);"INCHES"
  39. 1050 PRINT " CYLINDER LOA=";FNP(LOA*INTM);"METERS"
  40. 1060 PRINT "             =";FNP(LOA);"INCHES"
  41. 1070 PRINT " CYLINDER DIAMETER=";FNP(DIA*INTM);"METERS"
  42. 1080 PRINT "                  =";FNP(DIA);"INCHES"
  43. 1090 PRINT " SLOT WIDTH=";FNP(100*SWID*INTM);"CM"
  44. 1100 PRINT "           =";FNP(SWID);"INCHES"
  45. 1110 PRINT " CONDUCTOR WIDTH, BEFORE FORMIING=";FNP(SHTW*INTM);"METERS"
  46. 1120 PRINT "                                 =";FNP(SHTW);"INCHES"
  47. 1130 PRINT " FEED POINT, FROM LOWER END OF CYLINDER=";FNP(100*FP*INTM);"CM"
  48. 1140 PRINT "                                       =";FNP(FP);"INCHES"
  49. 1150 INPUT "  PRESS RETURN TO CONTINUE";T$
  50. 1160 PRINT
  51. 1200 PRINT " IF DIMENSIONS ARE INCONVENIENT, DESIGN FOR SLIGHTLY HIGHER FREQUENCY,"
  52. 1210 PRINT "  AND PLACE A FEW PF OF VARIABLE CAPACITY ACROSS SLOT"
  53. 1220 PRINT "   AT CYLINDER CENTER (A HIGH VOLTAGE POINT)"
  54. 1230 PRINT 
  55. 1240 PRINT " FEED IMPEDANCE=";288;"OHMS, BALANCED"
  56. 1250 PRINT "  FOR 200 OHM BALANCED FEED, FEED POINT" 
  57. 1260 PRINT "   IS APPROXIMATELY";FNP(FP*200/288*INTM);"METERS FRON END"
  58. 1270 PRINT "           OR ABOUT";FNP(FP*200/288);"INCHES FROM END"
  59. 1500 INPUT "ENTER R= RERUN, P= PRINTOUT, Q= QUIT";T$
  60. 1510 IF T$="R" THEN 400
  61. 1520 IF T$="P" THEN 2000
  62. 1530 IF T$<>"Q" THEN 1500
  63. 1540 END
  64. 2000 LPRINT "       CYLINDER-SLOT ANTENNA"
  65. 2010 LPRINT " SLOT LENGTH=";FNP(SLEN*INTM);"METERS"
  66. 2020 LPRINT "            =";FNP(SLEN);"INCHES"
  67. 2030 LPRINT " END BRIDGES=";FNP(100*BWID*INTM);"CM"
  68. 2040 LPRINT "            =";FNP(BWID);"INCHES"
  69. 2050 LPRINT " CYLINDER LOA=";FNP(LOA*INTM);"METERS"
  70. 2060 LPRINT "             =";FNP(LOA);"INCHES"
  71. 2070 LPRINT " CYLINDER DIAMETER=";FNP(DIA*INTM);"METERS"
  72. 2080 LPRINT "                  =";FNP(DIA);"INCHES"
  73. 2090 LPRINT " SLOT WIDTH=";FNP(100*SWID*INTM);"CM"
  74. 2100 LPRINT "           =";FNP(SWID);"INCHES"
  75. 2110 LPRINT " CONDUCTOR WIDTH, BEFORE FORMING=";FNP(SHTW*INTM);"METERS"
  76. 2120 LPRINT "                                 =";FNP(SHTW);"INCHES"
  77. 2130 LPRINT " FEED POINT, FROM LOWER END OF CYLINDER=";FNP(FP*INTM);"METERS"
  78. 2140 LPRINT "                                       =";FNP(FP);"INCHES"
  79. 2150 LPRINT " FEED IMPEDANCE=";288;"OHMS, BALANCED"
  80. 2160 LPRINT "  FOR 200 OHM BALANCED FEED, FEED POINT" 
  81. 2170 LPRINT "   IS APPROXIMATELY";FNP(FP*200/288*INTM);"METERS FRON END"
  82. 2180 LPRINT "           OR ABOUT";FNP(FP*200/288);"INCHES FROM END"
  83. 2190 LPRINT
  84. 2200 GOTO 1500
  85. 60000 PRINT "ERROR";ERR;"AT LINE";ERL
  86. 60010 STOP
  87.