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

0094 END
0001 SUBROUTINE BRHLPN
С ********************************************************* ****:]:**&
0002 COMMON/STO/STOP
0003 COMMON/FIRST/IFIRST
0004 COMMON/DATA1/XFRP,XFRZ,XQP,XK,XGSP,XC1,XC2,XC3,
XC4,XR5,XR6,XR7
l,XR8,XR9,XR10
0005 DIMENSION TEX1 (16),IN(9)
0006 LOGICAL* 1 STOP
0007 DATA TEX1/'FRP','FRZ','QP/,'K','GSP'/C1',/C2'>'C3',/C4','R5',
l'R67R7','R87R97R107 7IN/l,2,3A6,7,8,9,14/
0008 DATA IFR,IV,IC.IRIN,IROUT,IPA>ICH/2,2,4,1,6,5,0/
0009 CALL INPUT(IFR,IV,IC,IRIN,ICH,TEX1,IN)
0010 150 XWP=XFRP*6.2831853
0011 XWZ=XFRZ*6.2831853
0012 XH= (1.+XC4*(XC1+XC2)/(XC1*XC2))*XWP**2/XWZ**2-1.
0013 XQ= l./(2*SQRT.((l.+XC2/XCl)*(l.+XC2/XC3)))
0014 XR5 - 1./ (2*XWZiXQ* (XC2+XC3))
0015 XR6= (l.+XC2/XCl)/(XR5*XC2*XC3*XWZ**2)
0016 XR7=1./(XC1*XC2*(XR5+XR6)*XWZ**2)
0017 IF (XH) 200,220,240
0018 200 TYPE 20
0019 20 FORMAT (/X/C4> = ((FRZ/FRP)**2- 1)*(C1*C2/(C1+C2))'J
0020 CALL TEST(IFR,IV>IC,IRIN,TEX1>IN)
0021 GOTO 150
0022 220 XR8= 1.E38
0023 GOTO 260
0024 240 XR8= (XR5+XR6)/XH
0025 260 XCS=XC1*XC2/(XC1+XC2)
0026 XRS=XR5+XR6
0027 XRH = (1./ (XR8*XCS*XWZ)+XRS*XC4*XWZ- (1 .+XC4/XCS)
*XWP/(XQP*XWZ))
0028 XR10=XRH*XR9*XQ
0029 XGSPH = SQRT (XR5*XC3/(XR6*XCS)) +SQRT (XRS*XC2/
(XR7*XC1))
0030 XGSP = XGSPH*(l.+XR10/XR9)**2*XQP/((l.+XC4/XCS)
*XWP/XWZ)
0031 XK= (l.+XR10/XR9)/(l.+XC4/XCS)
0032 IF(XFRP-XFRZ) 300,310,320
0033 300 TYPE 10
0034 GOTO 330
0035 10 FORMAT (X/LOW-PASS')
0036 310 TYPE 11
0037 GOTO 330
0038 11 FORMAT (X/BAND-REJECTION')
0039 320 TYPE 12
0040 12 FORMAT (X/HIGH-PASS')
0041 330 CALL OUTPUT(IPA,IC,IROUT,TEX1)
0042 CALL TEST(IFR,IV,IC,IRIN,TEX1,IN)