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

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
410 IF Kl=О THEN 440
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)