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

0009 XP = 0.
0010 CALL INPUT/IFR,IV,IC,IRIN,ICH,TEX1,IN/
ООП 150 XC1=XC11+XC12
0012 XCHI=XC4/XCI
0013 XQHI -XQP'XQP
0014 XPMIN -I/(XCHI*36.*XQHI)*(SQRT(l.+ 12.*XQHI*(XCHl+
+ 1.))+1.)**2
0015 IF(XP.NE.O) GOTO 160
0017 XP=XPMIN
0018 160 XR2= 1/(SQRT(XP*XC1*XC4)*(6.2831853*XFR))
0019 XR3=XP*XR2
0020 XR5=XR6*(XCHI*(1.+XP)-SQRT(XCHI*XP)/XQR)
0021 XK=XC11/XC1*(1.+XR5/XR6)*XQP*SRRT(1./(XP*XCHI))
0022 XGSP- (l.+XR5/XR6)**2*XQP*SQRT(l./(XCHI*XP))
0023 CALL OUTPUT (IPA.IC.IROUT.TEXl)
0024 XP=XPIN
0025 CALL TEST(IFR,IV)IC,IRIN,TEXI,IN)
0026 XPIN-XP
0027 IF(.NOT.STOP) GOTO 150
0029 RETURN
0030 END
0001 SUBROUTINE HPMQ
С *****************************************************************
0002 COMMON/STO/STOP
0003 COMMON/DATA1/XFR,XQP>XK,XGSP,XP,XPMIN,XC11.XC12,
XR2.XC3.XR4
1.XR5.XR6
0004 DIMENSION TEX1 (16),IN(7)
9005 LOGICAL* 1 STOP
0006 DATA TEXl/'FREQ'.'QP'.'KVGSP'/P'/PMIN'/Cl 1'/C12'/R2',
'C3',
rR4',/R5'/R6/>/'/',' '/IN/1,2,5,7,8,10,12/
0007 DATA IFR.IVJC.IRIN.IROUT.IPA.ICH/l^.S.MAO/
0008 XPIN=0.
0009 CALL INPUT(IFR,IV,IC)IRIN,ICH,TEX1,IN)
0010 150 XC1=ХСП+ХС12
ООП XCHI -XC3/XC1
0012 XQHI = XQP*XQP
0013 XPMIN-1/(XCHI*4.*XQHI)*(SQRT(1.+ 12*XQHI*(XCHI+
+ 1.))-1.)**2
0014 IF(XPIN.NE.O) GOTO 160
0016 XP=XPMIN
0017 160 XR2= 1/(SQRT(XP*XC1*XC3)*(6.2831853*XFR))
0018 XR4=XP*XR2
0019 XR6 = XR5*((1.+ 1./XCHI)/XR- (SQRT(1./(XCHI*XP))/XQP))
0020 XK=XCH*(1.+XR6/XR5)XC1
0021 XGSP-XQP*(1.+XR6/XR5)**2*SQRT(XP*XCHI)
0022 CALL OUTPUT(IPA,IC,IROUT,TEX1)
0023 XP=XPIN
0024 CALL TESTJIFR.IV.IC.IRIN.TEXl.IN)