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

Приложение Б

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


Основная программа представлена на с. 251-253, за ней следуют три
подпрограммы ввода-вывода и 23 подпрограммы - по одной на каждую
схему. Однако следует отметить, что порядковые номера схем, указанные во
вторых операторах задания формата, которые начинаются со строки 0064, не
совпадают с используемыми в гл. 5 и приложениях А и В порядковыми но-
мерами схем. Таким образом, например* высокодобротной полосно-пропускаю-
шей схеме <тип 8> соответствует описанная в гл. 5 схема 17.
Подпрограммы ввода и вывода написаны для случая использования око-
нечного устройства визуального отображения. Если же требуется твердая
копия, то надо переделать только подпрограмму вывода.
Все подпрограммы 23 схем составлены в соответствии с данными в гл. 5
алгоритмами, за исключением подпрограммы HLPNMQ, которая в распе-
чатке программы приведена на с. 267. В этой подпрограмме начальное зна-
чение параметра Р, обеспечивающее минимальную величину ПУЧ, вычисля-
ется численно, и нет необходимости находить его вручную.

INSTITUTE OF TELECOMMUNICATIONS
SWISS FEDERAL INSTITUTE OF TECHNOLOGY, ZUER1CH

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 100 CALL CLOSE (3)
0008 TYPE 2
0009 150 ACCEPT 3,1
0010 1 = 1 + 1
ООП IF(I.LE.0.0R.I.GT.24)GOTO 150
0013 IFIRST-1
0014 GOTO (1000,502,503,504,505,506,507,508,509,510,511,512,513,514,
1 5J5.516.517,518,519,520,521,522,523,524) I
0015 502 CALL LPLQ
0016 GOTO 100
0017 503 CALL LPMQ
0018 GOTO 100
0019 504 CALL LPHQ
0020 GOTO 100
0021 505 CALL BPLQR
0022 GOTO 100
0023 506 CALL BPLQC
0024 GOTO 100
0025 507 CALL BPMQR