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

GOTO 4070
4140 IF H = 0 THEN R8-1E30 ELSE R8 = RS/H
4150 IF R9 = 0 THEN R9=1E4
4160 R0-R9*C* (1 /R8/C/Z0+RS*C4*Z0-H1 /Q/X)
4170 GS = Q*X/Hl*(SQR(R5*C3/R6/C)+SQR(RS*C2/R7/Cl))*(l+R0/R9)t2
4180 K=(l+R0/R9)/Hl
4190 CLS : PRINTCHR$ (23)
4200 PRINT"15.BR-LPN/HPN-MQ" : PRINT
4210 PRINT"C1=";C1,"C2 -";C2
4220 PRINT"C3 = ";C3,"C4 = ";C4
4230 PRINT"R5=";R5,"R6-";R6
4240 PRINT"R7=";R7,"R8=";R8
4250 PRINT"R9 = ";R9,"R10=";R0 : PRINT
4260 PRINT"F = ";F,"FP = ",F
4270 PRINT" Q _",Q,"K=";K'
4280 PRINT"GSP-";GS : PRINT
4290 GOSUB 200
4300 PRINT"FZ = ",FZ: GOTO 4040
4310 REM<16.LP-HQ>
4230 PRINT"C(NF) ="; : INPUT D : C=D*1E-9
4330 R0=i/F0/C
4340 GOSUB 260
4350 Cl=C:C4=С
4360 R2=RD:R3=RD:R6=RD
4370 Rl=Q*R0
4380 R7= R0*R0/RD
4390 CLS : PRINTCHR$ (23)
4400 PR1NT"16.LP-HQ" : PRINT
4410 PRINT"R1= ",R1,"C1=";C1
4420 PRINT"R2-";R2,"R3-";R3
4430 PRINT"C4-";C4,"R6=";R6
4440 PRINT"R7 - ";R7: PRINT
4450 PRINT"F = ",F,"Q-";Q : PRINT
4460 GOSUB 200
4470 GOTO 4320
4480 REM<17.BP-HQ>
4490 PRINT"C(NF)= "; : INPUT D :C = D*IE- 9
4500 R0= 1/F0/C
4510 GOSUB 260
4520 C3=С:С8=С
4530 R1 = RD:R2=RD:R6-RD
4540 R7=Q*R0
4550 R4=R0*R0/RD
4560 CLS : PRINTCHR$ (23)
4570 PRINT"17.BP-HQ": PRINT
4580 PRINT"R1-";R1,"R2-";R2
4590 PRINT"C3=";C3,"R4-";R4
4600 PRINT"R6='"R6,"R7-";R7
4610 PRINT"C8=";C8 : PRINT
4620 PRINT"F -";F,"Q=";Q: PRINT