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