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

1640 P=Q*Q*(2+C2/C3+C3/C2)
1650 Rl==l/F0/SQR(P*C2*C3)
1660 R4=P*R1 :GSP=Q*SQR(P*C3/C2)
1670 IF R6=0'THEN R6= 1E4
1680 R5=R6*2*(l+C2/C3)/P
1690 K=R6/(R5+R6)
1700 CLS:PRINTCHR$(23)
1710 PRINT"6..AP-LQ" : PRINT
1720 PRINT"R1 -";R1
1730 PRINT"C2 =";C2
1740 PRINT"C3 =";C3
1750 PRINT"R4 -";R4
1760 PRINT"R5 -";R5
1770 PRINT"R6 =";R6: PRINT
1780 PRINT"K -=";K
1790 PRINT"F =";F
1800 PRINT"Q - ",Q
1810 PRINT"GSP=";GS : PRINT
1820 GOSUB 200
1830 GOTO 1610
1840 REM<7.BR-LQ>
1850 PRINT Ф 192,"C2(NF) ="; : INPUT CO : C2 = CO'IE-9
1860 PRINT"C3(NF) =";: INPUT Cl : C3=C1*1E-9
1870 PRNT"R6(KOHM,OPTIONAL) =";: INPUT R0 : R6=RO*1E3
1880 P=Q*Q* (2+C2/C3+C3/C2)
J890 Rl = l/F0/SQR(P*C2*C3)
1900 R4=P*R1 : GSP=Q*SQR(P*C3/C2)
1910 IF R6=0 THEN R6= 1E4
1920 R5=R6*(I+C2/C3)/P
1930 K=R6/(R5+R6)
1940 CLS:PRINTCHP$(23)
1950 PRINT"7.BR-LQ" : PRINT
1960 PPJNT"R1 =";R1
1970 PRINT"C2 == ";C2
1980 PRINT"C3 =";C3
1990 PRINT"R4 =";R4
2000 PRINT"R5 -";R5
2010 PRINT"R6 =";R6: PRINT
2020 PR1NT"K - ";K
2030 PRINT"F =";F
2040 PRINT"Q =";Q
2050 PRINT"GSP-=";GS: PRINT
2060 GOSUB 200
2070 GOTO 1850
2080 REM<8 LP-MQ>
2090 PRINT"C2(NFJ _";: INPUT CO : C2=CO*1E-9
2100 PRINT"C4(NF) ="; : INPUT C3 : C4=C3*1E-9
2110 PRINT"K (OPTIONAL) =";: INPUT KI
2120 PR1NT"R5(KOHM.OPTIONAL) -";: INPUT R0 : R5=RO*1E3
2130 HI - C4/C2 : H2= 12*Q*Q : H3=H1*H2*3