home *** CD-ROM | disk | FTP | other *** search
/ Antennas / Antennas_CD-ROM_Walnut_Creek_September_1996.iso / w4mb / vol1 / basic / symtee.asc < prev    next >
Text File  |  1996-06-30  |  2KB  |  42 lines
  1. 100 CLS : PRINT "  ************************************"
  2. 110 PRINT "  *     SYMMETRICAL TEE ANTENNAS     *"
  3. 120 PRINT "  *   REFERENCE-HENNEY, PAGE 20-10   *"
  4. 130 PRINT "  *    RADIO ENGINEERING HANDBOOK    *"
  5. 140 PRINT "  *      PROGRAM COPYRIGHT 1985      *"
  6. 150 PRINT "  *        R.P. HAVILAND, W4MB       *"
  7. 160 PRINT "  ************************************"
  8. 170 REM PROGRAM 9
  9. 180 DEF FNP (X) = INT(10 * X + .5) / 10
  10. 200 PRINT : PRINT "  A TEE ANTENNA IS FED AGAINST GROUND"
  11. 210 PRINT : PRINT : PRINT "         TTTTTTTTTTTTT      SIDES EQUAL"
  12. 220 PRINT "               T"
  13. 230 PRINT "               T      LENGTH"
  14. 240 PRINT "               T"
  15. 250 PRINT "               T      FEED AT"
  16. 260 PRINT "               T        F-F"
  17. 270 PRINT "               F"
  18. 300 PRINT
  19. 310 PRINT "     GGGGGGGGGGFGGGGGGGGGG    GROUND "
  20. 320 PRINT : PRINT " PRESS A KEY TO CONTINUE"
  21. 330 Q$ = INKEY$: IF Q$ = "" GOTO 330
  22. 340 PRINT : PRINT : PRINT "ENTER HEIGHT OF VERTICAL PART OF ANTENNA, FEET": INPUT VE
  23. 350 PRINT "ENTER LENGTH OF TEE ARM, CENTER TO END, FEET": INPUT TE
  24. 360 RE = TE / VE
  25. 370 IF RE <= .22 THEN KF = 1.35 + RE * .18 / .22: GOTO 420
  26. 380 IF RE <= .35 THEN KF = 1.53 + (RE - .22) * .22 / .13: GOTO 420
  27. 390 IF RE <= .62 THEN KF = 1.75 - (RE - .35) * .22 / .27: GOTO 420
  28. 400 IF RE <= 1 THEN KF = 1.53 + (RE - .62) * 9.000001E-02 / .38: GOTO 420
  29. 410 IF RE > 1 THEN PRINT "VALUES OUTSIDE RANGE": GOTO 200
  30. 420 WA = KF * (VE + TE)
  31. 430 FO = 300000! / WA
  32. 440 PRINT
  33. 450 PRINT "THE WAVELENGTH OF RESONANCE IS "; FNP(WA); " METERS"
  34. 460 PRINT "THE RESONANT FREQUENCY IS "; FNP(FO); " KILOHERTZ"
  35. 470 PRINT : PRINT "THE ACCURACY IS ESTIMATED TO BE +/- 5 %"
  36. 480 PRINT "FOR BEST PERFORMANCE,   USE RADIALS AT  LEAST "; FNP(.656 * WA); "FEET LONG"
  37. 500 PRINT : PRINT "PRESS R TO RERUN, ANY OTHER KEY TO STOP"
  38. 510 Q$ = INKEY$: IF Q$ = "" GOTO 510
  39. 520 IF Q$ = "R" OR Q$ = "r" THEN RUN
  40. 530 END
  41.  
  42.