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

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 BRHQ
С *****************************************************************
0002 COMMON/STO/STOP
0003 COMMON/FIRST/IFIRST
0004 COMMON/DATA1 /XFR.XQP.XK.XROPT.XR 1 ,XR21XC3,XR4,
XR5,XC7,XR7,XR8,
1XC.XR
0005 DIMENSION TEX1(16),IN(5)
0006 LOGICAL* 1 STOP
0007 DATA TEXl/'FREQ',/QP//K//ROPT//Rr,'R2'/C3',/R47R5','C7',
l'R77R87C7R7','',' '/IN/1,2,0,13,14/
0008 DATA IFR.IVJCIN.ICOUT.IRIN.IROUT.IPA/l^.l^A?^/
0009 DATA ICH.IRINl/0,1/
0010 CALL INPUT(IFR,IV,ICIN,IRIN,ICH,TEX1,IN)
ООП 150 ICH= 14
0012 IFIRST-0
0013 XROPT-1.(6.2831853*XFR*XC)
0014 TYPE 10.XROPT
0015 10 FORMAT (X/R0PT7H 5/=MPE10.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
0023 XR8=XQP*XROPT*2
0024 XR4=XROPT**2/XR
0025 XR=XR8
0026 CALL OUTPUT(IPA,ICOUT,IROUT,TEXlj
0027 CALL TEST(IFR,IV,ICIN,IRIN,TEX1,IN)
0028 IF(.NOT.STOP) GOTO 150
0030 RETURN
0031 END
0001 .SUBROUTINE HLPNHQ
С *****************************************************************
0002 COMMON/STO/STOP
0003 COMMON/FIRST/IFIRST
0004 COMMON/DATA 1 /XERP)XFRZ,XQP,XKHP,XKLP,XROPT)XR 1,
XC2,XR3,XR4,XR5
1,XC7,XR8,XC,XR
0005 DIMENSION TEX1(16),IN(6)
0006 LOGICAL* 1 STOP