~ National ~ Semiconductor - Al Kossow's Bitsavers

10 REM ••••••••••••••••••••••••••••••••••••••••••••
20 REM CONVERTED FOR IBM-PC BASIC 8/23/86 30 REM • CORRECTED AND MODIFIED 8/05/87 •
40 REM ••••••••••••••••••••••••••••••••••••••••••••
50 REM 60 REM MODIFIED DOUBLE PRECISION VERSION 70 REM 80 REM 90 REM FOR A COMPLETE STATEMENT OF THE 100 REM RESTRICTIONS IMPOSED ON YOU UNDER THE 110 REM COPYRIGHT LAWS OF THE UNITED STATES OF 120 REM AMERICA SEE TITLE 17, UNITED STATES 130 REM CODE. 140 REM 150 REM ALL RIGHTS RESERVED 160 REM 170 REM • FSC 1986,1987 •
180 REM •
190 REM ••••••••••••••••••••••••••••••••••••••••••••
200 DEF FNLOG10#(X)=LOG(X) •• 43429448# 'LOG base 10 function
210 DEF FNATND#(X)=ATN(X).(180/PI#) 'ATN function in DEGREES instead of
220 PI#=3.141592654#
230 DIM AS[50J, RE1#(14),IM1#(14),R#(14),X#(14),GLINE#(14),BLINE#(14)
240 DIM REAL#(14),IMAG#(14),GAIN#(14),GAINDB#(14)
250 E=O
260 VTO#=l
270 INPUT "ENTER TRANSFORMER 1. D. :", AS
280 LPRINT SPC(5) "uA212AT/uAV22 ACTIVE HYBRID DESIGN USING "AS
290 LPRINT
300 LPRINT "TRANSFORMER MODEM-SIDE TERMINATION. Zi n (FROM LINE SIDE)"
310 LPRINT
RADIANS
320 PRINT "ENTER TRANSFORMER PARAMETERS: Rpri,Rsec (ohms),Secondary Self-L(Hyl.N
(Sec/Pri)"
330 INPUT RP#,RS#,L#,NO# ' NO IS TURNS RATIO (SEC TO PRI)
340 PRINT "ENTER Rsurge (ohms),Rnom (nominal Zin, ohms).Fnom (freq for Rnom. Hz)
"
350 INPUT RP1#, RNOM#, FO#
360 RP#=RP#+RP1#
370 PRINT
380 PRINT "TOTAL primary resistance Rpri'=Rpri+Rsurge."
390 PRINT
400 B1#=1/2/PI#/FO#/L#
410 GN#=1/NO#~2/(RNOM#-RP#)
420 GOSUB 1210 ' calculate BO,GO
430 LPRINT "TOTAL primary resistance Rpri'=Rpri+Rsurge."
440 LPRINT
450 PRINT Rpri' Rsec L(Hyl N Rnom Fnom RO CO
(uF)"
460 LPRINT Rpr i' Rsec l(Hy) N Rnom
O(uF)"
470 LPRINT
480 PRINT
490 PRINT USING" #### #### #.### #.## #### #### ####
,L#,NO#.RNOM#,FO#,RO#,CO#.1000000!
500 LPRINT USING" #### #### #.### #.## #### #### ####
#,L#,NO#,RNOM#,FO#,RO#,CO#.1000000!
510 LPRINT
520 PRINT" Freq Rin Xin Mag Angle"
530 LPRINT " Freq Rin Xin Mag Angle"
540 LPRINT
550 FOR F=300 TO 3000 STEP 300
560 GOSUB 1290 'CALCULATE Z
Fnom RO C
#.####";RP#,RS#
#.##II#";RPII,RS
TLlH/9442-4
~
Z
I
...
en
en
5-39