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

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)))
0061 XGSP- (l.+XP)/2.*(XH5+XQP*XH4)
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