17.05.2015 Views

~ National ~ Semiconductor - Al Kossow's Bitsavers

~ National ~ Semiconductor - Al Kossow's Bitsavers

~ National ~ Semiconductor - Al Kossow's Bitsavers

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

~<br />

.... ,-----------------------------------------------------------------------------,<br />

i<br />

1800 READ Rll,Xll<br />

1810 REIICN)=Rll<br />

1820 IMIICN)=Xll<br />

1830 BMI=1/2/PII/FII/LI<br />

1840 BOI=2*PII*Fll*COI<br />

1850 REALI=Rll+RPI<br />

'Zload SUBROUTINE<br />

1860 MAGI=I/NOIA2/SQRCREALI A 2+XII A2)<br />

1870 ANGLEI=-ATN(XII/REALI)<br />

1880 REALI=MAGI*COSCANGLEI)<br />

1890 IMAGI=MAGI*SINCANGLEI)-BMI<br />

1900 MAGI=I/SQR(REALIA2+IMAGIA2)<br />

1910 ANGLEI=-ATNCIMAGI/REALI)<br />

1920 REALI=MAGI.COSCANGLEI)+RSI<br />

1930 IMAGI=MAGI.SINCANGLEI)<br />

1940 MAGI=I/SQRCREALIA2+1MAG#A2)<br />

1950 ANGLEI=-ATNCIMAGI/REALI)<br />

1960 REALI=MAGI*COSCANGLEI)<br />

1970 IMAGI=MAGI.SINCANGLEI)+BOI<br />

1980 MAGI=I/SQRCREALI A 2+1MAGI A 2)<br />

1990 ANGLEI=-ATNCIMAGI/REALI)<br />

2000 REALI=MAGI*COSCANGLEI)<br />

2010 IMAGI=MAGI*SINCANGLEI)<br />

2020 IF N=1 THEN PRINT "NONLOADED LINES, 2W 8. 4W TERMINATIONS" ELSE IF N=11 THEN<br />

PRINT "MEDIAN LOADED 8. NONLOADED LINES" ELSE 2040<br />

2030 IF N=1 THEN LPRINT "NONLOADED LINES, 2W 8. 4W TERMINATIONS" ELSE IF N=11 THE<br />

N LPRINT "MEDIAN LOADED 8. NONLOADED LINES" ELSE 2040<br />

2040 PRINT USING "II lUI IIII +1111 IIII +111#";N,Fll,RU.Xll,REALI<br />

,IMAGI<br />

2050 LPRINT USING "II IIII IIII<br />

I,IMAGI<br />

+1111 IIII +111#";N,Fll,Rll,Xll.REAL<br />

2060 RICN)=REALI<br />

2070 XICN)=IMAGI<br />

2080 RETURN<br />

2090 DUMMV"'1<br />

2100 PRINT<br />

2110 WHILE DUMMY<br />

2120 INPUT "HIT 'ENTER' TO CONTlNUE,",DUMMY<br />

2130 WEND<br />

2140 PRINT<br />

2150 RETURN<br />

2160 END<br />

2170 Z=O , SET FLAG: PRINT Gain VS Zload<br />

2180 FCI=1000000!<br />

2190 RW=O<br />

2200 LPRINT<br />

2210 LPRINT "NORMALIZED GAIN FROM TKO TO RUN, dB"<br />

2220 LPRINT<br />

2230 LPRINT "Kt CTKO to RUN) and Kr Csecondary to RXIN) are relatille gains,"<br />

2240 LPRINT "meanGdb is the allerage 0' Gdb 'or the 14 line terminations,"<br />

2250 FOR 1=1 TO 14 ' CONVERT LINE IMPEDANCE TO LINE ADMITTANCE<br />

2260 GLINEI(I)=RICI)/(RICI)A2+XICI)A2)<br />

2270 BLINEICI)=-XI(I)/CRICI)A2+XICI)A2)<br />

2280 NEXT I<br />

2290 GOTO 2460<br />

2300 LPRINT<br />

2310 PRINT Fe Kt Kr meanGdb" • PRINT Fe,KICKt).Kr,RXG<br />

AIN<br />

2320<br />

2330<br />

2340<br />

2350<br />

2360<br />

LPRINT<br />

Fc Kt<br />

LPRINT<br />

PRINT USING "111111111 1,111<br />

LPRINT USING "111111111 1,111<br />

LPRINT<br />

Kr<br />

1<br />

1<br />

meanGdb"<br />

, PRINT Fc,KICKt),Kr,RXGAIN<br />

+I#,II";FCI,KMINI,MINI<br />

+11,1#" ;FCI ,KMIN# ,MIN#<br />

TLlH/9442-7<br />

5-42

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!