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

2140 P-(SQR(l+H2*(l+Hl))+l)t2/H3
2150 Rl -l/F0/SQR(P*C2*C4) :R3=P*R1
2160 IF R5=0 THEN R5= 1E4
2170 R6-R5*(H1*(1+P)-SQR(P*H1)/Q)
2180 K0=1+R6/R5 : GSP-Q*KO*KO/SQR(P*H1)
2190 IF Kl-0 THEN 2210
2200 IF КО-Kl>0 THEN 2220
2210 K-KO:S1- Rl : S2=1E30 : GOTO 2230
2220 K-=K1 :S1=KO*R1/K:S2=KO*R1/(KO-K)
2230 CLS : PRINTCHR$ (23)
2240 PRINT"8.LP-MQ" : PRINT
2250 PRINT"R11=";S1,:IF S2< >1E3O THEN PRINT"R12=";S2
2260 PRINT"C2 = ";C2,"R3=;R3
2270 PRINT"C4 - ";C4
2280 PRINT"R5 = ";R5,"R6=";R6: PRINT
2290 PRINT"K =";K
2300 PRINT"F -";F,"Q=";Q: PRINT
2310 PRINT"P =";P,"GSP=";GS : PRINT
2320 PRINT"TYPE 1 IF NEW P :";: INPUT P0
2330 IF PO-1 THEN PRINT"P=";: INPUT P : GOTO 2150
2340 GOSUB 200
2350 GOTO 2090
2360 REMO.BP-MQ-R>
2370 PRINT"C2(NF) -";: INPUT CO : C2=CO*1E-9
2380 PRINT"C3(NF) - ";: INPUT Cl : C3=C1*E1-9
2390 PRINT"K (OPTIONAL) =";: INPUT KI
2400 PRINT"R6(KOHM.OPTIONAL) - ";: INPUT R0 : R6=RO*1E3
2410 H1=C2/C3 : H2=4*Q*Q : H3=3*H2*(1+C3/C2)
2420 P-H1/H2>(SQR(1+H3)-I)f2
2430 R1 _ 1 /FO/SQR (P*C2*C3) : R4=P*R 1
2440 IF R6=0 THEN R6= 1E4
2450 R5=R6>((1+H1)/P-SQR(H1/P)/Q)
2460 KO=Q*(1+R5/R6)*SQR(P/H1)
2470 GSP-(l+R5/R6)*K0
2480 IF Kl=0 THEN 2500
2490 IF КО-Kl>0 THEN 2510
2500 K=KO:S1 - R1:S2-1E3O: GOTO 2520
2510 K-KI : SI-KO*R1/K : S2=K0*Rl/(K0-K)
2520 CLS : PRINTCHR$ (23)
2530 PRINT"9.BP-MQ-R" : PRINT
2540 PRINT"R11 =";S1,: IF S2< >1E3O THEN PR1NT"R12=";S2
2550 PRINT"C2 =";C2,"C3-";C3
2560 PRINT"R4 =";R4
2570 PRINT"R5 =";R5,"R6-";R6 : PRINT
2580 PRINT"K =";K
2590 PRINT"F -";F,"Q=";Q : PRINT
2600 PRINT"P =";P/'GSP -";GS : PRINT
2610 PRINT"TYPE 1 IF NEW P"; : INPUT P0
2620 IF P0= 1 THEN PRINT"P =";: INPUT P : GOTO 2430
2630 GOSUB 200