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

0043 IF(.NOT.STOP) GOTO 150
0045 RETURN
0046 END



Приложение В


Распечатка программы на языке Бейсик для мини-ЭВМ TRS-80


Представленная на первой странице этого приложения распечатка про-
граммы включает в себя:
Строки 30-110 - информация относительно имеющихся фильтровые
функций и соответгтвующих порядковых номеров схем.
Строки 120-180 - запрос ввода порядкового номера схемы, а также
значения частоты и добротности.
Строка 190 - точка разветвления на 23 подпрограммы, которые следуют
за необходимыми позже в этих подпрограммах двумя подпрограммами (стро-
ки 200 и 260). На последующих страницах даны подпрограммы расчета при-
веденных в гл. 5 23 схем.
Преимущество системы TRS-80 состоит в том, что можно обеспечить
повторный прогон подпрограммы схемы при изменении только некоторых, а
не всех входных параметров. Таким образом, когда отжата клавиша ВВОД
без задания нового значения параметра, о котором идет речь, его старое
значение сохраняется в памяти без изменения. С другой стороны, когда об-
ращаются к программе расчета новой схемы, значения всех переменных
должны быть установлены равными нулю (строка 10). Поскольку сама про-
грамма прогоняется автоматически, то дальнейшие пояснения не требуются.
Вся имеющаяся в наличии программа предназначена для именной управ-
ляемой загрузки на ленту или диск.


10 CLS:CLEAR
20 PRINTCHR$ (23)
30 PRINT"LOW-Q MEDIUM-Q HIGH-Q" : PRINT
40 PRINT"1.LP-LQ 8. LP-MQ 16. LP-HQ"
50 PRINT"2.BP-LQ-R 9 BP-MQ-R 17. BP-HQ"
60 PRINT".3.BP-LQ-C 10. BP-MQ-С 18. HP-HQ"
70 PRINT"4.HP-LQ 11. HP-MQ 19. AP-HQ"
80 PRINT"5.AP-Q.5 12. AP-MQ 20. BR-HQ"
90 PRINT"6.AP-LQ 13. BP-MQ 21. L/HPN-HQ"
100 PRINTe576,"7.BP-LQ 14. L/HPN-MQ 22. GP1"
110 PRINTR640," 15. BR-L/HPN-MQ 23. GP2"
120 PRINT: PRINT"NUMBER OF DESIRED CIRCUIT ";
130 INPUT M
140 IF M<1 THEN 10 ELSE IF M>23 THEN 10
150 CLS
160 PRINTCHR$(23) : PI #=3.1415926535897932 : PI = PI#