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