Listing of file='GAMMA.BAS;01' on disk='vmedia/ncc_18-sector.ccvf'
100 PLOT 12,29,17,14 120 PRINT ,,,"GAMMA MATCH" 140 PRINT 160 PLOT 29,22,15 170 PRINT ,"THIS PROGRAM CALCULATES VALUES OF VARIOUS FACTORS" 180 PRINT ,"OF THE GAMMA TO MATCH A 50 OHM TRANSMISSION LINE." 200 CLEAR 100 210 F= 14.2:S= 6:D1= .5:D2= 1.5:L= 33.25 220 PRINT 230 PRINT "THE FOLLOWING PARAMETERS ARE DEFAULT VALUES; YOU MAY 240 PRINT "CHANGE ANY ONE OF THEM." 250 PRINT "IF THE VALUE IS SATISFACTORY, HIT RETURN :" 260 PRINT ,,"FREQUENCY = ";F;" MEGACYCLES.";:INPUT F 270 IF F= 0THEN F= 14.2 280 PRINT ,,"SPACING, ROD TO ELEMENT = ";S" INCHES ";:INPUT S 290 IF S= 0THEN S= 6 300 PRINT ,,"DIAMETER, ROD = ";D1;" INCHES ";:INPUT D1 310 IF D1= 0THEN D1= .5 320 PRINT ,,"DIAMETER, ELEMENT = ";D2;" INCHES ";:INPUT D2 330 IF D2= 0THEN D2= 1.5 340 PRINT ,,"LENGTH, ROD = ";L;" INCHES ";:INPUT L 350 IF L= 0THEN L= 33.25 360 INPUT "WANT TO VARY ANY SINGLE FACTOR ? ( Y OR N ) ";Y$ 380 IF Y$= "N"OR Y$= "0"THEN 500 390 F1= 1:REM FLAG TO INHIBIT PRINT OF UNNECESSARY DATA 395 PRINT 400 PRINT ,"WHICH FACTOR IS TO BE VARIED ? " 410 PRINT ,,"FREQUENCY"TAB( 40)"#1" 420 PRINT ,,"ROD DIAMETER"TAB( 40)"#2" 430 PRINT ,,"ELEMENT DIAMETER"TAB( 40)"#3" 440 PRINT ,,"SPACING"TAB( 40)"#4" 450 PRINT ,,"ROD LENGTH (INCHES)"TAB( 40)"#5" 460 PRINT :PRINT "ENTER SELECTION BY NUMBER ";:INPUT I 470 PRINT :PRINT "LOWER LIMIT ";:INPUT G 480 PRINT "UPPER LIMIT ";:INPUT H 490 PRINT "SIZE OF STEP ";:INPUT K 500 FOR Q= GTO HSTEP K 510 IF I= 1THEN F= Q 511 IF I= 2THEN D1= Q 512 IF I= 3THEN D2= Q 513 IF I= 4THEN S= Q 514 IF I= 5THEN L= Q 520 REM S IS THE SPACING OF THE GAMMA ROD TO DRIVEN ELEMENT 540 REM D1 IS THE DIAMETER OF THE GAMMA ROD 560 REM D2 IS THE DIAMETER OF THE DRIVEN ELEMENT 580 RN= LOG (2* S/ D1):RD= LOG (2* S/ D2) 600 R= (1+ (RN/ RD))^ 2 620 REM R IS THE IMPEDANCE STEP-UP RATIO OF THE GAMMA 625 IF F1= 1THEN 720 640 PRINT :PRINT R;" STEP-UP RATIO 700 REM Z OF THE TRANSMISSION LINE FORMED BY THE GAMMA ASSEMBLY 720 Z0= 276* (LOG ((2* S)/ (SQR (D1* D2))))/ (LOG (10)) 725 IF F1= 1THEN 820 740 PRINT :PRINT Z0;" OHMS. " 800 REM L = LENGTH OF GAMMA ROD, USUALLY .04 TO .05 WAVELENGTH 820 LD= L/ (11808/ F)* 360:REM CONVERT L TO DEGREES 825 IF F1= 1THEN 980 840 PRINT :PRINT " LD= ";LD;" DEGREES 900 REM Z1=COMPLEX IMPEDANCE AT CENTER OF ELEMENT. IF DRIVEN 920 REM ELEMENT IS SHORTENED 3 %, THE CAPACITIVE REACTANCE 940 REM WILL BE NEARLY EQUAL TO THE RESISTIVE COMPONENT. 960 REM Z2 IS THE IMPEDANCE AT THE TAP POINT. 980 Z1= 25:REM Z1=25 -J 25 OHMS. 1000 Z2= Z1/ (COS (LD* .017453))^ 2 1010 IF F1= 1THEN 1060 1020 PRINT :PRINT " Z2= ";Z2;" -J";Z2;" OHMS." 1040 REM MULTIPLY ABOVE VALUES BY STEP-UP RATIO AT LINE 640 1050 PRINT 1060 Z2= Z2* R 1070 IF F1= 1THEN 1120 1080 PRINT " Z2= ";Z2;" -J";Z2;" OHMS." 1100 REM XP = J Z0 TAN LD 1120 XP= Z0* (TAN (LD* .017453)) 1130 IF F1= 1THEN 1200 1140 PRINT :PRINT " XP= J";XP;" OHMS." 1200 A= Z2:B= Z2* (- 1):C= 0:D= XP 1220 GOSUB 40100 1240 IF F1= 1THEN 1300 1250 PRINT 1260 PRINT " Z2' = ";B$ 1300 C= 1+ (TAN (LD* .017453))* (A/ Z0) 1320 D= (TAN (LD* .017453))* (A/ Z0) 1340 A= A1:B= B1 1360 GOSUB 40400 1370 IF F1= 1THEN 1400 1380 PRINT :PRINT " Z3 = ";B$ 1400 A= A1:B= B1 1420 GOSUB 40500:REM INVERT 1440 PRINT 1460 XP= (- 1)* (1/ XP) 1500 A= A1:B= B1+ XP 1520 GOSUB 40500 1530 PLOT 29,17 1540 IF F1= 1THEN PRINT Q 1550 PLOT 29,19 1560 PRINT " INPUT IMPEDANCE = ";INT (A1* 10+ .5)/ 10;" +J";INT (B1* 10+ .5)/ 10;" OHMS." 1561 IF F1= 1THEN 1570 1562 PRINT 1564 A= A1:B= B1:GOSUB 40800 1566 PRINT " POLAR FORM = ";INT (Z* 10+ .5)/ 10;" OHMS AT ";INT (DG);" DEGREES." 1570 PLOT 29,22 1580 IF F1= 1THEN 1750 1600 CP= 10^ 6/ (F* B1* 3.14159* 2) 1620 PRINT :PRINT " CAPACITANCE REQUIRED = ";INT (CP);" PFD." 1700 SWR= 50/ A1:IF SW< 1THEN SW= 1/ SW 1720 PRINT 1740 PRINT " STANDING WAVE RATIO = ";INT (SW* 100+ .5)/ 100 1750 NEXT Q 1760 PRINT 1800 PRINT ,"TO SEE THE FORMULAS, ENTER ' Y ' ";:INPUT Y$ 1810 IF Y$= "Y"THEN 2000 1820 GOTO 100 1900 PLOT 12,15,29,22 2000 PLOT 12,15,17 2050 PRINT ,"THE FORMULAS USED WERE TAKEN FROM THE ARRL ANTENNA" 2060 PRINT ,"HANDBOOK AND ARE SHOWN BELOW." 2070 PLOT 18 2100 PLOT 3,0,6 2110 PLOT 14,82,32,61 2120 PLOT 3,6,6 2125 PLOT 15 2130 FOR X= 1TO 15:PLOT 95:NEXT X 2140 PLOT 3,6,5 2150 PLOT 49,43,32,76,79,71 2160 PLOT 3,13,5 2170 FOR X= 1TO 7:PLOT 95:NEXT X 2180 PLOT 3,15,6 2190 PLOT 68,49 2200 PLOT 3,15,4 2210 PLOT 50,32,83 2220 PLOT 3,9,9 2230 PLOT 76,79,71 2240 PLOT 3,15,8 2250 PLOT 50,32,83 2260 PLOT 3,13,9 2270 FOR X= 1TO 7:PLOT 95:NEXT X 2280 PLOT 3,15,10 2290 PLOT 68,50 2300 PLOT 3,5,4 2310 PLOT 30,110,10,26 2320 PLOT 30,97,10,26,97,10,26,97,10,26,97,10,26,97 2330 PLOT 10,26,30,108 2340 PLOT 3,20,4,30,111,10,26 2350 PLOT 30,98,10,26,98,10,26,98,10,26,98,10,26,98 2360 PLOT 10,26,30,109 2370 PLOT 14,3,22,4,50,15 2380 PLOT 3,30,6 2390 PLOT 14,90,15,48,32,14,61,32,50,55,54,32 2400 PLOT 76,79,71,15,49,48,32 2410 PLOT 28,25 2420 FOR X= 1TO 12:PLOT 95:NEXT X 2430 PLOT 3,51,5 2440 PLOT 50,32,83 2450 PLOT 3,47,8 2460 PLOT 30,115,26,28,98,101,101,101,101,101,101,101,101 2470 PLOT 3,50,8 2480 PRINT "D1 D2" 2500 PLOT 3,0,15,14 2510 PLOT 90,15,50,14,32,61,32,15,28,25 2520 FOR X= 1TO 10:PLOT 95:NEXT X 2530 PLOT 3,10,13,15,90,49 2540 PLOT 3,7,16,14 2550 PLOT 67,79,83,15,28,50,32,10,14,76 2560 PLOT 3,0,22 2570 PLOT 88,80,32,61,32 2580 PLOT 15,32,74,32,84,65,78,32,14,76 2600 PLOT 3,30,16 2610 PLOT 90,15,51,32,14,61,32,32,15,28 2620 FOR X= 1TO 25:PLOT 95:NEXT X 2630 PLOT 3,39,15 2640 PLOT 14,90,15,50,32,43,32,74,32,14,90,15 2650 PLOT 48,32,84,65,78,32,14,76 2660 PLOT 3,39,20 2670 PLOT 49,32,15,28,43,32,95,95,95,95,95,95,95,95 2680 PLOT 32,32,10,84,65,78,14,32,76,15 2690 PLOT 3,44,19 2700 PLOT 74,32,14,90,15,50 2710 PLOT 3,46,22 2720 PLOT 14,90,15,48 3000 PLOT 3,12,30 3010 PLOT 29,17 3020 PRINT "BEATS THE HELL OUT OF A SMITH CHART ! !" 4900 PLOT 29,23,15,8 5000 END 40000 REM COMPLEX ARITHMETIC 40100 REM ADDITION SUBROUTINE 40120 A1= A+ C:B1= B+ D 40140 GOSUB 45000 40180 RETURN 40200 REM SUBTRACTION 40220 A1= A- C:B1= B- D 40240 GOSUB 45000 40280 RETURN 40300 REM MULTIPLICATION 40320 A1= (A* C)- (B* D):B1= (A* D)+ (B* C) 40340 GOSUB 45000 40380 RETURN 40400 REM DIVISION 40420 A1= ((A* C)+ (B* D))/ ((C* C)+ (D* D)) 40430 B1= ((B* C)- (A* D))/ ((C* C)+ (D* D)) 40440 GOSUB 45000 40480 RETURN 40500 REM RECIPROCAL OF (A+J B) 40510 REM STORE VARIABLES TEMPORARILY 40520 AX= A:BX= B:CX= C:DX= D 40530 A= 1:B= 0:C= AX:D= BX 40540 GOSUB 40400:REM USE DIVISION SUBR. 40560 A= AX:B= BX:C= CX:D= DX:REM RESTORE VARIABLES 40580 RETURN 40600 REM SQUARE OF (A+J B) 40620 CX= C:DX= D:C= A:D= B 40640 GOSUB 40300 40660 C= CX:D= DX:REM RESTORE VALUES OF C AND D 40680 RETURN 40700 REM SQUARE ROOT OF (A+J B) 40730 Z= SQR (A* A+ B* B) 40740 V= ATN (B/ A) 40750 A1= SQR (Z)* COS (V/ 2) 40760 B1= SQR (Z)* SIN (V/ 2) 40770 GOSUB 45000 40780 Z= 0 40790 RETURN 40800 REM POLAR FORM OF (A+J B) 40820 Z= SQR (A* A+ B* B) 40840 V= ATN (B/ A) 40860 DG= V* 57.2958 40880 RETURN 40900 REM RECTANGULAR FORM OF Z / V 40920 A1= COS (V)* Z 40940 B1= SIN (V)* Z 40960 GOSUB 45000 40980 RETURN 45000 REM PRINT SUBROUTINE FOR COMPLEX NUMBERS 45020 IF B1= > 0THEN J$= "+J" 45040 IF B1< 0THEN J$= "-J" 45060 B$= STR$ (A1)+ J$+ STR$ (ABS (B1)) 45080 RETURN