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