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