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

0005 LOGICAL* 1 STOP
0006 DATA TEXl/'FREQ7QP7K','GSP7P7PMIN','Rr,'C2','C3',
'R4',
l'R5','R6','R77 '.'',' '/IN/1,2.5,8,9,12/
0007 DATA IFR,IV>IC>IRIN,IROUT,IPA,ICH/1,2,2,1,5,6,0/
0008 XP = 0.
0009 TYPE 15
0010 15 FORMAT (/X/Bl AND-REJECTION')
ООП CALL INPUT(IFR,IV,IC,IRIN,ICH,TEX1,IN)
0012 150 XPIN-XP
0013 XCHI-XC2/XC3
0014 XPMIN = 1./(3.*(1.+XCHI))
0015 IF(XPIN.NE.O) GOTO 160
0017 XP-XPMIN
0018 160 XR1 = 1/(SQRT(XP*XC2*XC3)*(6.2831853*XFR))
0019 XRP-XP*XR1
0020 XR7=XP6*XP*(t.+XCHI)
0021 XHIL= 1.-(SQRT(XP*XCHI))/(XQP*(1.+XR7/XR6))
0022 XR5=XRP/XHIL
0023 XR4=XRP/(1.-XHIL)
0024 XGSP=XQP*(1.+XR7/XR6)**2*XHIL*SQRT(1./(XP*XCHI))
0025 XK=1.
0026 TYPE 15
0027 CALL OUTPUT(IPA,IC,IROUT,TEX1)
0028 XP=XPIN
0029 CALL TEST(IFR,IV,IC,IRIN,TEX1,IN)
0030 IF(.NOT.STOP) GOTO 150
0032 RETURN
0033 END
0001 SUBROUTINE LPHQ
С *****************************************************************
0002 COMMON/STO/STOP
0003 COMMON/FIRST/IFIRST
0004 COMMON/DATA 1/XFR>XQP,XK,XROPT,XR1>XC1,XP2,XR3>
XC4,XR6,XR7,XC,XR
0005 DIMENSION TEX1(16),IN(5)
0006 LOGICAL*1 STOP
0007 DATA TEX1 /'FREQ'/QPVK'/ROPT'/R 1 ','C 1 '/R2'/R3'.'C4'/R6',
rR7VC','R','','',' 7IN/l,2,0,12,!3/
0008 DATA IFR.IV.ICIN.ICOUT.IRIN.IROUT.IPA/l^.l^.O.e.S/
0009 DATA ICH.IRIN 1/0,1/
0010 CALL INPUT(IFR,IV,ICIN,IRIN,ICH,TEX1,IN)
ООП 150 ICH= 13
0012 IFIRST-0
0013 XROPT -l./(6.2831853*XFR*XC)
0014 TYPE 10.XROPT
0015 10 FORMAT (X,'ROPT',T15/-'.1PE10.3)
0016 CALL INPUTCIFR.IV.ICIN.IRINl.ICHJEXl.IN)
0017 XK-2
0018 XR2-XR