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

5130 PRINT'T =";F,"Q =";Q: PRINT
5140 GOSUB 200
5150 GOTO 5000
5160 REM<21.LPN/HPN-HQ>
5170 PRINT"ZERO FREQ. = ": : INPUT FZ
5180 IF FZ=F THEN PRINT"NO BANDREJECTI" : GOTO 5170
5190 PRINT"C(NF) - "; : INPUT D : C=D*1E-9
5200 R0-1/F0/C
5210 COSUB 260
5220 C2=C:C7=С
5230 Rl = RD:R3-RD
5240 R8=Q*R0
5250 X-(FZ/Z)f2
5260 CLS : PRINTCHR$ (23)
5270 IF X>1 THEN 5310
5280 R4=R8*(l-X)
5290 PRINT"21.HPN-HQ" : PRINT
5300 GOTO 5330
5310 R4-R8*(X-1)
5320 PRINT"21.LPN-HQ" : PRINT
5330 R5=R0*R0/R4
5340 PRINT"R1=";R1,"C2=";C2
5350 PRINT"R3=";R3,"R4=";R4
5360 PRINT"R5=";R5,"C7=";C7
5370 PRINT"R8=";R8: PRINT
5380 PRINT'T -";F,"FP-";F
5390 PRINT"Q =";Q: PRINT
5400 GOSUB 200
5410 PRINT'T-",F: GOTO 5190
5420 REM<22.GP1>
5430 PRINT"C(NF) - ";: INPUT D : C-=D*1E-9
5440 R0-1/F0/C
5450 GOSUB 260
5460 R1=RD:R3=RD : R5=RD : R7=PD
5470 C6=C : C8=C
5480 R4 = RD*RD*RD/R0/R0
5490 R2=RD*(Q*(1+R4/RD)/SQR(R4/RD)-1)
5500 KH=(1+R4/RD)/(1+RD/R2)
5510 KB = R2/RD
5520 KL=KH*RD/R4
5530 CLS : PRINTCHRS (23)
5540 PRINT"21.CP1": PRINT
5550 PRINT"R1=";R1,"R2=";R2
5560 PRINT"R3=";R3>"R4 = ";R4
5570 PRINT"R5=";R5,"C6=";C6
5580 PRINT"R7=";R7,"C8-";C8 : PRINT
5590 PRINT"KHP=";KH,"KBP -";KB
5600 PRINT"KLP -";KL
5610 PRINT"F=";F,"Q = ",Q : PRINT
5620 OOSUB 200