Ãëàâíàÿ -> Êíèãè (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) (86) XR6,XR7,XC8,XC,XR 0005 DIMENSION TEXl (16),IN(5) 0006 LOGICAL*! STOP 0007 DATA TEX 1 /FREQ,QP/K/ROPT,R 1 /R2.C3/R4,R6,R7, ICSVCR, V, 7IN/1,2,0,12,13/ 0008 DATA IFR,1V,ICIN,ICOUT.IR1N,IROUT,IPA/1,2,1,0,6,3/ 0009 DATA ICH,IRIN1/0,1/ 0010 CALL INPUT(IFR,IV,ICIN,IRIN,ICH,TEX1,IN) 0011 150 ICH=13 0012 IFIRST=0 0013 XROPT= 1./(6.2831853* XFR*XC) 0014 TYPE 10.XROPT 0015 10 FORMAT(X/ROPT,T15,=,1PE10.3) 0016 CALL INPUT(IFR,IV,ICIN,IRIN,ICH,TEX1,IN) 0017 XK=2 0018 XR1=XR 0019 XR2=XR 0020 XR6=XR 0021 XC3=XC 0022 XC8 = XC 0023 XR7=XQP*XR0PT 0024 XR4=XROPT**2/XR 0025 CALL 0UTPUT(IPA,IC0UT,IR0UT,TEX1) 0026 CALL TEST(IFR,IV,ICIN,IRIN,TEX1,IN) 0027 IF(.NOT.STOP) GOTO150 0029 RETURN 0030 END 0001 SUBROUTINE HPHQ Ñ ********•*•***••**•***********•*••******•****•******«•*******•*** 0002 COMMON/STO/STOP 0003 COMMON/FIRST/IFIRST 0004 COMMON/DATA 1 /XFR,XQP,XK,XROPT,XR 1 ,XR2,XC3,XR4, XR6,XC7,XR8,XC,XR 0005 DIMENSION TEXl(16),IN(5) 0006 LOGICAL*! STOP 0007 DATA TEX1/FREQVQP,K,R0PT,R!,R2VC3,R4,R6,C7, !R87CVR,",, 7IN/!,2,0,!2,13/ 0008 DATA IFR,IV,ICIN,ICOUT,IRIN,IROUT,IPA/l,2,!,2Aˆ,3/ 0009 DATA ICH,IRIN!/0,!/ 0010 CALL INPUT(IFR,IV,ICIN,IRIN,ICH,TEX!,IN) ÎÎÏ 150 ICH=!3 0012 IFIRST=0 0013 XROPT=l./(6.283!853*XFR*XC) 0014 TYPE 10,XROPT 0015 10 FORMAT(X/ROPT,T15,=MPE10.3) 0016 CALL INPUT(IFR,IV,ICIN,IRIN1,ICH,TEX1,IN) 0017 XK=2 0018 XR1=XR 0019 XR2=XR 0020 XR6=XR 0021 XC3=XC 0022 XC7=XC 0023 XR8-XQP*XROPT 0024 XR4=XROPT**2/XR 0025 CALL 0UTPUT(IPA,IC0UT,IR0UT,TEX1) 0026 CALL TEST(IFR,IV,IQIN,IRIN,TEX1,IN) 0027 - IF(.NOT.STOP) GOTO 150 0029 RETURN 0030 END 0001 SUBROUTINE APHQ Ñ *»««•»»•»••••«»•••»»«••»»»»»»»»♦*»»«»»»»»»»»»»»»»»»»»»«»»»»♦•**♦♦ 0002 COMMON/STO/STOP 0003 COMMON/FIRST/IFIRST 0004 COMMON/DATA 1 /XFR,XQP,XK,XROPT.XRI ,XR2,XC3,XP4, XR5,XC7,XR8,XC,XR 0005 DIMENSION TEXl (16),IN(5) 0006 LOGICAL* 1 STOP 0007 DATA TEXl/FREQ,QP/K,ROPT/R 1 ,R2/C3/R4/R5/C7, 1 R8,C,R , /IN/1,2,0,12,13/ 0008 DATA IFR.IV,ICIN,ICOUT,IRIN,IROUT,IPA/1.2,1,2,0,6,3/ 0009 DATA ICH,IRIN1/0,1/ 0010 CALL INPUT(IFR,1V,ICIN.IRIN,ICH.TEX1,IN) ÎÎÏ 150 ICH=13 0012 IFIRST=0 0013 XROPT=l./(6.2831853*XFR*XC) 0014 TYPE 10,XROPT 0015 10 FORMAT(X,ROPT,T15,=,1PE10.3) 0016 CALL INPUT(IFR,IV.ICIN,IRIN1,ICH,TEX1,IN) 0017 XK=2 0018 XR1=XR 0019 XR2 = XR 0020 XR5=XR 0021 XC3=XC 0022 XC7=XC 0023 XR8=XQP*XR0PT 0024 XR4=XR0PT**2/XR 0025 CALL OUTPUT(IPA.IC0UT,IR0UT,TEX1) 0026 CALL TEST(IFR,IV,ICIN.IRIN,TEX1,IN) 0027 IF(NOT.STOP) GOTO 150 0029 RETURN 0030 END 0001 SUBROUTINE BRHQ Ñ *******•*••••*•**«•***•***«•*•********••***•**••**********•****•* 0002 COMMON/STO/STOP 0003 COMMON/FIRST/IFIRST 0004 COMMON/DATA 1 /XFR,XQP,XK,XROPT,XR 1 ,XR2,XC3,XR4, XR5,XC7,XR7,XR8, IXC XR 0005 DIMENSION TEXl (16),IN(5) 0006 LOGICAL*! STOP 0007 DATA TEX 1 /FREQ,QP,K,ROPT,RI/R2,C3,R4/R5,C7, lR7,R8.C,R,,, /IN/1,2,0,13,14/ 0008 DATA IFR,IV,ICIN,ICOUT,IRIN,IROUT,IPA/1,2,1.2,0,7,3/ 0009 DATA ICH,IRIN 1/0,1/ 0010 CALL INPUT(IFR,IV,ICIN,IRIN,ICH,TEX1,IN) ÎÎÏ 150 ICH=14 0012 IFIRST=0 0013 XROPT=l.(6.2831853*XFR*XC) 0014 TYPE 10,XROPT 0015 10 FORMAT(X,ROPT,T15,=,1PE10.3) 0016 CALL INPUT(IFR,IV,ICIN,IRIN1,ICH.TEX1,IN) 0017 XK=2 0018 XR1=XR 0019 XR2=XR 0020 XR5=XR 0021 XC3=XC 0022 XC7=XC 0023 XR8=XQP*XROPT*2 0024 XR4=XROPT**2/XR 0025 XR = XR8 0026 CALL 0UTPUT(IPA,IC0UT,IR0UT,TEX1) 0027 CALL TEST(IFR,1V,IC1N,1RIN,TEX1,IN) 0028 IF(.NOT.STOP) GOTO 150 0030 RETURN 0031 END 0001 .SUBROUTINE HLPNHQ Ñ »»»»»»»»•»»»*»♦»»»••»»»»»**»»»»»*«»*«»•*«»»«•*«»»»»»♦«*«»«••»♦»«• 0002 COMMON/STO/STOP 0003 COMMON/FIRST/IFIRST 0004 COMMON/DATA 1 /XERP,XFRZ,XQP,XKHP,XKLP,XROPT,XR 1, XC2,XR3,XR4,XR5 1,XC7,XR8,XC,XR DIMENSION TEX1(16),IN(6) LOGICAL*! STOP DATA TEXl/FRP,FRZ,QP,KHP,KLP,ROPT/R 1 ,C2,R3i 1 R4,R5,C7/R8,C,R/ /IN/1,2,3,0,14,15/ DATA IFR,IV,ICI,ICOUT,IRIN,IROUT,IPA/2,2,1,2,0,6,8/ DATA ICH,IRIN1/0,1/ CALL INPUT(IFR,IV,ICIN,IRIN,ICH,TEX1,IN) IF(XFRP.NE.XFPZ) GOTO 160 TYPE 20 FORMAT/(X,FRP IS EQUAL FRZ!) CALL TEST(IFR,1V,ICIN,1RIN,TEX1,IN) GOTO 150 ICH=il5 IFIRST=0 XHI = 6.2831835*XFRP*XC XR0PT=1./XHI TYPE 10,FROPT FORMAT(X,ROPT,T15,=,1PE10.3) CALL INPUT(IFR,IV,ICIN,IRIN1,ICH,TEX1,INI XR1=XR XR3=XR XC2=XC XC7=XC XR8=XQP/XHI XHI 1 = (XFRZ/XFRP) **2-l IF(XHIl.GT.O) GOTO 200 XR4=-XR8*XHI1 TYPE 31 FORMAT (/X,HIGH-PASS NOTCHED) GOTO 220 XR4=XR8*XHI1 TYPE 30 FORMAT(/X,LOW-PASS NOTCHED) XR5 = XROPT**2/XR4 XKLP = 1. XKHP=1. CALL 0UTPUT(IPA,IC0UT,IR0UT,TEX1)
(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) |
|