Усредняющий фильтр.

Схемы Программы Библиотека Все для сотового Компьютеры Поиск
Чат Форум Ссылки Рефераты Гостевая

 

 

Взад

(В главное меню)

Вперед

 

Наиболее распространенный способ подавления быстрых флюктуации (часто паразитных) в медленно изменяющемся сигнале состоит в вычислении среднего значения нескольких выборок, относящихся к одному интервалу дискретизации. Конечно, такой способ может замедлить работу системы, поэтому он применен в двух программах, выводящих результат один раз в секунду (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

 

Взад

(В главное меню)

Вперед

--------------------------------------------------------------------------------------------------------------------------------------------

По всем вопросам работы сайта пишите!

 Рейтинг@Mail.ru

Дизайн и программирование - Joker -  2005г.

Используются технологии uCoz
- Joker -  2005г.
Используются технологии uCoz