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

5630 GOTO 5430
5640 REM<23.CP2>
5650 PRINT"C(NF) ="; : INPUT D : C -D*1E-9
5660 PRINT"K = ";: INPUT К
5670 IF K=0 THEN K= 1
5680 R0=l/F0/C
5690 GOSUB 260
5700 R2=RD:R7=RD:R8=RD
5710 C3=C:C6=C
5720 R5=R0*R0/RD
5730 R4=Q*RQ
5740 PRINT"TYPE 1 IF 'K' IS FOR LP"; : INPUT X
5750 IF X= 1 THENKL==K:R1 = R2/K?KB = R4/R1 : GOTO 5770
5760 K=K:R1= R4/K : KL - R2/R1
5770 CLS : PRINTCHR$ (23)
5780 PRINT"23.CR2": PRINT
5790 PRINT"R1=";R1,"R2 = ";R2
5800 PRINT"C3=";C3,"R4 = ";R4
5810 PRINT"R5=";R5,"C6=";C6
5820 PRINT"R7=";R7,"R8-";R8 : PRINT
5830 PRINT"KBP=";KB
5840 PRINT"KLP1 = KLP2=";KL
5850 PRINT"F=";F,"Q-";Q : PRINT
5860 GOSUB 200
5870 GOTO 5650
5880 END