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

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
910 IF HI >- 2 THEN 930
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