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

0009 DATA ICH.IRINl/0,1/
0010 CALL INPUT(IFR,IV,ICIN,IRIN,ICH,TEX1,IN)
ООП 150 ICH=16
0012 IFIRST-0
0013 XHI-6.283I835*XFR*XC
0014 XROPT-l./XHI
0015 TYPE 10.XROPT
0016 10 FORMAT (X,'ROPT'T15,'='1PE10.3)
0017 CALL INPUT(IFR,IV,ICIN,IRIN1,ICH,TEX1,IN)
0018 XR1-XR
0019 XR3-XR
0020 XR5=XR
0021 XR7-XR
0022 XC6=XC
0023 XC8=XC
0024 XR4-XR"(XHI*XR)**2
0025 XR2=XR*(XQP*(1.+XR4/XR) (SQRT(XR4/XR)-l.J
0026 XKHP=(1.+XR4/XR)/(XR/XR2+1.)
0027 XKBP=XR2/XR
0028 XKLP=XKHP*XR/XR4
0029 CALL OUTPUT(IPA.ICOUT.IROUT.TEXl)
0030 CALL TEST(IFR,IV,IGIN>IRIN,TEX1,IN)
0031 IF(.NOT.STOP) GOTO 150
0033 RETURN
0034 END
0001 SUBROUTINE GP2
С *****************************************************************
0002 COMMON/STO/STOP
0003 COMMON/FIRST/IFIRST
0004 COMMON/DATA1/XFR,XQP,XKBP,XKLP,XROPT,XR1,XR2,
XC3,XR4,XR5,XC6
1,XR7,XR8,XC.XR
0005 DIMENSION TEX1(16),IN(7)
0006 LOGICAL* 1 STOP
0007 DATA TEXl/'FREQ7QP7KBP7KLP','R0PT7R17R27C3',
rR4','R5'/C6'.'R7','R8','C','R',"/IN/U,3.4,0,
0008 DATA IFR.IV.ICIN.ICOUT.IRIN.IROUT.IPA/1,4,2,0,7,4/
0009 DATA ICH.IRINl/0,1/
0010 CALL INPUT(IFR.IV,ICIN,IRIN,ICH,TEX1,IN)
ООП 160 XKLPIN-XKLP
Приложение Б 267
0012 1СН= 15
0013 IFIRST-0
0014 XROPT- 1./(6.2831853*XFR*XC)
0015 TYPE 10.XROPT
0016 10 F0RMAT(X,'R0PT',T15,'-'.1PE10.3)
0017 CALL INPUT(IFR,IV,ICIN,IRIN,1,ICH,TEX1,IN}
0018 XR2=XR
0019 XR7=XR
0020 XR8-XR