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

0006 LOGICAL* 1 STOP
0007 DATA TEX 1 /'FREQ'/QP'.'K'.'ROPT'/R 1 /,/R2/,'C3','R4','R6','C7',
l'R8VCVR',"/',' 7IN/l,2,0,12,13/
0008 DATA IFR,IV,ICIN,ICOUT,IRIN,IROUT,IPA/1,2,1,2A6,3/
0009 DATA ICH,IRINl/0,l/
0010 CALL INPUT(IFR,IV,ICIN,IRIN,ICH,TEX1,IN)
ООП 150 ICH=13
0012 IFIRST-0
0013 XROPT = l./(6.2831853*XFR*XC)
0014 TYPE 10.XROPT
0015 10 FORMAT(X>'ROPT',T15,'=MPE10.3)
0016 CALL INPUT(IFR)IV,ICIN>IRIN1,ICH)TEX1,IN)
0017 XK-2
0018 XR1-XR
0019 XR2=XR
0020 XR6=XR
0021 XC3=XC
0022 XC7=XC
0023 XR8-XQP*XROPT
0024 XR4=XROPT**2/XR
0025 CALL OUTPUT(IPA,ICOUT,IROUT,TEX1)
0026 CALL TEST(IFR,IV,ICIN,IRIN,TEX1,IN)
0027 IF(.NOT.STOP) GOTO 150
0029 RETURN
0030 END
0001 SUBROUTINE APHQ
С *****************************************************************
0002 COMMON/STO/STOP
0003 COMMON/FIRST/IFIRST
0004 COMMON/DATA1/XFR,XQP,XK,XROPT,XRI,XR2>XC3,XP4,
XR5,XC7,XR8(XC,XR
0005 DIMENSION TEX1(16),IN(5)
0006 LOGICAL* 1 STOP
0007 DATA TEX1/'FREQ7QP7K7ROPT7R17R27C37R47R57C7',
TR87C7R77',' '/IN/1,2,0,12,13/
0008 DATA IFR,IV,ICIN,ICOUT,IRIN,IROUT)IPA/1,2,1,2,0,6,3/
0009 DATA ICH,IRINl/0,l/
0010 CALL INPUT(IFR,IV,ICIN,IRIN,ICH,TEX1,IN)
ООП 150 ICH = 13
0012 IFIRST=0
0013 XROPT-1./(6.2831853*XFR*XC)
0014 TYPE 10.XROPT
0015 10 FORMAT (X,'ROPT',T 15/='.1PE10.3)
0016 CALL INPUT(IFR,IV,ICIN,IRIN1,ICH,TEX1,IN)
0017 XK=2
0018 XR1=XR
0019 XR2 = XR
0020 XR5=XR
0021 XC3=XC
0022 XC7=XC