home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / david4 / detune.bas < prev    next >
Encoding:
BASIC Source File  |  1986-12-16  |  1.0 KB  |  28 lines
  1. 10 CLS
  2. 20 PRINT"[DETUNE] COPYRIGHT @1985 BY TOM OSENKOWSKY (203)775-3060
  3. 30 PRINT "THIS PROGRAM DEFINES DESIRED POINT OF MINIMUM CURRENT";
  4. 40 PRINT "ON A TOWER WHICH IS TO BE DETUNED. TOWER IS PROPERLY DETUNED BY";
  5. 50 PRINT"PLACING AN F.I.M. OR CURRENT SAMPLE LOOP AT THE SPECIFIED LOCATION";
  6. 60 PRINT"AND ADJUSTING SERIES REACTIVE COMPONENT AT TOWER BASE FOR Imin."
  7. 70 PRINT
  8. 80 RD=3.14159265#/180
  9. 90 INPUT "TOP LOAD (DEGREES)";D
  10. 100 INPUT "TOWER HIEGHT (DEGREES)";B
  11. 110 E=B+D
  12. 120 C1=COS(E*RD)-SIN(E*RD)*SIN(B*RD)-COS(E*RD)*COS(B*RD)
  13. 130 C2=COS(E*RD)*SIN(B*RD)-SIN(E*RD)*COS(B*RD)+SIN(E*RD)-B*RD
  14. 140 C=ATN(C1/C2)/RD
  15. 150 F=B+D+2*C-180
  16. 160 U=F/B
  17. 170 PRINT"MINIMUM CURRENT POINT FROM TOWER BASE";U
  18. 180 G=U*B
  19. 190 PRINT"DEGREES UP FROM TOWER BASE FOR MINIMUM CURRENT";G
  20. 200 PRINT
  21. 210 INPUT"CARRIER FREQUENCY (KHZ) FOR FOOTAGE CALCULATION";Q
  22. 220 Q=Q/1000
  23. 230 V=2.734*G/Q
  24. 240 PRINT"FEET FROM TOWER BASE TO MINIMUM CURRENT POINT";V
  25. Y (KHZ) FOR FOOTAGE CALCULATION";Q
  26. 220 Q=Q/1000
  27. 230 V=2.734*G/Q
  28. 240 PRIN