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

2640 GOTO 2370
2650 REM<10.BP-MQ-C>
2660 PRINT"C11(NF)=";: INPUT C3 : Sl= C3*1E -9
2670 PRINT"C12(NF,OPTIONAL) - ";: INPUT C2 : S2=C2*1E-9
2680 PRINT"C4(NF) ="; : INPUT CO : C4=COME-9
2690 PRINT"R6(KOHM,OPTIONAL) -"; : INPUT RO : R6=RO*1E3
2700 Cl = S1+S2:H1-C4/C1 :H2= 12*Q*Q
2710 P= (SQR(l+H2*(l+Hl)) + l)t2/3Hl/H2
2720 R2=1/FO/SQR(P*C1*C4) : R3=P*R2
2730 IF R6=0 THEN R6= 1E4
2740 R5=R6*(H1*(1+P)-SQR(P*H1)/Q)
2750 K-S1/C1*(1+R5/R6)*Q/SQR(P*H1)
2760 GSP = K/S1*C1*(1+R5/R6)
2770 CLS : PRINTCHR$ (23)
2780 PRINF'IOBP-MQ-C": PRINT
2790 PRINT"C11 =";S1,: IF S2< >0 THEN PRINT"C12-";S2
2800 PRINT"R2 =";R2,"R3-";R3
2810 PRINT"C4 = ";C4
2820 PRINT"R5 -";R5,"R6=";R6: PRINT
2830 PRINT"K - ";K
2840 PRINT"F =";F,"Q-";Q : PRINT
2850 PRINT"P =";P,"GSP = ";GS: PRINT
2860 PRINT'TYPE 1 IF NEW P";: INPUT PO
2870 IF PO=1 THEN PRINT"P=";: INPUT P : GOTO 2720
2880 GOSUB 200
2890 GOTO 2660
2900 REM<11.HP-MQ>
2910 PRINT"C11 (NF) - ";: INPUT CO : SI -CO*E1-9
2920 PRINT"C12(NF,OPTIONAL) - "; : INPUT C2 : S2=C2*1E-9
2930 PRINT"C3(NF) - ";: INPUT C4 : C3=C4*1E-9
2940 PRINT"R5(KOHM,OPTIONAL) =";: INPUT RO : R5-RO*1E3
2950 C1-=S1+S2:H1=C1/C3:H2=12*Q*Q*(1+1/H1)
2960 P=Hl/4/Q/Q*(SQR(l+H2)-l)t2
2970 R2= 1/FO/SQR(P*C1*C3) :R4=P*R2
2980 IF R5=0THEN R5=1E4
2990 R6=R5*((1+H1)/P-SQR(H1/P)/Q)
3000 K=S1*(1+R6/R5)/C1
3010 GS=Q*SQR(P/Hl)*(l+R6/R5)f2
3020 CLS : PRINTCHR$ (23)
3030 PRINT"11 HP-MQ" : PRINT
3040 PRINT"C11= ";S1,:IF S2<>0 THEN PRINT"C12=";S2
3050 PRINT"R2 = ";R2."C3-";C3
3060 PRINT"R4 = ";R4
3070 PRINT"R5 -";R5,"R6=";R6 : PRINT
3080 PRINT"K = ";K
3090 PRINT"F = ";F,"Q=";Q
3100 PRINT"P - ";P,"GSP="GS: PRINT
3110 PRINT"TYPE 1 IF NEW P";: INPUT PO
3120 IF P0= 1 THEN PRINT"P=";: INPUT P : GOTO 29T0
3130 GOSUB 200