"Проектирование активных фильтров (Пер. с англ.)" - читать интересную книгу автора (Мошиц Г., Хорн П. )0033 95 XPMIN-XP
0034 IF (RICH) XP = XP+0.01 0036 IF(.NOT.RICH) XP=XP-0.01 0038 100 XWP-XFRP>6.2831853 0039 XWZ-XFRZ*6.2831853 0040 X=0. 0041 IF((XFRP-XFRZ).GT.O.) X-1 0043 XH1 = 1 .+4.*XQP*XQP*XP* (1 .+XC4/XC3) 0044 XH2=XC3*XWP*(SQRT(XH1)-l.)/(2.*XP*XQP) 0045 XK0= (l.+XP)/(l.+ (l.+XC4/XC3)*XWZ*XWZ*(XC3/XH2)**2) 0046 IF(XKIN.NE.O.) GOTO 150 0048 IF((1-XKIN/XK0).GE.0) GOTO 150 0050 XK=XK0 0051 XR1 = 1./XH2 0052 XR2= 1.E38 0053 GOTO 160 0054 150 XK=XKIN 0055 XR1-XK0/(XH2*XK) 0056 XR2= l./(XH2*(l.-XKIN/XK0)) 0057 160 XR6-XH2*(1+XP)*(1-(X/XK))/(XC3*XC4*(XWZ**2- -XWP**2)) 0058 XR5 = 1./ (XC3*XC4*XWP**2/XH2+XP/XR6) 0059 XH4=ABS (1.-XH2/ (XWP**2*XC3*XC4) * (1 ./XR5+1 ./XR6) > 0060 XH5=ABS (1.-XQP/XWP* (XH2/XC3+ (1 ./ХСЗ+1 ./ХС4) (1./XR5+1./XR6))) 0062 XR7=XP*XR9/XK 0063 XR8-XP*XR9/(1.-XK) 0064 XX (ILAUF) = XG S P 0065 IF(XX(1).LT.XX(2))RICH = .TRUE. 0067 IF(ILAUF.LE.2) GOTO 89 0069 IF (OPT) GOTO 600 0071 IF(XPMIN.LE.0.02) OPT=.TRUE. 0073 IF(RICH) GOTO 550 0075 IF(XX(2).LT.XX(3)) OPT-.TRUE. 0077 GOTO 560 0078 550 IF(XX(2).LT.XX(3)) OPT=.TRUE. 0080 560 XX (2)= XX (3) 0081 GOTO 90 0082 600 IF(XFRP-XFPZ)620,80,610 0083 610 TYPE 10 0084 10 FORMAT (X/HIGH-PASS') 0085 GOTO 630 0086 620 TYPE 11 0087 11 FORMAT (X/LOW-PASS') 0088 630 CALL OUTPUT(IPA,IC,IROUT,TEX1) 0089 XP=XPIN 0090 CALL TEST(IFR,IV,IC,IRIN,TEX1,IN) 0091 IX(.NOT.STOP) GOTO 80 0093 1000 RETURN |
|
|