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