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

0028 CALL TEST(IFR,IV,IC,IRIN,TEX1,IN)
0029 IF(.NOT.STOP) GOTO 150
0031 RETURN
0032 END
0001 SUBROUTINE LPMQ
0002 COMMON/STO/STOP
0003 COMMON/DATA1/XFR)XQP,XK)XGSP,XP,XPMIN,XR11,XR12>
XC2.XR3.XC4,
1XR5.XR6
0004 DIMENSION TEX1 (16),IN(7)
0005 LOGICAL* 1 STOP
0006 DATA TEXl/'FREQ'/QP'/K'/GSP'/P'/PMIN'/Rl 17R127C2',
'R3'
l'C4VR5','R6','','',' '/IN/1,2,3,5,9,11,12/
0007 DATA IFR.IV.IC.IRIN.IROUT.IPA.ICH/l.S^.l.S.e.O/
0008 XP=0.
0009 CALL INPUT(IFR,IV,IC,IRIN,ICH,TEX1,IN)
0010 150 XKIN -XK
ООП XPIN=XP
0012 XCH1 -XC4/XC2
0013 XQHI= XQP*XQP
0014 XPMIN = 1/(XCHI*36.*XQHI)*(SQRT(1.+12.*XQHI*(XCHI+
+ 1.)) + 1.)**2
0015 IF(XPIN.NE.O) GOTO 160
0017 XP = XPMIN
0018 160 XR1 = 1/(SQRT(XP*XC2*XC4)*(6.2831853*XFR))
0019 XR3=XP*XR1
0020 XR6=XR5* (XCHI* (1 .+XP)-SQRT (XCHI*XP) /XQR)
0021 XK0-1.+XR6/XR5
0022 XGSP = XK0**2*XQP*SQRT (1 ./(XCHI*XP))
0023 IF (XKIN.EQ.0.0R.(XK0-XKIN).LE.0) GOTO 200
0025 XK=XKIN
0026 XR11 = (XK0/XK)*XRl
0027 XR12-XK*XR11/(XKO-XK)
0028 GOTO 300
0029 200 XR11-XR1
0030 XR12=1.E38
0031 XK=XK0
0032 300 CALL OUTPUT(IPA,IC,IROUT,TEX1)
0033 XK=XKIN
0034 XP=XPIN
0035 CALL TEST(IFR,1V,IC,IRIN,TEX1,IN)
0036 IF(.NOT.STOP) GOTO 150
0038 RETURN
0039 END
0001 SUBROUTINE BPMQR
Q *****************************************************************
0002 COMMON/STO/STOP
0003 COMMON/DATA1/XFR,XQP,XK,XGSP,XP,XPMIN,XR11.XR12,
XC2,XC3,XR4