Listing of file='ATTENU.BAS;01' on disk='vmedia/ncc_18-sector.ccvf'
100 REM BY MYRON STEFFY, AF7E. SUN CITY, ARIZONA 8/79 110 PLOT 12,29,17,14 120 PRINT TAB( 22)"T AND PI ATTENUATORS" 130 PLOT 29,22,15 140 PRINT 160 INPUT "WHAT IS THE SOURCE IMPEDANCE ? ";ZS 170 PRINT 180 INPUT "WHAT IS THE LOAD IMPEDANCE ? ";ZT 185 IF ZS= > ZTTHEN 210 190 IF ZS< ZTTHEN X= ZT:ZT= ZS:ZS= X 200 PRINT :PRINT "TO CALCULATE, SOURCE AND LOAD IMPEDANCES WILL BE REVERSED." 205 FOR X= 1TO 2000:NEXT X 210 PLOT 12,29,17,14 220 PRINT TAB( 24)"T ATTENUATOR" 230 PLOT 29,22,15 240 DEF FN LG(N)= LOG (N)/ LOG (10) 260 A= ZS/ ZT 270 B= SQR (A- 1)+ SQR (A) 280 LM= FN LG(B)* 20 290 PRINT "MINIMUM LOSS = ";INT (LM* 100+ .5)/ 100;" DB."; 300 INPUT ": DESIRED LOSS ? ";LD 310 IF LD< .0001THEN LD= .0001 315 PRINT 320 IF LD< LMTHEN PRINT "DESIRED LOSS CANNOT BE LESS THAN ";LM 330 IF LD< LMTHEN :FOR X= 1TO 2000:NEXT X:GOTO 210 335 LX= LD 340 GOSUB 5000 360 D= SQR (ZS* ZT* LD* 4)/ (LD- 1) 370 R3= D 380 R2= D* (- 1)+ R6* ZT 400 R1= ZS* R6- D 410 PLOT 3,18,8 420 PRINT "R1=";INT (R1* 100+ .5)/ 100 425 PLOT 3,36,8 430 PRINT "R2=";INT (R2* 100+ .5)/ 100 435 PLOT 3,34,15 440 PRINT "R3=";INT (R3* 100+ .5)/ 100 450 PLOT 3,6,15 460 PRINT "Z/IN=";ZS;" OHMS" 470 PLOT 3,50,15 480 PRINT "Z/OUT=";ZT;" OHMS" 490 GOSUB 1000 495 PLOT 3,10,30 500 INPUT "TO SEE THE EQUIVALENT PI MATCH, HIT RETURN ";Y 510 PLOT 12,29,17,14 520 PRINT TAB( 24)"PI ATTENUATOR" 530 PRINT :PLOT 29,22,15 560 A= ZS/ ZT 570 B= SQR (A- 1)+ SQR (A) 580 LM= FN LG(B)* 20 590 PRINT "MINIMUM LOSS = ";INT (LM* 100+ .5)/ 100;" DB."; 600 PRINT ": DESIRED LOSS = ";LX:LD= LX 640 GOSUB 5000 660 D= SQR ((ZS* ZT/ LD)/ 4)* (LD- 1) 670 R3= D 680 R2= 1/ (1/ (1/ (1/ ZT* R6- (1/ D)))) 710 R1= 1/ (1/ ZS* R6- (1/ D)) 720 GOSUB 2000 730 PLOT 3,15,17,29,22 740 PRINT "R1=";INT (R1* 100+ .5)/ 100 750 PLOT 3,41,17 760 PRINT "R2=";INT (R2* 100+ .5)/ 100 770 PLOT 3,28,10 780 PRINT "R3=";INT (R3* 100+ .5)/ 100 800 PLOT 3,4,25 810 PRINT "Z/IN=";ZS;" OHMS 820 PLOT 3,50,25 830 PRINT "Z/OUT=";ZT;" OHMS 999 END 1000 PLOT 27,24,29,23 1020 PLOT 3,14,10 1030 PLOT 79,95,95,95,95,95,95 1040 PLOT 14,94,94,94,94,94,94 1050 PLOT 15,28:FOR X= 1TO 12:PLOT 95:NEXT X 1060 PLOT 14,94,94,94,94,94,94 1070 PLOT 15,28,95,95,95,95,95,95,79 1080 PLOT 3,14,20 1090 PLOT 79 1100 FOR X= 1TO 36:PLOT 95:NEXT X:PLOT 79 1110 PLOT 3,32,11 1120 PLOT 29,110,10,26,29,110 1130 FOR X= 1TO 5:PLOT 10,26,60:NEXT X 1140 FOR X= 1TO 3:PLOT 10,26,29,110:NEXT X 1150 PLOT 27,11,15 1160 RETURN 2000 PLOT 27,24,29,23,15 2020 PLOT 3,14,12 2030 PLOT 79:FOR X= 1TO 15:PLOT 95:NEXT X 2040 PLOT 14,94,94,94,94,94,94 2050 PLOT 15,28:FOR X= 1TO 15:PLOT 95:NEXT X:PLOT 79 2060 PLOT 3,14,22 2070 PLOT 79:FOR X= 1TO 36:PLOT 95:NEXT X:PLOT 79 2080 PLOT 3,26,13 2100 PLOT 29,110,10,26,29,110 2110 FOR X= 1TO 5:PLOT 10,26,60:NEXT X 2120 FOR X= 1TO 3:PLOT 10,26,29,110:NEXT X 2130 PLOT 3,39,13 2140 PLOT 29,110,10,26,29,110 2150 FOR X= 1TO 5:PLOT 10,26,60:NEXT X 2160 FOR X= 1TO 3:PLOT 10,26,29,110:NEXT X 2180 PLOT 27,11,15 2200 RETURN 5000 LD= 10^ (LD/ 10) 5020 R6= (LD+ 1)/ (LD- 1) 5040 RETURN