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