"Проектирование активных фильтров (Пер. с англ.)" - читать интересную книгу автора (Мошиц Г., Хорн П. )

3640 PRINT"ZERO FPEQ.=";: INPUT F2
3650 X0 = SGN(F-FZ)
3660 IF X0=0 THEN PRINT"NO BANDPEJECT!" : GOTO 3640
3670 PRINT"C3(NF) -"; : INPUT : CO : C3=C0*lE-9
3680 PRINT"C4(NF)="; : INPUT Cl : C4=C1*1E-9
3690 PRINT"K (OPTIONAL) ="; : INPUT KI
3700 PRINT"R9(KOHM,OPTIONAL) - "; : INPUT R0 : R9=RO*1E3
3710 PRINT"P(START BETWEEN .01 TO 3.)="; : INPUT P
3720 X= (l+X0)/2:Z0=(2*PI*FZ)f2
3730 G = C3*F0/2/P/Q*(SQR(l+4*Q*Q*P*(l+C4/C3))-1)
3740 K0= (l+P)/(l + (l+C4/C3)*Z0*(C3/G)t2)
3750 IF Kl - 0THEN 3780
3760 H= 1-K1/K0
3770 IF H>0 THEN 3790
3780 K=KO:R1 = 1/C : R2= 1E30:GOTO 3800
3790 K=Kl : Rl = K0/C/K1 : R2=l/G/H
3800 R6-G*(l+P)*(l- X/K)/C3/C4(Z0-FO*F0)
3810 R5= l/(C3*C4*F0*F0/G+P/R6)
3820 HI -Q/FO* (G/C3+ (C3+C4)*(R5+R6)/C3/R5/C4/R6)
3830 H2= 1-G* (R5+R6)/F0/F0/C3/C4/R5/R6
3840 GS(1+P)/2*(ABS(1-Hl)-fQ*ABS(H2>'
3850 IF R9=0 THEN R9-1E4
3860 R7=P*R9/K:R8=P*R9/(1-K)
3870 CLS : PRINTCHR$ (23)
3880 PRINT"14.LPN/HPN-MQ" : PRINT
3890 PRINT"R1 =";R1,"R2=";R2
3900 PRINT"C3 =";C3,"C4 -";C4
3910 PRINT"R5 -";R5,"R6=";R6
3920 PRINT"R7 =";R7,"R8=";R8
3930 PRINT"R9 =";R9 : PRINT
3940 PRINT"K =";K,"FZ -";FZ
3950 PRINT"FP = ";F,"Q=";Q
3960 PRINT"P =";P,"GSP=";GS: PRINT
3970 PDINT"TYPE 1 IF NEW P"; : INPUT PO
3980 IF P0=l THEN PRINT"P = "; : INPUT P : GOTO 3720
3990 GOSUB 200
4000 PRINT"FZ=";FZ : GOTO 3670
4010 REM<15.BR-LPN/HPN-MQ>
4020 PRINT"ZERO FREQ.="; : INPUT FZ
4030 Z0=2*PI*FZ:Z2=Z0*Z0:X=ZO/FP
4040 PRINT'Cl(NF)-"; : INPUT Dl :C1_D1*1E-9
4050 PRINT"C2(NF)="; : INPUT D2 : C2=D2*1E-9
4060 PRINT"C3(NF) ="; : INPUT D3 : C3-D3*IE-9
4070 PRINT"C4(NF) = ";: INPUT D4 : C4-D4*1E-9
4080 PRINT"R9(KOHM,OPTIONAL) ="; : INPUT Y : R9 = Y*1E3
4090 C = C1*C2/(C1+C2) : HI = 1+C4/C : H2= 1+C2/C1
4100 G=l/2/SQR(H2*(l+C2/C3))
4110 R5= l/2/Z0/G/(C2+C3) : R6=H2/R5/Z2/C2/C3
4120 RS = R5+R6:R7- 1/Z2/C1/C2/RS : H = H1/X/X- 1
4130 IF H<0 THEN PRINT"C4>= ((FZ/FP) f2- 1)*C1*C2/(C1+C2)" з