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

0007 DATATEXl//FRP'/FRZ','QP'/KHP','KLP','ROPT'/Rl'('C2'/R3'i
1 'R4'>'R5/,'C7//R8'/C',/R/,/ '/IN/1,2,3,0,14,15/
0008 DATA IFR.IV.ICI.ICOUT.IRIN.IROUT.IPA^.l,2,0,6,5/
0009 DATA ICH.IRINl/0,1/
0010 CALL INPUT(IFR,IV,ICIN,IRIN,ICH,TEX1,IN)
ООП 150 IF(XFRP.NE.XFPZ) GOTO 160
0013 TYPE 20
0014 20 FORMAT/(X/FRP IS EQUAL FRZ!')
0015 CALL TEST(IFR,IV,ICIN,IRIN,TEX1,IN)
0016 GOTO 150
0017 160 ICH-15
0018 IFIRST-0
0019 XHI=6.2831835*XFRP*XC
0020 XROPT=1./XHI
0021 TYPE 10.FROPT
0022 10 FORMAT (X,'ROPT',T15,'=',1PE1O.3)
0023 CALL INPUT(IFR,IV,ICIN,IRIN1,ICH,TEX1,INI
0024 XR1=XR
0025 XR3=XR
0026 XC2=XC
0027 XC7=XC
0028 XR8=XQP/XHI
0029 XHI1 = (XFRZ/XFRP) **2-1
0030 IF(XHIl.GT.O) GOTO 200
0032 XR4=- XR8*XHI1
0033 TYPE 31
0034 31 FORMAT(/X/HIGH-PASS NOTCHED')
0035 GOTO 220
0036 200 XR4=XR8*XHI1
│0037 TYPE 30
0038 30 FORMAT (/X/LOW-PASS NOTCHED')
0039 220 XR5=XROPT**2/XR4
0040 XKLP = 1.
0041 XKHP- 1.
0042 CALL OUTPUT(IPA.ICOUT.IROUT.TEXl)
?!? CALL TEST(IFR,IV.ICIN,IRIN.TEX1,IN)
011 RFETSST0P) G0T° 15°
0047 END
0001 SUBROUTINE GP1
С *****************************************************************
0002 COMMON/STO/STOP
0003 COMMON/FIRST/IFIRST
0004 COMMON/DATA 1 /XFR,XQP,XKHP,XKBP,XKI.P,XROPT(XR 1,
XR2.XR3.XR4.XR5.XC6
1(XR7,XC8,XC,XR
0005 DIMENSION TEX1( 16),IN(5)
0006 LOGICAL* 1 STOP
0007 DATA TEXl/'FREQ7QP7KHP7KBP7KLP7R0PT','R17R2\
1 ,Т?47К57С6'(^7'/С87^С','Р7Ш/1.2,0,15,16/
0008 DATA 1FR,IV,IC1N,ICOUT,IRIN,IROUT,IPA/1,4,1,2,0,7,4/