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

1150 PRINT"C12(NF,OPTIONAL) -";: INPUT C2 : S2=C2*1E-9
1160 PRINT"C3(NF)=";: INPYTC4 : C3 = C4*1E-9
1170 Cl - S1+S2
1180 P=Q*Q*(2+C1/C3+C3/C1)
1190 R2= 1/FO/SQR(P*C1*C3)
1200 R4=P*R2
1210 GSP=Q*SQR(R*C3/C1)
1220 K=Sl/Cl
1230 CLS:PRINTCHR$(23)
1240 PRINT"4.HP-LQ" : PRINT
1250 PRINT"C11 = ";S1
1260 IF S2-0 THEN 1280
1270 PRINT"C12 =";S2
1280 PRINT"R2 -";R2
1290 PRINT"C3 =";C3
1300 PRINT"R4 =";R4 : PRINT
1310 PRINT"K - ";K
1320 PRINT"F = ";F
1330 PRINT'Q = ";Q
1340 PRINT"GSP=";GS
1350 GOSUB 200
1360 GOTO 1140
1370 REM<5.AP-Q.5>
1380 PRINTei92,"Cl(NF)-";: INPUT SI : C1 = S1*1E- 9
1390 PRINT"C2(NF)=";: INPUT S2 : C2=S2*1E-9
1400 PRINT"C3(NF)=";: INPUT S3 : C3=S3*1E-9
1410 Hl= C1+C2:H2-= C2+C3:H3-C1*C2
1420 H= 1-H1*H2*4*Q*Q/C1/C3
1430 IF H>=0 THEN 1450
1440 PRINT"C1 = C3> - C2*2Q/(1-2Q)!" : PRINTR 128," " : PRINT i
PRiNT :GOTO 1380
1450 H4=2*F0*Q*H2 : H6-F0*F0*H3 : H5=H1/H6/C3
1460 A4= (1+SQR(H))/H4 : A5=H5/A4 : A6= 1/H6/(A4+A5>
1470 B4=(l-SQR(H))/H4 : B5=H5/B4 : B6= 1/H6/(B4+B5')
1480 CLS : PRINTCHP$ (23)
1490 PRINT"5.AP-Q.5" : PRINT
1500 PRINT"C1 =":C1
1510 PRINT"C2 -"C2
1520 PRINT"C3 =";C3. PRINT
1530 PRINT"R4A-"; A4, "R4B="; B4
1540 PRINT"R5A=";A5,"R5B=";B5
1550 PRINT"R6A="; A6, "R6B="; B6: PRINT
1560 PRINT"F ="; F
1570 PRINT"Q ="; Q : PRINT
1580 GOSUB 200
1590 GOTO 1380
1600 REM<6.AP-LQ>
1610 PRINTei92,"C2(NF)-";: INPUT CO: C2==CO*1E-9
1620 PRINT"C3(NF) =";: INPUT Cl : C3=C1*1E-9
1630 PRINT"R6(KOHM,OPTIONAL) - ";: INPUT R0 : R6=RO*1E3