home *** CD-ROM | disk | FTP | other *** search
/ Antennas / Antennas_CD-ROM_Walnut_Creek_September_1996.iso / w4mb / vol2 / basic / clfa.asc < prev    next >
Text File  |  1996-06-30  |  7KB  |  143 lines
  1. 2 ON ERROR GOTO 60000
  2. 3 CLS
  3. 10 PRINT "   **************************************************************"
  4. 20 PRINT "   *                     CLOVER-LEAF 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 INTM=1/39.37
  12. 200 PRINT " A CLOVERLEAF IS A HORIZONTALLY POLARIZED, OMNI-DIRECTIONAL ARRAY"
  13. 210 PRINT "  OF THREE ONE-WAVELENGTH LONG ELEMENTS. EACH ARE FORMED INTO THE"
  14. 220 PRINT "   SHAPE OF A TRIANGLE WITH ROUNDED OUTER ENDS. THE CENTER OF "
  15. 230 PRINT "    THE TRIANGLES ARE SPACED 120 DEGREES. THE START END OF ALL"
  16. 240 PRINT "     ELEMENT ARE CONNECTED TOGETHER, AS ARE THE FINISH ENDS. 
  17. 250 PRINT "      FEED IS BY COAX  TO THE START AND FINISH POINTS, WITH A"
  18. 260 PRINT "       HAIRPIN MATCHING LOOP IN PARALLEL."
  19. 300 INPUT " ENTER OPERATING FREQUENCY, MHZ";FO
  20. 310 IF FO=<0 THEN 400
  21. 320 LAM=299.8/FO
  22. 330 LAMIN=LAM*39.37
  23. 340 RAT=LAMIN/81.4
  24. 350 PRINT "   WAVELENGTH=";FNP(LAM);"METERS"
  25. 360 PRINT "             =";FNP(LAMIN);"INCHES"
  26. 400 INPUT " PRESS RETURN FOR ELEMENT SKETCH AND DIMENSIONS";T$ 
  27. 600 CLS
  28. 610 PRINT "                        C O O O O O O O O O O C"
  29. 620 PRINT "                       C                       C"
  30. 630 PRINT "                      C                         C"
  31. 640 PRINT "                       C                       C"
  32. 650 PRINT "                         S                   E"
  33. 660 PRINT "                           S               E"
  34. 670 PRINT "                             S           E"
  35. 680 PRINT "                               S       E"
  36. 690 PRINT "                                 S   E"
  37. 700 LOA=80*RAT
  38. 710 LOAM=LOA*INTM
  39. 720 CCTCC=19.5*RAT
  40. 730 CCTCCM=CCTCC*INTM
  41. 740 CENC= 5*RAT
  42. 750 CENCM=CENC*INTM
  43. 760 RADC=5.5*RAT
  44. 770 RADCM=RADC*INTM
  45. 780 OTCL=21*RAT
  46. 790 OTCLM=OTCL*INTM
  47. 800 WOA=30.5*RAT
  48. 810 WOAM=WOA*INTM
  49. 820 DT=.373*RAT
  50. 830 DTM=DT*INTM
  51. 840 SEP=1*RAT
  52. 850 SEPM=SEP*INTM
  53. 860 HPL=4.625*RAT
  54. 870 HPLM=HPL*INTM
  55. 880 HPW=.75*RAT
  56. 890 HPWM=HPW*INTM
  57. 900 DIA=.375*RAT
  58. 910 DIAM=DIA*INTM 
  59. 1000 PRINT 
  60. 1010 PRINT " LENGTH OF TUBING REQUIRED, S+C+O+C+E,=";FNP(LOA);"INCHES"
  61. 1120 PRINT "                                      =";FNP(LOAM);"METER"
  62. 1130 PRINT " SEPARATION, CENTER OF CURVATURE OF C,C=";FNP(CCTCC);"INCHES"
  63. 1140 PRINT "                                       =";FNP(CCTCCM);"METER"
  64. 1150 PRINT " DISTANCE, CENTERS OF CURVATURE TO 'O O' LINE=";FNP(CENC);"INCHES"
  65. 1160 PRINT "                                             =";FNP(CENCM);"METER"
  66. 1170 PRINT " RADIUS OF CURVATURE=";FNP(RADC);"INCHES"
  67. 1180 PRINT "                    =";FNP(RADCM);"METER"
  68. 1190 PRINT " WIDTH OVERALL=";FNP(WOA);"INCHES"
  69. 1200 PRINT "              =";FNP(WOAM);"METER"
  70. 1210 INPUT " PRESS RETURN TO CONTINUE";T$
  71. 1220 PRINT
  72. 1230 PRINT " TUBING DIAMETER=";FNP(DIA);"INCHES"
  73. 1240 PRINT "               OR";FNP(100*DIAM);"CM"
  74. 1250 PRINT " DISTANCE, 'OO' LINE TO 'S-E' PROJECTED INTERSECTION POINT=";FNP(OTCL);"INCHES"
  75. 1410 PRINT "                                                          =";FNP(OTCLM);"METER"
  76. 1420 PRINT " INCLUDED ANGLE BETWEEN 'S' AND 'E' SECTIONS= 100 DEGREES"
  77. 1430 PRINT "   ENDS OF 'S' AND 'E' ARE SEPARATED BY";FNP(SEP);"INCHES"
  78. 1440 PRINT "                                     OR";FNP(100*SEPM);"CM"
  79. 1500 PRINT " ANGLE BETWEEN ADJACENT ELEMENT CENTERS= 120 DEGREES"
  80. 1510 PRINT "  CONNECT ALL S END POINTS TOGETHER"
  81. 1520 PRINT "   CONNECT ALL E END POINTS TOGETHER"
  82. 1530 PRINT " CONNECT 50 OHM COAX TO S,E JUNCTIONS"
  83. 1540 PRINT "  FOR BETTER MATCH, SHUNT BY A HAIRPIN, FORMED INTO A 'J' SHAPE" 
  84. 1550 PRINT "  WIDTH OF  HAIRPIN STRAP=";FNP(HPW);"INCHES"
  85. 1560 PRINT "                        OR";FNP(100*HPWM);"CM"
  86. 1570 PRINT "  LENGTH OF HAIRPIN STRAP=";FNP(HPL);"INCHES
  87. 1580 PRINT "                        OR";FNP(100*HPLM);"CM"
  88. 1590 PRINT "  CONNETION HOLE CENTER SPACING"
  89. 1600 PRINT "   TYPICAL MATERIAL- 16 GAGE ALUMINUM"
  90. 1610 PRINT "    ADJUST LENGTH FOR BEST SWR AT BAND CENTER."
  91. 1800 PRINT " SEE REFERENCE FOR MORE CONSTRUCTION DETAILS.
  92. 2000 INPUT "ENTER P=PRINTOUT, R=RERUN, OTHER = QUIT";T$
  93. 2010 IF T$="P" THEN 10600
  94. 2020 IF T$="R" THEN 300
  95. 2030 STOP
  96. 10600 LPRINT "     CLOVERLEAF ANTENNA FOR:"FO;"MHZ":LPRINT""
  97. 10610 LPRINT "                        C O O O O O O O O O O C"
  98. 10620 LPRINT "                       C                       C"
  99. 10630 LPRINT "                      C                         C"
  100. 10640 LPRINT "                       C                       C"
  101. 10650 LPRINT "                         S                   E"
  102. 10660 LPRINT "                           S               E"
  103. 10670 LPRINT "                             S           E"
  104. 10680 LPRINT "                               S       E"
  105. 10690 LPRINT "                                 S   E"
  106. 11000 LPRINT 
  107. 11010 LPRINT " LENGTH OF TUBING REQUIRED, S+C+O+C+E,=";FNP(LOA);"INCHES"
  108. 11020 LPRINT "                                      =";FNP(LOAM);"METER"
  109. 11030 LPRINT " SEPARATION, CENTER OF CURVATURE OF C,C=";FNP(CCTCC);"INCHES"
  110. 11040 LPRINT "                                       =";FNP(CCTCCM);"METER"
  111. 11050 LPRINT " DISTANCE, CENTERS OF CURVATURE TO 'O O' LINE=";FNP(CENC);"INCHES"
  112. 11060 LPRINT "                                             =";FNP(CENCM);"METER"
  113. 11070 LPRINT " RADIUS OF CURVATURE=";FNP(RADC);"INCHES"
  114. 11080 LPRINT "                    =";FNP(RADCM);"METER"
  115. 11090 LPRINT " WIDTH OVERALL=";FNP(WOA);"INCHES"
  116. 11200 LPRINT "              =";FNP(WOAM);"METER"
  117. 11210 LPRINT ""
  118. 11220 LPRINT
  119. 11230 LPRINT " TUBING DIAMETER=";FNP(DIA);"INCHES"
  120. 11240 LPRINT "               OR";FNP(100*DIAM);"CM"
  121. 11250 LPRINT " DISTANCE, 'OO' LINE TO 'S-E' PROJECTED INTERSECTION POINT=";FNP(OTCL);"INCHES"
  122. 11410 LPRINT "                                                          =";FNP(OTCLM);"METER"
  123. 11420 LPRINT " INCLUDED ANGLE BETWEEN 'S' AND 'E' SECTIONS= 100 DEGREES"
  124. 11430 LPRINT "   ENDS OF 'S' AND 'E' ARE SEPARATED BY";FNP(SEP);"INCHES"
  125. 11440 LPRINT "                                     OR";FNP(100*SEPM);"CM"
  126. 11500 LPRINT " ANGLE BETWEEN ADJACENT ELEMENT CENTERS= 120 DEGREES"
  127. 11510 LPRINT "  CONNECT ALL S END POINTS TOGETHER"
  128. 11520 LPRINT "   CONNECT ALL E END POINTS TOGETHER"
  129. 11530 LPRINT " CONNECT 50 OHM COAX TO S,E JUNCTIONS"
  130. 11540 LPRINT "  FOR BETTER MATCH, SHUNT BY A HAIRPIN, FORMED INTO A 'J' SHAPE" 
  131. 11550 LPRINT "  WIDTH OF  HAIRPIN STRAP=";FNP(HPW);"INCHES"
  132. 11560 LPRINT "                        OR";FNP(100*HPWM);"CM"
  133. 11570 LPRINT "  LENGTH OF HAIRPIN STRAP=";FNP(HPL);"INCHES
  134. 11580 LPRINT "                        OR";FNP(100*HPLM);"CM"
  135. 11590 LPRINT "  CONNETION HOLE CENTER SPACING"
  136. 11600 LPRINT "   TYPICAL MATERIAL- 16 GAGE ALUMINUM"
  137. 11610 LPRINT "    ADJUST LENGTH FOR BEST SWR AT BAND CENTER."
  138. 11800 LPRINT " SEE REFERENCE FOR MORE CONSTRUCTION DETAILS.
  139. 11810 GOTO 2000
  140. 50000 END
  141. 60000 PRINT "ERROR";ERR;"AT LINE";ERL
  142. 60010 STOP
  143.