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

0016 XK0=XGSP
0017 IF (XKIN.EQ.0 0R (XK0-XKIN).LE0) GOTO 200
0019 XK=XK1N
0020 XR11 = FRI*XK/XK
0021 XR12 = XK*XR11/(XKO-XK)
0022 GOTO 300
0023 200 XR11- XRl
0024 XR12=1.E38
0025 XK=XK0
0026 300 CALL OUTPUT(IPA,IC,IROUT,TEX1)
0027 XK-XKIN
0028 CALL TEST(IFR,IV,IC,IRIN,TEXI,IN)
0029 IF(NOT.STOP) GOTO 150
0031 RETURN
0032 END
0001 SUBROUTINE BPLQC
С *****************************************************************
0002 COMMON/STO/STOP
0003 COMMON/DATA1/XFR,XQP,XK,XGSP,XP,XC11,XC12,XR2,
XR3 XC4
0004 DIMENSION TEX1(16),IN(6)
0005 LOGICAL* 1 STOP
0006 DATA TEXl/'FREQ',/QP/,/K',/GSPVP','Cll',/C12VR2','R3',
l'C4',' ',' ','','',' V '/IN/1,2,0,6,7,10/
0007 DATA IFR,IV,IC,IRIN,IROUT,IPA,ICH/1,2,3,0,2,5,0/
0008 CALL INPUT(IFR,IV,IC,IRIN,ICH,TEX1,IN)
0009 150 XC1=XC11+XC12
0010 A-XC1/(XC4*2.*XQP*XQP)
ООП IF(A.GE.2.) GOTO 170
0013 TYPE 5
0014 CALL TEST(IFR1IV,IC,IRIN,TEX1,IN)
0015 GOTO 150
0016 170 XCH1-XC4/XC1
0017 XQHI = XQP*XQP
0018 XP= (l./(XCHI*2.*XQHI)-l.)+SQRT((l./(2*XQHI*XCHI)-
-1)**2- 1.)
0019 160 XR2=1/(SQRT(XP*XC1*XC4)*(6.2831853*XFR))
0020 XR3-XP*XR2
0021 XGSP-XQP*SQRT(1/(XCHI*XP))
0022 XK=XC11*XGSP/XC1
0023 CALL OUTPUT(IPA,IC,IROUT,TEX1)
0024 CALL TESTtlFR.lV.IC.IRIN.TEXl.INj
0025 IF(NOT.STOP) GOTO 150
0027 5 FORMAT(/.X,/C11+C12>-4*QP**2*C4'J
0028 RETURN
0029 END
0001 SUBROUTINE HPLQ
С *****************************************************************
0002 COMMON/STO/STOP
0003 COMMON/DATA1/XFR,XQP>XK>XGSP>XP1XC11,XC12,XR2,