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