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

1.XR5.XR6
0004 DIMENSION TEX1(16),IN(7)
0005 LOGICAL* 1 STOP
0006 DATA TEXl/'FREQ'/QP'/K'/GSP'/P'/PMIN'/Rl l'/R12','C2',
'C3'
l'R4VR5','R6',",'',' '/IN/1,2,3,5,9,10,13/
0007 DATA IFR,IV>IC)IRIN>IROUT1IPA,ICH/1,3,2,1,5,6,0/
0008 XP=0.
0009 CALL INPUT(IFR,IV,IC,IRIN,ICH,TEX1,IN)
0010 150 XKIN-XK
ООП XPIN = XP
0012 XCHI -XC3/XC2
0013 XQHI - XQP*XQP
0014 XPMIN-l/(XCHI*4.*XQHI)*(SQRT(l.+12.*XQHI*(XCHI-f-
+ 1.))-1.)**2
0015 lF(XP.NE.O) GOTO 160
0017 XP=XPMIN
0018 160 XR1 = 1/(SQRT(XP*XC2*XC3)*(6.2831853*XFR))
0019 XR4=XP*XR1
0020 XR5=XR6*((1.+ 1./XCHI)/XP-(SQRT(1./(XCHI*XP))/XQP))
0021 XKO=XQP* (1 .+XR5/XR6) *SQRT (XCHPXP)
0022 IF(XKIN.EQ.0.OR.(XK0-XKIN).LE.0) GOTO 165
0024 XK=XKIN
0025 XR11 = XK0*XRI/XK
0026 XR12=XK*XR11/(XKO-XK)
0027 GOTO 170
0028 165 XR11=XR1
0029 XR12-l.E+38
0030 XK=XKO
0031 170 XGSP=XK0*(l.+XR5/XR6)
0032 CALL OUTPUT(IPA,IC,IROUT,TEX1)
0033 XP=XPIN
0034 XK=XKIN
0035 CALL TEST(IFR,IV,IC,IRIN,TEX1,1N)
0036 IF(.NOT.STOP) GOTO 150
0038 RETURN
0039 END
0001 SUBROUTINE BPMQC
С *****************************************************************
0002 COMMON/STO/STOP
0003 COMMON/DATA1/XFR,XQP,XK,XGSP,XP>XPMIN,XC11.XC12,
XR2.XR3.XC4
1.XR5.XR6
0004 DIMENSION TEX1 (16),IN(7)
0005 LOGICAL* 1 STOP
0006 DATA TEX//FREQ','QP/,'K7GSP','PyPMIN7CM',/C127R2/,
'R3',
l'C47R57R67',' 7'/IN/1,2,5,7,8,11,13/
0007 DATA IFR.IV.ICIRIN.IROUT.IPA.ICH/l^.MAO/
0008 XPIN=0.