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

4630 GOSUB 200
4640 GOTO 4490
4650 REM<18.HP-HQ>
4660 PRINT'C(NF)-";: INPUT D:C -D*1E-9
4670 R0- 1/FO/C
4680 GOSUB 260
4690 C3=С : С7=С
4700 Rl -RD:R2=RD : R6- RD
4710 R8-Q*R0
4720 R4 -R0*R0/RD
4730 CLS:PRINTCHR$(23)
4740 PRINT"18 HP-HQ" : PRINT
4750 PRINT"R1='"RI,"R2-";R2
4760 PRINT"C3=";C3,"R4-";R4
4770 PRINT"R6=";R6,"C7-";C7
4780 PRINT"R8=";R8: PRINT
4790 PRINT"F=";F,"Q=";Q : PRINT
4800 GOSUB 200
4810 GOTO 4660
4820 REM<19.AP-HQ>
4830 PRINT"C(NF) =";: INPUT D : C=D*IE-9
4840 R0= 1/F0/C
4850 GOSUB 260
4860 C3-C:C7=С
4870 Rl = RD:R2= RD : R5=RD
4880 R8=Q*R0
4890 R4-R0*R0/RD
4900 CLS : PRINTCHR$ (23)
4910 PRINT"19.AP-HQ/': PRINT
4920 PR1NT"R1= ";Rl."R2=";R2
4930 PRINT"C3-";C3,"R4-";R4
4940 PRINT"R5=";R5,"C7-";C7
4950 PRINT"R8-";R8;PRINT
4960 PRINT'T - ";F,"Q -";Q: PRINT
4970 GOSUB 200
4980 GOTO 4830
4990 REM<20.BP-HQ>
5000 PRINT"C(NF) -"; : INPUT D : C=D*1E-9
5010 R0= 1/FO/C
5020 GOSUB 260
5030 C3=C:C7=C
5040 Rl -RD:R2=RD:R5=RD
5050 R7=2*Q*R0:R8-R7
5060 R4= R0*R0/RD
5070 CLS : PRINTCHR$ (23)
5080 PRINT"20.BP-HQ" : PRINT
5090 PRINT"R1=";R1,"R2-";R2
5100 PRINT"C3=";C3,"R4=";R4
5110 PRINT"R5-";R5,"R7=";R7
5120 PRINT"C7= ";C7,"R8-";R8 : PRINT