Сравнение звуков, если периодический звук изменился давать алярм Опции

[Lotar]

К станине заточного станка приклеен микрофон.
Настройщик: настроил станок, нажал (в программе) кнопку запомнить, пошел отдыхать.
Программа сравнивает запомненный звук с поступающим.

ЕСЛИ отличается более чем на Х% - истошно ругает заточника матом
(мат тож записать можно 8) или сам запишу)

ОПЦИИ

если более чем на Х%+Н% - устанавливает порт принтера в состояние 64
(я этим сигналом станок выключу)

строит график изменений
(можно бкдет ориентироваться как часто к станку подходить, эт всегда по разному)


Выкладывает текущую инфу на сайт и/или СМС шлет об аварии)
(из дома заточника смогу контролировать 8)

/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Все очень не сложно. На дельфях есть библиотека и готовое решение прием вава в 2 массиа потоком
Остальное развлекуха.
Синхронизация по уровню сигнала. Можно приделать движек "порог тишины"
Звук резкий, продолжительность около 0,3 секунды периодичность ~ 2,5 сек.
Алгоритм сравнения плохо себе пока представляю.
Теоретически надо ловить максимумы амплитуды


t // текущее значение буферного массива данных принятых с микрофона
mp // массив пиков
np // номер пика
min //минимум

Цикл до конца буферного массива данных принятых с микрофона t
{
t++
if t>mp[np] then mp[np]==t
if t<155 // эт там 0 = 123 отрицательных нет а максимум 256
if t<min then min==t
if (123-min)/(mp[np]-123)>0.3 then
{
while t<порга тишины// пропускаеи нижнюю полуволу нафиг до порога тишины
t++
end while
np++ // ищем след пик
}
}
------------------------
Ну и сравниваем полученный массив пиков с эталоном
Как сравнивать?
Можно просто по сумме. И продолжительности. Продолжительность должа быть как задано в эталоне и общее количество звука как в эталоне. И достаточно. Если сумма больше на Х% ЖГЕМ если меньше не точим. И с продолжительностью тож самое.
-------------------------
Вот такое ТЗ
я бы и сам написал но у меня уже 2 года как все компиляторы снесены. А ставить весь арсенал 8(
Влом.

По взаиморасчетам - жду предложений.





Мда! поскольку у меня никаких языков не кстановлено. Мне готовыая прога нужна.
Исходник тож пригодится . Мож развивать потом будем.