22.01.2014 Views

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

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

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

SHOW MORE
SHOW LESS

Create successful ePaper yourself

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

--~-- -<br />

----------<br />

Program B9-1.<br />

Elliptic Filter Pole/Zero and Loss Calcnlations.<br />

1000 PRINTnELLIP LP FLTR LOSS. DANIELS P.79"<br />

1050 DIM X(ZS),XZ(2S),A(25Q),O(250)<br />

1000 PI=3.1415926:Cl=Pl/2<br />

1100 PRINT"At1AX DB, Ar1IN DB,FB,FH-":INPUT AX,AN,FB,FH<br />

1110 EE=10~(AX/I0)-I:L=SgR«10A(AN/I0)-1)/EE):XL-FH/FB<br />

1130 K=1/L:60SUB5000<br />

1140 KL"KK<br />

1160 1(=$QR(1-1/L/L):GOSUB5000<br />

1170 Ll ...KK<br />

1410 K=SQR(I-I/XL/XL):GOSUB5000<br />

1420 Kl:sKK<br />

1430 K=1/XL:GOSUB5QOO<br />

1440 N=INTCLI/KL*KK/KI)+]<br />

1450 PRJNT"DEGREE=";N<br />

1460 NI="O:RN=l<br />

1470 IFN=2*lNT(N/2) THENNI=l<br />

1480 PRINT"LOSS POLE FREQUENCIES:"<br />

1500 FOR 1=1 TO INT(N/2):GOSUB7000:NEXT<br />

IbOO X=]:GQSUa9300<br />

1700 C=l/RN<br />

1800 PR]NT"F""";: INPUT F: GOSUB60oa<br />

1900 6OT01800<br />

3000 REM CALCSN(U,K)<br />

3100 Q~EXP(-PI.KI/KK)<br />

3200 V=PI/2*U/KI(:SN=0:J=0<br />

3300 W:QA(J~.5)~SN-SN+W'SIN«2'J+l)'V)/(1-WaW)=J2J+l<br />

3400 IFW>lE-7 GOT03300<br />

3500 SN=SN.2.PI/K/KK<br />

3600 RETURN<br />

5000 REM CALC COMPLETE ELLIP INTEGRAL<br />

5100 YY=K:XX-SQR(I-KtK) =GOSUBaQQO:A(0)=ZZ;O(0)=PI/2:P=I: 1=0<br />

5200 X=2/(1+SIN

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

Saved successfully!

Ooh no, something went wrong!