home *** CD-ROM | disk | FTP | other *** search
/ Antennas / Antennas_CD-ROM_Walnut_Creek_September_1996.iso / w4mb / vol2 / basic / jpol.asc < prev    next >
Text File  |  1996-06-30  |  2KB  |  42 lines
  1. 3 CLS
  2. 10 PRINT "   ***************************************************************"
  3. 20 PRINT "   *                  J-POLE 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 DEF FNP (X) = INT(1000 * X + .5) / 1000
  9. 90 MTI = 39.37
  10. 200 PRINT : PRINT "  THIS PROGRAM IS BASED ON MININEC ANALYSIS"
  11. 210 PRINT
  12. 220 INPUT "ENTER DESIGN OPERATING FREQUENCY, MHZ "; FREQ
  13. 230 FF = 70.8 / FREQ
  14. 300 JLONG = 3 * FF
  15. 310 SHORT = FF
  16. 320 SEP = .1016 * FF
  17. 330 DIA = .0508 * FF
  18. 500 PRINT
  19. 510 PRINT " GENERAL J-POLE ARRANGEMENT IS"
  20. 520 PRINT
  21. 530 PRINT "     xooooooooooooooooooooooo"
  22. 540 PRINT "     xooooooo"
  23. 560 PRINT
  24. 600 PRINT "  LONG ARM LENGTH="; FNP(JLONG); "METERS, OR"; FNP(JLONG * MTI); "INCHES"
  25. 610 PRINT "   SHORT ARM LENGTH="; FNP(SHORT); "METERS, OR"; FNP(SHORT * MTI); "INCHES"
  26. 620 PRINT
  27. 630 PRINT "  ARM SEPARATION="; FNP(SEP); "METERS, OR"; FNP(SEP * MTI); "INCHES"
  28. 640 PRINT "   ARM DIAMETER="; FNP(DIA); "METERS, OR"; FNP(DIA * MTI); "INCHES"
  29. 650 PRINT
  30. 660 PRINT " FEED IMPEDANCE AT xx IS 11 OHMS"
  31. 670 PRINT "   FOR 50 OHM COAX USE 4:1 BALUN FOR LOW SWR"
  32. 680 PRINT "    OR STRAP XX TOGETHER AND TAP LINE UP ARMS"
  33. 690 PRINT "     APPROXIMATELY"; FNP(SEP); "METERS, OR"; FNP(SEP * MTI); "INCHES"
  34. 700 PRINT " SMALL CHANGES IN DIAMETER OR SPACING WILL NOT AFFECT PERFORMANCE"
  35. 710 PRINT "  FOR APPRECIABLE CONDUCTOR AND SPACING CHANGES,"
  36. 720 PRINT "   USE MININEC TO GUIDE DESIGN."
  37. 800 PRINT
  38. 810 INPUT " ENTER R FOR RERUN, OTHER= QUIT"; T$
  39. 820 IF T$ = "R" THEN 220
  40. 830 END
  41.  
  42.