download searchable PDF of Circuit Design book - IEEE Global ...

Program 84-\.
Level-O Ladder Network Analysis
2020 PRINT"FREQ,INDUC,CAPAC UNITS-";:INPUT FU,LU,CU
1020 PRINT"LOAD RESISTANCE.REACTANCE.... ;:INPUT RL,XL
1030 PRINT"WATTS IN LOAD"''';; INPUT WL
1040 DIM MlJb>,Xl1b),PClb)
1045 PI~3.141S92b
1050 PRINT"INPUT RLe COMPONENTS AS TYPES
lObO PRINT" I-RESISTOR, 2-1NDUCTDR, 3-CAPACITOR."
1070 PRINT" NEGATIVE 1,2, OR 3 MEANS"
1080 PRINT" NULL PRIOR BRANCH."
1090 PRINT"LIST FROM LOAD END: TYPE,VALUE,g"
1100 PRINT" (TERMINATE WITH 0,0,0)"
1110 FOR N=l TO 16
1120 PRINT" ";Nj
1130 INPUT M(N),X(NJ,PCN)
1140 IF P(NI=O THEN P(N)=lEI0
1150 P(N)=l/P(N)
1160 IF H(N)=Q 80101200
1170 NEXT N
1180 PRINT"t1ORE THAN 15 VALUES.";GOT09999
1200 PRINT"FREQ.";:INPUT OM
1210 OMF2*PltOMlFU
1220 8R=5QR(WL/RLI:8t=O;DR=O:DI~O
1230 CR=RLtCI=XL
1240 PRINT"BR4 REAL H1A13INARY"
1250 REM K~BRANCH _, N=COMPONENT POINTER
1260 KsOtN=O;Fl~O
1300 K=K+l=N=N+l
1310 !'1K=M(N)
1315 IF Fl >0 THEN f'1J("'-MK
1317 Fl=O
1370 GOSUB99oo
1380 PRINT K;AR,AI
1381 IF MK~O GOT09955
1382 IF MK