Усредняющий фильтр.
Схемы | Программы | Библиотека | Все для сотового | Компьютеры | Поиск |
Чат | Форум | Ссылки | Рефераты | Гостевая |
Наиболее распространенный способ подавления быстрых флюктуации (часто паразитных) в медленно изменяющемся сигнале состоит в вычислении среднего значения нескольких выборок, относящихся к одному интервалу дискретизации. Конечно, такой способ может замедлить работу системы, поэтому он применен в двух программах, выводящих результат один раз в секунду (SECONDE.BAS) и один раз в минуту (MINUTE.BAS). 200 REM----SECONDE---- 210 Q=0:S=0:GOSUB 100 220 LOCATE 5,1 . 230 PRINT"Идет измерение..." 240Н$=Т1МЕ$ 250 IF H$<>TIME$ THEN BEEP:GOTO 290 260 GOSUB 100 270 S=S+D:Q=Q+1 280 GOTO 250 290 D=INT(100*S/Q)/100 ' 300 LOCATE 1,1 310 PRINT USING"##.##"; D; 320 PRINT" (среднее за ";Q;" измерений)" 330 GOTO 210 340 REM (c)1997 Patrick GUEULLE Помимо вычисления результата измерений, каждая из этих программ выводит и количество измерений, которое было использовано при. расчете. Это позволяет точно оценить реальное быстродействие системы в зависимости от применяемого ПК. Так, можно получить 3-4 измерения в секунду на «антикварном» ПК 8088/ 4,77 МГц, 60-70 измерений в секунду на 386SX25 и 700-1000 измерений в секунду на 486DX/133 МГц, что все же достаточно далеко от современных скоростей, но весьма почетно для BASIC- интерпретатора. Стоит обратить внимание на то, как использована зарезервированная цикловая переменная TIMES. Она позволяет при любой частоте процессора получить достаточно точную шкалу секунд, минут и даже часов. А если понадобится осуществлять, например, одно измерение за несколько дней, то можно использовать переменную DATES. 200 REM----MINUTE---- 210 Q=0:S=0:GOSUB 100 220 LOCATE 5,1 230 PRINT"Идет измерение. 240 H$=LEFT$(TIME$,5) 250 IF H$oLEFT$(TIME$,5) THEN BEEP:GOTO 290 260 GOSUB 100 270 S=S+D:Q=Q+1 280 GOTO 250 290 D=INT(100*S/Q)/100 300 LOCATE 1,1 310 PRINT USING"##.##";D; 320 PRINT" (среднее за ";Q;" измерений)" 330 GOTO 210 340 REM (c)1997 Patrick GUEULLE
|
--------------------------------------------------------------------------------------------------------------------------------------------