Главная -> Книги (0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (10) (11) (12) (13) (14) (15) (16) (17) (18) (19) (20) (21) (22) (23) (24) (25) (26) (27) (28) (29) (30) (31) (32) (33) (34) (35) (36) (37) (38) (39) (40) (41) (42) (43) (44) (45) (46) (47) (48) (49) (50) (51) (52) (53) (54) (55) (56) (57) (58) (59) (60) (61) (62) (63) (64) (65) (66) (67) (68) (69) (70) (71) (72) (73) (74) (75) (76) (77) (78) (79) (80) (81) (82) (83) ( 84 ) (85) (86) (87) (88) (89) (90) (91) (92) (93) (94) (95) (96) (97) (98) (99) (100) (101) (102) (103) (104) (105) (84) 0015 GOTO 150 0016 170 ХСН1=ХС4/ХС1 0017 XQHI = XQP*XQP 0018 ХР= (l./(XCHI*2.*XQHI)-l.)+SQRT((l./(2*XQHI*XCHI)- -1)**2-I.) 0019 160 XR2==1/(SQRT(XP*XC1*XC4)*(6.283I853*XFR)1 0020 XR3=XP*XR2 0021 XGSP = XQP*SQRT(1 /(XCH1*XP)) 0022 XK=XC11*XGSP/XC1 0023 CALL 0UTPUT(IPA,IC,IR0UT,TEX1) 0024 CALL TEST(IFR,IV,1C,IRIN,TEX1.IN5 0025 IF(NOT.STOP) GOTO 150 0027 S F0RMAT(/,X,C11+C12>=4*QP**2*C4) 0028 RETURN 0029 END 0001 SUBROUTINE HPLQ С ***************************************************************** 0002 COMMON/STO/STOP 0003 C0MM0N/DATA1/XFR,XQP,XK,XGSP.XP,XCI1.XCI2,XR2, XC3,XR4 0004 DIMENSION TEX1(16),IN(6) 0005 LOGICAL*! STOP 0006 DATA TEX1/FREQVQPVK,GSP,P,C11,C12VR2VC3VR4, 1", V, V V 71 N/1,2,0,6,7,9/ 0007 DATA IFR,IV,IC,IRIN,IROUT,IPA,ICH/1,2,3.0,2.5,0/ 0008 CALL INPUT(IFR,IV,IC,IRIN,ICH.TEX1,IN) 0009 150 XC1=XC11+XC12 0010 XCHI = XC3/XC1 0011 XQHI = XQP*XQP 0012 XP = XQHI*(2.+XCHI+1./XCHI) 0013 XR2 = 1./ (SQRT (XP*XC 1 *XC3) * (6.2831853*XFR) I 0014 XR4=XP*XR2 0015 XGSP = XQP*SQRT(XP*XCHI) 0016 XK=XC11/XC1 0017 CALL 0UTPUT(IPA,IC,IR0UT,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/STO/STOP 0003 COMMON /DATAI/XFR,XQP,XK,XGSP,XP.XR1,XC2,XC3,XR4, XR5,XR6,XX1(2) 0004 DIMENSION TEX1(16),IN(6) 0005 LOGICAL*! STOP 0006 DATA TEXl/FREQ,QP,K,GSP,PVRr,C2,C3,R4. lR5,R6,,,,, 7IN/1,2,5,7,8,11/ 0007 DATA IFR,IV,IC,IRIN,IROUT,IPA,ICH/1,2,2,I,4,5,0/ (Ю08 GOTO (100,110) I 0009 100 TYPE 10 0010 10 FORMAT (X.BAND-REJECTION) eon GOTO 120 0012 110 TYPE 11 0013 11 FORMAT (X,ALL-PASS)
CALL INPUT (IFR.IV.IC.IRIN.ICH.TEXl ,IN) XCH1=XC3/XC2 XQHI=XQP*XQP хр==хдн1*(2.+хсн1+1.дсн1) XRl = 1/(SQRT(XP*XC2*XC3) * (6.2831853*XFR)) XR4=XP*XR1 XGSP=XQP*SQRT(XP*XCHI) XR5=I*XR6* (1.+1 ./XCHI) /ХР XK=XR6/(XR5+XR6) GOTO (200,210) I TYPE 10 GOTO 220 TYPE 11 CALL OUTPUT(IPA,IC,IR0UT,TEX1) CALL TEST(IFR,IV,IC,IRIN,TEX1,IN) IF(.NOT.STOP) GOTO 150 RETURN END SUBROUTINE LPMQ С ******************»***********»***********»**»******************* 0002 COMMON/STO/STOP 0003 C0MM0N/DATA1/XFR,XQP,XK,XGSP,XP,XPMIN,XR11,XR12, XC2,XR3,XC4, IXR5,XR6 0004 DIMENSION TEXl(16),IN(7) 0005 LOGICAL*! STOP 0006 DATA TEX1/FREQ,QPVK,GSP,P,PMIN,R11,R12,C2. R3, lC4VR5,R6,",". 7IN/1,2,3,5,9,11,12/ 0007 DATA IFR,IV,IC.IRIN,IROUT,IPA,ICH/1,3,2,1,5,6,0/ 0008 XP=0. 0009 CALL INPUT(IFR,IV,IC,IRIN,ICH,TEX1,IN) 0010 150 XKIN=XK 0011 XPIN=XP 0012 XCH1=XC4/XC2 0013 XQHI=XQP*XQP 0014 XPMIN=1/(XCHI*36.*XQHI)*(SQRT(1.+12.*XQHI*(XCHI+ + 1.)) + 1.)**2 0015 IF(XPIN.NE.O) GOTO 160 0017 XP = XPMIN 0018 160 XR1 = 1/(SQRT(XP*XC2*XC4)*(6.2831853*XFR)) 0019 XR3=XP*XR1 0020 XR6=XR5*(XCHI*(1.+XP)-SQRT(XCHI*XP)/XQR) 0021 XK0=1.+XR6/XR5 0022 XGSP=XK0**2*XQP*SQRT(1./(XCHI*XP)) 0023 IF (XKIN.EQ.0.0R.(XK0-XKIN).LE.O) GOTO 200 0025 XK=XKIN 0026 XR11 = (XK0/XK)*XR1 0027 XR12=XK*XR11/(XK0-XK) 0028 GOTO 300 0029 200 XRl 1= XRl 0030 XR12=1.E38 0031 XK=XKO 0032 300 CALL OUTPUT(IPA,IC,IR0UT,TEX1) 0033 XK=XKIN 0034 XP=XPIN 0035 CALL TEST(IFR,IV,IC,IRIN,TEX1,IN) 0036 IF(.NOT.STOP) GOTO 150 0038 RETURN 0039 END 0001 SUBROUTINE BPMQR С ***************************************************************** 0002 COMMON/STO/STOP 0003 COMMON/DATA 1 /XFR,XQP,XK.XGSP,XP,XPM IN.XR 11 .XRl 2, XC2,XC3,XR4 1,XR5,XR6 0004 DIMENSION TEX1(16),IN(7) 0005 LOGICAL*! STOP 0006 DATA TEXl/FREQVQP.K/GSP/PVPMINVRl l.R12,C2, C3, lR4/R5,R6,",, 71N/1,2,3,5,9,!0,13/ 0007 DATA IFR,IV,IC,IRIN,IROUT,IPA,ICH/1,3,2,1,5,6,0/ 0008 XP=0. 0009 CALL INPUT(IFR,IV,IC,IRIN,ICH,TEX1,IN) 0010 150 XKIN==XK ООП XPIN = XP 0012 XCHI = XC3/XC2 0013 XQHI = XQP*XQP 0014 XPMIN=1/(XCHI*4.*XQHI)*(SQRT(1.+12.*XQHI*(XCHI+ + 1.))-1.)**2 0015 IF(XP.NE.O) GOTO 160 0017 XP=XPMIN 0018 160 XR1 = 1/(SQRT(XP*XC2*XC3)*(6.2831853*XFR)) 0019 XR4=XP*XR1 0020 XR5=XR6*((1.+ 1./XCHI)/XP-(SQRT(1./(XCHI*XP))/XQP)) 0021 XKO=XQP*(l.+XR5/XR6)*SQRT(XCHI*XP) 0022 IF(XKIN.EQ.0.OR.(XK0-XKINl.LE.O) GOTO 165 0024 XK=XKIN 0025 XR11=XK0*XRI/XK 0026 XR12 = XK*XR11/(XK0-XK) 0027 GOTO 170 0028 165 XR11=XR1 0029 XR12=l.E+38 0030 XK=XKO 0031 170 XGSP=XK0*(1.+XR5/XR6) 0032 CALL 0UTPUT(IPA,IC,IR0UT,TEX1) 0033 XP = XPIN 0034 XK=XKIN 0035 CALL TEST(IFR,IV,IC,IRIN,TEX1,IN) 0036 IF(.NOT.STOP) GOTO 150 0038 RETURN 0039 END 0001 SUBROUTINE BPMQC 0002 COMMON/STO/STOP 0003 C0MM0N/DATA1/XFR,XQP,XK,XGSP,XP,XPMIN,XC11.XC12, XR2,XR3,XC4 1,XR5,XR6 0004 DIMENSION TEX1(16),IN(7) 0005 LOGICAL*! STOP 0006 DATA TEX/FREQ/QP,K,GSP,PVPMINVC11VC12VR2, rC4VR5,R6,, ,71N/1,2,5,7,8,!1.!3/ (0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (10) (11) (12) (13) (14) (15) (16) (17) (18) (19) (20) (21) (22) (23) (24) (25) (26) (27) (28) (29) (30) (31) (32) (33) (34) (35) (36) (37) (38) (39) (40) (41) (42) (43) (44) (45) (46) (47) (48) (49) (50) (51) (52) (53) (54) (55) (56) (57) (58) (59) (60) (61) (62) (63) (64) (65) (66) (67) (68) (69) (70) (71) (72) (73) (74) (75) (76) (77) (78) (79) (80) (81) (82) (83) ( 84 ) (85) (86) (87) (88) (89) (90) (91) (92) (93) (94) (95) (96) (97) (98) (99) (100) (101) (102) (103) (104) (105) |
|