Главная -> Книги

(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)



0014

0015

0016

0017

0018

0019

0020

0021

0022

0023

0024

0025

0026

0027

0028

00i29

0031

•0032

0001

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)