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

0019 XR3-XR
0020 XR6=XR
0021 XC1- XC
0022 XC4=XC
0023 XRI- XQP*XROPT
0024 XR7=XROPT**2/XR
0025 CALL OUTPUT(1PA,ICOUT,IROUT,TEX1)
0026 CALL TEST(IFR,IV>ICIN,IRIN,TEX1)IN)
0027 IF(.NOT.STOP) GOTO 150
0029 RETURN
0030 END
0001 SUBROUTINE BPHQ
С *****************************************************************
0002 COMMON/STO/STOP
0003 COMMON/FIRST/IFIRST
0004 COMMON/DATAl/XFR,XQPrXK,XROPT,XRl,XR2,XC3,XR4,
XR6,XR7,XC8,XC,XR
0005 DIMENSION TEX1(16),IN(5)
0006 LOGICAL* 1 STOP
0007 DATA TEX 1 /'FREQ','QP'/K'/ROPT','R 1 ')'R2','C3'/R4','R6',/R7',
rC8','C,'RV V',' '/IN/1,2,0,12,13/
0008 DATA IFR,IV,ICIN,ICOUT.IRIN,IROUT,IPA/1,2,1,0,6,3/
0009 DATA ICH,IRIN1/O,1/
0010 CALL INPUTriFR.IV.ICIN.IRIN.ICHJEXl.IN)
0011 150 ICH= 13
0012 IFIRST=O
0013 XROPT-1./(6.2831853*XFR*XC)
0014 TYPE 10.XROPT
0015 10 FORMAT(X,'ROPT',T15,'-MPE10.3)
0016 CALL INPUT(IFR,IV,ICIN1IRIN,ICH,TEX1,IN)
0017 -XK-2
0018 XR1=XR
0019 XR2=XR
0020 XR6=XR
0021 XC3=XC
0022 XC8=XC
0023 XR7=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 HPHQ
с *****************************************************************
0002 COMMON/STO/STOP
0003 COMMON/FIRST/IFIRST
0004 COMMON/DATA1/XFR,XQP,XK)XROPT,XR1,XR2,XC3>XR4,
XR6,XC7,XR8,XC,XR
0005 DIMENSION TEX1(16),IN(5)