home *** CD-ROM | disk | FTP | other *** search
/ Antennas / Antennas_CD-ROM_Walnut_Creek_September_1996.iso / w4mb / vol1 / basic / vbeam.asc < prev    next >
Text File  |  1996-06-30  |  2KB  |  51 lines
  1. 100 CLS : PRINT "   ***********************************"
  2. 110 PRINT "   * VEE-BEAM ANTENNA APPROXIMATIONS *"
  3. 120 PRINT "   * REFERENCE-ARRL ANTENNA HANDBOOK *"
  4. 130 PRINT "   *      FIG. 7-1 AND FIG. 7-7      *"
  5. 140 PRINT "   *     PROGRAM COPYRIGHT 1985      *"
  6. 150 PRINT "   *       R.P. HAVILAND, W4MB       *"
  7. 160 PRINT "   ***********************************"
  8. 165 REM PROGRAM 24
  9. 170 PRINT : PRINT "CALCULATED VALUES ARE BASED ON THIN (WIRE) ANTENNAS"
  10. 180 PRINT : PRINT
  11. 190 PI = 3.14159
  12. 200 INPUT " ENTER MAXIMUM LENGTH OF A LEG"; 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. 621 IF SIN(2 * PI * LE) = 0 THEN TF = 2
  31. 622 IF TF = 1 THEN FR = 2 * RR
  32. 624 IF TF = 2 THEN FR = 10000
  33. 626 IF TF = 3 THEN FR = 2 * RR / SIN(2 * PI * LE)
  34. 630 IF SIN(2 * PI * LE) = 0 THEN TF = 2
  35. 640 IF TF = 1 THEN FR = 2 * RR
  36. 650 IF TF = 2 THEN FR = 10000
  37. 660 IF TF = 3 THEN FR = 2 * RR / SIN(2 * PI * LE)
  38. 670 IF FR > 10000 THEN FR = 10000
  39. 680 TH = 74.91669 - 28.734 * LE + 5.9693 * LE * LE - .57838 * LE ^ 3 + .02113 * LE ^ 4
  40. 690 GA = 3 - .4273 + .7953 * LE + .0444 * LE * LE - .0069487 * LE ^ 3 + 2.4036E-04 * LE ^ 4
  41. 700 PRINT : PRINT "THE WIRE LENGTH SHOULD BE "; INT(10 * NH / 2 * LA + .5) / 10; " FEET"
  42. 710 PRINT "THE ANTENNA IS "; INT(100 * LE) / 100; " WAVELENTHS LONG"
  43. 720 PRINT "THE FEED RESISTANCE IS ABOUT"; INT(ABS(FR + .5)); " OHMS"
  44. 730 IF TF = 3 THEN PRINT "AND IS ALSO REACTIVE"
  45. 740 PRINT "THE GAIN IS "; INT(10 * GA + .05) / 10; " DB"
  46. 750 PRINT : PRINT "PRESS R TO RERUN, ANY OTHER KEY FOR MENU"
  47. 760 Q$ = INKEY$: IF Q$ = "" THEN 760
  48. 770 IF Q$ = "R" OR Q$ = "r" THEN RUN
  49. 780 END
  50.  
  51.