"Проектирование активных фильтров (Пер. с англ.)" - читать интересную книгу автора (Мошиц Г., Хорн П. )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# |
|
|