home *** CD-ROM | disk | FTP | other *** search
/ Antennas / Antennas_CD-ROM_Walnut_Creek_September_1996.iso / w4mb / vol1 / basic / helix.asc < prev    next >
Text File  |  1996-06-30  |  2KB  |  52 lines
  1. 100 CLS : PRINT "   ***********************************"
  2. 110 PRINT "   *        HELICAL  ANTENNAS        *"
  3. 120 PRINT "   *    REFERENCE-KRAUS, ANTENNAS    *"
  4. 130 PRINT "   *    KRAUS, ANT & PROP, V37,N2    *"
  5. 140 PRINT "   *      PROGRAM COPYRIGHT 1985     *"
  6. 150 PRINT "   *       R.P. HAVILAND, W4MB       *"
  7. 160 PRINT "   ***********************************"
  8. 170 REM PROGRAM 15
  9. 180 DEF FNA (X) = INT(10 * X + .05) / 10
  10. 190 DEF FNB (X) = INT(100 * X + .005) / 100: PI = 3.14159
  11. 200 INPUT "ENTER LOWEST FREQUENCY TO BE USED,MHZ  "; FL
  12. 210 FO = FL / .73
  13. 220 FH = FO * 1.22
  14. 230 PRINT "THE DESIGN REQUENCY IS "; FNA(FO); " MHZ"
  15. 240 PRINT " THE RANGE IS "; FL; " TO "; FNA(FH); " MHZ": PRINT
  16. 250 INPUT "ENTER DESIRED MID-RANGE GAIN, DB"; GA
  17. 260 LA = 984 / FO
  18. 270 LW = 10 ^ (GA / 10) / 15
  19. 280 PRINT : PRINT "THE HELIX LENGTH IS "; FNA(LW); "WAVELENGTHS"
  20. 290 LH = LW * LA
  21. 300 PRINT " OR "; FNB(LH); "FEET"
  22. 310 DI = LA / PI
  23. 320 SP = LA * SIN(PI * 14 / 180)
  24. 330 NT = LH / SP
  25. 340 PRINT : PRINT "THE DIAMETER IS "; FNB(DI); "FEET="; FNA(12 * DI); "INCHES"
  26. 350 PRINT : PRINT "THE NUMBER OF TURNS IS"; FNA(NT)
  27. 370 PRINT : PRINT "TURN SPACING= "; FNB(12 * SP); " INCHES"
  28. 380 PRINT : PRINT "ALLOWED CONDUCTOR DIAMETER RANGE IS"; FNA(12 * .006 * LA); "TO"; FNA(12 * .05 * LA);
  29. 390 PRINT " INCHES"
  30. 400 IF P$ <> "P" THEN PRINT : PRINT "PRESS A KEY FOR MORE"
  31. 410 Q$ = INKEY$: IF Q$ = "" GOTO 410
  32. 420 PRINT "THE MINIMUM GROUND PLANE DIAMETER IS "; FNA(LA / 2); " FEET"
  33. 430 PRINT "THE SPACING, GROUND PLANE TO START OF HELIX IS"; FNA(6 * SP); " INCH"
  34. 440 PRINT "WITH THE FEED AT THE INTERSECTION OF HELIX AXIS AND GROUND PLANE";
  35. 450 PRINT "AND A SMOOTH TRANSITION CURVE FROM FEED TO HELIX."
  36. 452 PRINT " THE GROUND PLANE MAY BE REPLACED WITH A 1 WAVELENGTH LOOP,"
  37. 454 PRINT "  WITH A SECOND LOOP .33 TO .5 WAVELENGTHS TO THE REAR."
  38. 456 PRINT "   ALL WITH RESPECT TO THE DESIGN FREQUENCY."
  39. 460 PRINT "THE FEED RESISTANCE IS 140 +/- 35 OHMS,";
  40. 470 PRINT "REACTANCE +/- 25 OHMS APPR"
  41. 500 BW = 52 / SQR(LW)
  42. 510 PRINT : PRINT "THE BEAM-WIDTH IS"
  43. 520 PRINT " LOW FREQUENCY "; FNA(.73 * 52 / SQR(LW)); " DEGREES"
  44. 530 PRINT " MID FREQUVENCY "; FNA(52 / SQR(LW)); " DEGREES"
  45. 540 PRINT " TOP FREQUENCY "; FNA(1.22 * 52 / SQR(LW)); " DEGREES"
  46. 550 PRINT : PRINT "POLARIZATION IS NEARLY CIRCULAR"
  47. 600 PRINT : PRINT "PRESS R TO RERUN, ANY OTHER KEY FOR MENU"
  48. 610 Q$ = INKEY$: IF Q$ = "" THEN 610
  49. 620 IF Q$ = "R" OR Q$ = "r" THEN RUN
  50. 660 END
  51.  
  52.