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

0040 END
0001 SUBROUTINE APLQS
0002 COMMON/STO/STOP
0003 COMMON/DATA1/XFR,XQP,XK,XRO,XC1,XC2,XC3,XR4,XR5>
XR6
<004 DIMENSION TEX1(16),IN(7)
0005 LOGICAL* 1 STOP
0006 DATA TEX1//FREQ','QP'/K',/RO'/C1','C2'/C3','R4',/R5'1'R6',
Г ',' V','','',' 7Ш/1,2,0,5,6,7,4/
<007 DATA IFR,IV,IC,IRIN,IROUT,IPA,ICH/1,2,3,1,4,3,0/
0008 TYPE 10
<009 10 FORMAT (X.'K-ГД20/ (TYPE 1)',
0010 ACCEPT 11,XK
ООП 11 FORMAT (F10.0)
0012 CALL INPUT(IFR,IV>IC,IRIN,ICH,TEX1>IN)
0013 100 XH=1.-((XC1+XC2)*(XC2+XC3)*4.*XQP*XQP/(XC1*XC3))
<014 IF(XH.GE.O.) GOTO 150
c016 TYPE 5
0017 5 FORMAT (/.X,'C1- C3> =C2*2*QP/(1-2*QP)')
<018 CALL TEST(IFR,IV,IC,IRIN,TEX1,IN)
0019 GOTO 100
0020 150 XW=XFR*6 2831853
c021 IF(XK.EQ.l) XH1 = l.-fSQRT(XH)
0023 IF(XK.EQ.-1)XH1 = 1.-SQRT(XH)
0025 XR4=XH1 / (2.*XW*XQP* (XC2+XC3))
^026 XR5= (XC1+XC2)/(XR4*XW*XW*XC1*XC2*XC3)
0027 XR6 - 1./ (XW*XW*XC 1 *XC2* (XR4+XR5))
0028 CALL OUTPUT(IPA,1C,IROUT,TEX1)
0029 CALL TEST(IFR,IV,IC,IRIN,TEX1,IN)
0030 IF(.NOT.STOP) GOTO 100
0032 RETURN
0033 END
0001 SUBROUTINE BPLQR
С *****************************************************************
0002 COMMON/STO/STOP
0003 COMMON/DATA 1/XFR,XQP,XK,XGSP,XP>XR11,XR12,XC2,
XC3 XR4
0004 DIMENSION TEX1(16),IN(6)
0005 LOGICAL*1 STOP
0006 DATA TEXl/'FREQ',/QP/,/K','GSPVP'/RH'/R12','C2','C3',
l'R4'/','','','','',' 7IN/1,2,3,0,8,9/
0007 DATA IFR.IV.IQIRIN.IROUTJPA.ICH/l,3,2,0,3,5,0/
0008 CALL INPUT/IFR,IV,IC,IRIN,ICH,TEX1,IN/
0009 150 XKIN-XK
0010 XCHI-XC3/XC2
ООП XQHI-XQP*XQP
0012 XP=XQHP/2.+XCHI+1./XCHI/
0013 160 XR1 = 1/(SQRT(XP*XC2*XC3)*(62831853*XFR)
0014 XR4=XP*XR1
0015 XGSP = XQHI*(1.+XCHI)