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

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

1210 'GO,BO SUBROUTINE<br />

1220 R1#=GN#/(GN#A2+B1#A2)-RS#<br />

1230 X1#=B1#/(GN#A2+B1#A2)<br />

1240 GO#=R1#/(R1#A2+X1#A2)<br />

1250 BO#=X1#/(R1#A2+X1#A2)<br />

1260 CO#=BO#/2/PI#/FO#<br />

1270 RO#=l/GO#<br />

1280 RETURN<br />

1290 'Z SUBROUTINE (LINE SIDE)<br />

1300 BO#=2*PI#*F*CO#<br />

1310 B1#=1/2/PI#/F/L#<br />

1320 MAG#=I/SQR(GO#A2+BO#A2)<br />

1330 ANGLE#=-ATN(BO#/GO#)<br />

1340 REAL#=MAG#*COS(ANGLE#l+RS#<br />

1350 IMAG#=MAG#*SIN(ANGLE#)<br />

1360 MAG#=I/SQR(REAL#A2+IMAG#A2)<br />

1370 ANGLE#=-ATN(IMAG#/REAL#)<br />

1380 REAL#=MAG#*COS(ANGLE#)<br />

1390 IMAG#=MAG#*SIN(ANGLE#)-Bl#<br />

1400 MAG#=1/SQR(REAL#A2+IMAG#A2)<br />

1410 ANGLE#=-ATN(IMAG#/REAL#)<br />

1420 REAL#=RP#+MAG#*COS(ANGLE#)/NO#A2<br />

1430 IMAG#=MAG#*SIN(ANGLE#)/NO#A2<br />

1440 IF E=1 THEN 1470<br />

1450 PRINT USING "##### ####.# ####.# ####.# +##.#";F,REAL#,IMAG#,SQR(REAL#A<br />

2+IMAG#A2),FNATND#(IMAG#/REAL#)<br />

1460 LPRINT USING "##### ####.# ####.# ####.# +##.#";F,REAL#,IMAG#,SQR(REAL#<br />

A2+IMAG#A2),FNATND#(IMAG#/REAL#)<br />

1470 RETURN<br />

1480 LPRINT 'Z (MODEM SIDE)<br />

1490 PRINT<br />

1500 DATA 1000,400,-550,450,-500,450,-700,650,-600,650,-750,850,-500,850,-700,10<br />

50,-300,1050,-600,1100,-400<br />

1510 DATA 2000,400,-525,450,-500<br />

1520 DATA 2500,300,-500,350,-450<br />

1530 LPRINT"EFFECT OF TRANSFORMER AND CO ON APPARENT Zline"<br />

1540 PRINT "EFFECT OF TRANSFORMER AND CO ON APPARENT Zline"<br />

1550 LPRINT<br />

1560 PRINT<br />

1570 PRINT" # Freq Rl ine Xl ine Rin Xin"<br />

1580 LPRINT "# Freq Rl ine Xl ine Rin Xin"<br />

1590 PRINT<br />

1600 LPRINT<br />

1610 FOR M=O TO 2<br />

1620 READ F1#<br />

1630 IF M=O THEN 1730<br />

1640 IF M=1 THEN 1690<br />

1650 FOR N=13 TO 14<br />

1660 GOSUB 1800<br />

1670 NEXT N<br />

1680 GOTO 1760<br />

1690 FOR N=11 TO 12<br />

1700 GOSUB 1800<br />

1710 NEXT N<br />

1720 GOTO 1760<br />

1730 FOR N=1 TO 10<br />

1740 GOSUB 1800<br />

1750 NEXT N<br />

1760 NEXT M<br />

1770 RESTORE<br />

1780 GOSUB 2090 'PAUSE SUBROUTINE<br />

1790 GOTO 2170<br />

TL/H/9442-6<br />

5·41

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

Saved successfully!

Ooh no, something went wrong!