"Проектирование активных фильтров (Пер. с англ.)" - читать интересную книгу автора (Мошиц Г., Хорн П. )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 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)" з |
|
|