База данных и публикаций по тяжелой промышленности.

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

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

Приложение Б

Распечатка программы на языке Фортран для ЭВМ PDP-11

Основная программа представлена на с. 251-253, за ней следуют три подпрограммы ввода-вывода и 23 подпрограммы - по одной на каждую схему. Однако следует отметить, что порядковые номера схем, указанные во вторых операторах задания формата, которые начинаются со строки 0064, не совпадают с используемыми в гл. 5 и приложениях А и В порядковыми номерами схем. Таким образом, например» высокодобротной полосно-пропускающей схеме «тип 8» соответствует описанная в гл. 5 схема 17.

Подпрограммы ввода и вывода написаны для случая использования оконечного устройства визуального отображения. Если же требуется твердая копия, то надо переделать только подпрограмму вывода.

Все подпрограммы 23 схем составлены в соответствии с данными в гл. 5 алгоритмами, за исключением подпрограммы HLPNMQ, которая в распечатке программы приведена на с. 267. В этой подпрограмме начальное значение параметра Р, обеспечивающее минимальную величину ПУЧ, вычисляется численно, и нет необходимости находить его вручную.

INSTITUTE OF TELECOMMUNICATIONS SWISS FEDERAL INSTITUTE OF TECHNOLOGY, ZUERICH

PROGRAMER: HAMS GERBER

0001		PROGRAM BERECH
0002		COMMON/DATA 1/DAT (16)
0003		COMMON/STO/STOP
0004		COMMON/FIRST/IFIRST
0005		TYPE 1
0006		ACCEPT 4,XX
0007		CALL CLOSE (3)
0008		TYPE 2
0009		ACCEPT 3,1
0010		I = I-f 1
		IF(I.LE.0.0R.I.GT.24)GOTO 160
0013		IFIRST=1
0014		GOTO (1000,502,503,504,505,506,507,508,509,510,511,512,513,514,
		1 515,516,517,518,519,520,521,522,523,524) I
0015		CALL LPLQ
0016		GOTO 100
0017		CALL LPMQ
0018		GOTO 100
0019		CALL LPHQ
0020		GOTO 100
0021		CALL BPLQR
0022		GOTO 100
0023		CALL BPLQC
0024		GOTO 100
0025		CALL BPMQR
0026		GOTO 100
0027		CALL BPMQC
0028		GOTO 100

-252	Прилижение Б
0029		CALL BPHQ
ЮОЗО		GOTO 100
0031		CALL HPLQ
Ю032		GOTO 100
0033		CALL HPMQ
•О034		GOTO 100
0035		CALL HPHQ
0036		GOTO 100
•0037		CALL APLQS
0038		GOTO 100
•0039		1 = 2
0040		CALL APLQ(I)
0041		GOTO 100
0042		CALL APMQ
О043		GOTO lOO
0044		CALL APHQ
О045		GOTO 100
0046		1 = 1
0047		CALL APLQ(I)
0048		GOTO 100
0049		CALL BPMQ
0050		GOTO 100
0051		CALL BPHQ
0052		GOTO 100
0053		CALL HLPNMQ
0054		GOTO 100
0055		CALL BRHLPN
0056		GOTO 100
0057		CALL HLPNHQ
0058		GOTO 100
0059		CALL GPl
0060		GOTO 100
0061		CALL GP2
0062		GOTO 100
•0063		FORMAT/X.CIRCUIT :,X,

0064

,T20,LOWER Q : Q < 0.5,/, ,T20,LOW Q : Q < 2,/, ,T20,MED1UM Q : 2 < Q < 20,/, ,T20,H1GH Q : 20 < Q) FORMAT/TIO.E OF COMPUTAT10N,T45,(TYPE 0),/X, ,T10,LOW-PASS,T35,LOW Q,T45,(TYPE 1),/X, ,T10,LOW-PASS,T35,MED1UM Q,T45,(TYPE 2),X, ,T10,LOW-PASS,T35,HIGH Q,T45,(TYPE 3),/X, ,T10,BAND-PASS R-1NPUT,T35,L0W Q,T45, (TYPE 4),/X,

,T10,BAND-PASS C-1NPUT,T35,L0W Q,T45, (TYPE 5),/X,

,T10,BAND-PASS R-INPUT,T35,MED1U.M Q,T45, (TYPE 6),/X,

,T10,BAND-PASS C-1NPUT,T35,MED1UM Q,T45, (TYPE 7),/X,

,T10,BAND-PASS,T35,H1GH Q,T45,(TYPE 8),/X, ,T10,H1GH-PASS,T35,LOW Q,T45,(TYPE 9),/X, ,T10,HIGH-PASS,T35,MED1UM Q,T45,(TYPE 10),/X, ,T10,H1GH-PASS,T35,HIGH Q,T45,(TYPE 11),/X, ,T10,ALL-PASS,T35,LOWER Q,T45,(TYPE 12),/X, ,T10,ALL-PASS,T35,LOW Q,T45,(TYPE 13),/X, ,T10,ALL-PASS,T35,MED1UM Q,T45,(TYPE 14),/X,

,T10,ALLPASS,T35,H1GH Q.T45,4TYPE 15),/Х, ,T10.BAND-PEJECTlON,T35,LOW Q,T45, (TYPE 16),/X

,T10,BAND-PEJECTION,T35/MEDIUM Q T45, (TYPE 17),/X,

,T10,BAND-PEJECTlON,T35,HIGH Q,T4b, (TYPE 18),/\,

,T10,HIGH-/LOW-PASS-NOTCHED,T35,MEDIUi i Q. ,T45,(TYPE 19),/X

,T10,BAND-PEJECTION/HIGh ./X TIO.LOW-PASS NOTCHED,

,T35,MEDIUM Q,T45,(TYPE 20),iX, ,T10,HIGH-LOW-PASS N0TCHED,T36,HIGH Q,T45, tTYPE 21),/X,

,T10,GENER\L PURPOSE r,T45,(TYPE 22),/X, ,T10,GENERAL PURPOSE 2,T45,(TYPE 23),/X) «065 3 FORMAT (12)

0066 4 FORMAT(An

0067 1000 CALL CL0SE(3)

0068 STOP

0069 END

0001 SUBROUTINE TEST(IFR,IV,IC,IR,TEX1,IN)

С *****************************************************************

0002		COMMON/STO/STOP
0003		COMMON/FIRST/IFIRST
0004		DIMENSION TEX1(16),IN(9)
0005		L0GICAL*1 STOP
0006		ITOT=IFR+IV+IC+IR
0007		STOP = .FALSE.
0008		ICH = 0.
0009		TYPE 10
0010		ACCEPT 20, IHI, TEST
		IF(IHI.EQ.O) GOTO 220
0013		DO 100 1 = 1, ITOT
0014		IF(TEST.NE.TEX1(IN(I))) GOTO 100
0016		ICH = IN(I)
0017		GOTO 200
0018		CONTINUE
0019		IF(ICHEQO) GOTO 1000
0021		IFIRST=0
--0022		CALL INPUT(IFR,IV,IC,IR,ICH,TEX1,IN)
0023		GOTO 1000
0024		STOP= TRUE
0025	1000	RETURN
0026		FORMAT (/X,ELEMENT CHANGE ?,/X,WHICH ELEMENT
		.,X,$)
0027		FORMAT (Q,A4)
0028
0001		SUBROUTINE INPUT(IFR,IV,IC,IR,ICH,TEX1,IN)

С ********************************** i****************************it

0002 C0MM0N/DATA1/DAT1(16)

0003 COMMON/FIRST/IFIRST :0004 DOUBLE PRECISION ТЕ .(4) ,0005 DIMENSION TEX1(16),IM(9)

0006 DIMENSION IH(4)

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