home *** CD-ROM | disk | FTP | other *** search
/ Antennas / Antennas_CD-ROM_Walnut_Creek_September_1996.iso / w4mb / vol1 / basic / fodipole.asc < prev    next >
Text File  |  1996-06-30  |  2KB  |  39 lines
  1. 100 CLS : PRINT "  *************************************"
  2. 110 PRINT "  *    FOLDED DIPOLE AND TEE MATCH    *"
  3. 120 PRINT "  *REFERENCE-HANSEN,PAGE 161,JAN. 1982*"
  4. 130 PRINT "  *  IEEE TRANS ANTENNAS/PROGAGATION  *"
  5. 140 PRINT "  *     PROGRAM COPYRIGHT 1985        *"
  6. 150 PRINT "  *       R.P. HAVILAND, W4MB         *"
  7. 160 PRINT "  *************************************"
  8. 165 REM PROGRAM 27
  9. 170 PRINT "THIS PROGRAM CALCULATES STEP-UP RATIO"
  10. 175 PRINT "OF PARALLEL SECTIONS FOR FOLDED DIPOLES"
  11. 180 PRINT "AND MATCHING SECTIONS."
  12. 200 DEF FNAC (X) = LOG(X + SQR(X * X - 1))
  13. 210 PRINT "USE SAME DIMENSIONS FOR ALL ENTRIES": PRINT
  14. 220 INPUT "ENTER DIAMETER OF DRIVEN CONDUCTOR"; D1
  15. 230 INPUT "ENTER DIAMETER OF SECOND CONDUCTOR"; D2
  16. 240 INPUT "ENTER SPACE BETWEEN CONDUCTOR CENTERS"; SP
  17. 250 IF (D1 + D2) / 2 >= SP THEN PRINT "NOT POSSIBLE": GOTO 240
  18. 260 U = D2 / D1
  19. 270 V = 2 * SP / D1
  20. 280 GA = FNAC((V * V - U * U + 1) / (2 * V)) / FNAC((V * V + U * U - 1) / (2 * U * V))
  21. 290 RA = (1 + GA) * (1 + GA)
  22. 300 PRINT
  23. 310 PRINT "THE STEP-UP RATIO IS "; INT(100 * RA) / 100
  24. 320 PRINT : PRINT "PRESS R TO RERUN"
  25. 330 PRINT "      C TO CALCULATE STEPPED-UP VALUE"
  26. 340 PRINT "      Q TO QUIT"
  27. 350 A$ = INKEY$: IF A$ = "" THEN 350
  28. 360 IF A$ = "R" THEN RUN
  29. 370 IF A$ = "Q" THEN STOP
  30. 375 IF A$ <> "C" THEN 350
  31. 380 PRINT "ENTER IMPEDANCE TO TRANSFORM"
  32. 390 INPUT "MAGNITUDE"; MA
  33. 400 INPUT "ANGLE (DEGREES)"; AN
  34. 410 NV = MA * RA
  35. 420 PRINT "TRANSFORMED VALUE IS "; INT(NV * 10) / 10; "OHMS"
  36. 430 PRINT "AT"; AN; "DEGREES"
  37. 440 PRINT : GOTO 320
  38.  
  39.