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

1 J10/BAND-PASS R-INPUT',T35,'MEDIUM Q',T45,
'(TYPE 6)',/X,
1 .T10/BAND-PASS C-INPUT',T35,'MEDIUM Q',T45,
'(TYPE 7)',/X,
1 ,T10,'BAND-PASS',T35,'HIGH Q'J45,'(TYPE 8)',/X,
1 ,T10/HIGH-PASS',T35,'LOW Q',T45,'(TYPE 9)',/X,
1 .TIO/HIGH-PASS'.TSS/MEDIUM Q',T45,'(TYPE 10)',/X,
1 /ПО.НЮН-РАЗБ'.ТЗб/НЮН Q',T45,'(TYPE 11)',/X,
1 ,T10/ALL-PASS',T35,'LOWER Q',T45,'(TYPE 12)',/X,
1 ,T10.'ALL-PASS',T35,'LOW Q',T45,'(TYPE 13)',/X,
1 .TIO/ALL-PASS'JSS/MEDIUM Q',T45,'(TYPE 14)',/X,
1 ,T1O,'ALLPASS',T35,'H1GH Q',T45,'(TYPE 15)',/X,
1 .TlO/BAND-PEJECTION'/nS/LOW Q',T45,
'(TYPE 16)',/X
1 ,T10,'BAND-PEJECTION',T35/MEDIUM Q'T45,
'(TYPE 17)',/X,
1 .TIO/BAND-PEJECTION'.TSS.'HIGH Q',T4b,
1 '(TYPE 18)'./X,
1 ,T10/HIGH-/LOW-PASS-NOTCHED',T35,'MEDIUi i Q',
1 ,T45,'(TYPE 19)',/X
1 .TlO/BAND-PEJECTION/HIGh './XTIO.'LOW-PASS
NOTCHED',
1 ,T35,'MEDIUM Q',T45,'(TYPE 20)'((X,
1 ,T10,'HIGH-LOW-PASS NOTCHED',T35/HIGH Q',T45,
'iTYPE 21)',/X,
1 ,T10,'GENER\L PURPOSE l',T45,'(TYPE 22)'./X,
1 ,T10,'GENERAL PURPOSE 2',T45/(TYPE 23)',/X)
<065 3 FORMAT (12)
0066 4 FORMAT(AU
0067 1000 CALL CLOSE (3)
0068 STOP
<069 END
0001 SUBROUTINE TESTflFR.IV.IC.IR.TEXl.IN)
С *****************************************************************
0002 COMMON/STO/STOP
0003 COMMON/FIRST/IFIRST
0004 DIMENSION TEX1 (16),IN(9)
0005 LOGICAL*1 STOP
0006 ITOT=IFR+IV+IC+IR
0007 STOP -.FALSE.
0008 ICH = 0.
0009 TYPE 10
0010 ACCEPT 20, IHI, TEST
ООП IF(IHI.EQ.O) GOTO 220
0013 DO 100 1 = 1, ITOT
0014 IF(TEST.NE.TEX1(IN(I))) GOTO 100
0016 ICH -IN(I)
0017 GOTO 200
0018 100 CONTINUE
0019 IF(ICHEQO) GOTO 1000