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