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