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

0025 XPIN = XP
0026 IF(.NOT.STOP) GOTO 150
0028 RETURN
0029 END
0001 SUBROUTINE APMQ
с *****************************************************************
0002 COMMON/STO/STOP
0003 COMMON/DATA 1 /XFR.XQP.XK.XGSP.XP.XPMIN.XR 1 ,XG2,
XC3,XR4,XR5,XR6,XR7
0004 DIMENSION TEX1(16),IN(6)
0005 ' LOGICAL* 1 STOP
0006 DATA TEX1/'FREQVQP','K','GSP'/P'/PMIN'/R1'/C2'/C3',
'R4',
l'R5VR6','R7'/'/',' '/IN/1,2,5,8,9,12/
0007 DATA IFR>IV,IC>IRIN)IROUT,IPA,ICH/1,2,2,1,5,6)0/
0008 XP=0
0009 TYPE 15
0010 CALL INPUT(IFR,IV,IC,IRIN,ICH,TEX1,IN)
ООП 150 ХРШ=ХР
0012 XCHI-XC2/XC3
0013 XQHI-XQP*XQP
0014 XHIL-((6.*(1.+XCHI)**2*XQHI)/(2.*XQHI*(1+XCHI)-
XCHI))**2
0015 XHIL-(SQRT(1.+XHIL/(3.*(1+XCHI)**2))-1.)*(2.*XQHI
(1+XCHI)-XCHI)
0016 XPMIN-XHIL/(6.*(1+XCHI)**2*XQHI)
0017 IF(XPIN.NE.O) GOTO 160
0019 XP=XPMIN
0020 160 XRI - 1/(SQRT (XP*XC2*XC3)* (6.2831853*XFR))
0021 XRP=XP'XRl
0022 XR7=XR6*(XP*(l.+XCHI)-fSQRT(XP*XCHI)/XQP)
0023 XHIL=1.-2*(SQRT(XP*XCHI))/(XQP*(1.+XR7/XR6))
0024 XR5=XRP/XHIL
0025 XR4==XRP/(1.-XHIL)
0026 XGSP-XQP*( l.+XR7/XR6)**2*XHIL*SQRT(l./(XP*XCHI)J
0027 XK-1.
0028 TYPE 15
0029 CALL OUTPUT(IPA,IC,IROUT,TEX1)
0030 XP=XPIN
0031 CALL TEST(IFR,IV,IC,IRIN,TEX1)IN)
0032 IF(.NOT.STOP)> GOTO 150
0034 15 FORMAT (/X/ALL-PASS')
0035 RETURN
0036 END
0001 SUBROUTINE BRMQ
С ********************#*********│**********************************
0002 COMMON/STO/STOP
0003 COMMON/DAT Al /XFR.XQP.XK.XGSP.XP.XPMIN.XRl ,XC2,
XC3,XR4,XR5,XR6,XR7
0004 DIMENSION TEX1(16),IN(3)