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

XC3.XR4
0004 DIMENSION TEX1 (16),IN(6)
0005 LOGICAL*! STOP
0006 DATA TEXl/'FREQ'/QP'/K'/GSP'/P'/Cll','C12'/R2VC3'/R4',
1",",",".",' VIN/1.2,0,6,7,9/
0007 DATA IFRJV.ICIRIN.IROUT.IPA.ICH/l.^.OAS.O/
0008 CALL INPUT(IFR,IV1IC,IRIN>ICH,TEX1,IN)
0009 150 XC1=XCU+XC12
0010 XCHI -XC3/XC1
ООП XQHI = XQP*XQP
0012 XP=XQHI*(2.+XCHI+1./XCHI)
0013 XR2= l./(SQRT(XP*XCl*XC3)*(6.2831853*XFR)J
0014 XR4=XP*XR2
0015 XGSP -XQP*SQRT(XP*XCHI)
0016 XK=XC11/XC1
0017 CALL OUTPUT(IPA,IC,IROUT,TEX1)
0018 CALL TEST(IFR,IV,IC,IRIN,TEX1,IN)
0019 IF(.NOT.STOP) GOTO 150
0021 RETURN
0022 END
0001 SUBROUTINE APLQ(l)
С *****************************************************************
0002 COMMON/STQ/STOP
0003 COMMON /DATA1/XFR,XQP>XK)XGSP)XP>XR1,XC2,XC3,XR4,
XR5,XR6,XX1(2)
0004 DIMENSION TEX1 (16),IN(6)
0005 LOGICAL* 1 STOP
0006 DATA TEX1//FREQ/,'QP'/K','GSP','PVR1','C2/,'C3','R4',
rR5'/R6',' V ','',' V '/IN/1,2,5,7,8,11/
0007 DATA IFR,IV,IC,IRIN,IROUT,IPA,ICH/1,2,2,1,4,5,0/
0008 GOTO (100,110) I
0009 100 TYPE 10
0010 10 FORMAT (X/BAND-REJECTION')
c011 GOTO 120
0012 110 TYPE 11
0013 11 FORMAT(X,'ALL-PASS')
0014 120 CALL INPUT (IFR.IV.IC.IRIN.ICH.TEXl,IN)
0015 150 XCH1=XC3/XC2
0016 XQHI-XQP*XQP
0017 XP - XQHI*(2.+XCHI+1./XCHI)
0018 160 XR1 = 1/(SQRT(XP*XC2*XC3)*(6.2831853*XFR))
0019 XR4=XP*XR1
0020 XGSP-XQP*SQRT(XP*XCHI)
0021 XR5=I>XR6*(1.+1./XCHI)/XP
0022 XK=XR6/(XR5+XR6)
0023 GOTO (200,210) I
0024 200 TYPE 10
0025 GOTO 220
0026 210 TYPE 11
0027 220 CALL OUTPUT(IPA.IC.IROUT.TEXl)