home *** CD-ROM | disk | FTP | other *** search
/ Antennas / Antennas_CD-ROM_Walnut_Creek_September_1996.iso / w4mb / vol2 / basic / coco.asc < prev    next >
Text File  |  1996-06-30  |  3KB  |  54 lines
  1. 1 PRINT "    ***************************************************************"
  2. 2 PRINT "    *                   COLINEAR COAXIAL ANTENNA                  *"
  3. 3 PRINT "    *   REFERENCE- ARRL FM AND REPEATERS FOR THE RADIO AMATEUR    *"
  4. 4 PRINT "    *                   ARRL, NEWINGTON, CT O6111                 *"
  5. 5 PRINT "    *                PROGRAM BY  R.P. HAVILAND, W4MB              *"
  6. 6 PRINT "    *                       COPYRGHT 1990                         *"
  7. 7 PRINT "    *          MINILAB BOOKS, DAYTONA BEACH, FL 32121-1086        *"
  8. 8 PRINT "   ***************************************************************"
  9. 20 DEF FNP(X)=INT(100*X+.5)/100
  10. 30 PI=3.1415923#
  11. 110 PRINT "A COLINEAR COAXIAL ANTENNA IS COMPOSED OF N SECTIONS OF"
  12. 120 PRINT " TRANSMISSION LINE, END TO END ALONG A LINE."
  13. 130 PRINT "  EACH IS ONE=HALF WAVELENGTH LONG INSIDE THE COAX,"
  14. 140 PRINT "   WITH A SMALL SPACE BETWEEN OUTER CONDUCTORS FOR CONNECTION."
  15. 150 PRINT "AT THE JUNCTION, THE CENTER CODNDUCTOR IS CONNECTED TO THE OUTER"
  16. 160 PRINT " CONDUCTOR OF THE ADJACENT SECTION."
  17. 170 PRINT "  THE END SECTIONS ONLY ARE SHORTED AT THEIR CENTERS, AS:" 
  18. 210 PRINT "       oooosoooo           oooosoooo"
  19. 220 PRINT "       ccccscccccooooooooocccccscccc      THIS CONNECTION PLACES"
  20. 230 PRINT "       oooosoooocccccccccccoooosoooo        THE RADIATING CURRENTS"
  21. 240 PRINT "                  ooooooooo                  IN PHASE."
  22. 300 PRINT " FEED CAN BE AT END OF A SECTION BY A BALUN."
  23. 310 PRINT "  NON-SYMMETRY ABOUT THE FEED POINT GIVES SOME PATTERN DISTORTION."
  24. 500 INPUT " PRESS RETURN TO START";T$
  25. 800  CLS 
  26. 1000 INPUT "ENTER DESIGN FREQUENCY, MHZ";FREQ
  27. 1010 INPUT "ENTER NUMBER OF COAX SECTIONS TO USE"; NS
  28. 1030 INPUT "ENTER VELOCITY FACTOR OF COAXIAL LINE";VF
  29. 1200 LAMBDA=11803/FREQ  'INCHES
  30. 1210 LAMLIN=LAMBDA*VF
  31. 1220 OUTC=LAMLIN/2
  32. 1230 SHRT=LAMLIN/4
  33. 1240 CCON=OUTC+1
  34. 1250 LOA=NS*OUTC+(NS-1)*.5
  35. 1260 GAIN=NS*VF
  36. 1500 PRINT 
  37. 1510 PRINT " OUTER CONDUCTOR LENGTH IS";FNP(OUTC);"INCHES"
  38. 1520 PRINT "  CENTER CONDUCTOR LENGTH IS";FNP(CCON);"INCHES"
  39. 1530 PRINT "  SHORT END SECTIONS";FNP(SHRT);"INCHES FROM OUTER CONDUCTOR END"
  40. 1540 PRINT
  41. 1550 PRINT " WITH BEST QUALITY COAX INSULATION," 
  42. 1560 PRINT "  GAIN IS APPROXIMATELY";FNP(GAIN);"DB"
  43. 1600 PRINT 
  44. 1610 PRINT " IN ASSEMBLY, LEAVE 1/2 INCH SPACING BETWEEN OUTER CONDUCTORS,"
  45. 1620 PRINT "  AND REMOVE UNCONNECTED PARTS OF END SECTION CENTER CONDUCTORS."
  46. 1640 PRINT 
  47. 1650 PRINT " LENGTH OVEALLL=";FNP(LOA);"INCHES +/- FEED ARRANGEMENT."
  48. 1800 PRINT 
  49. 1810 PRINT "SEAL ALL CONNECTIONS WITH SILICON RUBBER, ETC"
  50. 1820 PRINT " OR ENCLOSE ENTIRE ASSEMBLY IN PLASTIC PIPE SEALED AT TOP." 
  51. 2000 INPUT " ENTER R=RERUN, OTHER =STOP";T$
  52. 2010 IF T$="R" GOTO 800
  53. 2020 END 
  54.