home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HAM Radio 1
/
HamRadio.cdr
/
tech
/
design3
/
match.bas
< prev
next >
Wrap
BASIC Source File
|
1985-01-01
|
4KB
|
118 lines
1 DEFDBL A-Z
10 REM THIS PROGRAM ALLOWS ONE TO CALCULATE STUB WAVELENGTH, PROGRAM NAME "MAT"
20 PRINT " PROGRAM FOR STUB WAVELENGTH CALCULATION "
30 PRINT:PRINT:PRINT
40 INPUT "Z0= ";Z0:LPRINT "Z0= ";Z0
50 R0=1/Z0
60 INPUT "RHOMAG= ";R1:LPRINT "RHOMAG=";R1
70 INPUT "RHOANG= ";R2:LPRINT "RHOANG=";R2
80 INPUT "RSOURSE= ";RS: LPRINT "RSOURCE= ";RS
85 R9=1/(RS*R0)
90 R3=1/(2*R1*COS(R2*.017453#)+R1^2+1)
100 R4=(1-R1^2)*R3
110 R5=-2*R3*R1*SIN(R2*1.745329E-02)
115 PRINT "SERIES LINES":LPRINT "SERIES LINES"
120 R9=1/(RS*R0)
130 R6=SQR(((-R9^2*R4)+R4^2+(R5^2*R9)-R4+R9)*R4)
140 R7= 1/(((R4^2+R5^2)*R9)-R4)
141 PRINT R0,R1,R2,R3,R4,R5,R6,R7,R9: LPRINT R0,R1,R2,R3,R4,R5,R6,R7,R9
150 L1=(ATN((R9*R5+R6)*R7))*57.29577951#/360#
160 IF L1>0 THEN 170 ELSE 200
170 PRINT "SERIES LINE":LPRINT "SERIES LINE"
180 PRINT "L1= ";L1;"LAMBDA":LPRINT "L1= ";L1;" LAMBDA"
190 GOTO 240
200 L1=L1+.5#
210 PRINT "HALF-WAVE ADDED":LPRINT "HALF-WAVE ADDED"
220 PRINT "SERIES LINE":LPRINT "SERIES LINE"
230 PRINT "L1= ";L1;" LAMBDA":LPRINT "L1= ";L1;" LAMBDA"
240 RR=L1*360#*.017453#
250 BT=R5+TAN(RR)-(TAN(RR))^2*R5-((R5^2+R4^2)*TAN(RR))
252 BT=INT(BT)
260 IF BT<0 THEN 270 ELSE 290
270 PRINT"USE OSTB":LPRINT "USE OSTB"
280 GOTO 310
290 PRINT "USE SSTB":LPRINT "USE SSTB"
310 REM
320 L2=(ATN((R9*R5-R6)*R7))*57.29578#/360#
330 IF L2>0 THEN 340 ELSE 370
340 PRINT "SERIES LINE":LPRINT "SERIES LINE"
350 PRINT "L2=";L2;" LAMBDA":LPRINT "L2= ";L2;"LAMBDA"
360 GOTO 410
370 L2=L2+.5#
380 PRINT"HALFWAVE ADDED":LPRINT "HALFWAVE ADDED"
390 PRINT "SERIES LINE":LPRINT "SERIES lINE"
400 PRINT "L2= ";L2;" LAMBDA":LPRINT "L2=";L2;" LAMBDA
410 RR=L2*360#*.017953#
420 BT=R5+TAN(RR)-(TAN(RR))^2*R5-((R5^2+R4^2)*TAN(RR))
422 BT=INT(BT)
430 IF BT<0 THEN 440 ELSE 460
440 PRINT "USE OSTB":LPRINT "USE OSTB"
450 GOTO 470
460 PRINT "USE SSTB":LPRINT "USE SSTB"
470 REM
480 PRINT "STUBS":LPRINT "STUBS"
490 R8=1/SQR((((R5^2+R4^2+1)-(R4*R9))*R9)*R9/R4)
500 SS=(ATN(R8))*57.29578#/360#
510 PRINT "SHORTED STUB":LPRINT "SHORTED STUB"
520 PRINT "SS= ";SS;" LAMBDA":LPRINT "SS= ";SS;" LAMBDA
530 OS=(ATN(1/R8))*57.29578#/360#
540 PRINT "OPEN STUB":LPRINT "OPEN STUB"
550 PRINT "OS= ";OS;" LAMBDA":LPRINT "OS= ";OS;" LAMBDA"
560 R6=Z0
570 INPUT "WANT A NEW Z0 (Y-N)";AA$
575 PRINT:PRINT
580 IF AA$="Y" THEN 590 ELSE END
590 INPUT "ENTER NEW Z0";R4:LPRINT "NEW Z0= ";R4
600 R0=1/R4
610 INPUT "ENTER NEW RSOURCE";RS:LPRINT "RS= ";RS
620 R9=1/(RS*R0)
630 R5=COS(R2*.017453#)*R1*(-2)+R1^2+1:PRINT R5
640 R7=(-R1^2+1)*R6/R5:PRINT R7
650 R3=2*R1*SIN(R2*.017453#)*R6/R5: PRINT R3
660 RA = R7-R4
670 RB=R3
680 RC = R7 + R4
690 RD = R3
700 RE = SQR(RA^2+RB^2)
705 A=INT(RA): B= INT(RB)
710 IF A = 0 AND B > 0 THEN 720 ELSE 730
720 RF = 90: GOTO 780
730 IF A = 0 AND B < 0 THEN 740 ELSE 750
740 RF = -90 : GOTO 780
750 IF A> 0 AND B =0 THEN 755 ELSE 760
755 RF = 0 : GOTO 780
760 IF A < 0 AND B = 0 THEN 765 ELSE 770
765 RF = 180 : GOTO 780
770 RF = ATN(RB/RA)*57.295768#
771 IF A > 0 AND B> 0 THEN 772 ELSE 773
772 RF = RF: GOTO 780
773 IF A < 0 AND B> 0 THEN 774 ELSE 775
774 RF = 180 + RF: GOTO 780
775 IF A < 0 AND B < 0 THEN 776 ELSE 777
776 RF = RF -180 : GOTO 780
777 IF A > 0 AND B< 0 THEN 778
778 RF = RF
780 C = INT(RC) : D = INT(RD)
790 RG = SQR(RC^2+RD^2)
800 IF C = 0 AND D >0 THEN 810 ELSE 820
810 RH = 90: GOTO 970
820 IF C = 0 AND D< 0 THEN 830 ELSE 840
830 RH = -90: GOTO 970
840 IF C > 0 AND D = 0 THEN 850 ELSE 860
850 RH = 0 : GOTO 970
860 IF C < 0 AND D = 0 THEN 870 ELSE 880
870 RH = 180 : GOTO 970
880 RH = ATN( RD/RC)*57.295768#
890 IF C > 0 AND D > 0 THEN 900 ELSE 910
900 RH = RH : GOTO 970
910 IF C<0 AND D>0 THEN 920 ELSE 930
920 RH = 180+RH : GOTO 970
930 IF C< 0 AND D< 0 THEN 940 ELSE 950
940 RH = RH -180 : GOTO 970
950 IF C > 0 AND D< 0 THEN 960
960 RH = RH
970 REM
980 R1 = RE/RG
990 R2=RF-RH
1000 GOTO 90