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

0001 SUBROUTINE OUTPUT(IPA,IC,IR,TEX1J
С *****************************************************************
0002 COMMON/DATA 1 /DAT 1(16)
0003 DIMENSION TEX1(16)
0004 ITOT=IPA+IC+IR
0005 DO 200,1 = 1,ITOT
0006 TYPE 10,TEXl(I),DATl(I)
0007 200 CONTINUE
0008 RETURN
0009 10 FORMAT (X,A4,T15/-',1PE1O.3)
0010 END
0001 SUBROUTINE LPLQ
С *****************************************************************
0002 COMMON/STO/STOP
0003 COMMON/DATA 1 /XFR,XQP,XK,XGSP,XP,XR 11.XR12.XC2,
XR3.XC4
0004 DIMENSION TEX1(16),IN(6)
0005 LOGICAL* 1 STOP
0006 DATA TEXl/'FREQVQP'/K'/GSP'/PVRl 17R12','C27R3','C4',
l'777777IN/l,2,3,0,8,10/
0007 DATA IFR.IV.lC.IRIN.IROUT.IPA.ICH/l 3,2,0,3,5,0/
0008 CALL INPUT(IFR,IV,IC,IRIN,ICH,TEX1,IN)
0009 100 XKIN -XK
0010 A-XC2/(XC4*2.*XQP*XQP)
ООП IF(A.GE.2) GOTO 150
0013 TYPE 5
0014 5 FORMAT (/,X/C2>-C4*4*QP**2')
0015 CALL TEST(IFR,IV,IC,IRIN>TEX1,IN)
0016 GOTO 100
0017 150 XCHI-XC4/XC2
0018 XQHI=XQP*XQP
0019 XR= (l./(XCHI*2.*XQHI)-l.)+SQRT((l./(2*yQHI*XCI.IJ-
1)**2-1.)
0020 160 XR1 = 1/(SQRT(XP"XC2*XC4)*(6.2831853*XFR))
0021 XR3=XP*XR1
0022 XGSP=XQP*SQRT(1./(XCHI*XP))
0023 IF (XKIN EQ.O) GOTO 200
0025 IF ((1-XKIN).LE.O) GOTO 200
0027 XK=XKIN
0028 XR11-XR1/XK
0029 XR12-XR1/(1- XK)
0030 GOTO 300
0031 200 XRU=XR1
0032 XR12-1.E38
0033 XK= 1.
0034 300 C4LL OUTPUT(IPA,IC,IROUT,TEX1)
0035 XK-XKIN
0036 CALL TEST(IFR,IV,IC,IRIN,TEX1,IN)
0037 IF(.NOT.STOP) GOTO 100
0039 RETURN