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

3140 GOTO 2910
3150 REM<12.AP-MQ>
3160 PRINT"C2(NF) - ";: INPUT CO : C2=CO*1E-9
3170 PRINT"C3(NF) - "; : INPUT Cl : C3-C1*IE-9
3180 PRINT"R6(KOHM OPTIONAL) =";: INPUT RO: R6-R0MB3
3190 X=C2/C3:X1 = 1+X:X2=X1*X1
3200 H=6*Q*Q*X2/(2*Q*Q*X1-X)
3210 R=(SQR(H-H*H/3/X2)-1)/H
3220 R1 - 1 /FO/SQR (P*C2*C3) : R-P*R1
3230 IF R6-0 THEN R6= IE4
3240 R7 = R6*(P*X1+SQR(P*X)/Q)
3250 A= 1-2*SQR(P*X)/Q/(1+R7/R6)
3260 R5=R/A : R4=R/(l- A)
3270 GS = A*Q/SQR(P*X)*(l-fR7/R6)T2
3280 CLS:PRINTCHR$(23)
3290 PRINT"12.AP-MQ" : PRINT
3300 PRINT"R1= ";P1,"C2=";C2
3310 PRINT"C3=";C3,"R4-";R4
3320 PRINT"R5=";R5
3330 PRINT"R6=";R6,"R7=";R7 : PRINT
3340 PRINT"F = ";F,"Q - ";Q
3350 PRINT'P =";P,"GSP - ";GS: PRINT
3360 PRINT"TYPE 1 IF NEW P";: INPUT P0
3370 IF P0= 1 THEN PRINT"P ="; : INPUT P : GOTO 3220
3380 GOSUB 200
3390 GOTO 3160
3400 REM<13.BR-MQ>
3410 PRINT"C2(NF) -"; : INPUT CO : C2=CO*1E-9
3420 PRINT"C3(NF) ="; : INPUT Cl : C3=C1*1E-9
3430 PRINT"R6(KOHM,OPTIONAL)6"; : INPUT R0 : R6=RO*1E3
3440 H=C2/C3:P=I/3/(l+H)
3450 Rl = l/F0/SQR(P*C2*C3) : R=P*R1
3460 IF R6=0 THEN R6=1E4
3470 R7-R6*(1+H)*P
3480 A=l-SQR(P*H)/Q/(1+R7/R6)
3490 R5=R/A:R4-P/(l-A)
3500 CS = Q*A/SQR(P*H)*(1+R7/R6)f2
3510 CLS : PRINTCHR$ (23)
3520 PRINT"13.BP-MQ" : PRINT
3530 PRINT"R1= ";R1,"C2 -";C2
3540 PRINT"C3=";C3,"R4-";R4
3550 PRINT"R5=";R5
3560 PRINT"R6-";R6,"R7= ";R7 : PRINT
3570 PRINT"F - ";F,!Q=";Q
3580 PRINT"P?=";P,"GSP -";GS : PRINT
3590 PRINT'TYPE 1 IF NEW P";: INPUT P0
3600 IF P0= 1 THEN PRINT"P="; : INPUT P : GOTO 3450
3610 GOSUB 200
3620 GOTO 3410
3630 REMO4.LPN/HPN-MQ>