"Проектирование активных фильтров (Пер. с англ.)" - читать интересную книгу автора (Мошиц Г., Хорн П. )660 K0=GSP
670 PRINT"K(OPTIONAL) =";: INPUT Kl 680 IF Kl-0 THEN 710 590 IF КО-К1<=О THEN 710 700 K=Kl : S1=KO*R1/K : S2=KO*R1/(KO-K) : GOTO 720 710 K=KO:S1 = R1 :S2= 1E30 720 CLS : PRINTCHR$ (23) 730 PRINT"2.BP-LQ-R" : PRINT 740 PRINT"R11=";S1 750 IF S2= 1E30 THEN 770 760 PRINT"R12 =";S2 770 PRINT"C2 =";C2 780 PRINT"C3 =";C3 790 PRINT"R4 -";R4 : PRINT 800 PRINT"K =";K 810 PRINT"F - ";F 820 PRINT"Q =";Q 830 PRINT"GSP=";GS : PRINT 840 GOSUB 200 850 GOTO 600 860 REM<3.BP-LQ-C> 870 PRINT R 192,"C11 (NF) -"; : INPUT CO : SI =CO*1E-9 880 │ PRINT"C12(NF,OPTIONAL) -";: INPUT C3 : S2=C3*1E-9 890 PRINT"C4(NF) - "; : INPUT C2 : C4=C2*1E-9 900 Hl=(Sl+S2)/C4/2/Q/Q 920 PRINT"C11+C12=4Qf2*C4!" : PRINTR 128," " : PRINT : PRINT: GOTO 870 930 Cl-S1+S2 940 P = HI-1+SQR(H1*(H1- 2)) 950 R2=1/FO/SQR(P*C1*C4) 960 R3=P*R2 970 GSP=Q*SQR(C1/P/C4) 980 K=S1*GS/C1 990 CLS:PRINTCHR$(23) 1000 PRINT"3.BP-LQ-C" : PRINT 1010 PRINT"C11-";S1 1020 IF S2=0 THEN 1040 1030 PRINT"C12 -";S2 1040 PRINT"R2 - ";R2 1050 PRINT"R3 =";R3 1060 PRINT"C4 =";C4 : PRINT 1070 PRINT"K=";K 1080 PRINT"F - ";F 1090 PRINT"Q =";Q 1100 PRINT"GSP = ";GS : PRINT 1110 GOSUB 200 1120 GOTO 870 1130 REM<4.HP-LQ> 1140 PRINTc 192,"C11(NF)=";: INPUT CO : SI-CO*1E-9 |
|
|