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

Program B5-2.
L-Seetion Optimization-
10 REM L-SECTION OPTIMIZATION.
15 REM BY Tott CUTHBERT
20 PRINT". OF SWR GOAL VALUES=";:INPUT HZ
30 DIM FR(HZ),RL(HZ),XL(HZ)
40 PRINT" INPUT THOSE:"
50 FOR 1=1 TO HZ
55 PRINT"FREQ{"; 1;") ,RL, XL=";: INPUT FR( 1) ,RL(1), XL(!)
60 NEXT I
72 NX=2
90 DIM X(NY.},8(NX),S(N7.>
100 PRINT"INPUT STARTING L VALUE";:INPUT X(I)
110 PRINT" INPUT STARTING C VALUE"; -: INPUT X (2)
120 PRINT"PTH DIFFERENCE: P=";:INPUT P
USE LINES 150-940 FROM
PROGRAM 85-1 OPTIMIZER
999 GOT0120
1000 REM SWR-TYPE SQRD-ERROR OBJ FNCN
1005 c=o
1010 605U821OO
1015 UN=ER
1020 IF Y7.~O THEN F=ER
1030 IF Y7.=l THEN F9=ER
1040 FOR C=l TO WI.
1050 X(C)=X(C).1.0001
1060 605U82100
1070 X(C)=X(C)/1.0001
1080 G(C)=(ER-UN)/(lE-4*X