home *** CD-ROM | disk | FTP | other *** search
/ Antennas / Antennas_CD-ROM_Walnut_Creek_September_1996.iso / w4mb / vol2 / basic / sxtl.asc < prev    next >
Text File  |  1996-06-30  |  4KB  |  86 lines
  1. 3 CLS
  2. 10 PRINT "   ***************************************************************"
  3. 20 PRINT "   *          SMALL TRANSMITTING LOOP ANTENNAS                   *"
  4. 30 PRINT "   *                R.P. HAVILAND, W4MB                          *"
  5. 40 PRINT "   *               PROGRAM COPYRGHT 1990                         *"
  6. 50 PRINT "   *       MINILAB BOOKS, DAYTONA BEACH, FL 32121-1086           *"
  7. 70 PRINT "   ***************************************************************"
  8. 80 PRINT 
  9. 90 DEF FNP(X)=INT(1000*X+.5)/1000
  10. 100 MTF=3.281
  11. 110 PI=3.141593
  12. 200 INPUT "ENTER DESIGN FREQUENCY, MHZ";FREQ:IF FREQ=<0 THEN 200
  13. 210 LAM=299.8/FREQ
  14. 220 MIN=LAM*.125
  15. 230 PRINT 
  16. 240 PRINT " MINIMUM RECOMMENDED LOOP PERIMETER=";FNP(MIN);"METERS";
  17. 250 PRINT "  OR ";FNP(MIN*MTF);"FEET"
  18. 260 PRINT "   EQUIVALENT TO A SQUARE";FNP(MIN/4*MTF);" FEET ON THE SIDE"   
  19. 270 PRINT "    SMALLER LOOPS WILL HAVE HIGH LOSS"
  20. 280 PRINT " MAXIMUM RECOMMENDED LOOP PERIMETER=";FNP(2.4*MIN);"METERS";
  21. 290 PRINT "  OR ";FNP(2.4*MIN*MTF);"FEET"  
  22. 300 PRINT "   EQUIVALENT TO A SQUARE";FNP(MIN/2*MTF);" FEET ON THE SIDE"
  23. 500 PRINT "    LARGER LOOPS ARE USEABLE IF SPACE AND HEIGHT PERMITS"
  24. 510 INPUT " ENTER DESIGN PERIMETER, FEET";PER:IF PER<=0 THEN 510
  25. 520 PRINT "  ENTER LOOP SHAPE INDICATOR"
  26. 530 PRINT "            C= CIRCLE"
  27. 540 PRINT "            O= OCTAGON"
  28. 550 PRINT "            S=SQUARE"
  29. 560 INPUT TY$
  30. 570 ARE=0
  31. 580 INPUT " ENTER CONDUCTOR DIAMETER, INCHES";CD:IF CD<=0 THEN 700
  32. 600 IF TY$="C" THEN ARE=PER*PER/4/PI
  33. 610 IF TY$="O" THEN ARE=PER*PER/64*4.8284
  34. 620 IF TY$="S" THEN ARE=PER*PER/16
  35. 630 IF ARE=0 THEN 510
  36. 700 PRINT 
  37. 710 RR=3.38E-08*(FREQ*FREQ*ARE)^2
  38. 720 RL=.000996*PER/CD*SQR(FREQ)
  39. 730 EFF=RR/(RR+RL)
  40. 740 IND=1.9E-08*PER*(7.353*LOG(96*PER/PI/CD)/2.3-6.386)  'HENRY
  41. 750 XL=2*PI*FREQ*IND*1000000!
  42. 760 TC=1/(2*PI*FREQ*XL*1000000!)*1E+12 'PF
  43. 770 Q=XL/2/(RR+RL)  'ASSUMPTION ON CAPACITOR LOSS
  44. 780 BW=FREQ*1000000!/Q
  45. 790 CDIS=.82*PER
  46. 800 FERL=6*RL
  47. 810 FEEFF=RR/(RR+FERL)
  48. 820 FEQ=XL/2/(RR+FERL)
  49. 830 FEBW=FREQ*1000000!/FEQ
  50. 1000 PRINT " LOOP AREA=";FNP(ARE);" SQ FT, OR ";FNP(ARE/MTF);"SQ METERS"
  51. 1010 PRINT "  RADIATION RESISTANCE=";FNP(RR);"OHMS"
  52. 1020 PRINT "               FOR COPPER CONDUCTOR"
  53. 1030 PRINT "   LOSS RESISTANCE=";FNP(RL);"OHMS"
  54. 1040 PRINT "    LOOP EFFICIENCY=";EFF
  55. 1050 PRINT "     OR A SIZE LOSS OF ";FNP(10*LOG(EFF)/2.3);" DB"
  56. 1060 PRINT "  GIVING A BANDWIDTH OF";FNP(BW);"HERTZ, OR ";FNP(BW/1000);"KHZ"
  57. 1070 PRINT "                  FOR IRON CONDUCTOR"
  58. 1100 PRINT "   LOSS RESISTANCE=";FNP(FERL);"OHMS, FOR IRON CONDUCTOR"
  59. 1110 PRINT "    LOOP EFFICIENCY=";FEEFF
  60. 1120 PRINT "     OR A SIZE LOSS OF ";FNP(10*LOG(FEEFF)/2.3);" DB"
  61. 1130 PRINT "      LOOP Q=";FNP(FEQ)
  62. 1140 PRINT "  GIVING A BANDWIDTH OF";FNP(FEBW);"HERTZ, OR ";FNP(FEBW/1000);"KHZ"
  63. 1150 PRINT 
  64. 1160 PRINT " REQUIRED TUNING CAPACITY=";FNP(TC-10);"PF, 10 PF STRAY ASSUMED"
  65. 1200 PRINT 
  66. 1210 INPUT " INPUT PEAK POWER TO BE RADIATED, WATTS";PP
  67. 1220 VC=SQR(PP*XL*Q)
  68. 1230 PRINT "  CAPACITOR VOLTAGE RATING, MINIMUM=";FNP(VC);"VOLTS"
  69. 1240 PRINT "   WITH A MINIMUM SPACING OF ";FNP(VC*1.414/75000!);" INCHES"
  70. 1250 PRINT "    DOUBLE CAPACITY AND HALVE SPACING FOR SPLIT STATOR CAPACITOR"
  71. 1300 PRINT 
  72. 1310 INPUT " ENTER MAXIMUM TUNING CAPACITY, PF";CMAX
  73. 1500 MINFREQ=FREQ*SQR(TC/(CMAX+10))
  74. 1510 MAXFREQ=FREQ*SQR(TC/15)
  75. 1600 PRINT 
  76. 1610 PRINT " TUNING RANGE IS";FNP(MINFREQ);" TO ";FNP(MAXFREQ);" MHZ"
  77. 1800 PRINT 
  78. 1810 PRINT "                    *** CAUTION *** 
  79. 1820 PRINT " CAREFUL CONSTRUCTION IS NEEDED TO OBTAIN CALCULATED PERFORMANCE."
  80. 1830 PRINT "  SEE REFERENCE"
  81. 2000 PRINT 
  82. 2010 INPUT " ENTER F= NEW FREQUENCY, S= NEW SIZE, OTHER= QUIT";T$
  83. 2020 IF T$="F" THEN 200
  84. 2030 IF T$="S" THEN 230
  85. 3000 END
  86.