home *** CD-ROM | disk | FTP | other *** search
/ Antennas / Antennas_CD-ROM_Walnut_Creek_September_1996.iso / w4mb / vol1 / basic / qdloop.asc < prev    next >
Text File  |  1996-06-30  |  2KB  |  42 lines
  1. 100 CLS : PRINT "   ***********************************"
  2. 110 PRINT "   *       QUAD ANTENNA LOOPS        *"
  3. 120 PRINT "   *         NEAR  RESONANCE         *"
  4. 130 PRINT "   *    EMPIRICAL  APPROXIMATIONS    *"
  5. 140 PRINT "   *     PROGRAM COPYRIGHT 1985      *"
  6. 150 PRINT "   *       R.P.HAVILAND,W4MB         *"
  7. 160 PRINT "   ***********************************"
  8. 170 REM PROGRAM 14
  9. 190 DEF FNP (X) = INT(100 * X + .5) / 100
  10. 200 PRINT " CURRENT QUAD THEORY REQUIRES"
  11. 210 PRINT " THE POWER OF A LARGE COMPUTER"
  12. 220 PRINT " USE CIRCULAR LOOP FOR ESTIMATES"
  13. 230 PRINT " USE NEC FOR ACCURATE ANAYLSIS"
  14. 240 PRINT "   OR MININEC FOR CLOSE APPROXIMATIONS"
  15. 250 PRINT : PRINT
  16. 300 INPUT "ENTER DESIGN FREQUENCY, MHZ"; FO
  17. 310 INPUT "ENTER ELEMENT DIAMETER, INCHES"; DI: PRINT
  18. 320 LA = 984 / FO
  19. 330 DL = LA * 12 / DI
  20. 340 EF = 1 + .053 * (LOG(DL) / 2.3 - 3.06)
  21. 350 EL = LA * EF
  22. 400 PRINT "ELEMENT LENGTH FACTOR="; FNP(EF)
  23. 410 PRINT "ELEMENT LENGTH ="; FNP(EL); " FEET"
  24. 420 PRINT "LOOP SIDE="; FNP(EL / 4); " FEET"
  25. 430 PRINT "LOOP GAIN = 3.2 DBI": PRINT
  26. 440 PRINT "THE DRIVE IMPEDANCE OF AN ISOLATED LOOP IS 128+/-5 OHMS"
  27. 450 PRINT "THE CHANGE IN REACTANCE FOR A SMALL DEPARTURE FROM RESONANCE IS "
  28. 460 PRINT FNP(12.55 * (LOG(DL) / 2.3 - 2)); "OHMS/PERCENT CHANGE IN LENGTH"
  29. 470 PRINT
  30. 500 PRINT "FOR MULTI-ELEMENT DESIGNS USE"
  31. 510 PRINT "ELEMENT SPACING="; FNP(.15 * LA); " FEET"
  32. 520 PRINT "REFLECTOR SIDE="; FNP(1.1 * EL / 4); " FEET"
  33. 530 PRINT "DIRECTOR SIDE="; FNP(.95 * EL / 4); " FEET": PRINT
  34. 540 PRINT "SPACINGS OF"; FNP(.12 * LA); "TO"; FNP(.2 * LA); "FEET CAN BE "
  35. 545 PRINT "USED WITH SMALL CHANGE IN GAIN."
  36. 550 PRINT
  37. 1000 PRINT "PRESS R TO RERUN, ANY OTHER KEY FOR MENU"
  38. 1010 Q$ = INKEY$: IF Q$ = "" GOTO 1010
  39. 1020 IF Q$ = "R" OR Q$ = "r" THEN RUN
  40. 1030 END
  41.  
  42.