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

0021 XC3=XC
0022 XC6-XC
0023 XR4=XQP*XR0PT
0024 XR5=XROP**2/XR
0025 IF(XKLPIN.EQ.O) GOTO 200
0027 -XR1-XR2/XKLP
0028 XKBP=XR4/XR1
0029 GOTO 220
0030 200 XR1 -XR4/XKBP
0031 XKLP-XR2/XR1
0032 220 CALL OUTPUT(IPA,ICOUT,IROUT,TEX1)
0033 XKLP -XKLPIN
0034 CALL TEST(1FR,IV,ICIN,IR1N,TEX1,IN)
0035 IF(.NOT.STOP) GOTO 150
0037 RETURN
0038 END
0001 SUBROUTINE HLPNMQ
С *****************************************************************
0002 COMMON/STO/STOP
0003 COMMON/FIRST/IFIRST
0004 COMMON/DATA1/XFRP,XFRZ,XQP,XK,XGSP,XP,XPMIN,XR1,
XR2,XC3,XC4,
1XR5,XR6,XR7,XR8,XR9
0005 DIMENSION TEX1(16),IN(9),XX(3)
0006 LOGICAL* 1 STOP.OPT.RICH
0007 DATA TEXl/'FRP','FRZ','QP'>'K','GSP','P',/PMIN','Rr,'R2',
7СЗ'
rC4VR5','R6','R7VR8'/R97IN/l>2,3>4,6,10,l 1,16,0/
0008 DATA IFR,IV,IC,IRIN,IROUT,IPA,ICH/2,3,2,1,7,7,0/
0009 XP-0.
0010 CALL INPUT(IFR,IV,IC,1RJN,1CH,TEX1,IN)
0011 80 XK1 = XK
0012 XPIN - XP
0013 IF((XFRP-XFRZ).NE.O.) GOTO 88
0015 TYPE 5
0016 5 FORMAT(/X/NO BANDREJECT')
0017 XP-XPIN
0018 CALL TESTOFR.IV.IC.IRIN.TEXUN)
0019 GOTO 80
0020 88 XP=0.5
0021 XX (2)= 0.
0022 ILAUF-0
0023 OPT-.FALSE.
0024 RICH-.FALSE.
0025 89 ILAUF-ILAUF+1
0026 90 IF(.NOT.OPT) GOTO 95
0028 XP=XPMIN
0029 IF(XPIN.EQ.O) GOTO 100
0031 XP=XPIN
0032 GOTO 100