"Проектирование активных фильтров (Пер. с англ.)" - читать интересную книгу автора (Мошиц Г., Хорн П. )170 PRINT"FREQUENCY(HZ) -"; : INPUT F : F0=2*F*PI#
180 PRINT"Q -";: INPUT Q 190 ON M GOSUB 310,590,860,1130,1370,1600,1840,2080,2360,2650,2900,3150, 3400,3630,4010,4310,4480,4650,4820,4990,5160,5420,5640 200 PRINT"TYPE 1 FOR NEW RUN"; : INPUT T 210 IFTOI THEN 10 220 CLS.PRINTCHR$(23) 230 PRINT"FREQUENCY(HZ)-";F 240 PRINT"Q = ";Q 250 RETURN 260 PRINT'OPTIMAL R0(KOHM)=";RO/1E3 270 PRINT"INPUT DISCRETE VALUE NEAR R0" 280 PRINT"RD(KOHM)=";: INPUT ZZ:RD -ZZ**1E3 290 IF RD=0 THEN RD=R0 300 RETURN 310 REM <1.LP-LQ> 320 PRINT ei92,"C2(NF)=";: INPUT CO: C2=CO*1E-9 330 PRINT"C4(NF)=";: INPUT C3 : C4=C3*1E-9 340 HI-C2/C4/2/Q/Q 350 IF HI>=2 THEN 370 360 PRINT'C2>= 4Qf2*C4 !": PRINTR 128,"" : PRINT : GOTO 320 370 P = HI-1+SQR(H1*(H1- 2)) 380 R1 = 1 (F0) /SQR (P*C2*C4) 390 R3=P*R1 :GSP=Q*SQR(C2/C4/P) <00 PRINT"K(OPTIONAL) =";: INPUT Kl 420 IF 1-Kl<-0 THEN 440 430 К-Kl : Sl = Rl/K : S2=Rl/(1-K) : GOTO 450 440 SI- Rl :S2= 1E3O:K=1 450 CLS : PRINTCHR$ (23) 460 PRINT"1.LP-LQ" : PRINT 470 PRINT"R11=";S1 480 IF S2= 1E30 THEN 500 490 PRINT"R12 =";S2 500 PRINT"C2 =";C2 510 PRINT"R3 -";R3 520 PRINT"C4 =";C4 : PRINT 530 PRINT"K =";K 540 PRINT"F _";F 550 PRINT"Q =";Q 560 PRINT"GSP-";GSP: PRINT 570 GOSUB 200 580 GOTO 320 590 REM<2.BP-LQ-R> 600 PRINTR 192,"C2(NF)-";: INPUT CO: C2=CO*1E-9 610 PRINT"C3(NF) ="; : INPUT Cl : C3=C1*1E-9 620 P = Q*Q*(2+C2/C3+C3/C2) 630 Rl = l/F0/SQP(P*C2*C3) 640 R4=P*R1 650 GSP=Q*Q*(1+C3/C2) |
|
|