home *** CD-ROM | disk | FTP | other *** search
/ Antennas / Antennas_CD-ROM_Walnut_Creek_September_1996.iso / w4mb / vol1 / basic / lwire.asc < prev    next >
Text File  |  1996-06-30  |  2KB  |  48 lines
  1. 100 CLS : PRINT "   ***********************************"
  2. 110 PRINT "   *      LONG WIRE ANTENNAS         *"
  3. 120 PRINT "   * REFERENCE-ARRL ANTENNA HANDBOOK *"
  4. 130 PRINT "   *     FIG. 7-1 AND FIG. 7-20      *"
  5. 140 PRINT "   *     PROGRAM COPYRIGHT 1985      *"
  6. 150 PRINT "   *       R.P. HAVILAND, W4MB       *"
  7. 160 PRINT "   ***********************************"
  8. 165 REM PROGRAM 25
  9. 170 PRINT : PRINT "CALCULATED VALUES ARE FOR THIN (WIRE) ANTENNAS 1-10 WAVELENGTHS LONG"
  10. 180 PRINT : PRINT
  11. 190 PI = 3.14159
  12. 200 INPUT "ENTER MAXIMUM LENGTH OF ANTENNA"; LM
  13. 210 PRINT " ENTER 1 FOR CURRENT, 2 FOR VOLTAGE, 3 FOR VARIABLE IMPEDANCE FEED"
  14. 220 INPUT TF: IF TF > 3 THEN 200
  15. 230 INPUT "ENTER FREQUENCY"; FO: IF FO = 0 THEN 230
  16. 240 LA = 984 / FO
  17. 250 NH = 2 * LM / LA
  18. 260 IF TF = 1 THEN 500
  19. 270 IF TF = 2 THEN 400
  20. 300 GOTO 600
  21. 400 IF NH - INT(NH) > .5 THEN NH = INT(NH) + .5 - .05
  22. 410 NH = INT(NH) - .05
  23. 420 GOTO 600
  24. 500 IF NH - INT(NH) > .75 THEN NH = INT(NH) + .75 - .05
  25. 510 IF NH - INT(NH) > .25 THEN NH = INT(NH) + .25 - .05
  26. 520 NH = INT(NH) - .25 - .05
  27. 600 LE = (NH + .05) / 2
  28. 610 LW = LE * LA
  29. 620 RR = 17.32 + 30 * LOG(4 * PI * LE)
  30. 630 TH = 74.91669 - 28.734 * LE + 5.9693 * LE * LE - .57838 * LE ^ 3 + .02113 * LE ^ 4
  31. 640 GA = -.4273 + .7953 * LE + .0444 * LE * LE - .0069487 * LE ^ 3 + 2.4036E-04 * LE ^ 4
  32. 700 PRINT : PRINT "THE WIRE LENGTH SHOULD BE "; INT(10 * NH / 2 * LA + .5) / 10; " FEET"
  33. 710 PRINT "THE ANTENNA IS "; INT(100 * LE) / 100; " WAVELENGTHS LONG"
  34. 720 PRINT "THE RADIATION RESISTANCE IS"; INT(RR + .5); " OHMS"
  35. 730 PRINT "AT A CURRENT LOOP"
  36. 740 IF LE > 12 THEN PRINT "WIRE TOO LONG TO CALCULATE-SEE REFERENCE": GOTO 780
  37. 750 PRINT "THE MAIN LOBE IS "; INT(TH + .5); " DEGREES"
  38. 760 PRINT "FROM THE WIRE AXIS"
  39. 770 PRINT "THE GAIN IS "; INT(10 * GA + .05) / 10; " DB"
  40. 780 PRINT : IF TF <> 1 THEN PRINT "USE TUNED ZEPP FEEDERS": GOTO 810
  41. 790 PRINT "FEED AT"; INT(100 * LA / 4 + .5) / 100; "FEET"
  42. 800 PRINT "FROM END AWAY FROM PREFERRED DIRECTION"
  43. 810 PRINT : PRINT "PRESS R TO RERUN, ANY OTHER KEY TO STOP"
  44. 820 Q$ = INKEY$: IF Q$ = "" GOTO 820
  45. 830 IF Q$ = "R" OR Q$ = "r" THEN RUN
  46. 840 END
  47.  
  48.